Question

autocad中,如何过一个线段的端点作这个线段的垂线呢?

已知线段AC,如何快速过C点作CE垂直于AC呀?
我是先过D点作垂直于AC的直线,交AC于B点,然后
平移线段BD使得BD过C点.

如图所示

但是我觉得这个办法太慢了,有没有快的办法,也就是直接从
C点作AC的垂线,我觉得最好能编制一个命令来完成这个问题

Answer 1

我画图的时候，喜欢打开极轴，

使用r旋转命令的时候，下面有个提示，输入c，是旋转的同时复制，

这个方法很方便啊

编制命令，我 有个更厉害的，过空间一点做直线的直线，不仅在平面，在三维中都能做到

追问

能把你说的一步一步说吗?你的跨度似乎有点大,以致于我没试验出来.对了,能够控制CE的大小吗?
我想控制CE的大小,比如CE=500

追答

这与大小没有关系啊，
打开极轴
输入旋转命令
选择直线
选择旋转点
按照命令行的提示 输入c
移动鼠标，当极轴提示正好是90度的时候确定就可以了

说起来感觉步骤很多

追问

编制命令，我 有个更厉害的，过空间一点做直线的直线，不仅在平面，在三维中都能做到 .能把你的那个命令贴出来吗?你的旋转的命令是rotate吗?我怎么感觉不行,也许是我的autocad的版本的问题,我的是2004

追答

是啊，我用的2008，老版本很久没用了，不知道能不能
我的命令是我vba写的代码，

追问

哦,看来我遇见牛人了,那麻烦您把您的代码贴上来让我观摩一下吧,先谢谢了

追答

'空间一点到线的垂线
' www.tiancao.net
' 田草博客
' tiancao1001@126.com
Sub P2Line()
On Error Resume Next
Dim P1 As Variant, P2 As Variant, P3 As Variant
ThisDrawing.Utility.InitializeUserInput 1, ""
P1 = ThisDrawing.Utility.GetPoint(, "直线上的第一点：")
ThisDrawing.Utility.InitializeUserInput 1, ""
P2 = ThisDrawing.Utility.GetPoint(, "直线上的第二点：")
ThisDrawing.Utility.InitializeUserInput 1, ""
P3 = ThisDrawing.Utility.GetPoint(, "空间一点：")
'如果三点在一条直线上,则垂足就是P3点。
'直线P1-P2的向量{M(0),M(1),M(2)}
Dim M(5) As Double
M(0) = P2(0) - P1(0)
M(1) = P2(1) - P1(1)
M(2) = P2(2) - P1(2)
'直线P2-P3的向量{M(3),M(4),M(5)}
M(3) = P2(0) - P3(0)
M(4) = P2(1) - P3(1)
M(5) = P2(2) - P3(2)

Dim T As Double
T = -(M(0) * M(3) + M(1) * M(4) + M(2) * M(5)) / (M(0) ^ 2 + M(1) ^ 2 + M(2) ^ 2)
'垂足
Dim P4(2) As Double
P4(0) = M(0) * T + P2(0)
P4(1) = M(1) * T + P2(1)
P4(2) = M(2) * T + P2(2)

ThisDrawing.ModelSpace.AddPoint P4
ThisDrawing.ModelSpace.AddLine P3, P4
ThisDrawing.SetVariable "PDMODE", 35
End Sub

Answer 2

以前版本我不清楚，现在版本有点不一样
画直线的末端十字光标附近会有一个显示，垂足字样，就可以画
其你那种方法也不麻烦呢，点一下原来那线，会有夹点，拉过去就可以