VB 调用AUTOCAD问题

liub1979

Public AcadApp As AcadApplication
Public AcadPre As AcadPreferences
Public AcadDoc As AcadDocument
Public AcadPaS As AcadPaperSpace
Public AcadMoS As AcadModelSpace Public Sub test() On Error Resume Next
Set AcadApp = GetObject("AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "err!" & Err.Description
Exit Sub
End If
End If Set AcadPre = AcadApp.Preferences
Set AcadDoc = AcadApp.ActiveDocument
Set AcadPaS = AcadDoc.PaperSpace
Set AcadMoS = AcadDoc.ModelSpace Set sset AS AcadDoc.ActiveSelectionSet Set ssnew = AcadApp.SelectionSets.Add("ss") ssnew.Clear
ssnew.SelectOnScreen MsgBox "The layers in this drawing are: " & ssnew.Count
End Sub
好象不行呐^_^ 初学者不知VB如何调用AUTOCAD请斑竹指教……

雪山飞狐_lzh

你要获取层应该用


AcadDoc.Layers.Count

liub1979

谢谢飞哥.^_^


我是VB初学者,请问ACAD.TLB和AXAUTO15.TLB是做什么用的?


我的程序改了可还有问题,望大哥指点一二


       

wylong

Set AcadApp = GetObject("AutoCAD.Application")


应该为


Set AcadApp = GetObject(,"AutoCAD.Application")


别忘记引用Excel支持库


        见下图

雪山飞狐_lzh

引用Excel干什么？

hillak

我觉得调用Access好用一点


我做了一个道路线性设计的工具用的Access，不错


不过，还不能完成标注这项功能，请执教！

liub1979

thank you