AutoLISP 8


AutoLISP - . 39


(setq pt2 (getcorner pt1 "\nOther corner: "))
(command ".PLINE"
pt1
(list (car pt2) (car (cdr pt1)))
pt2
(list (car pt1) (car (cdr pt2)))
"C"
)
 
(setvar "CMDECHO" old_cmdecho)
(setvar "BLIPMODE" old_blipmode)
(prin1)
)
 
BOX. , -
,
.
 
(defun C:BOX (/ pt1 pt2 old_cmdecho old_blipmode)
...
 
. -

AutoLISP
AutoCAD,
!
 
!
 
: , -
.