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
澜腾天工解压密码不对

密码在下载压缩包里面!注意看!每个压缩包的解压密码都是不同!
页: 9 10 11 12 13 14 15 16 17 18 [19] 20 21 22 23 24 25 26 27 28
查看完整版本: 免费分享 2015年三毛室内施工工艺与签单秘籍 三毛原创教程

室内设计工具箱