求助：pline画线时碰到的问题，求高手指点迷津

sds2sds · 发表于 2019-4-23 10:43:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(setq p (getpoint "\n指定点:"))
(command "pline" P )
后面还有一些代码
想实现的是：在屏幕上指定起点，然后开始画线，其他折点也是用鼠标在屏幕上点，运行时发现指定起点后程序就继续向下运行了，这时候就会提示“无法重新进入LISP。。。。”，请问怎么做能实现画线时中断运行，画完线后再执行下面的语句？或者用别的画线方法？

marting · 发表于 2019-4-23 12:39:26

(defun c:tt ()
(if (setq p (getpoint "\n起始点<退出>:"))
(progn (command "pline" p)
(while (/= (getvar "cmdactive") 0) (command pause))
)
)
(princ)
)

satan421 · 发表于 2019-4-23 12:40:04

;;搞不懂你这是要做什么
(command "pline" P pause)

sds2sds · 发表于 2019-4-24 08:37:52

marting 发表于 2019-4-23 12:39

多谢指点

还没完全解决问题，应该是我别的代码还有问题，我再琢磨琢磨

sds2sds · 发表于 2019-4-24 08:39:00

marting 发表于 2019-4-23 12:39

多谢指点,还没完全解决问题，应该是我别的代码还有问题，我再琢磨琢磨

huangpc27 · 发表于 2019-4-30 17:34:13

代码不完整，做不出效果

账号		自动登录	找回密码
密码			立即注册