AutoCAD VBA-更改活动la

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

你好

我正在尝试更改活动层。

我试过这个套路，但运气不好。

Public Sub-ChangeEntityLayer（）

Dim objEntity As AcadEntity

Dim varPick As Variant[align]

Dim strLayerName As String

Dim objLayer As AcadLayer

strLayerName=“Mypoints”

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

End Sub[align]

有什么想法吗？

谢谢你

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

发表回复

精选推荐