社区 › Auto Lisp › VBA更改图层

katto01 发表于 2022-7-6 18:16:30

VBA更改图层

你好
 
我试图从EXCEL中切换层，但没有成功。
这是我的代码：
请告知
 
谢谢
 

Public Sub MISKO()
Dim ACAD As AcadApplication
On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
Call ACAD_SELECT_LAYER("BIBI")
End Sub
Public Sub ACAD_SELECT_LAYER(A$)
Dim ACAD As AcadApplication Dim objLayer As AcadLayer
Dim acadDoc As AcadDocument
Set ACAD = GetObject(, "AutoCAD.Application") 'Get a running instance of the class AutoCAD.Application
Set acadDoc = ACAD.ActiveDocument
Set objLayer = acadDoc.Layers(A$) ‘ < supposed to select this layer passed by A$
End Sub

Hippe013 发表于 2022-7-6 18:37:11

以下内容来自Autodesk帮助
 
Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("LAYER1")
ThisDrawing.ActiveLayer = newlayer

BIGAL 发表于 2022-7-6 19:06:29

katto01您可能需要研究使用vba设置变量有很多“clayer”“osmode”“style”，其中有一些Hippe013已经回答了层可能在vba v的autocad v的LIsp的某处有一个列表。

katto01 发表于 2022-7-6 19:28:18

仍然没有解决方案。我需要在现有层之间切换。添加新层没有帮助
假设我有三层L1，L2，L3
 
我需要选择L1并在上面做一些事情，然后选择L2并在上面做一些事情等等。
 
非常感谢。
 

查看完整版本: VBA更改图层