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

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

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">画一张图纸<FONT face="Times New Roman">,</FONT>上面有很多重复相同的圆<FONT face="Times New Roman">.</FONT>确定每个圆的圆心位置、直径后手动画上去，我想用<FONT face="Times New Roman">VBA</FONT>编一个输入圆心位置，直径然后点击一下按钮就行了。不知我的问题是不是很笼统<FONT face="Times New Roman">.</FONT>不知道能不能这样子做的。


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">不好意思,我是初学.麻烦大家了.

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

当然可以实现。


Dim yuan As AcadCircle


.....<BR>Set yuan = ThisDrawing.ModelSpace.AddCircle(Center, Radius)


.....


<BR>

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

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%">
Dim Var As Variant, r As Double


'------------------<BR>Var = ThisDrawing.Utility.GetPoint(, vbCr &amp; "输入或点取圆心坐标:")<BR>r = ThisDrawing.Utility.GetReal(vbCr &amp; "输入圆的半径:")<BR>ThisDrawing.ModelSpace.AddCircle Var, r

</TD></TR></TBODY></TABLE>
       


上面的代码依据圆的个数循环执行。
页: [1]
查看完整版本: 不好意思,又要麻烦大家!