VBA线交点2线

gerrymott · 发表于 2022-7-6 21:59:09

你好

我试图在VBA中编写一个函数，计算将两条直线和它们之间的一个圆平分的最短连续线。我可以在VBA中计算线长度和夹角，但无法计算出其他位。

登录/注册后可看大图

非常感谢

BIGAL · 发表于 2022-7-6 23:43:12

您可以在VBA中使用intersectwith以一个角度绘制一条线，然后以一个小角度缓慢迭代，直到得到答案

copy


'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)

[编程交流] VBA线交点2线

发表回复

精选推荐