不好意思,又要麻烦大家!

秋叶无痕 · 发表于 2004-7-8 10:46:00

画一张图纸,上面有很多重复相同的圆.确定每个圆的圆心位置、直径后手动画上去，我想用VBA编一个输入圆心位置，直径然后点击一下按钮就行了。不知我的问题是不是很笼统.不知道能不能这样子做的。

不好意思,我是初学.麻烦大家了.

h_lon · 发表于 2004-7-9 11:33:00

当然可以实现。 Dim yuan As AcadCircle .....
Set yuan = ThisDrawing.ModelSpace.AddCircle(Center, Radius) .....

h_lon · 发表于 2004-7-9 11:36:00

cad帮助有详细说明并附有例子。看看就明白了。

秋叶无痕 · 发表于 2004-7-9 11:47:00

关键是现在不会看帮助文件,可能还未入书门吧!

hillak · 发表于 2004-7-10 09:05:00

在CAD下按F1键，就出来帮助界面

输入关键字查找即可§！

不过，有例子么 ?

秋叶无痕 · 发表于 2004-7-10 10:01:00

没有例子啊.

莫名 · 发表于 2004-7-10 18:36:00

Dim Var As Variant, r As Double '------------------
Var = ThisDrawing.Utility.GetPoint(, vbCr & "输入或点取圆心坐标:")
r = ThisDrawing.Utility.GetReal(vbCr & "输入圆的半径:")
ThisDrawing.ModelSpace.AddCircle Var, r

上面的代码依据圆的个数循环执行。

账号		自动登录	找回密码
密码			注册