社区 › Auto Lisp › AutoCAD VBA-更改活动la

katto01 发表于 2022-7-6 21:05:09

AutoCAD VBA-更改活动la

你好
 
我正在尝试更改活动层。
 
我试过这个套路，但运气不好。
 
Public Sub-ChangeEntityLayer（）

Dim objEntity As AcadEntity
Dim varPick As Variant
Dim strLayerName As String
Dim objLayer As AcadLayer

strLayerName=“Mypoints”

[左对齐][颜色=#333333][大小=12px]设置对象层=此绘图。图层（strLayerName）
End Sub

有什么想法吗？

谢谢你

PeterPan9720 发表于 2022-7-6 21:45:07

活动层见在线Hep
下面的代码是用来检索图形中的所有层集合，而不是用于设置层。
Dim objLayer作为Acadlayer
 
strLayerName=“Mypoints”可用于创建新层并使其成为活动层。
 
设置objLayer=ThisDrawing。层（strLayerName）
设置objLayer=ThisDrawing。层

katto01 发表于 2022-7-6 22:10:32

太好了，谢谢

查看完整版本: AutoCAD VBA-更改活动la