小弟请教圆转化为多段线的方法——在线静等ing

bob_0377

1、如何把圆和圆弧转化为多段线？（因为我在做的课题中遇到圆和圆弧进不了我们的专用地理信息系统的分析软件，要在转化为线段才行。 ）

2、vba里面有没有这样的函数，我不想在cad里面手工操作，最好是批处理

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_setbulge.htm[/WEB]

xyp1964

命令：2pl

wyj7485

圆弧可以直接转换为多段线,圆可以用正多边形代替.

已知圆心和半径,用polygon就可以转换,在VBA中用sendcommand

usercoolbo

源代码能贴出来看看吗

zzyong00

2. Sub Example()
3. Dim objArc As AcadArc
4. Dim objSset As AcadSelectionSet
5. ThisDrawing.SelectionSets("S1").Delete
6. Set objSset = ThisDrawing.SelectionSets.Add("S1")
7. objSset.SelectOnScreen
8. If objSset.Item(0).ObjectName <> "AcDbArc" Then Exit Sub
9. Set objArc = objSset.Item(0)
10. Dim p1, p2, points(3) As Double
11. p1 = objArc.StartPoint
12. p2 = objArc.EndPoint
13. points(0) = p1(0)
14. points(1) = p1(1)
15. points(2) = p2(0)
16. points(3) = p2(1)
17. Dim plineObj As AcadLWPolyline
18. Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
19. Dim currentBulge As Double
20. currentBulge = plineObj.GetBulge(0)
21. Debug.Print currentBulge
22. plineObj.SetBulge 0, Tan((objArc.EndAngle - objArc.StartAngle) / 4)
23. plineObj.Update
24. ZoomAll
25. End Sub

Sub Example() Dim objArc As AcadArc Dim objSset As AcadSelectionSet ThisDrawing.SelectionSets("S1").Delete Set objSset = ThisDrawing.SelectionSets.Add("S1") objSset.SelectOnScreen If objSset.Item(0).ObjectName <> "AcDbArc" Then Exit Sub Set objArc = objSset.Item(0) Dim p1, p2, points(3) As Double p1 = objArc.StartPoint p2 = objArc.EndPoint points(0) = p1(0) points(1) = p1(1) points(2) = p2(0) points(3) = p2(1) Dim plineObj As AcadLWPolyline Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) Dim currentBulge As Double currentBulge = plineObj.GetBulge(0) Debug.Print currentBulge plineObj.SetBulge 0, Tan((objArc.EndAngle - objArc.StartAngle) / 4) plineObj.Update ZoomAll End Sub

zzyong00

以上为圆弧转化为PL线的方法

圆就好办了，楼主自己想想

zhaoguo

把圆用break打断就成了pline