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

一般直线转变成多端线

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

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

<P>获取startpoint endpoint, <BR>然后delete line<BR>再addpolyline不行么?</P>

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

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

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

圆弧本来就是多段线

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

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

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

<P>如果是封闭的可以用</P>
<P>ThisDrawing.SendCommand "_-Boundary" &amp; vbCr &amp; Pt(0) &amp; "," &amp; Pt(1) &amp; vbCr &amp; vbCr</P>
<P>获得边界</P>
<P>这样最快</P>
<P>&nbsp;</P>
<P>如果不是封闭的想不到好办法</P>
<P>我觉得可以加辅助线，使之封闭，在去掉辅助线和原先的线</P>

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

<P>直接用SendCommand 就可以</P>
<P>Sub Pline()<BR>On Error Resume Next<BR>Dim sset As AcadSelectionSet</P>
<P>ThisDrawing.SelectionSets.Item("LineSet").Delete<BR>Set sset = ThisDrawing.SelectionSets.Add("LineSet")</P>
<P>sset.SelectOnScreen<BR></P>
<P>ThisDrawing.SendCommand "_pedit" &amp; vbCr &amp; "M" &amp; vbCr &amp; _<BR>"p" &amp; vbCr &amp; vbCr &amp; "Y" &amp; vbCr &amp; "J" &amp; _<BR>vbCr &amp; vbCr &amp; vbCr</P>
<P>End Sub<BR></P>

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

<P>非常感谢大家</P>
页: [1]
查看完整版本: 一般直线转变成多端线