作为“演示”
- (defun c:demo (/ p1 p2)
- (alert "Press control down to draw a circle, or \ndon't press control down to draw a line")
- (if (and (setq p1 (getpoint "\nSelect the first point: "))
- (setq p2 (getpoint "\nSelect the second point: "))
- )
- (if (acet-sys-control-down)
- (command "_.circle" "none" p1 "none" p2)
- (command "_.line" "none" p1 "none" p2 "")
- )
- )
- (princ)
- )
HTH公司
亨里克 |