相对于用户所选点绘制 P 线

Matersammichman · 发表于 2008-9-16 13:55:29

我使用Getpoint来识别空间中的x，y，z位置
我希望能够以用户定义的距离和角度绘制一条相对于选定点的直线（如“@23
有人知道这样做的方法吗？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Bryco · 发表于 2008-9-16 21:21:12

罪与因应该会让你达到目的

Bryco · 发表于 2008-9-16 21:57:41

Sub plineinput()
Dim p As AcadLWPolyline
Dim p1, pts(3) As Double
Dim dist As Double, ang As Double
Dim util As AcadUtility
Dim x As Double, y As Double
Set util = ThisDrawing.Utility
p1 = util.GetPoint(, "Pick")
dist = util.GetReal("Length")
ang = util.GetReal("Angle")
ang = ang * Pi / 180 'degrees TO RADIANS
x = Cos(ang) * dist
y = Sin(ang) * dist
pts(0) = p1(0): pts(1) = p1(1)
pts(2) = p1(0) + x: pts(3) = p1(1) + y
Set p = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts)
End Sub