兰州人 发表于 2007-12-21 15:31:00

SetBulge设置多段线在给定索引位置的凸度

本帖最后由 作者 于 2007-12-21 21:24:09 编辑 <br /><br /> <p class="Heading-2">SetBulge语法&nbsp;&nbsp; 来源<a href="http://www.mjtd.com/object/acad2004/idh_setbulge.htm">http://www.mjtd.com/object/acad2004/idh_setbulge.htm</a></p><p class="Heading-2">在AcadPolyline中有type项,在AcadLWPolyline无Type项</p><p class="Heading-2">在AcadLWPolyline中可以用GetBulge，获得凸度</p><p class="Heading-2">在AcadPolyline中有type项，Object.Type=0时可以用GetBulge，获得凸度。</p><p class="Bullet2">AcadLWPolyline&nbsp;的属性 -----无TYPE项<a href="http://www.mjtd.com/object/acad2004/idh_application.htm"><p class="body"></p></a></p><p class="body"></p><p class="body"></p><p class="Heading-2">在AcadPolyline&nbsp;属性 -------中有TYPE项，如果type=0 (<table class="Simple"><tbody><tr valign="top"><td><p class="constant">acSimplePoly</p></td><td><p class="constant-desc">简单多段线)</p></td></tr></tbody></table><a href="http://www.mjtd.com/object/acad2004/idh_application.htm"><p class="body"><a href="http://www.mjtd.com/object/acad2004/idh_type.htm"><p class="body">Type ----------------------------------此项是凸度的关键要素<a href="http://www.mjtd.com/object/acad2004/idh_visible.htm"></a></p></a></p></a></p><p class="body"><a href="http://www.mjtd.com/object/acad2004/idh_type.htm"><p class="body">Type ----------------------------------此项是凸度的关键要素<a href="http://www.mjtd.com/object/acad2004/idh_visible.htm"></a></p></a></p><p class="body">Type ----------------------------------此项是凸度的关键要素<a href="http://www.mjtd.com/object/acad2004/idh_visible.htm"></a></p><p class="body"></p>

兰州人 发表于 2007-12-21 16:38:00

本帖最后由 作者 于 2007-12-21 23:23:11 编辑 <br /><br /> <p>Sub ls()<br/>&nbsp; Dim Pl As AcadLWPolyline, Ppl As AcadPolyline, PpLl As AcadPolyline<br/>&nbsp; Dim Ent As AcadEntity<br/>&nbsp; Dim aa() As Double, bb() As Integer<br/>&nbsp; Dim plineObj As AcadLWPolyline<br/>&nbsp; Set Ppl = ThisDrawing.HandleToObject("87")</p><p>&nbsp;&nbsp;&nbsp; ReDim aa(0 To UBound(Ppl.Coordinates)) As Double<br/>&nbsp;&nbsp;&nbsp; For jj = 0 To UBound(Ppl.Coordinates)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aa(jj) = Ppl.Coordinates(jj)<br/>&nbsp;&nbsp;&nbsp; Next jj</p><p>&nbsp; Set PpLl = ThisDrawing.ModelSpace.AddPolyline(aa)<br/>&nbsp; PpLl.color = acRed</p><p>&nbsp; ThisDrawing.SendCommand "_Pedit" &amp; vbCr &amp; "l" &amp; vbCr &amp; "f" &amp; vbCr &amp; vbCr<br/>&nbsp; <br/>&nbsp; Debug.Print<br/>End Sub<br/></p>
页: [1]
查看完整版本: SetBulge设置多段线在给定索引位置的凸度