azjmjsj 发表于 2007-11-8 22:03:00

[求助]vba如何编程实现圆弧与直线倒圆角？

<p>用以下代码可顺利实现直线与直线间倒圆角</p><p>ThisDrawing.SendCommand "_.fillet" &amp; vbCr &amp; "r" &amp; vbCr &amp;&nbsp;"0.5" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; ss(0).Handle &amp; Chr(34) &amp; ")" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; ss(1).Handle &amp; Chr(34) &amp; ")" &amp; vbCr</p><p>同样用下列代码在圆弧与直线间倒圆角时，却老时不合适？</p><p>ThisDrawing.SendCommand "_.fillet" &amp; vbCr &amp; "r" &amp; vbCr &amp;&nbsp;"0.8" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; arc(0).Handle &amp; Chr(34) &amp; ")" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; line(1).Handle &amp; Chr(34) &amp; ")" &amp; vbCr</p><p>那位高手遇到过此类问题，请说一下原因和解决方法，万分感谢！！！</p>

azjmjsj 发表于 2007-11-10 19:32:00

问题已解决！！

兰州人 发表于 2007-11-16 23:01:00

<p>ThisDrawing.SendCommand "_.fillet" &amp; vbCr &amp; "r" &amp; vbCr &amp;&nbsp;"0.8" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; arc(0).Handle &amp; Chr(34) &amp; ")" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; line(1).Handle &amp; Chr(34) &amp; ")" &amp; vbCr</p><p>圆弧与直线间倒圆角我还没遇到过。</p>

azjmjsj 发表于 2007-11-16 23:11:00

<p>用SendCommand可实现圆弧与直线间倒圆角，我主要用于参数化绘图。</p><p>对于工厂的尺寸大小不同的同一类图纸，可把尺寸值作为输入值，用VBA绘制图形，</p><p>省时方便。</p><p>我也在兰州工作，欢迎交流. azjmjsj@126.com</p><p></p>
页: [1]
查看完整版本: [求助]vba如何编程实现圆弧与直线倒圆角？