获取块内对象

springwillow

如题下面代码用于获取块内的子对象，以便于编辑。高手可飘过！！

2. (defun c:getbolcksubent ();得到块内对象
   
3.   (if (setq ss (ssget (list '(0 . "INSERT"))))
   
4.     (repeat (setq sslen (sslength ss))
   
5.       (setq ename (ssname ss (setq sslen (1- sslen))))
   
6.       (setq enlast (tblobjname "block" (cdr (assoc 2 (entget ename)))))
   
7.       (while (setq enlast (entnext enlast))
   
8.   (princ (entget enlast))
   
9.       )
   
10.       )
    
11.     )
    
12.   (princ)
    
13.   )

(defun c:getbolcksubent ();得到块内对象<br />   (if (setq ss (ssget (list '(0 . "INSERT"))))<br />     (repeat (setq sslen (sslength ss))<br />       (setq ename (ssname ss (setq sslen (1- sslen))))<br />       (setq enlast (tblobjname "block" (cdr (assoc 2 (entget ename)))))<br />       (while (setq enlast (entnext enlast))<br />   (princ (entget enlast))<br />       )<br />       )<br />     )<br />   (princ)<br />   )

winerfjy

好东西学习学习

77077

给力
能不能获取块内的被点击图元呢？

ferious

怎么使块内图元赋值给en选择集，而不是打出这些表？接下来要对en进行操作

liu22737

77077 发表于 2015-7-10 18:34
给力
能不能获取块内的被点击图元呢？

点选可以用(nentsel)
反框选可以用(entget(cadar(ssnamex(ssget":s:n")0)))

wuzheng80425

学习了,好精简

wuzheng80425

学习了，这处程序好简洁

waterforyou

学习一下，怎么复制代码。。

sicky111

好程式      

morsin

好东西, 顶起,感谢分享啊

pchuangzmx

真是好东西