lxw320 发表于 2015-12-27 20:05:54

有没有法子获取块内所有对象的图元名

有没有法子获取块内所有对象的图元名

xinrstar 发表于 2015-12-28 09:26:31

(if (= "INSERT"
       (cdr (assoc 0 (setq ent (entget (car (entsel))))))
    )
(progn
    (setq ename          (tblobjname "block" (cdr (assoc 2 ent)))
          ename_lst nil
    )
    (while (setq ename (entnext ename))
      (setq ename_lst (cons ename ename_lst))
    )
    (setq ename_lst (reverse ename_lst))
)
)

jltx123456 发表于 2015-12-28 09:48:32

论坛之前有人发过
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=169724&fromuid=361828

springwillow 发表于 2015-12-28 11:14:26

http://bbs.mjtd.com/thread-112811-1-1.html
页: [1]
查看完整版本: 有没有法子获取块内所有对象的图元名