请meflying答复(ssget "_p")问题

LIHUISHUAN · 发表于 2004-6-16 10:12:00

飞哥好：
如附图所示，选中所有图元，explode三次，图元个数分别为15，292，496
而我用lisp代码如下：请指正
(command "undo" "be")
(setq ss1 (ssget))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "undo" "e")

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

LIHUISHUAN · 发表于 2004-6-16 10:14:00

执行后显示错误，而且explode后图元个数也不对，请高手指点，谢谢！

LIHUISHUAN · 发表于 2004-6-16 13:57:00

问题解决了，但循环次数太多，有没有更高效的办法？在图形界面explode 3次就能解决问题，走程序要300次，问题到底处在哪? 请指教！谢谢！
(command "undo" "be")
(setq ss1 (ssget))
(setq ptl(ssnamex ss1 0))
(setq pt1 (cadr(car(cdr(assoc -1 ptl )))))
(setq pt2 (cadr(caddr(cdr(assoc -1 ptl )))))
(SETQ N1 (SSLENGTH SS1))
(repeat 300
(command "_explode" ss1 "")
(setq ss1 (ssget "_c" pt1 pt2))
(SETQ N1 (SSLENGTH SS1))
)
(command "undo" "e")

无痕 · 发表于 2004-6-16 22:43:00

用程序炸开多个不是已经解决了么？
怎么久不久又来搞一个？

LIHUISHUAN · 发表于 2004-6-17 11:55:00

请飞哥试一下我上传的dwg图，用您的程序执行一次后图元个数为77个，在图形界面explode一次后图元个数为77个，问题还是没解决，是否存在他问题，请指教！

meflying · 发表于 2004-6-17 13:59:00

你的要求并不是炸开所有的块。。。而是能炸的东西都炸开（如：MTEXT可以炸为TEXT，PLINE可以炸为LINE）。。。
(setvar "qaflags" 1)
(repeat 3 (command "_.explode" "all" ""))
即可

LIHUISHUAN · 发表于 2004-6-17 15:55:00

谢谢您！问题解决了。
这次学到了不少东西，感谢您的无私帮助！
(setvar "qaflags" 1)
(setq ss1 (ssget))
(setq ptl (ssnamex ss1 0))
(setq pt1 (cadr (car (cdr (assoc -1 ptl)))))
(setq pt2 (cadr (caddr (cdr (assoc -1 ptl)))))
(setq n1 (sslength ss1))
(repeat 3
(command "_.explode" ss1 "")
(setq ss1 (ssget "_c" pt1 pt2))
(setq n1 (sslength ss1))
)
您帮看一下有没有更简洁的办法？

LIHUISHUAN · 发表于 2004-6-17 16:02:00

(setvar "qaflags" 1)
(setq ss(ssget))
(repeat 3
(command "_.explode" ss "")
(setq ss (ssget "p"))
)
更简单，谢谢!

无痕 · 发表于 2004-6-17 20:08:00

copy


(defun c:test (/ ss)
   (while (setq ss (ssget "x" '((0 . "Mtext,Dimension,insert,*polyline,3d*,region"))))
       (command ".explode" ss "")
   )
)

请meflying答复(ssget "_p")问题

发表回复

精选推荐

浏览过的版块

请meflying答复(ssget &quot;_p&quot;)问题

发表回复

精选推荐

浏览过的版块

请meflying答复(ssget "_p")问题