VBA线交点2线
你好我试图在VBA中编写一个函数，计算将两条直线和它们之间的一个圆平分的最短连续线。我可以在VBA中计算线长度和夹角，但无法计算出其他位。
https://www.cadtutor.net/forum/attachment.php?attachmentid=54746&cid=1&stc=1
非常感谢
您可以在VBA中使用intersectwith以一个角度绘制一条线，然后以一个小角度缓慢迭代，直到得到答案
'an example you will need to do twice two lines and a temporary line
Set arcobj = Thisspace.AddArc(vertPt, cRad, endang, startang)
retval2 = arcobj.IntersectWith(oPoly, acExtendOtherEntity)
页:
[1]