社区 › AutoLISP/Visual LISP 编程技术 › Entmake 生成图层透明度怎么实现？

wharan 发表于 2022-3-2 21:03:31

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

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

1291500406 发表于 2022-3-3 15:00:49

本帖最后由 1291500406 于 2022-3-3 19:09 编辑

wharan 发表于 2022-3-3 00:04
谢谢你的回复。我想知道的是用entmake能否定义图层透明度
(entmake
      (list
                ...
                '(-3 ("AcCmTransparency" (1071 . 33554623)))
      )
)

guosheyang 发表于 2022-3-4 11:14:45

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 发表于 2022-3-3 21:42:43

本帖最后由 wharan 于 2022-3-3 21:43 编辑

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

xyp1964 发表于 2022-3-2 21:59:24

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

wharan 发表于 2022-3-3 00:04:44

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 发表于 2022-3-3 18:06:42

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


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

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

本帖最后由 1291500406 于 2022-3-3 19:08 编辑

wharan 发表于 2022-3-3 18:06
谢谢你的回复，但我还是没能搞定。能否给个完整的生成带有透明度的图层的实例呢？(entmake
'
(
    (0 . "LAYER")
    (100 . "AcDbSymbolTableRecord")
    (100 . "AcDbLayerTableRecord")
    (70 . 0)
    (6 . "Continuous")
    (2 . "name")
    (-3 ("AcCmTransparency" (1071 . 33554623)))
)
)

wharan 发表于 2022-3-3 21:14:28

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


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

1291500406 发表于 2022-3-3 21:17:24

本帖最后由 1291500406 于 2022-3-3 21:23 编辑

wharan 发表于 2022-3-3 21:14
搞不清组码-3的意义。这段代码执行后返回nil，不能生成图层。AutoCAD2022，Win11
第一次执行是产生图层新建 name 图层第二次执行 name 图层此时已存在 当然是 nil
2022 截图 你先看la图层管理器结果

wharan 发表于 2022-3-3 21:34:14

本帖最后由 wharan 于 2022-3-3 21:36 编辑

1291500406 发表于 2022-3-3 21:17
第一次执行是产生图层新建 name 图层第二次执行 name 图层此时已存在 当然是 nil
2022 截图 你先看la ...
在只有“0”层的新图上，直接复制代码在命令行执行，返回nil，没能生成新图层。可能我钻进了某个死胡同

查看完整版本: Entmake 生成图层透明度怎么实现？