Лекции и лабораторные работы по AutoCAD'у

             

Основы параметрического проектирования - часть 5


/p>

Листинг 7.1 - Функция  расчета координат базовых точек.

 

Отрисовку будем выполнять в той же функции show.

. . .

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

 ( COMMAND "СОТРИ" "РАМКА" '( -10000 -10000 ) '(10000 10000) "" )

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

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

( COMMAND "ЦВЕТ" 1 "ТИПЛИН" "У" "CENTER" "")

( COMMAND "ПЛИНИЯ" ( LIST x y ) ( LIST ( + x l 10 ) y ) "" )

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

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

( COMMAND "ЦВЕТ" 7 "ТИПЛИН" "У" "CONTINUOUS" "")

( COMMAND "ПЛИНИЯ"

 ( LIST ( + x 5 ) y ) ; левая точка пересечения осевой

 ; с контуром

 ( CAR lst ) ; точка A

 ( CADR lst ) ; точка B

 ( LIST ( + x l 5 ) y ) ; правая точка пересечения осевой с контуром

  "" ) ; прерывание команды "ПЛИНИЯ"

( COMMAND "ЗЕРКАЛО"

 ( CAR lst ) ; выбрали объект, указав точку А

 "" ; прервали выбор объектов

 ( LIST x y ) ; первая точка осевой линии -

 ;точка пересечения контура с осевой слева

 ( LIST ( + x 5 ) y ) ; вторая точка осевой линии

  "Н" ) ; старые объекты не удалять

 ; Проставляем длину

 ( COMMAND "ЦВЕТ" 1 )

 ( COMMAND "РАЗМЕР1"

  "ГОР" ; размер горизонтальный

  ( CAR lst ) ; начало первой выносной линии - точка А

  ( CADR lst ) ; начало второй выносной линии - точка В

  ( POLAR ( CAR lst ) ( / PI 2 ) 30 ) ; размерная линия            

;  отстоит от контура на 30мм

  "" ) ; размерный текст ставится автоматически

; Проставляем диаметр

( COMMAND "РАЗМЕР1" "ВЕР" ( CADR lst )

 ( LIST ( CAR ( CADR lst ) ) ( - ( CADR ( CADR lst ) ) d ) )

 ( POLAR ( CADR lst ) 0 30 )

 ; "@" - знак диаметра в шрифте eskd.shx.

 ; После него выводим диаметр, преобразованный

 ; в текстовую строку

 ( STRCAT "@" ( RTOS d 2 2 ) ) )

( COMMAND "ПОКАЖИ" "ВСЕ" )

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

<


Содержание  Назад  Вперед