[求助]关于图块内部图元编辑的程序

sjw8304

求助各位高手：我想请教一下如何获得图块内部图元的信息的程序是如何编写的，块里面含有直线，园之类以及属性块，在获取里面信息之后，进行修改包括增减内部图元及修改现有的图元的属性，我现在用的编辑语言主要是autolisp！期盼回复，谢谢！

longer1000

我也想知道啊

gmstcn

同求，而且希望是用vla函数的

斌斌

(vl-load-com)
(defun c:tt (/ 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")
(vla-put-color ent acBylayer)
(setq bl (cons bn bl))
)
)
)
)
)
)
(princ)
)

sjw8304

非常感谢楼主的帮助