[求助]：关于vba

gjliang

各位大家好，本人最近在学习vba，想是不是能用vba做出可以和用户交互的程序，我写了下面的一段简单的代码，可调试时通不过，哪位要是知道请告知一个完整的解决办法，将不胜感激！下面是我的原代码：Private Sub CommandButton1_Click()
Dim cpoint As Variant
Dim radius As Variant
Dim circleobj As AcadCircle

Set cpoint = ThisDrawing.Utility.GetPoint(, "enter a point")
radius = Val(TextBox1.Text)
Set circleobj = ThisDrawing.ModelSpace.AddCircle(cpoint, radius)

End Sub

efan2000

有窗体操作时，先把窗体隐藏，再执行操作，操作完后，让窗体显示。

2. 
   
3.   [FONT=courier new]
   
4. Private Sub CommandButton1_Click()
   
5.     Dim cpoint As Variant
   
6.     Dim radius As Variant
   
7.     Dim circleobj As AcadCircle
   
8.    
   
9.     Me.Hide
   
10.     Set cpoint = ThisDrawing.Utility.GetPoint(, "enter a point")
    
11.     Me.Show
    
12.     radius = Val(TextBox1.Text)
    
13.     Set circleobj = ThisDrawing.ModelSpace.AddCircle(cpoint, radius)
    
14.    
    
15. End Sub
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Sub CommandButton1_Click()<br />     Dim cpoint As Variant<br />     Dim radius As Variant<br />     Dim circleobj As AcadCircle<br />     <br />     Me.Hide<br />     Set cpoint = ThisDrawing.Utility.GetPoint(, "enter a point")<br />     Me.Show<br />     radius = Val(TextBox1.Text)<br />     Set circleobj = ThisDrawing.ModelSpace.AddCircle(cpoint, radius)<br />     <br /> End Sub<br />   [/FONT]<br />

gjliang

谢谢了，可是报错说类型不匹配，谢谢帮我完整看一下，是哪里出了问题。

efan2000

我没注意到，对于Variant类型的变量不能用Set，Set是用于对Object类型的变量附值。对于圆的半径，只要声明为Double类型的就可以了，不必用Variant类型。

2. 
   
3.   [FONT=courier new]
   
4. Private Sub CommandButton1_Click()
   
5.     Dim cPoint As Variant
   
6.     Dim Radius As Double
   
7.     Dim CircleObj As AcadCircle
   
8.    
   
9.     Me.Hide
   
10.     On Error Resume Next
    
11.     cPoint = ThisDrawing.Utility.GetPoint(, "enter a point")
    
12.     If Err Then '防止按右键或者运行其它命令出错而不能正常显示窗体
    
13.         Err.Clear
    
14.         Me.Show
    
15.         Exit Sub
    
16.     End If
    
17.     Radius = Val(TextBox1.Text)
    
18.     Set CircleObj = ThisDrawing.ModelSpace.AddCircle(cPoint, Radius)
    
19.     Me.Show
    
20. End Sub
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Sub CommandButton1_Click()<br />     Dim cPoint As Variant<br />     Dim Radius As Double<br />     Dim CircleObj As AcadCircle<br />     <br />     Me.Hide<br />     On Error Resume Next<br />     cPoint = ThisDrawing.Utility.GetPoint(, "enter a point")<br />     If Err Then '防止按右键或者运行其它命令出错而不能正常显示窗体<br />         Err.Clear<br />         Me.Show<br />         Exit Sub<br />     End If<br />     Radius = Val(TextBox1.Text)<br />     Set CircleObj = ThisDrawing.ModelSpace.AddCircle(cPoint, Radius)<br />     Me.Show<br /> End Sub<br />   [/FONT]<br />

gjliang

这是我第一次在论坛上问问题，就这么完美的解决了，真是非常感谢，因为我是新手，以后可能还会有很多问题向大家请教，在此先谢谢efan2000了！

efan2000

关于VBA的问题，你可以直接在※VBA、COM-ActiveX Interfaces 开发技术※论坛中提出，在那里大家才可以及时的为你解决。

gjliang

请问网址是：

XDSoft

最初由 gjliang 发布
[B]请问网址是： [/B]

就是本论坛的“开发板块”啊，你把论坛首页的“二次开发”栏目给点开，就看到了。

efan2000

就在XD空间，具体步骤是：晓东CAD空间 > ≡ 二次开发 ≡ > ※VBA、COM-ActiveX Interfaces 开发技术※，按这个次序就可以进入了。