绘制垂直线wi
嗨！我必须从A点和B点画一条弧中的垂直线。
此处为说明性图纸：
h t p://kepfeltoltes。胡/100316/pelda_www.kepfeltoltes。胡。巴布亚新几内亚
我应该使用AutoCAD宏（使用VBA，而不是Lisp）绘制绿线。
A和B点和多段线是已知的。
有人能帮他解决问题吗？
谢谢你的回答！
（对不起，因为英语知识薄弱） Serach论坛在这里为“垂直”“batter”提供了大量代码示例VBA和Lisp
否则，分解多段线并选择在代码方面更容易处理的对象。
不幸的是，我没有找到类似的例子，如何画一条垂直于弧的线。
这上面不存在某种数学公式吗？AutoCAD以某种方式找出了垂直线端点的位置。 只有当直线穿过或延伸到中心点时，直线才能与圆弧垂直。
因此，您需要找到特定中心点的弧细节，然后从该点运行一条线，并延伸以查看它是否击中弧。您需要检查投影线的角度是否在起始角和终止角范围内，如果是这样，则只需从中心以新角度绘制一条线作为半径距离，这会产生“lastpoint”擦除线，现在从您的点到lastpoint绘制线 再看一点，从你的帖子下面几行找到这个
http://www.cadtutor.net/forum/showthread.php?t=45876
谢谢这是有用的帮助！弧中心的连接柱是在他的基础上找到的，所以实际上是他的垂直线向量。如何定义垂直线和多段线（圆弧）的交点？
实际上，在中心点和指定点之间，需要将绘制的线延伸到多段线。可能的话，如果可以用EXTRUDE命令解决这个问题，我怎么用VBA呢？
谢谢你的回答！ 下面是一些vba代码，用于计算圆弧与另一个对象之间的交点，这种情况下是多段线
设置arcobj=ThisDrawing。模型空间。AddArc（vertPt、cRad、endang、startang）
这将创建一个弧，在您的情况下，您将知道弧的详细信息，因此“arcobj”
可能会把这样的东西改成一条从中心到你的点的线
此图纸。公用事业GetEntity oPoly、snapPt、vbCr和“选择多段线：”
retval2=arcobj。相交（oPoly，acExtendOtherEntity）
这扩展了一条线etc并返回retval2，如果为零，则未命中的线else返回点。
希望这有帮助
非常感谢，效果很好，我能够定义垂直线的所有数据。另一方面，我还有一个“小”问题：
假设M是垂直线与多段线相交的点。例如圆弧。给出了该点的坐标。我想在这个点上打断多段线，两段就这样出现了。我需要这些部分的长度。
我在VBA中的任何地方都没有找到断点命令。
你能解决这个问题吗？
非常感谢。
页:
[1]