[VBA函数]：怎么样让vb程序知道cad的一个命令已经完成了？

xsquan

我在vb中调用cad，想在cad里面画不确定的几个点，用getpoint来画点，但是怎么让vb知道我要结束画点，然后又回到vb中去呢

efan2000

GetPoint函数操作完成后，如果成功，则返回值，如果失败，则产生一个错误。因而可以根据这两者来判断。

参照下面的代码进行操作吧。

2. 
   
3.   [FONT=courier new]
   
4. Private Sub Test()
   
5.     Dim sPt As Variant
   
6.     On Error Resume Next
   
7.     sPt = ThisDrawing.Utility.GetPoint(, "指定起点: ")
   
8.     If Err.Number <> 0 Then '这里指定一点时产生错误，可能是运行其它命令或者取消指定点。
   
9.         Err.Clear
   
10.         '注意这时的sPt值为空。
    
11.     Else
    
12.         '注意这时的sPt值不为空，值为Double型的数组。
    
13.     End If
    
14.     On Error GoTo 0
    
15.     '在这儿，不论操作成功，均返回到VB里进行下一步的操作。
    
16. End Sub
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Sub Test()<br />     Dim sPt As Variant<br />     On Error Resume Next<br />     sPt = ThisDrawing.Utility.GetPoint(, "指定起点: ")<br />     If Err.Number <> 0 Then '这里指定一点时产生错误，可能是运行其它命令或者取消指定点。<br />         Err.Clear<br />         '注意这时的sPt值为空。<br />     Else<br />         '注意这时的sPt值不为空，值为Double型的数组。<br />     End If<br />     On Error GoTo 0<br />     '在这儿，不论操作成功，均返回到VB里进行下一步的操作。<br /> End Sub<br />   [/FONT]<br />

xsquan

谢你的回答，我明白了