StartMe 发表于 2008-11-7 20:39:00

VBA执行倒角命令的问题

<p><font face="宋体" size="2">det1 = GetDoubleEntTable(LWPineObj1, pickPt1)<br/>det2 = GetDoubleEntTable(LWPineObj2, pickPt2)<br/>ThisDrawing.SendCommand "_chamfer" &amp; vbCr &amp; "d" &amp; vbCr &amp; "0" &amp; vbCr &amp; "0" &amp; vbCr &amp; det1 &amp; vbCr &amp; det2 &amp; vbCr</font></p><p><font face="宋体" size="2">Public Function GetDoubleEntTable(ByVal EntObj As AcadEntity, ByVal pnt As Variant) As String<br/>&nbsp;&nbsp;&nbsp; Dim entHandle As String<br/>&nbsp;&nbsp;&nbsp; entHandle = EntObj.Handle<br/>&nbsp;&nbsp;&nbsp; GetDoubleEntTable = "(list(handent " &amp; Chr(34) &amp; entHandle &amp; Chr(34) &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ")(list " &amp; str(pnt(0)) &amp; str(pnt(1)) &amp; str(pnt(2)) &amp; "))"<br/>End Function<p><br/>其中pickPt为对象的拾取点。</p></font></p><p><br/>其中pickPt为对象的拾取点。</p><p><font face="宋体" size="2">当选择的两条线均为多段线时，没有延长相交后连成一条线，而是程序执行根本没有反应。而当为直线时就正常，这是困扰已久的问题。那我想在程序里像chamfer一样处理两条多段线时该怎么做？</font></p>

StartMe 发表于 2008-11-8 18:40:00

<p>能否请老大们帮忙一下，这是“顽疾”，困扰我很久了。或者有什么其他好的途径能实现同样的效果，也请告诉我。</p>

mccad 发表于 2008-11-8 21:46:00

<p>确实有问题，看来用SentCommand不能解决。</p><p>如果确实要做，只能自己计算后再画线。</p>

StartMe 发表于 2008-11-9 20:39:00

谢谢明总，知道确实不可行我就换种方法吧。
页: [1]
查看完整版本: VBA执行倒角命令的问题