求助：图层透明度的算法

wharan

Bao_lai 发表于 2022-3-5 21:40
(regapp "AcCmTransparency")
(Setq a (entget (tblobjname "layer" "图层名称") '("AcCmTransparency") ...

代码没问题，谢谢你的指点

wharan

Bao_lai 发表于 2022-3-5 21:40
(regapp "AcCmTransparency")
(Setq a (entget (tblobjname "layer" "图层名称") '("AcCmTransparency") ...

发现一个有趣的问题，CAD图形的图层，如果没有手动操作过某一图层的透明度，用 '(-3 ("AcCmTransparency" (1071 . 33554462))) 方法，是找不到-3组码的数据的。也就是说，没有操作过透明度的话，是没有透明度数据的。
这个问题解决了，办法比较笨：如果没有透明度数据，扩展数据，然后再处理。
谢谢

Bao_lai

wharan 发表于 2022-3-6 15:42
发现一个有趣的问题，CAD图形的图层，如果没有手动操作过某一图层的透明度，用 '(-3 ("AcCmTransparency" ...

是的，如果没有的话，先添加一个。

linyangmjtd

2. ;功能 ： 设置图层的透明度
   
3. ;参数：
   
4. ;      layername ： 图层名称
   
5. ;      value ： 设置值0~100的值
   
6. ;函数：无
   
7. ;示例：(yd-layer-transparency "0" 0)
   
8. (defun yd-layer-transparency(layername value /
   
9.                               ent Objlayer transparency data data-3
   
10.                             )
    
11.   (if (and
    
12.         (<= 0 value 100)
    
13.         (tblsearch "layer" layername)
    
14.       )
    
15.     (progn
    
16.       (setq
    
17.         ent (tblobjname "layer" layername)
    
18.         Objlayer (vlax-ename->vla-object ent)
    
19.         transparency (+ (lsh 2 56) (fix (* 255(- 1 (* value 0.01) ))))
    
20.         data (entget (tblobjname "layer" layername) '("*"))
    
21.         data-3 (cdr (assoc -3 data))
    
22.       )
    
23.       (if (/= (assoc "AcCmTransparency" (cdr (assoc -3 data))) nil)
    
24.         (progn
    
25.           (setq
    
26.             data-3 (if (= value 0) (vl-remove (assoc "AcCmTransparency" data-3) data-3) (subst (list "AcCmTransparency" (cons 1071 transparency)) (assoc "AcCmTransparency" data-3) data-3))
    
27.             data (subst (cons -3 data-3) (assoc -3 data) data)
    
28.           )
    
29.           (entmod data)
    
30.         )
    
31.         (progn
    
32.           (setq
    
33.             data-3 (if (= value 0) data-3 (cons (list "AcCmTransparency" (cons 1071 transparency)) data-3))
    
34.             data (subst (cons -3 data-3) (assoc -3 data) data)
    
35.           )
    
36.           (entmod data)
    
37.         )
    
38.       )
    
39.       
    
40.       (vla-put-layeron Objlayer (vla-get-layeron Objlayer))
    
41.       ;更新图层(vla-regen (vla-get-activedocument(vlax-get-acad-object)) 1)，不知道vla-regen和redraw方法哪个速度更快
    
42.       (redraw ent)
    
43.     )
    
44.   )
    
45.   (princ)
    
46. )

;功能 ： 设置图层的透明度<br /> ;参数：<br /> ;      layername ： 图层名称<br /> ;      value ： 设置值0~100的值<br /> ;函数：无<br /> ;示例：(yd-layer-transparency "0" 0)<br /> (defun yd-layer-transparency(layername value / <br />                               ent Objlayer transparency data data-3<br />                             )<br />   (if (and <br />         (<= 0 value 100)<br />         (tblsearch "layer" layername)<br />       )<br />     (progn <br />       (setq <br />         ent (tblobjname "layer" layername)<br />         Objlayer (vlax-ename->vla-object ent)<br />         transparency (+ (lsh 2 56) (fix (* 255(- 1 (* value 0.01) ))))<br />         data (entget (tblobjname "layer" layername) '("*"))<br />         data-3 (cdr (assoc -3 data))<br />       )<br />       (if (/= (assoc "AcCmTransparency" (cdr (assoc -3 data))) nil)<br />         (progn <br />           (setq <br />             data-3 (if (= value 0) (vl-remove (assoc "AcCmTransparency" data-3) data-3) (subst (list "AcCmTransparency" (cons 1071 transparency)) (assoc "AcCmTransparency" data-3) data-3))<br />             data (subst (cons -3 data-3) (assoc -3 data) data)<br />           )<br />           (entmod data)<br />         )<br />         (progn <br />           (setq <br />             data-3 (if (= value 0) data-3 (cons (list "AcCmTransparency" (cons 1071 transparency)) data-3))<br />             data (subst (cons -3 data-3) (assoc -3 data) data)<br />           )<br />           (entmod data)<br />         )<br />       )<br />       <br />       (vla-put-layeron Objlayer (vla-get-layeron Objlayer))<br />       ;更新图层(vla-regen (vla-get-activedocument(vlax-get-acad-object)) 1)，不知道vla-regen和redraw方法哪个速度更快<br />       (redraw ent)<br />     )<br />   )<br />   (princ)<br /> )