我想要获取指定视口内、具有视口替代特性的所有图层、
以及图层对应的视口颜色和线型、如上图：

我查了一下视口的组码、其中有几个组码是关于视口特性替代的、如下图：


但是我用entget函数却始终无法得到335 343和344这几个组码数据、代码如下：


所以想请教一下各位大神、
有没有什么办法可以用Lisp获取到视口替代图层及对应颜色和线型

附件已经上传、其中"图层1"在当前视口内是有替代特性的



网友答: 本帖最后由 vitalgg 于 2024-4-21 16:46 编辑



命令 VPOV





网友答:
(foreach
                      od% overdatas
                        (if (and od% (equal (entity:getdxf od% 335) (entity:getdxf vp -1)))
                        ; 遍历当前图层的视口替代信息列表
                        ; od% 是每次循环中代表当前视口替代信息对象的临时变量
                          (progn
                             (princ  "视口颜色组码为:")
                              (princ  (entity:getdxf od% 420))
                              (entity:deldxf od% 420)
                              (princ  "\n 删除后的组码为:")
                              (princ  (entity:getdxf od% 420))
                              (entity:putdxf od% 420 -1023410168) ;-1023410168
                              (princ  "\n 修改后的组码为:")
                              (princ  (entity:getdxf od% 420))
                              (princ "\n")
                           )
                           )
                         ) 直接输出的-1023410121，删除后输出的还是-1023410121，put后就变(-1023410121 -1023410168)了

网友答:

大神！这两天用您的代码发现有时候获取不到图层的视口替代特性了、
我自己排查了一下、发现是这段代码的判断不准确、其他的部分都没有问题、
所以想请教一下、有没有其他精确的判断方法、
因为是偶尔碰见这种情况、所以没有保存测试文件

网友答: 本帖最后由 xiaocainiao 于 2024-4-21 17:18 编辑

大神、能分享一个color:interface函数的源代码吗、谢谢

网友答: 本帖最后由 vitalgg 于 2024-4-21 18:49 编辑

代码不能用？

先执行第一行代码
然后CAD命令行输入
(fun:src color:interface)


网友答:
能用、主要我是想要源码自己改一下、让他完全能符合自己的需求

网友答:
CAD命令行输入
(fun:src 函数名)
即可显示函数的定义
如：
(fun:src color:interface)
(fun:src layer:list)

网友答:
谢谢、会用了

网友答: 420组码转换时  会用到的 函数
;; Negative Colour -> Colour  -  Lee Mac
;; c - [int] Negative colour value
(defun negcolor->color ( c )
    (if (< 0 (logand 16777216 c))
        (last (LM:True->RGB c))
        (if (equal '(0 0 0) (setq c (LM:True->RGB c))) 256 c)
    )
)
;; True -> RGB  -  Lee Mac
;; Args: c - True Colour
(defun LM:True->RGB ( c )
    (list
        (lsh (lsh (fix c) 08) -24)
        (lsh (lsh (fix c) 16) -24)
        (lsh (lsh (fix c) 24) -24)
    )
)

网友答:
谢谢大神！我先研究一下