当平移直线后，怎样通过VBA得到平移的距离?

翔羽

求救：当在AutoCAD中选择一条直线后，运行move命令后，怎样通过VBA立即获取它移动的距离，移动后起点，端点坐标？

ljpnb

我对VBA不太熟悉，所以试着写了一个，请大家指正 Sub move_line()
Dim lineobj As AcadLine
Dim lineobj1 As AcadLine
Dim point_1 As Variant
Dim point_2 As Variant
Dim length As Double
Dim aa As String, bb As String ThisDrawing.Utility.GetEntity lineobj, pt, "选择要移动的直线:"
point_1 = ThisDrawing.Utility.GetPoint(, "输入基准点:")
point_2 = ThisDrawing.Utility.GetPoint(, "输入第二点:")
lineobj.Move point_1, point_2
aa = Str(lineobj.StartPoint(0)) + "," + Str(lineobj.StartPoint(1)) + "," + Str(lineobj.StartPoint(2))
bb = Str(lineobj.EndPoint(0)) + "," + Str(lineobj.EndPoint(1)) + "," + Str(lineobj.EndPoint(2))
ThisDrawing.Regen acAllViewports
Set lineobj1 = ThisDrawing.ModelSpace.AddLine(point_1, point_2)
length = lineobj.length
lineobj1.Delete
MsgBox "移动长度为: " & length & vbCrLf & "起点坐标为:" & aa & vbCrLf & "终点坐标为:" & bb End Sub

翔羽

谢谢~~

caizhiming

请教版主：


怎样用VBA选择多线段，并显示多线段的面积？


谢谢！！

bolow

怎样用VBA选择多线段，并显示多线段的面积？


选择就是选择一个entity         然后重新赋值给polyline


面积就是area属性