AutlLisp版本：Visual LISP 2024 (zh)

三种方法分别为：

• command命令
• entmake生成图元法
• vla扩展函数法

一、command命令

例：

代码块

ts

     自动换行
   

     复制代码
   

1

(command "_.-LAYER" "N" "Test1" "C" "1" "Test1" "LW" "D" "Test1")

      复制成功
     
     
     
     

其中：C-1-Test1表示修改颜色为索引1（红），对Test1图层，LW-D-Test1，标识调整线宽为D（默认线宽）对Test1图层。

缺点：一条语句无法区分新建新图层和修改已存在图层；语句较长，输入较多。不推荐该方法。

二、entmake生成图元法

示例：

代码块

ts

     自动换行
   

     复制代码
   

123456789101112

(setq #listL (list '(0 . "LAYER") 
                        '(100 . "AcDbSymbolTableRecord")
                        '(100 . "AcDbLayerTableRecord")
                        '(2 . "Test2") ;图层名
                        '(70 . 0) ;冻结与锁定
                        '(62 . 1) ;颜色
                        '(6 . "Continuous") ;线形
                        '(290 . 0) ;打印控制：0-不打印，1-打印
                        '(370 . -3) ;线宽,-3为默认
                  ) ;l
) ;l
(entmakex #listL)

      复制成功
     
     
     
     

可使用tbl命令查看：

代码块

ts

     自动换行
   

     复制代码
   

12345678

(tblsearch "LAYER" "Test2")

((0 . "LAYER") (2 . "Test2") (70 . 0) (62 . 1) (6 . "Continuous"))


(tblobjname "LAYER" "Test2")

<图元名: 1f4851d38e0>

      复制成功
     
     
     
     

可以用entmod函数修改图层配置：

代码块

ts

     自动换行
   

     复制代码
   

12

(setq #epL (entget (tblobjname "LAYER" "Test2")))
(entmod (subst (cons 62 3) (assoc 62 #epL) #epL))

      复制成功
     
     
     
     

推荐该方法。

三、vla函数法

示例一个建立/修改图层的函数：

代码块

ts

     自动换行
   

     复制代码
   

12345678910111213

(defun gen_layer (/) 
  (setq #vDOC (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq #voLAYERS (vla-get-Layers #vDOC)) ;选择所有图层
  (setq #voTOBJECT (vla-add #voLAYERS "Test3")) ;选择或新建图层，AutoCad中图层名称不区分大小写
  (vla-put-LayerOn #voTOBJECT :vlax-true) ;图层开关
  (vla-put-Freeze #voTOBJECT :vlax-false) ;冻结
  (vla-put-Lock #voTOBJECT :vlax-false) ;锁定
  (vla-put-Plottable #voTOBJECT :vlax-false) ;打印
  (vla-put-Color #voTOBJECT 1) ;颜色：1=红
  (vla-put-Linetype #voTOBJECT "Continuous") ;线型
  (vla-put-Lineweight #voTOBJECT acLnWtByLwDefault) ;线宽:默认
  (vla-put-ActiveLayer #vDOC (vla-get-ActiveLayer #vDOC)) ;重置当前活动图层，避免AutoLISP机制上图层设置可能未生效问题
) ;d

      复制成功
     
     
     
     

优点：每条语句修改项清晰可见，新建和修改均可以同用一套代码。

附：layer的其他属性和vla操作参见官方文档：

https://help.autodesk.com/view/OARX/2023/CHS/?guid=GUID-14F28A52-81E5-4CD0-AA79-ADC09E91BB8C

欢迎留言并发表您的见解！

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删