大神!这两天用您的代码发现有时候获取不到图层的视口替代特性了、
我自己排查了一下、发现是这段代 ...
谢谢!不用了、我用笨方法解决了 vitalgg 发表于 2024-4-21 16:44
命令 VPOV
大佬,请问如何更新视口替代颜色呢?用(entity:putdxf od% 420 -1023410168) 后把1023410168添加到原来的420上了。 vitalgg 发表于 2024-4-21 16:44
命令 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)了
页:
1
[2]