[分享]VBA调用ACAD的API接口的部分函数

efan2000 · 发表于 2004-1-8 23:38:00

由于ARX中大量使用了结构类型、联合类型的数据，因而这部分操作不成功。
下面是几个函数试验可成功调用的，其它的待续。


' 显示文本窗口
Private Declare Function acedTextScr Lib "acad.exe" () As Long
' 隐藏文本窗口
Private Declare Function acedGraphScr Lib "acad.exe" () As Long
' 显示提示对话框
Private Declare Function acedAlert Lib "acad.exe" (ByVal str As String) As Long
Sub test()
    ' 显示文本窗口
    acedTextScr
    
    ' 隐藏文本窗口
    acedGraphScr
 
    On Error Resume Next
    ' 显示提示对话框
    acedAlert "乐筑天下"
End Sub