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

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)
  )
)

[编程交流] 持续的用户输入，直到我们完成

发表回复

精选推荐