本帖最后由 海盗曹 于 2014-3-14 10:28 编辑
网友答: 太好用，实在是太好用了。感谢感谢。网友答: 本帖最后由 xyp1964 于 2025-12-13 14:34 编辑
网友答:
支持一下海盗！网友答:
多谢长老支持网友答: 谢谢楼主，下来看看
网友答:
支持海盗兄，最近很少出东西啊，网友答:
这个只是入门级 难度了 大师应该放点法宝上来哈网友答:
希望有用处网友答:
好久不碰了网友答:
不来就是入门级的小白，
写此小程序是因为单位的图纸说明图层极其混乱，有些条文的颜色还是不同的，但是这些颜色是用来区分哪些是通用的，哪些是根据具体项目填写的，所以颜色不能跟图层变。故吭哧瘪度的弄了这么个小程序。程序参考了zml和carrot的程序，感谢两位大神。各位也可继续优化，自行折腾。
网友答: 太好用，实在是太好用了。感谢感谢。网友答: 本帖最后由 xyp1964 于 2025-12-13 14:34 编辑
- ;; 图层刷
- (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)
- )
- ;; command方式更简单
- (defun c:tt ()
- (if (and (setq s1 (car (entsel "\n选择源对象: ")))(setq ss (ssget)))
- (command "chprop" ss "" "la" (cdr(assoc 8(entget s1))) "")
- )
- (princ)
- )
cnks 发表于 2014-3-14 10:43
支持一下海盗！
多谢长老支持网友答: 谢谢楼主，下来看看
网友答:
支持海盗兄，最近很少出东西啊，网友答:
这个只是入门级 难度了 大师应该放点法宝上来哈网友答:
yaokui25 发表于 2014-3-14 10:56
谢谢楼主，下来看看
希望有用处网友答:
tianyi1230 发表于 2014-3-15 20:55
支持海盗兄，最近很少出东西啊，
好久不碰了网友答:
pengfei2010 发表于 2014-3-16 13:10
这个只是入门级 难度了 大师应该放点法宝上来哈
不来就是入门级的小白，