langjs 发表于 2012-4-16 13:30:42

这个更简单的,不行么?
(defun c:dl (/ code loop);ESE键退出
(while t
    (setvar "cmdecho" 1)
    (command "line")
    (while (/= 0 (getvar "cmdactive"))
      (command pause)
    )
    (setvar "cmdecho" 0)
)
(princ)
)

tm20038175 发表于 2012-4-16 15:16:01

谢谢啦~~~~~~~~~~
页: 1 [2]
查看完整版本: 连续画直线，按0退出问题！