Question

VB.NET 操作AutoCAD图层 设置了新图层“Point" 怎么设置该图层为当前层

Dim AcadApp As Object Dim LayP As AcadLayer On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox(Err.Description) Exit Sub End If End If LayP = AcadApp.ActiveDocument.Layers.Add("Point") '添加图层 'AcadApp.ActiveDocument.ActiveLayer = LayP ‘VB中利用该语句把LayP设置当前图层,但是在VB.net中好像没有用，提示找不到成员
可能是我说的不够清楚，主要是怎么利用VB.NET完成AutoCAD当前层的设置，或者能解决一下图片中的报错问题也可以。

Answer 1

在autolisp里面，设置图层为当前：
(setvar "CLAYER" "Point")

Answer 2

答非所问，不懂就别答。
我也遇到同样的问题，变通了N种方法，均不能通过。求哪位大神解答啊!

Answer 3

很简单，打开图层然后双击就可以了。。