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

azjmjsj

用以下代码可顺利实现直线与直线间倒圆角

ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "0.5" & vbCr & "(handent " & Chr(34) & ss(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & ss(1).Handle & Chr(34) & ")" & vbCr

同样用下列代码在圆弧与直线间倒圆角时，却老时不合适？

ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "0.8" & vbCr & "(handent " & Chr(34) & arc(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & line(1).Handle & Chr(34) & ")" & vbCr

那位高手遇到过此类问题，请说一下原因和解决方法，万分感谢！！！

azjmjsj

问题已解决！！

兰州人

ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "0.8" & vbCr & "(handent " & Chr(34) & arc(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & line(1).Handle & Chr(34) & ")" & vbCr

圆弧与直线间倒圆角我还没遇到过。

azjmjsj

用SendCommand可实现圆弧与直线间倒圆角，我主要用于参数化绘图。

对于工厂的尺寸大小不同的同一类图纸，可把尺寸值作为输入值，用VBA绘制图形，

省时方便。

我也在兰州工作，欢迎交流. azjmjsj@126.com