Программирование в AutoCad. Салова И.А. - 45 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

45
(command “
–·
LINE” p2 pt1 p4 “”)
(command “
–·
LINE” p21 p3 p41 “”)
)
(progn
(command “
–·
LINE” pt11 p2 “”)
(command “
–·
LINE” pt12 p4 “”)
(command “
–·
LINE” p21 p31 “”)
(command “
–·
LINE” p32 p41 “”)
(command “
–·
ARC” “_C” pc pt12 pt11)
(command “
–·
ARC” “_C” pc1 p32 p31)
)
);end if
(command “
–·
MIRROR” (_$endmark “$COIL”) “” p4 (polar p4 0 L)
“_N”)
; $endmark – функция, возвращающая набор $COIL
(command “
–·
PLINE” p4 “_W” “0.5” “0.5” p41 “”)
(command “
–·
MIRROR” (_$endmark “$COIL1”) “” p2 (polar p2 (/ pi
2.0) h) “_N”)
(command “
–·
PLINE” p2 “_W” “0.5” “0.5” p21 “”)
(setq e1 (entlast))
(command “
–·
MIRROR” e1 “” p4 p41 “_N”)
)
) ;end if
(command “
–·
ZOOM” “_E”)
(command “
–·
REDRAW”)
(setq C:COIL nil)
; включение ранее сохраненной объектной привязки
(setvar “OSMODE” old_osmode)
(setvar “CMDECHO” 1)
(princ);тихий выход из программы
)

Страницы