Системы автоматизированного проектирования, программы AutoCAD и AutoCAD Civil 3D

-Процессор с тактовой частотой 1,8 ГГц или выше

-ОС Microsoft® Windows® XP с пакетом обновления 2 (рекомендуется пакет обновления 3) или Windows Vista® Home Premium, Business, Ultimate или Enterprise с пакетом обновления 1 (сертифицированные для 32-разрядной ОС Windows XP и 32- и 64-разрядной ОС Windows Vista)

-512 МБ ОЗУ ( рекомендуется 1 ГБ или более)

-1 ГБ свободного пространства на жестком диске; во время установки необходимо дополнительное свободное пространство (установка на устройства с флэш- памятью не поддерживается).

-Монитор с разрешением не менее 1024 х 768 и 16-битная или более видеокарта

-Для некоторых ускоренных графических функций требуется поддержка Shader Model 3.0 и OpenGL 2.0

-Для использования мультимедийных функций требуется проигрыватель QuickTime7.2

-Для поддержки интерактивных функций требуется широкополосное подключение к Интернет.

Год выпуска: 2009

Глава 3. Руководство пользователям

3.1 Разработка проекта

Под разработкой проекта сооружения, будь то коттедж или небоскреб, и соответствующей строительной документации, подразумевают создание информации, доступной для двух типов аудитории -- "покупателей" и "строителей".

Чаще всего, программы САПР предоставляют только какой-либо один тип вышеупомянутой информации, и только AutoCAD позволяет в одном файле интегрировать данные, понятные как профессионалу-строителю, так и покупателю. Эта особенность позволяет архитектору -- пользователю AutoCAD сэкономить свое рабочее время и значительную часть средств своего клиента и поможет избежать возможных конфликтов еще до их возникновения.

Пользователь CAD-систем обладает полной и разнообразной информацией о проекте на любом этапе его разработки:

· при работе над эскизом доступна детальная строительная информация (данные о точных размерах, площадях и материалах);

· трехмерная перспектива строится автоматически на основе данных проекта; любые изменения в чертежах автоматически отображаются в конструкторской документации, которая пополняется по мере выполнения проекта.

· Составление документации происходит одновременно с разработкой проекта, так как программа хранит полный объем информации о проектируемом здании -- планы, разрезы, перспективы, перечень необходимых материалов, а также все замечания архитектора, сделанные во время работы.

В трехмерном виде, в разрезе, в перспективе

AutoCAD и AutoCAD Civil 3D позволяют на любом этапе работы над проектом увидеть его в трехмерном виде (рис.1), в разрезе (рис.2), в перспективе, подобрать наиболее подходящие материалы и посчитать их расход.

Рис. 1 Трехмерная модель здания

Рис. 2 Трехмерная модель здания в разрезе

Рис. 3 Трехмерная модель здания в перспективе



Вся информация в AutoCAD о проектируемом сооружении накапливается в так называемом едином проектном Living Document.

Такая интеграция всех аспектов дизайна означает, что модифицирование, затрагивающее любой аспект, например, изменение сечения или проема окна, отражается в ведомости материалов, проекциях, планах и так далее. Часто встречающееся требование по многократному внесению изменений в рабочие файлы различных видов -- источник ошибок и задержек в выполнении проектов, при использовании AutoCAD теряет смысл.

План

Проект в AutoCAD начинается с построения плана первого этажа (рис.4). Его размер не имеет принципиального значения. Затем, используя такие объекты, как стены, двери, окна, плиты, колонны, перекрытия и т.д., постепенно создается проект здания.

Рис.4 План первого этажа здания

Информация о высоте каждого строительного элемента уже содержится в них, но ее можно поменять в любой момент, как для всего этажа в целом, так и выбирая каждый элемент по отдельности. После того, как план первого этажа готов, к нему можно добавить практически неограниченное количество этажей, просто копируя уже нарисованные объекты. Причем, их можно добавлять как вверх, так и вниз. Так как этажи располагаются точно друг над другом, то несовпадение колонн, оконных проемов и других элементов практически невозможно.

Система работы с многоэтажными проектами сокращает время разработки и снижает риск появления дорогостоящих ошибок.

Модель здания

В процессе разработки модели AutoCAD отслеживает все компоненты здания и управляет трехмерной информацией. В любой момент в процессе построения можно запросить AutoCAD выделить какую-либо секцию, показать вид сбоку или перспективу, сформировать текущий перечень строительных материалов.

Любую секцию здания на плане можно изобразить в разрезе. Это позволяет установить правильное соотношение между наружной и внутренней частями здания.

Кроме того, сечение секции можно изобразить в реалистической закраске.

Свет и тени

С легкостью может быть получено неограниченное число перспективных проекций. Чтобы показать здание наиболее наглядно, можно использовать фотографию реальной местности в качестве фона и затем разместить само здание.

С этой же целью в AutoCAD предусмотрены возможности создания эффекта солнечного света, зависящего от времени суток, даты и географической широты, а также нанесения теней. Можно определить, как будет падать свет в любое время суток в любой части здания.

Убедительность представления проекта заказчику

Исходя из этого, при работе над интерьером можно оптимальным образом рассчитать необходимое количество источников света.

Получение реалистических изображений интерьера, используя произвольное число источников света, таких как настольные лампы, потолочные и точечные светильники, довершит убедительность представления проекта заказчику.

Спецификация используемых материалов

На любой стадии проекта можно просмотреть спецификацию используемых материалов. В ней учитываются все компоненты, используемые при строительстве, их характеристики могут включать такие параметры, как площадь, объем, цена и прочее (например, производитель, трудозатраты на установку и т.д.). Точность численных данных -- до 12 знаков после запятой. Полученную спецификацию можно экспортировать в файлы форматов электронных таблиц, баз данных и текстовых редакторов (например, Excel, dBase, Word).

Зонирование

С помощью инструмента зонирования можно пометить комнаты и зоны здания, такие как жилая площадь, офисы, склады, вспомогательные помещения и так далее, все, что хотите. Площадь и объем каждой зоны вычисляются автоматически.

Высокое качество построения

Высокое качество построения реалистических изображений позволяет использовать настоящие строительные материалы, тени, прозрачные объекты и текстуры поверхностей.

Среди методов улучшения качества изображения -- сглаживание краев, отражение света и его рассеяние. Кроме того, вы можете рассчитать размер тени, отбрасываемой зданием в зависимости от места его расположения и времени суток. AutoCAD может создать анимационный ролик, в котором можно совершить виртуальное путешествие вокруг и внутри здания. Используя специальное программное и аппаратное обеспечение, его можно записать на видеопленку, наложить звук и так далее.

Средства виртуальной реальности

Использование средств виртуальной реальности пригодится не только для того, чтобы убедить заказчика, но и для того, чтобы обнаружить и исправить возможные ошибки конструирования не на стадии строительства, а на стадии проектирования.

Анимационные ролики весьма компактны и предъявляют достаточно скромные требования к производительности компьютеров, поэтому их можно проигрывать на домашних компьютерах, переносить на дискетах и даже распространять по Internet.

Простой интерфейс

Информация на экране должна быть одновременно и простой, и исчерпывающей. AutoCAD обеспечивает правильное соотношение между объемом и важностью отображаемой информации, поэтому как специалист, так и новичок легко могут научиться производительно использовать богатые функциональные возможности программы, что сокращает срок обучения и, значит, экономит деньги пользователей.

Система "прозрачна" для пользователя, ее реакции всегда отображаются на экране и они предсказуемы. Кроме того, AutoCAD -- хороший помощник, возможность "отката назад" на 99 шагов позволит исправить практически любую ошибку. Если, конечно, ее удастся вовремя заметить. Перед тем, как начать выполнять особо продолжительные операции, AutoCAD запрашивает дополнительное подтверждение.

Детальная и полная строительная документация

AutoCAD представляет хорошо сбалансированную конструкцию из мощных инструментов САПР и практических функций, необходимых для выпуска полной, вплоть до последней детали, строительной документации.

Параметрическая визуализация

Уникальная особенность AutoCAD -- зависящая от масштаба изображения, детализация и параметрические свойства. Изменив, например, масштаб изображения, такие строительные элементы, как двери окна vогут быть изображены схематично или во всех деталях. Таким образом, вам не придется зря тратить время на различные виды детализации изображения, а также при ожидании перерисовки на экране излишне детализированного чертежа в большом масштабе. Наличие большого числа каталогов производителей, откуда любой элемент строения можно скопировать и вставить в чертеж, также существенно облегчает черчение.

Ассоциативные размеры

Размерные линии в AutoCAD привязаны к специфическим точкам здания, что означает, что размеры пересчитываются при любых изменениях автоматически. Кроме значений, изменяется также и положение размерных линий, чтобы избежать их перекрытия и неряшливого вида чертежа.

Более 600 трехмерных параметрических элементов строительных конструкций

Трехмерные объекты AutoCAD поставляются в комплекте с библиотекой, включающей более 600 трехмерных параметрических элементов строительных конструкций, каждую из которых можно модифицировать по своему усмотрению, чтобы получить из нее еще десяток других.

GDL

Используя встроенный геометрический язык описания конструкций (GDL), можно создать любое число собственных параметрических конструкций.

GDL -- мощный инструмент для моделирования наиболее сложных и утонченных форм -- входит в стандартную поставку AutoCAD.

3.2 Этапы проектирования

При работе над проектом следовали следующему плану:

· 2D чертеж проекта - AutoCAD;

· 3D моделирование 1 этажа здания - AutoCAD (моделирование мебели);

· Разработка, подготовка материалов для отдельных элементов: мебель, обои и т.д. - Adobe Photoshop (редактирование готовых шаблонов текстур - адаптирование под проект);

· Завершение оставшихся этажей - AutoCAD;

· Применение текстур, создание отдельных деталей внешнего дизайна - AutoCAD;

· Разработка деталей окружающей среды - AutoCAD Civil 3D Civil 3D;

· Подготовка презентации - видеоролик.

Современной системе проектирования и изготовления моделей целесообразно выполнение следующих функций:

1.Анализ проектируемого объекта, его изготовления, моделирования этого объекта и процесса изготовления.

2.Синтез конструкций из конструктивных элементов с выполнением точностного, геометрического и силового анализов, оптимизацией по соответствующим критериям полного информационного описания синтезируемой конструкции.

3. Отображение пространственного описания конструкций на плоскости проекций (построение графика сборочного чертежа).

4. Поэлементный анализ конструкции с отображением описаний оригинальных деталей на плоскости проекций, получением деталировочных чертежей и сопоставлением спецификаций.

5. Технологический анализ конструкции, решение технологических задач и получение управляющей информации для изготовления модели.

6. Технико-экономическая оценка конструкции и определение её качественных показателей.

7. Разработка необходимой технологической и технико-экономической документации.

Информация об проектируемой модели и схеме её обработки создаётся (в случае отсутствия её в базе данных) также средствами системы. Это сведения о размерах, геометрии, физических характеристиках, точности проектируемой детали и отдельных её поверхностях, данные о схеме базирования, закрепления, об обрабатываемых элементах, информация об проектируемом оборудовании, требуемой производительности обработки, количестве одновременно устанавливаемых заготовок, режимах и усилиях резания.

Каждая из перечисленных функций с решением задач различного уровня и степени сложности. После анализа и приведения исходной информации к каноническому виду начинается реализация комплекса программ синтеза конструкций, в результате чего генерируется информационное описание конструкции приспособления. Далее составляется спецификация, формируется сборочный и рабочие чертежи деталей конструкции.

Процесс завершается работой подсистемы технологического проектирования и подготовкой программ для проектируемого приспособления.

Заключение

Использование комплекса программных средств автоматизированного проектирования в архитектуре, производстве, строительстве и в других областях производства является необходимым шагом на пути технического и экономического прогресса. Использование CAD/CAM систем для решения конструкторских, технологических, и других задач хоть и требует материального (для покупки и установки программного пакета, например) и временного вложений (на освоение программы), но хорошо окупает себя, так как во много раз снижает временные затраты на проектирование и подготовку производства, документирование и при решении многих других задач; а также облегчает работу с библиотеками (банками данных) уже существующих приспособлений; спецификациями и т.д.

Графическая информация составляет основной объем проектной и конструкторской документации, поэтому автоматизация этих работ при помощи комплексного подхода позволяет существенно облегчить труд проектировщика и конструктора и значительно повысить производительность их труда.

На основе изученных теоретических материалов и применения комплексного подхода к проектированию и дизайну сооружения нами было проектировано здание студенческого комплекса. Данный студенческий комплекс был планирован соответственно современным социальным требованиям общества и с учетом потребностей студентов. При работе над проектом использовались программы систем CAD - AutoCAD, AutoCAD Civil 3D и Adobe Photoshop.

Литература

1. works.tarefer.ru/69/100649/index.html

2. adndevblog.typepad.com/infrastructure/autocad-civil-3d-2013

3. AutoCAD Civil 3D - API справочник docs.autodesk.com/CIV3D/2012/ENU/API_Reference.../index.html

4. Леонтьев Б.К. «Как построить дом с помощью персонального компьютера», NT Press, Москва 2006

5. 100% Самоучитель. AutoCAD 2009: О. В. Баранин, С. А. Сорокин, В. С. Пташинский -- Санкт-Петербург, Технолоджи-3000, Триумф, 2009 г.- 272 с.

6. AutoCAD 2008 и AutoCAD LT 2008. Библия пользователя: Эллен Финкельштейн -- Москва, Диалектика, Вильямс, 2008 г.- 1344 с.

7. AutoCAD 2009. Практическое руководство: В. С. Пташинский -- Москва, Триумф, 2009 г.- 192 с.

8. Adobe Photoshop CS3 с нуля! : Эндрю Фолкнер, Джуди Волтерс вон Алтен -- Москва, Триумф, Технический бестселлер, 2009 г.- 304 с.

9. Adobe Photoshop CS4 для фотографов. Вершины мастерства: Джеф Шеве, Мартин Ивнинг -- Санкт-Петербург, Русская Редакция, БХВ-Петербург, 2010 г.- 400 с.

Приложение 1

Примеры моделей и чертежей

Рис.1 Разрезание тела плоскостью

Рис. 2. Построение тонкой оболочки тела

Приложение 2

Листинг

System.Version

Ѕ.<?xml version="1.0" encoding="utf-16"?>

<xs:schema xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">

<xs:element name="Table1">

<xs:complexType>

<xs:sequence>

<xs:element name="Count" type="xs:int" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Name" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Author" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Color" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Comments" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Drawing_x0020_Revision_x0020_Number" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Accessed" type="xs:dateTime" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Created" type="xs:dateTime" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Last_x0020_Saved_x0020_By" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Location" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Modified" type="xs:dateTime" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Name" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="File_x0020_Size" type="xs:int" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Hyperlink" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Hyperlink_x0020_Base" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Keywords" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Layer" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Linetype" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Linetype_x0020_Scale" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Lineweight" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Material" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Plot_x0020_Style" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Subject" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Title" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Total_x0020_Editing_x0020_Time" type="xs:int" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Block_x0020_Unit" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Position_x0020_X" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Position_x0020_Y" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Position_x0020_Z" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Rotation" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Scale_x0020_X" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Scale_x0020_Y" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Scale_x0020_Z" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Unit_x0020_Factor" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Angle" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Delta_x0020_X" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Delta_x0020_Y" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Delta_x0020_Z" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="End_x0020_X" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="End_x0020_Y" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="End_x0020_Z" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Length" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Start_x0020_X" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Start_x0020_Y" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Start_x0020_Z" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Thickness" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Area" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Closed" type="xs:boolean" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Global_x0020_Width" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Height" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="Taper_x0020_Angle" type="xs:string" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="U_x0020_Isolines" type="xs:short" msdata:targetNamespace="" minOccurs="0" />

<xs:element name="V_x0020_Isolines" type="xs:short" msdata:targetNamespace="" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

<xs:element name="tmpDataSet" msdata:IsDataSet="true" msdata:MainDataTable="Table1" msdata:UseCurrentLocale="true">

<xs:complexType>

<xs:choice minOccurs="0" maxOccurs="unbounded" />

</xs:complexType>

</xs:element>

</xs:schema>_(___бК_<diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">

<tmpDataSet>

<Table1 diffgr:id="Table11" msdata:rowOrder="0">

<Count>1</Count>

<Name>Polyline</Name>

<Author />

<Color>ByLayer</Color>

<Comments />

<Drawing_x0020_Revision_x0020_Number />

<File_x0020_Accessed>2012-06-19T00:00:00+04:00</File_x0020_Accessed>

<File_x0020_Created>2012-06-19T00:43:06.31+04:00</File_x0020_Created>

<File_x0020_Last_x0020_Saved_x0020_By>Admin</File_x0020_Last_x0020_Saved_x0020_By>

***************************************************

; Ввод координат

;****************************************************

(defun GetXY(/ x y)

(INITGET 7)

(setq x (GETREAL "\nКоординаты центра: X = "))

(setq y (GETREAL "\nКоординаты центра: Y = "))

(list x y)

)

;****************************************************

; Ввод размеров

;****************************************************

(defun GetR(/ r1 r2 r0)

(INITGET 7)

(setq r1 (GETREAL "\nВнешний радиус: R1 = "))

(setq r2 (GETREAL "\nВнутренний радиус: R2 = "))

(setq r0 (GETREAL "\nРадиус оси: R0 = "))

(list r1 r2 r0)

)

;****************************************************

; Ввод количества

;****************************************************

(defun GetCount ()

(getint "\nКоличество вершин: N = ")

)

;****************************************************

; Отрисовка

;****************************************************

(defun pinion (x y r1 r2 r0 N / i a x0 y0)

( COMMAND "COLOR" 7 "LINETYPE" "S" "CONTINUOUS" "")

; Контур

(command "pline")

(setq i 0)

(while (< i (* N 1))

(setq a (* i (/ 6.283 N)))

(setq x0 (+ x (* r1 (cos a))))

(setq y0 (+ y (* r1 (sin a))))

(command (list x0 y0))

(setq a (* (+ i 0.25) (/ 6.283 N)))

(setq x0 (+ x (* r1 (cos a))))

(setq y0 (+ y (* r1 (sin a))))

(command (list x0 y0))

(setq a (* (+ i 0.5) (/ 6.283 N)))

(setq x0 (+ x (* r2 (cos a))))

(setq y0 (+ y (* r2 (sin a))))

(command (list x0 y0))

(setq a (* (+ i 0.75) (/ 6.283 N)))

(setq x0 (+ x (* r2 (cos a))))

(setq y0 (+ y (* r2 (sin a))))

(command (list x0 y0))

(setq i (+ i 1))

)

(command "close")

; ось

(command "circle" (list x y) r0 0)

)

;****************************************************

; Отрисовка разметки

;****************************************************

(defun Razmetka (x y r1 r2 r0 N / x0 y0)

; Центр

(command "COLOR" 1 "LINETYPE" "S" "CENTER" "")

(command "pline")

(command (list (- x (* r0 1.2)) y))

(command (list (+ x (* r0 1.2)) y))

(command "")

(command "pline")

(command (list x (- y (* r0 1.2))))

(command (list x (+ y (* r0 1.2))))

(command "")

; размеры

(command

"dim1"

"hor"

(list (- x r1) y)

(list (+ x r1) y)

(list x (- y (* r1 1.4)))

""

)

(command

"dim1"

"hor"

(list (- x r2) y)

(list (+ x r2) y)

(list x (- y (* r1 1.2)))

""

)

(command

"dim1"

"hor"

(list (- x r0) y)

(list (+ x r0) y)

(list x (+ y (* r1 1.2)))

""

)

( defun c:pinion (/ x y r1 r2 r0 N lst)

(command "erase" "all" "")

(command "osnap" "off")

; Устанавливаем размерные переменные по ЕСКД

; Текст над размерной линией, а не в разрыве

( SETVAR "DIMTAD" 1 )

; Текст вне размерных линий параллелен линиям

( SETVAR "DIMTOH" 0 )

; Текст между размерными линиями горизонтален

( SETVAR "DIMTIH" 0 )

; Проведение линии между выносными, если текст сбоку

( SETVAR "DIMTOFL" 1 )

; Продолжение выносных линий за размерными, мм

( SETVAR "DIMEXE" 1 )

; Отключение генерации допусков

( SETVAR "DIMTOL" 0 )

; Размер стрелок

( SETVAR "DIMASZ" 3 )

; Продолжение выносных линий за размерную

( SETVAR "DIMEXE" 3 )

; Размер текста

( setvar "dimtxt" 5 )

; Ввод параметров

(setq lst (GetXY))

(setq x (car lst) y (cadr lst))

(setq lst (GetR))

(setq r1 (car lst) r2 (cadr lst) r0 (caddr lst))

(setq N (GetCount))

; Отрисовка

(pinion x y r1 r2 r0 N)

(razmetka x y r1 r2 r0 N)

(command "zoom" "all")

)

( DEFUN getdim ( / l d)

; ввод длины и диаметра

; возвращаемый список: ( диаметр длина )

( INITGET 7 ) ; запрет пустого ввода и ввода чисел <=0

( SETQ l ( GETREAL "\nДлина l: " ) )

( INITGET 7 )

( SETQ d ( GETREAL "\nШирина d: " ) )

( LIST d l) ; возвращаемое значение

) ; конец функции getdim

( DEFUN getdim1 ( / l1 d1)

; ввод длины и диаметра

; возвращаемый список: ( диаметр длина )

( INITGET 7 ) ; запрет пустого ввода и ввода чисел <=0

( SETQ l1 ( GETREAL "\nДлина l1: " ) )

( INITGET 7 )

( SETQ d1 ( GETREAL "\nШирина d1: " ) )

( LIST d1 l1) ; возвращаемое значение

) ; конец функции getdim

( DEFUN show ( x y d l / tmp lst )

; Удаляем все объекты

; x, y, s, l - параметры

; tmp, lst - локальные переменные

;Первый квадрат

; координата x точки A записывается в переменную tmp

( SETQ tmp ( + x 5 ) )

; в переменную lst записывается список координат

; точки A

( SETQ lst ( LIST tmp ( + y ( / d 2 ) ) ) )

; координата x точки B записывается в переменную tmp

( SETQ tmp ( + x 5 l ) )

; в переменную tmp записывается список координат

; точки B

( SETQ tmp ( LIST tmp ( + y ( / d 2 ) ) ) )

; в список lst добавляется точка B

( SETQ lst ( LIST lst tmp ) )

; ( COMMAND "ERASE" "WINDOW" '( -10000 -10000 ) '(10000 10000) "" )

; Рисуем осевую линию красным цветом (код 1)

; и штрих-пунктирно (тип линии CENTER)

( COMMAND "COLOR" 1 "LINETYPE" "S" "CENTER" "")

( COMMAND "pline" ( LIST x y ) ( LIST ( + x l 10 ) y ) "" )

; Рисуем контур детали белым цветом (код 1)

; и сплошной линией (тип линии CONTINUOS)

( COMMAND "COLOR" 7 "LINETYPE" "S" "CONTINUOUS" "")

( COMMAND "pline"

( DEFUN C:main ( / l x y l1 x1 y1 flag vspom)

( COMMAND "ERASE" "WINDOW" '( -10000 -10000 ) '(10000 10000) "" )

; Устанавливаем размерные переменные по ЕСКД

; Текст над размерной линией, а не в разрыве

( SETVAR "DIMTAD" 1 )

; Текст вне размерных линий параллелен линиям

( SETVAR "DIMTOH" 0 )

; Текст между размерными линиями горизонтален

( SETVAR "DIMTIH" 0 )

; Проведение линии между выносными, если текст сбоку

( SETVAR "DIMTOFL" 1 )

; Продолжение выносных линий за размерными, мм

( SETVAR "DIMEXE" 1 )

;****************************************************

; Ввод координат

;****************************************************

<Total_x0020_Editing_x0020_Time>2904</Total_x0020_Editing_x0020_Time>

<Angle>90</Angle>

<Delta_x0020_X>0.0000</Delta_x0020_X>

<Delta_x0020_Y>3.0000</Delta_x0020_Y>

<Delta_x0020_Z>0.0000</Delta_x0020_Z>

<End_x0020_X>90.0000</End_x0020_X>

<End_x0020_Y>232.0000</End_x0020_Y>

<End_x0020_Z>7.5000</End_x0020_Z>

<Length>3.0000</Length>

<Start_x0020_X>90.0000</Start_x0020_X>

<Start_x0020_Y>229.0000</Start_x0020_Y>

<Start_x0020_Z>7.5000</Start_x0020_Z>

<Thickness>0.0000</Thickness>

Размещено на Allbest.ru

...