绘制垂直线wi

SZLMCL · 发表于 2022-7-6 11:31:30

嗨！

我必须从A点和B点画一条弧中的垂直线。
此处为说明性图纸：

h t p://kepfeltoltes。胡/100316/pelda_www.kepfeltoltes。胡。巴布亚新几内亚

我应该使用AutoCAD宏（使用VBA，而不是Lisp）绘制绿线。
A和B点和多段线是已知的。
有人能帮他解决问题吗？
谢谢你的回答！
（对不起，因为英语知识薄弱）

BIGAL · 发表于 2022-7-6 11:48:07

Serach论坛在这里为“垂直”“batter”提供了大量代码示例VBA和Lisp

否则，分解多段线并选择在代码方面更容易处理的对象。

SZLMCL · 发表于 2022-7-6 11:52:51

不幸的是，我没有找到类似的例子，如何画一条垂直于弧的线。

这上面不存在某种数学公式吗？AutoCAD以某种方式找出了垂直线端点的位置。

BIGAL · 发表于 2022-7-6 12:01:59

只有当直线穿过或延伸到中心点时，直线才能与圆弧垂直。

因此，您需要找到特定中心点的弧细节，然后从该点运行一条线，并延伸以查看它是否击中弧。您需要检查投影线的角度是否在起始角和终止角范围内，如果是这样，则只需从中心以新角度绘制一条线作为半径距离，这会产生“lastpoint”擦除线，现在从您的点到lastpoint绘制线

BIGAL · 发表于 2022-7-6 12:08:05

再看一点，从你的帖子下面几行找到这个

http://www.cadtutor.net/forum/showthread.php?t=45876

SZLMCL · 发表于 2022-7-6 12:19:04

谢谢这是有用的帮助！弧中心的连接柱是在他的基础上找到的，所以实际上是他的垂直线向量。如何定义垂直线和多段线（圆弧）的交点？

实际上，在中心点和指定点之间，需要将绘制的线延伸到多段线。可能的话，如果可以用EXTRUDE命令解决这个问题，我怎么用VBA呢？

谢谢你的回答！

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

下面是一些vba代码，用于计算圆弧与另一个对象之间的交点，这种情况下是多段线

设置arcobj=ThisDrawing。模型空间。AddArc（vertPt、cRad、endang、startang）

这将创建一个弧，在您的情况下，您将知道弧的详细信息，因此“arcobj”

可能会把这样的东西改成一条从中心到你的点的线

此图纸。公用事业GetEntity oPoly、snapPt、vbCr和“选择多段线：”

retval2=arcobj。相交（oPoly，acExtendOtherEntity）

这扩展了一条线etc并返回retval2，如果为零，则未命中的线else返回点。

希望这有帮助

SZLMCL · 发表于 2022-7-6 12:37:54

非常感谢，效果很好，我能够定义垂直线的所有数据。另一方面，我还有一个“小”问题：

假设M是垂直线与多段线相交的点。例如圆弧。给出了该点的坐标。我想在这个点上打断多段线，两段就这样出现了。我需要这些部分的长度。
我在VBA中的任何地方都没有找到断点命令。

你能解决这个问题吗？

非常感谢。

[编程交流] 绘制垂直线wi

发表回复

精选推荐