samifox 发表于 2022-7-5 16:09:57

如何删除所有实体

你好
 
如何删除选择集中的所有图元？
 

(setq ss (ssget '((0 . "DIMENSION") (3 . "AR-DS-50"))))
;_ delete all ss members off the model space

 
谢谢
S

Tharwat 发表于 2022-7-5 16:17:24

这
 

(if ss (command "_.Erase" ss ""))

samifox 发表于 2022-7-5 16:23:11

 
开箱即用解决方案
干得好，塔尔瓦！
 
autolisppic解决方案呢？

Tharwat 发表于 2022-7-5 16:23:59

 
 
循环浏览选择集中的每个实体，然后使用函数entdel删除实体名称。我认为你应该能写你的，不是吗？

samifox 发表于 2022-7-5 16:29:28

 
是的，当然。。。我喜欢你挑战我！
 

(setq ss (ssget '((0 . "DIMENSION") (3 . "AR-DS-50"))) i 0)


(repeat (sslength ss)
(entdel (ssname ss i))
)


 
但它不起作用

Tharwat 发表于 2022-7-5 16:37:09

 
它不起作用，因为变量i等于零
 

(repeat (setq i (sslength ss)) ;; i = the quantity of selection set
(entdel (ssname ss (setq i (1- i)))) ;; variable i would be decreased till it is equal to zero logically with the usage of repeat function .
)

samifox 发表于 2022-7-5 16:40:01

 
干得好，塔尔瓦！我真是个笨蛋：哭：
 
有没有办法从选择集中提取除ssname之外的实体？

Tharwat 发表于 2022-7-5 16:44:20

 
我们以前都遇到过这样的情况，所以永远不要放弃去实现你的目标

samifox 发表于 2022-7-5 16:48:23

 
谢谢：拇指：
 
有没有办法从选择集中提取除ssname之外的实体？（恨setq i 0）

Lee Mac 发表于 2022-7-5 16:52:31

 
请参见我的教程：选择集处理。
页: [1] 2
查看完整版本: 如何删除所有实体