Module Module1
Dim AcadApp As Object
Dim AcadDoc As Object
Dim gridLayer As Object
Sub Main()
ConnectToAcad()
End Sub
Sub ConnectToAcad()
AcadApp = CreateObject(".Application")
AcadApp.Visible = True
AcadDoc = AcadApp.ActiveDocument
gridLayer = AcadDoc.Layers.Add("网格")
AcadDoc.ActiveLayer.color = 5
AcadDoc.ActiveLayer = gridLayer ''''这一句有问题
End Sub
End Module
前边的都运行成功了 就那一句出错，不知道是那儿写错了
提示的出错原因是找不到成员
置顶卡
