源码学习改对象颜色，改对象图层颜色

ucuc2003 · 发表于 2015-8-11 11:32:00

源码学习：改对象颜色，改对象图层颜色（在阿甘大侠的源码基础上修改增加功能）
核心代码：再次鸣谢原作者阿甘
;改颜色随层程序
(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 "共改变了个对象的颜色"))
(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)
)

已更新

x0xggrcnutu.png

cgsxwjccmfn.gif

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复