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 "http://igis.taobao.com"
End Sub
全部评论