海盗曹 发表于 2014-3-14 10:27:45

只刷图层，不刷其他任何特性

本帖最后由 海盗曹 于 2014-3-14 10:28 编辑


写此小程序是因为单位的图纸说明图层极其混乱，有些条文的颜色还是不同的，但是这些颜色是用来区分哪些是通用的，哪些是根据具体项目填写的，所以颜色不能跟图层变。故吭哧瘪度的弄了这么个小程序。程序参考了zml和carrot的程序，感谢两位大神。各位也可继续优化，自行折腾。


403181713 发表于 2023-10-23 02:03:33

感谢分享感谢分享

wm123456 发表于 2020-12-23 16:12:29

谢谢楼主，下来看看

cnks 发表于 2014-3-14 10:43:25

支持一下海盗！

海盗曹 发表于 2014-3-14 10:45:10

cnks 发表于 2014-3-14 10:43 static/image/common/back.gif
支持一下海盗！

多谢长老支持

yaokui25 发表于 2014-3-14 10:56:53

谢谢楼主，下来看看

tianyi1230 发表于 2014-3-15 20:55:04

支持海盗兄，最近很少出东西啊，

pengfei2010 发表于 2014-3-16 13:10:56

这个只是入门级   难度了   大师应该放点法宝上来哈

海盗曹 发表于 2014-3-17 10:13:17

yaokui25 发表于 2014-3-14 10:56 static/image/common/back.gif
谢谢楼主，下来看看

希望有用处

海盗曹 发表于 2014-3-17 10:14:26

tianyi1230 发表于 2014-3-15 20:55 static/image/common/back.gif
支持海盗兄，最近很少出东西啊，

好久不碰了

海盗曹 发表于 2014-3-17 10:15:05

pengfei2010 发表于 2014-3-16 13:10 static/image/common/back.gif
这个只是入门级   难度了   大师应该放点法宝上来哈

不来就是入门级的小白，

xyp1964 发表于 2014-3-17 12:42:50

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
;; 图层刷
(defun c:tt ()
(if (setq s1 (car (entsel "\n选择图层样本实体: ")))
    (progn
      (redraw s1 3)
      (princ "\n选择要刷图层的实体: ")
      (if (setq ss (ssget))
        (xyp-SubUpd ss 8 (xyp-DXF 8 s1))
      )
      (redraw s1 4)
    )
)
(princ)
)
页: [1] 2 3
查看完整版本: 只刷图层，不刷其他任何特性