一般直线转变成多端线

chonglang · 发表于 2005-7-14 18:19:00

在vba中如何将一般直线转变成多端线？谢谢指点

sharksun · 发表于 2005-7-14 20:08:00

获取startpoint endpoint,
然后delete line
再addpolyline不行么?

chonglang · 发表于 2005-7-17 15:23:00

这个可以，还有圆弧怎么办？就是在平面内由直线和圆弧组成的怎么变成多段线？

fanny_6 · 发表于 2005-7-17 15:43:00

圆弧本来就是多段线

chonglang · 发表于 2005-7-18 00:21:00

我现在是想把连在一起的直线和圆弧合并成一条多段线，可行否？

fanny_6 · 发表于 2005-7-18 08:45:00

如果是封闭的可以用

ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr

获得边界

这样最快

如果不是封闭的想不到好办法

我觉得可以加辅助线，使之封闭，在去掉辅助线和原先的线

wyj7485 · 发表于 2005-7-18 08:56:00

直接用SendCommand 就可以

Sub Pline()
On Error Resume Next
Dim sset As AcadSelectionSet

ThisDrawing.SelectionSets.Item("LineSet").Delete
Set sset = ThisDrawing.SelectionSets.Add("LineSet")

sset.SelectOnScreen

ThisDrawing.SendCommand "_pedit" & vbCr & "M" & vbCr & _
"p" & vbCr & vbCr & "Y" & vbCr & "J" & _
vbCr & vbCr & vbCr

End Sub

chonglang · 发表于 2005-7-20 10:27:00

非常感谢大家

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