如何遍历块内图元名

暗夜贵族 · 发表于 2015-6-25 17:16

entnext 不能遍历全部的图元啊，有没有人知道？

AbnerXk · 发表于 2015-6-25 17:33

你加个while不就可以了么

暗夜贵族 · 发表于 2015-6-25 17:58

AbnerXk 发表于 2015-6-25 17:33
你加个while不就可以了么

没有用，entnext几个之后就nil了，无法遍历全部图元

edata · 发表于 2015-6-25 19:15

代码拿出来，口说无凭

暗夜贵族 · 发表于 2015-6-25 19:20

edata 发表于 2015-6-25 19:15
代码拿出来，口说无凭

(DEFUN C:tt()
(setq e (car (entsel)))
(setq lis nil )
(while (SETQ e (entnext e))
(if (setq temp_detail (assoc -3 (entget e '("equip_nipple"))))
(progn
(SETQ temp_detail  (cdr (cadr (cadr temp_detail))) )
  (SETQ lis (CONS temp_detail lis))

)
)
)
(reverse LIS)
)

自贡黄明儒 · 发表于 2015-6-26 07:59

;;[功能] 块图元列表
(defun _BlockEle (Name / E LST)
  (setq e (TBLOBJNAME "block" Name))
  (while (setq e (entnext e))
(setq Lst (cons e Lst))
  )
  Lst
)

暗夜贵族 · 发表于 2015-6-29 13:30

自贡黄明儒发表于 2015-6-26 07:59
;;[功能] 块图元列表
(defun _BlockEle (Name / E LST)
(setq e (TBLOBJNAME "block" Name))

这个块名和entsel获得的块名有什么不同吗？
不死很清楚这个tblobjname

newbuser · 发表于 2015-7-1 23:58

帮你顶下，看有无高手来帮忙指点一下。

77077 · 发表于 2015-7-2 01:12

自贡黄明儒发表于 2015-6-26 07:59
;;[功能] 块图元列表
(defun _BlockEle (Name / E LST)
(setq e (TBLOBJNAME "block" Name))

黄大师，取出编组内的图元名列表呢？

Q1241274614 · 发表于 2015-7-6 13:08

我就是看看！

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

[已解答] 如何遍历块内图元名

相关帖子

点评

点评

[已解答] 如何遍历 块内 图元名

相关帖子

点评

点评

[已解答] 如何遍历块内图元名