hjcsuperrr
发表于 2015-8-8 11:27:57
太好了呦 支持一个
poopadj
发表于 2015-8-8 14:56:27
看看 有什么东东
。冰淇淋
发表于 2015-8-8 17:58:27
学习学习~~谢谢楼主分享~
磊磊1230
发表于 2015-8-10 16:15:49
{:5_571:}{:5_571:}{:5_571:}{:5_571:}
wjyoudao
发表于 2015-8-11 23:01:33
好东西!顶了~~
mo20052005
发表于 2015-8-12 13:30:08
已购买,会认真学习,谢谢楼主分享
小董
发表于 2015-8-14 17:26:03
赞
Albert_X
发表于 2015-8-16 15:45:30
激动~~~~谢谢分享
asdsdadas
发表于 2015-8-18 17:30:13
;;将选择块内实体修改至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)
)
YiJi
发表于 2015-8-19 09:24:35
quaylin8 发表于 2015-8-18 09:17
澜腾天工解压密码不对
密码在下载压缩包里面!注意看!每个压缩包的解压密码都是不同!