[讨论]：一个不懂CAD的人给我提出的问题？大家来看看~~

chashiyang

　他问我怎样把一个圆平均分成若干份，请大虾们多提出一些新的方法！！

xzg_hello

使用div命令

efan2000

我编了一段程序，如下：

2. 
   
3. [FONT=courier new]
   
4. Sub Main()
   
5.     Dim EntObj As AcadEntity
   
6.     Dim pPt As Variant
   
7.     Dim n As Long
   
8.     Dim Pt  As Variant
   
9.     Dim i As Integer
   
10.         
    
11.     On Error GoTo ErrTrap
    
12.     ThisDrawing.Utility.GetEntity EntObj, pPt, "指定圆: "
    
13.     If EntObj Is Nothing Then Exit Sub
    
14.     If StrComp(EntObj.ObjectName, "AcDbCircle", vbTextCompare) = 0 Then
    
15.         n = ThisDrawing.Utility.GetInteger("指定份数: ")
    
16.         If n <= 1 Then Exit Sub
    
17.         For i = 1 To n
    
18.             Pt = ThisDrawing.Utility.PolarPoint(EntObj.Center, i * 2 * 3.1415926 / n, EntObj.Radius)
    
19.             ThisDrawing.ModelSpace.AddLine EntObj.Center, Pt
    
20.         Next
    
21.     End If
    
22.     Set EntObj = Nothing
    
23.     Exit Sub
    
24.    
    
25. ErrTrap:
    
26.     If ThisDrawing.GetVariable("errno") = 7 Then
    
27.         Err.Clear
    
28.         Resume
    
29.     End If
    
30.     If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    
31.     On Error GoTo 0
    
32. End Sub
    
33. [/FONT]

<br /> [FONT=courier new]<br /> Sub Main()<br />     Dim EntObj As AcadEntity<br />     Dim pPt As Variant<br />     Dim n As Long<br />     Dim Pt  As Variant<br />     Dim i As Integer<br />         <br />     On Error GoTo ErrTrap<br />     ThisDrawing.Utility.GetEntity EntObj, pPt, "指定圆: "<br />     If EntObj Is Nothing Then Exit Sub<br />     If StrComp(EntObj.ObjectName, "AcDbCircle", vbTextCompare) = 0 Then<br />         n = ThisDrawing.Utility.GetInteger("指定份数: ")<br />         If n <= 1 Then Exit Sub<br />         For i = 1 To n<br />             Pt = ThisDrawing.Utility.PolarPoint(EntObj.Center, i * 2 * 3.1415926 / n, EntObj.Radius)<br />             ThisDrawing.ModelSpace.AddLine EntObj.Center, Pt<br />         Next<br />     End If<br />     Set EntObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     If ThisDrawing.GetVariable("errno") = 7 Then<br />         Err.Clear<br />         Resume<br />     End If<br />     If Not (EntObj Is Nothing) Then Set EntObj = Nothing<br />     On Error GoTo 0<br /> End Sub<br /> [/FONT]

feixu

用DIV命令很好用的，等分后框选一下可以看见等分点。

alim

最初由 feixu 发布
用DIV命令很好用的，等分后框选一下可以看见等分点。

你可以先定义点样式呀。

caibaobao

还可以用画多边形的方法来将圆等划分为N段的呀！！！

caibaobao

还有其他方法，但是，还是用上述方法管用，你还可以决定使用内接还是外切圆呢！

ymmy

请问 efan2000 写的程序该如何使用？谢谢

XDSoft

最初由 chashiyang 发布
[B]可是我移动圆后，N个点在原地，圆还是一个整体，该怎样解决~~~ [/B]

你要 一段段弧线吗？ 可以交互，从那些点断开（BREAK）园。

chashiyang

谢谢晓东，真是简单，我的脑袋不够灵活~~

znx

请问各位，我在图中写中文时，不知为什么不能使用windows中的字体。

高山

最初由 chashiyang 发布
[B]可是我移动圆后，N个点在原地，圆还是一个整体，该怎样解决~~~ [/B]

:9
原来你是想将圆分断成若干等份，其实大家都说了，我用另一种思维方式（旋转阵列）把它归纳集中如下：
1、画一直线（一端在圆心，另一端在圆外），选中该直线
2、用array命令如下：
命令: _array 找到 1 个
输入阵列类型 [矩形(R)/环形(P)] <R>: p
指定阵列中心点:（选圆心点）
输入阵列中项目的数目: 30（即N等份）
指定填充角度 (+=逆时针，-=顺时针) <360>:
是否旋转阵列中的对象？[是(Y)/否(N)] <Y>: y
3、将对象捕捉只设置为交点，即X方式。
4、使用打断命令BREAK，输入该命令后提示选对象时，选中直线和圆的交叉点，第二点选相邻的交叉点，则打断了两点，重复如此即可
5、最后将直线删除就OK了

chashiyang

思路多多，开阔视野

syb106

用阵列也行

XDSoft

最初由 syb106 发布
[B]用阵列也行 [/B]

给大家说说用阵列的方法吧。