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

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

由于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

myfreemind 发表于 2004-1-8 23:41:00

好帖，送花一朵！

yfy2003 发表于 2004-1-8 23:44:00

学一招！！

fjfhgdwfn 发表于 2004-1-9 09:47:00

不错

chb801 发表于 2004-1-10 18:39:00

好贴！

bluemoon 发表于 2004-1-11 09:47:00

好啊 期待进一不讲解

sdxylijian 发表于 2004-1-19 10:37:00

真的是精华！！！学到了不少东西！！！

backarmy 发表于 2005-8-1 22:56:00

什么意思？

yczhha 发表于 2005-8-2 12:34:00

好

flydyt 发表于 2008-4-30 09:19:00

请问从哪找到的？
页: [1] 2
查看完整版本: [分享]VBA调用ACAD的API接口的部分函数