Entmake 生成图层透明度怎么实现？

wharan

entmake生成图层，颜色、线型、线宽等都可以实现，但没有找到图层透明度怎么设置，望知道的大师指点迷津。

1291500406

wharan 发表于 2022-3-3 00:04
谢谢你的回复。我想知道的是用entmake能否定义图层透明度

1. (entmake
   
2.         (list
   
3.                 ...
   
4.                 '(-3 ("AcCmTransparency" (1071 . 33554623)))
   
5.         )
   
6. )

(entmake<br />         (list<br />                 ...<br />                 '(-3 ("AcCmTransparency" (1071 . 33554623)))<br />         )<br /> )

guosheyang

wharan 发表于 2022-3-3 21:14
搞不清组码-3的意义。这段代码执行后返回nil，不能生成图层。AutoCAD2022，Win11

经测试 代码加上一句代码就可以了
(progn
  (regapp "AcCmTransparency")
  (entmake '((0 . "LAYER")
             (100 . "AcDbSymbolTableRecord")
             (100 . "AcDbLayerTableRecord")
             (70 . 0)
             (6 . "Continuous")
             (2 . "name")
             (-3 ("AcCmTransparency" (1071 . 33554623)))
            )
  )
)

wharan

这段代码，有什么问题呢？(defun c:test ()
  (entmake '((0 . "LAYER")
             (100 . "AcDbSymbolTableRecord")
             (100 . "AcDbLayerTableRecord")
             (70 . 0)
             (6 . "Continuous")
             (2 . "name")
             (-3 ("AcCmTransparency" (1071 . 33554623)))
            )
  )
)

xyp1964

;; (MkLa "text" 1 30)
(defun MkLa (la co tr)
  (command "-layer" "m" la "c" co "" "tr" tr "" "")
  (princ)
)

wharan

xyp1964 发表于 2022-3-2 21:59
;; (MkLa "text" 1 30)
(defun MkLa (la co tr)
  (command "-layer" "m" la "c" co "" "tr" tr "" "")

谢谢你的回复。我想知道的是用entmake能否定义图层透明度

wharan

1291500406 发表于 2022-3-3 15:00
(entmake
        (list
                ...

谢谢你的回复，但我还是没能搞定。能否给个完整的生成带有透明度的图层的实例呢？

1291500406

wharan 发表于 2022-3-3 18:06
谢谢你的回复，但我还是没能搞定。能否给个完整的生成带有透明度的图层的实例呢？

1. (entmake  
   
2.   '  
   
3.   (  
   
4.     (0 . "LAYER")  
   
5.     (100 . "AcDbSymbolTableRecord")  
   
6.     (100 . "AcDbLayerTableRecord")  
   
7.     (70 . 0)  
   
8.     (6 . "Continuous")  
   
9.     (2 . "name")  
   
10.     (-3 ("AcCmTransparency" (1071 . 33554623)))  
    
11.   )  
    
12. )

(entmake  <br />   '  <br />   (  <br />     (0 . "LAYER")  <br />     (100 . "AcDbSymbolTableRecord")  <br />     (100 . "AcDbLayerTableRecord")  <br />     (70 . 0)  <br />     (6 . "Continuous")  <br />     (2 . "name")  <br />     (-3 ("AcCmTransparency" (1071 . 33554623)))  <br />   )  <br /> )

wharan

1291500406 发表于 2022-3-3 18:30

搞不清组码-3的意义。这段代码执行后返回nil，不能生成图层。AutoCAD2022，Win11

1291500406

wharan 发表于 2022-3-3 21:14
搞不清组码-3的意义。这段代码执行后返回nil，不能生成图层。AutoCAD2022，Win11

第一次执行是产生图层  新建 name 图层

第二次执行 name 图层此时已存在 当然是 nil
2022 截图 你先看la图层管理器结果

wharan

1291500406 发表于 2022-3-3 21:17
第一次执行是产生图层  新建 name 图层第二次执行 name 图层此时已存在 当然是 nil
2022 截图 你先看la ...

在只有“0”层的新图上，直接复制代码在命令行执行，返回nil，没能生成新图层。可能我钻进了某个死胡同