Лекции и лабораторные работы по AutoCAD'у
Рисуем осевую линию красным цветом
Листинг 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 "ПОКАЖИ" "ВСЕ" ) ); конец функции |
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий