如何实现嵌套块
;;将选择块内实体修改至0层颜色不变
(defun c:b0 (/ ss ssl i blocks el e bn bl)
(if (setq ss (ssget '((0 . "insert"))))
(progn
(setq ssl (sslength ss)
i -1
blocks (vla-get-blocks (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(repeat ssl
(setq e (ssname ss (setq i (1+ i)))
el (entget e)
bn (cdr (assoc 2 el))
)
(if (not (vl-position bn bl))
(progn
(vlax-for ent (vla-item blocks bn) (vla-put-layer ent "0")
) ;
)
)
)
)
)
(princ)
)
http://bbs.xdcad.net/thread-667547-1-1.html 这个看了，对语言刚接触，不是太懂
页:
[1]