[讨论]：一个不懂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命令很好用的，等分后框选一下可以看见等分点。

lijiao

改变一下点的样式，即可一目了然。

清风明月10

谢谢3楼楼主的奉献！