只需一步,快速开始
使用道具 举报
(defun c:SS()(setq objA (entsel"\n选图形: "))(setq en2 (entget (car objA)))(setq en3 (assoc 8 en2)) (setq en4 (cdr en3))(setq en5 (cdr (assoc 62 (entget (tblobjname "layer" en4)))))(prompt (strcat " 颜色为" (rtos en5 2 0)))(PRINC))
只能显示图层颜色色号 ,如果所选实体如线条 被该过颜色 则无法显示
(setq ys (vla-get-color (vla-get-activelayer (vla-get-activedocument (vlax-get-acad-object)) ) ) )
获取当前图层的颜色
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-10-2 08:26 , Processed in 0.159887 second(s), 25 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.