lisp画完多线并分解怎么弄呀

jiangdongguo · 发表于 2020-12-23 18:44:09

新手不知道该怎么编

masterlong · 发表于 2020-12-23 18:58:26

(defun c:ttt()
(if (and
(setq p0 (getpoint))
(setq p1 (getpoint p0))
)
(progn
(command "mline" p0 p1)
(while (setq p1 (getpoint p1))
(command p1)
)
(command "")
(command "_explode" "l")
)
)
)

masterlong · 发表于 2020-12-23 19:07:02

你的程序里
mline后面没有提供“点”
而是直接接了(command "_explode" "l")
程序就把【"_explode" "l"】分两次提供给mline
而这不是mline可以接受的参数
所以会提示“需要点或选项关键字。”
然后
程序继续mline命令
也因此你可以一直输入点绘制多线

jiangdongguo · 发表于 2020-12-23 19:29:47

masterlong 发表于 2020-12-23 18:58
(defun c:ttt()
(if (and
(setq p0 (getpoint))

谢谢大佬，还有个问题，画的时候不显示已画的多线，画完以后才显示出来

jiangdongguo · 发表于 2020-12-23 18:48:27

(defun C:j-hdl ()

(command "mline")
(command "_explode" "l")
(princ)
)

masterlong · 发表于 2020-12-23 18:52:36

这样是不行的
line、pline、mline等命令
只要提供“下一点”
命令是可以无限继续的
所以
程序中需要有“结束”的代码
这样才能执行最后的“explode”

jiangdongguo · 发表于 2020-12-23 18:55:50

masterlong 发表于 2020-12-23 18:52
这样是不行的
line、pline、mline等命令
只要提供“下一点”

那具体该怎么实现呢

masterlong · 发表于 2020-12-23 21:56:05

直接用mline命令也是这样嘛

jiangdongguo · 发表于 2020-12-24 08:53:34

masterlong 发表于 2020-12-23 21:56
直接用mline命令也是这样嘛

直接用mline显示呢

lijiao · 发表于 2020-12-24 09:00:06

(defun c:ttt ()
(command "mline")
(while (/= (getvar "CMDACTIVE") 0)
(command pause)
)
(command "_explode" "l")
(princ)
)

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

[提问] lisp画完多线并分解怎么弄呀