明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 7317|回复: 64

[源码] 源码学习 改对象颜色,改对象图层颜色

    [复制链接]
发表于 2015-8-11 11:32 | 显示全部楼层 |阅读模式
本帖最后由 ucuc2003 于 2015-8-17 13:42 编辑

http://bbs.mjtd.com/thread-169058-1-1.html
源码学习: 改对象颜色,改对象图层颜色(在阿甘大侠的源码基础上修改增加功能)
核心代码:再次鸣谢原作者 阿甘
;改颜色随层程序
(defun GL:gssc(/ ss)
  (princ "颜色改为随层")
  (while (setq ss (ssget))
    (princ (strcat (itoa (sslength ss)) "个对象的颜色改为随层"))
    (command "change" ss "" "P" "C" "bylayer" "")
  );while
)

;改对象颜色程序
(defun GL:gdxys (dxys / en i obj ss)
(while (setq ss (ssget ":s"))
   (princ (strcat "共改变了<" (itoa (sslength ss)) ">个对象的颜色"))
   (command "change" ss "" "p" "c" dxys "")
);while
(princ)
)

;改图层颜色程序(defun GL:gtcys (yanse / acaddoc acadobj en i lay layobj obj ss vlay vlay1)
  (setq AcadObj (vlax-get-Acad-object)
            AcadDoc (vla-get-ActiveDocument AcadObj)
            LayObj (vla-get-layers AcadDoc)
  )
  (if (setq ss (ssget))
   (progn
    (setq i 0)
    (repeat (sslength ss)
     (setq en (ssname ss i);取图元名
           obj (vlax-ename->vla-object en);转换图元
           lay (vla-get-layer obj);图层名
           vlay (vla-item LayObj lay);转为VL图层名
     )
     (if (= (equal vlay vlay1) nil)
      (progn
       (vla-put-color vlay yanse);改图层颜色
       (setq vlay1 vlay)
     ))
     (setq i (1+ i))
    )
   ))
  (princ)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点评

我觉得既然用到了阿甘前辈的源码,楼主也最好是放出修改后的源码,是一种尊重!!  发表于 2015-8-11 13:23

评分

参与人数 1明经币 +1 收起 理由
yanchao316 + 1 很给力!

查看全部评分

本帖被以下淘专辑推荐:

发表于 2015-8-11 12:11 | 显示全部楼层
搞得太复杂了,CAD原配的还是很好用的。
发表于 2015-8-11 12:49 | 显示全部楼层
好熟悉的界面, 好像阿甘发过
发表于 2015-8-11 12:50 | 显示全部楼层
回复看贴
 楼主| 发表于 2015-8-11 13:04 | 显示全部楼层
本帖最后由 ucuc2003 于 2015-8-11 13:10 编辑
lucas_3333 发表于 2015-8-11 12:49
好熟悉的界面, 好像阿甘发过

嗯,在他的基础上修改添加了功能
发表于 2015-8-11 13:20 | 显示全部楼层
恩,阿甘的那个我一直在用,很好的。也谢谢楼主的改进。
发表于 2015-8-11 13:36 | 显示全部楼层
路过,看看确实强
发表于 2015-8-11 16:30 | 显示全部楼层
路过,看看确实强
发表于 2015-8-12 13:06 | 显示全部楼层
看看学习一下
发表于 2015-8-12 14:38 | 显示全部楼层
非常感谢楼主分享源码!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2020-9-27 05:35 , Processed in 0.245839 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表