[原创]：vba的圆弧参数化

JIMXDCAD

刚学VBA没多久，想起某人说AUTOCAD没参数化建模，所以就写了以下的VBA程序。由于刚学才2个多小时，所以程序没什么功能可言（其实学CAD也没多久，建模和基本操作都不熟悉，但觉得VBA有意思，所以就尝试一下）。
希望高手可以解答以下几个问题。
1、直纹曲面和边界曲面的功能和限制？
2、对用VBA程序添加的对象，如代码中的圆弧，怎样用代码识别和对其进行操作？！如删除、复制、特性、端点编辑、多义线段转化等！是通过ObjectID吗（其实本人觉得CAD中的快速选择应该可以通过ObjectID来选择，因为ObjectID是唯一的，这样在某些情况对Object的选择就方便多了！）？

窗体代码：
Private Sub CommandButton1_Click()'按钮点击
      Dim CENPoint(0 To 2) As Double'定义坐标数组变量
      CENPoint(0) = Val(TextBox2.Text)'获取坐标数组X数值
      CENPoint(1) = Val(TextBox3.Text)'获取坐标数组Y数值
      CENPoint(2) = Val(TextBox4.Text)'获取坐标数组Z数值
      Dim OB As Object'进一步开发用，暂时可要可不要
      Set OB = ThisDrawing.ModelSpace.AddArc(CENPoint, Val(TextBox1.Text), Val(TextBox5.Text), Val(TextBox6.Text))'画圆弧
ZoomAll'显示全部
End Sub

Private Sub ScrollBar1_Change()'滚动条变化
TextBox1.Text = 10 + ScrollBar1.Value'改变半径
End Sub

模块（或全局也可）代码
Public Sub INI()'显示窗体
UserForm1.Show
End Sub

我发的其他帖子：
[求助]：怎样把3D空间中任意延伸、扭曲的样条曲线分解成一段段圆弧的方法、方案或者算法？
http://www.xdcad.net/forum/showthread.php?s=&threadid=331003
这个盖子的3D实体模型该怎样建？
http://www.xdcad.net/forum/showthread.php?s=&threadid=330275
从CAD的缺点认识CAD！
http://www.xdcad.net/forum/showthread.php?s=&threadid=327698
大家都来谈谈喜欢AUTOCAD的理由！
http://www.xdcad.net/forum/showthread.php?s=&threadid=324420
喜欢挑战难度吗？
http://www.xdcad.net/forum/showthread.php?s=&threadid=229861
一个拉伸练习题
http://www.xdcad.net/forum/showthread.php?s=&threadid=229056
天圆地方再讨论
http://www.xdcad.net/forum/showthread.php?s=&threadid=226558
怎样才能制作高跟鞋的实体啊?(
http://www.xdcad.net/forum/showthread.php?s=&threadid=225929