明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 115|回复: 5

[提问] lisp如何判定文件使用了真彩色(对象或图层)

[复制链接]
发表于 2020-6-29 23:21 | 显示全部楼层 |阅读模式
哪位大侠能写个判定文件使用了真彩色(包括图层颜色和对象颜色),或者判定文件中有255,255,255这个颜色。好多图都是因为文件对象或图层设置成了这个色而打印不出来,又不容易发现
发表于 2020-6-30 00:01 | 显示全部楼层
本帖最后由 tryhi 于 2020-6-30 00:05 编辑

(setq bl420 nil)
(vlax-for obj (vla-get-Layers (setq *DOCS*(vla-get-ActiveDocument (vlax-get-acad-object))))
        (if (assoc 420(entget(vlax-vla-object->ename obj)))(setq lay420 T))
)

(if lay420
        (princ "\n存在图层使用真色彩")
        (princ "\n所有图层均使用索引色彩")
)

(setq bl420 nil)
(vlax-for block (vla-get-blocks *DOCS*)
        (vlax-for obj block
                (if (assoc 420(entget(vlax-vla-object->ename obj)))(setq bl420 T))
        )
)

(if bl420
        (princ"\n存在块或者图元使用真色彩")
        (princ"\n所有元素均未使用真色彩")
)
(princ)
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2020-6-30 15:28 | 显示全部楼层
谢谢tryhi,留个联系Qq,还想咨询点问题呢
 楼主| 发表于 2020-6-30 15:37 | 显示全部楼层
如果有图层或对象或块使用255,255,255这个真彩色能自动改成7号索引色的程序吗,谢谢,能实现的话告诉我怎么赠币感谢哈
发表于 2020-6-30 17:10 | 显示全部楼层
本帖最后由 llsheng_73 于 2020-6-30 17:14 编辑
sctw 发表于 2020-6-30 15:37
如果有图层或对象或块使用255,255,255这个真彩色能自动改成7号索引色的程序吗,谢谢,能实现的话告诉我怎么 ...

  1. (defun c:tt(/ *DOCS* e)
  2.   (vl-load-com)
  3.   (vlax-for e(vla-get-Layers(setq *DOCS*(vla-get-ActiveDocument (vlax-get-acad-object))))
  4.     (if(member'(420 . 16777215)(setq e(entget(vlax-vla-object->ename e))))
  5.       (entmod(append(vl-remove'(420 . 16777215)e)'((62 . 7))))))
  6.   (vlax-for e(vla-get-blocks *DOCS*)
  7.     (if(member'(420 . 16777215)(setq e(entget(vlax-vla-object->ename e))))
  8.       (entmod(append(vl-remove'(420 . 16777215)e)'((62 . 7))))))
  9.   (vlax-for e(vla-get-ModelSpace *DOCS*)
  10.     (if(member'(420 . 16777215)(setq e(entget(vlax-vla-object->ename e))))
  11.       (entmod(append(vl-remove'(420 . 16777215)e)'((62 . 7))))))
  12.   )
 楼主| 发表于 2020-7-6 23:37 | 显示全部楼层
只要是用天正文字属性的,用tt命令改色CAD就会退出,能解决吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-7-8 09:24 , Processed in 0.165934 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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