sjw8304 发表于 2008-10-15 21:55:00

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

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

longer1000 发表于 2012-5-3 14:08:27

我也想知道啊

gmstcn 发表于 2012-5-3 20:53:37

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

斌斌 发表于 2013-1-18 13:47:32

(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 发表于 2014-1-8 07:43:37

非常感谢楼主的帮助
页: [1]
查看完整版本: [求助]关于图块内部图元编辑的程序