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

efan2000

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

2. 
   
3. ' 显示文本窗口
   
4. Private Declare Function acedTextScr Lib "acad.exe" () As Long
   
5. ' 隐藏文本窗口
   
6. Private Declare Function acedGraphScr Lib "acad.exe" () As Long
   
7. ' 显示提示对话框
   
8. Private Declare Function acedAlert Lib "acad.exe" (ByVal str As String) As Long
   
9. 
   
10. Sub test()
    
11.     ' 显示文本窗口
    
12.     acedTextScr
    
13.    
    
14.     ' 隐藏文本窗口
    
15.     acedGraphScr
    
16. 
    
17.     On Error Resume Next
    
18.     ' 显示提示对话框
    
19.     acedAlert "明经通道"
    
20. End Sub
    

<br /> ' 显示文本窗口<br /> Private Declare Function acedTextScr Lib "acad.exe" () As Long<br /> ' 隐藏文本窗口<br /> Private Declare Function acedGraphScr Lib "acad.exe" () As Long<br /> ' 显示提示对话框<br /> Private Declare Function acedAlert Lib "acad.exe" (ByVal str As String) As Long<br /> <br /> Sub test()<br />     ' 显示文本窗口<br />     acedTextScr<br />     <br />     ' 隐藏文本窗口<br />     acedGraphScr<br /> <br />     On Error Resume Next<br />     ' 显示提示对话框<br />     acedAlert "明经通道"<br /> End Sub<br />

myfreemind

好帖，送花一朵！

yfy2003

学一招！！

fjfhgdwfn

不错

chb801

好贴！

bluemoon

好啊 期待进一不讲解

sdxylijian

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

backarmy

什么意思？

yczhha

好

flydyt

请问从哪找到的？