关于explode的疑惑

lywzcf · 发表于 2017-6-6 23:49:05

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

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

×

(defun c:tt ()
(setq tt1 (getpoint))
(setq tt2 (getcorner tt1))
(setq sss (ssget "c" tt1 tt2 '((0 . "*POLYLINE"))))
(command "explode" sss "")
； (command "ERASE" sss "")
)

选择集包含两个POLYLINE线，"explode"只能炸开其中一个，而"ERASE"可两个同时删除，请问这是为什么？

newer · 发表于 2017-6-6 23:57:24

你执行的时候，屏幕上没有错误提示吗？

marting · 发表于 2017-6-7 00:08:11

以前讨论过，CAD就这样的，要遍历选择集一个一个炸，另外提个建议，代码里面该提示提示，该用分之用分之。

(defun c:tt ()
(if (and (setq tt1 (getpoint "\n第一点<退出>:"))
(setq tt2 (getcorner tt1 "\n第二点<退出>:"))
(setq sss (ssget "c" tt1 tt2 '((0 . "*POLYLINE"))))
)
(progn
(setq i -1)
(while (setq e (ssname sss (setq i (1+ i))))
(vl-cmdf ".explode" e)
)
)
)
(princ)
)

Lispboy · 发表于 2017-6-7 00:18:33

newer 发表于 2017-6-6 23:57

设置系统变量 (setvar "qaflags" 1)

(defun c:tt ()
(if (and (setq tt1 (getpoint "\n第一点<退出>:"))
(setq tt2 (getcorner tt1 "\n第二点<退出>:"))
(setq sss (ssget "c" tt1 tt2 '((0 . "*POLYLINE"))))
)
(progn
(setvar "qaflags" 1)
(command ".explode" sss)
(setvar "qaflags" 0)
)
)
(princ)
)

Linhay · 发表于 2017-6-7 07:22:12

学习了谢谢

lywzcf · 发表于 2017-6-7 11:57:35

newer 发表于 2017-6-6 23:57

重试了一下，炸开结束时，有一个 nil，此前没注意。

lywzcf · 发表于 2017-6-7 12:01:27

marting 发表于 2017-6-7 00:08

谢谢你,请问，在循环前加(if 的作用是什么？

lywzcf · 发表于 2017-6-7 12:02:49

Lispboy 发表于 2017-6-7 00:18

谢谢你，认识了一个系统变量，，

newer · 发表于 2017-6-7 12:04:41

lywzcf 发表于 2017-6-7 12:01

你没有选点，你没有选到对象时候不进入 command 里面处理。你不加，你试试，你不选对象直接回车，看看什么错误

lywzcf · 发表于 2017-6-7 12:17:23

newer 发表于 2017-6-7 12:04

空选择？试了，，如下：

命令: TT 未知命令“TT”。按 F1 查看帮助。
命令: nil

选择集含图元，炸开一个的情形时。命令行也这样：

命令: TT 未知命令“TT”。按 F1 查看帮助。
命令: nil

不知那个：命令: TT 未知命令“TT”。从何而来

newer · 发表于 2017-6-7 12:29:33

lywzcf 发表于 2017-6-7 12:17

你看看LISPBOY的帖子，COMMAND那行，和你的有什么区别

sicky111 · 发表于 2017-6-8 00:07:52

四楼正解。

tyjtyj19811981 · 发表于 2017-6-8 15:58:46

setvar "qaflags" 1 多认识了一个变量.

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

[求助] 关于explode的疑惑

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

评分