springwillow 发表于 2015-1-22 19:21:13

获取块内对象

如题下面代码用于获取块内的子对象，以便于编辑。高手可飘过！！(defun c:getbolcksubent ();得到块内对象
(if (setq ss (ssget (list '(0 . "INSERT"))))
    (repeat (setq sslen (sslength ss))
      (setq ename (ssname ss (setq sslen (1- sslen))))
      (setq enlast (tblobjname "block" (cdr (assoc 2 (entget ename)))))
      (while (setq enlast (entnext enlast))
(princ (entget enlast))
      )
      )
    )
(princ)
)

winerfjy 发表于 2015-12-17 22:51:54

好东西学习学习

77077 发表于 2015-7-10 18:34:28

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

ferious 发表于 2023-10-27 18:24:13

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

liu22737 发表于 2015-7-11 08:24:11

本帖最后由 liu22737 于 2015-7-11 08:38 编辑

77077 发表于 2015-7-10 18:34 static/image/common/back.gif
给力
能不能获取块内的被点击图元呢？
点选可以用(nentsel)
反框选可以用(entget(cadar(ssnamex(ssget":s:n")0)))

wuzheng80425 发表于 2015-7-22 22:11:50

学习了,好精简

wuzheng80425 发表于 2015-7-22 22:12:33

学习了，这处程序好简洁

waterforyou 发表于 2015-12-17 18:12:20

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

sicky111 发表于 2015-12-29 19:35:14

好程式      

morsin 发表于 2015-12-30 10:56:58

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

pchuangzmx 发表于 2017-11-3 08:17:06

真是好东西
页: [1] 2 3
查看完整版本: 获取块内对象