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

如何遍历 块内 图元名

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

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

你加个while不就可以了么

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

AbnerXk 发表于 2015-6-25 17:33 static/image/common/back.gif
你加个while不就可以了么

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

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

代码拿出来，口说无凭

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

edata 发表于 2015-6-25 19:15 static/image/common/back.gif
代码拿出来，口说无凭

(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:01

;;[功能] 块图元列表
(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:38

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


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

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

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

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

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


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

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

我就是看看！
页: [1]
查看完整版本: 如何遍历 块内 图元名