社区 › Auto Lisp › 持续的用户输入，直到我们完成

TemporaryCAD 发表于 2022-7-28 05:10:24

持续的用户输入，直到我们完成

我希望复制line命令的默认行为，它会不断提示用户输入，直到按下escape。如何在Autolisp中实现这一点？

Tharwat 发表于 2022-7-28 06:27:50

您可以将其与while函数和getpoint函数一起使用。
(if (setq p1 (getpoint "\nSpecify a point : "))
(while (setq p2 (getpoint "\nNext point : " p1))
    (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
    (setq p1 p2)
)
)

查看完整版本: 持续的用户输入，直到我们完成