为什么这两个点会用不同的坐标转换矩阵？

ywlm

注释中第一个矩阵和第二个矩阵必须选择代码中的转换矩阵才行，如果两个都选ed.CurrentUserCoordinateSystem或都选Matrix3d.Identity就不行，这是为什么？

1.     ''' <summary>
   
2.     ''' 由起点和中点绘制直线
   
3.     ''' </summary>
   
4.     ''' <remarks></remarks>
   
5.     Public Class DrawJig_Line
   
6.         Inherits DrawJig
   
7.         Private ent As Line
   
8.         Private sPt As Point3d
   
9.         Private ePt As Point3d
   
10.         Private funCount As Integer = 1
    
11.         <CommandMethod("ll")> _
    
12.         Sub DrawLine()
    
13.             Dim optFirstPoint As New PromptPointOptions(vbCrLf & "指定中点 或<指定端点>:")
    
14.             With optFirstPoint
    
15.                 .AllowNone = True
    
16.             End With
    
17.             Dim resFirstPoint As PromptPointResult = ed.GetPoint(optFirstPoint)
    
18.             If resFirstPoint.Status = PromptStatus.None Then
    
19.                 optFirstPoint.Message = "指定端点:"
    
20.                 resFirstPoint = ed.GetPoint(optFirstPoint)
    
21.                 funCount = 2
    
22.             End If
    
23.             If resFirstPoint.Status <> PromptStatus.OK Then Return
    
24.             sPt = resFirstPoint.Value
    
25.             sPt = sPt.TransformBy(ed.CurrentUserCoordinateSystem)'===第一个矩阵===
    
26.             ePt = sPt
    
27.             ent = New Line(sPt, ePt)
    
28. 
    
29.             Dim resJigPoint As PromptResult = ed.Drag(Me)
    
30.             If resJigPoint.Status = PromptStatus.OK Then
    
31.                 AppendEntity(ent)
    
32.             End If
    
33.             ent.Dispose()
    
34.             funCount = 1
    
35.         End Sub
    
36. 
    
37.         Protected Overrides Function Sampler(ByVal prompts As Autodesk.AutoCAD.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus
    
38.             Dim Message As String = IIf(funCount = 1, "指定端点:", "指定中点:")
    
39.             Dim optJigPoint As New JigPromptPointOptions(vbCrLf & Message)
    
40.             With optJigPoint
    
41.                 .BasePoint = sPt
    
42.                 .UseBasePoint = True
    
43.                 .UserInputControls = UserInputControls.Accept3dCoordinates
    
44.             End With
    
45.             Dim resJigPoint As PromptPointResult = prompts.AcquirePoint(optJigPoint)
    
46.             If resJigPoint.Status <> PromptStatus.OK Then Return SamplerStatus.Cancel
    
47.             ePt = resJigPoint.Value
    
48.             ePt = ePt.TransformBy(Matrix3d.Identity)'===第二个矩阵===
    
49. 
    
50.             If sPt = ePt Then Return SamplerStatus.NoChange
    
51.             If funCount = 1 Then
    
52.                 ent.EndPoint = ePt
    
53.                 ent.StartPoint = sPt + (sPt - ePt)
    
54.             Else
    
55.                 ent.StartPoint = sPt
    
56.                 ent.EndPoint = sPt + 2 * (ePt - sPt)
    
57.             End If
    
58.             Return SamplerStatus.OK
    
59.         End Function
    
60. 
    
61.         Protected Overrides Function WorldDraw(ByVal draw As Autodesk.AutoCAD.GraphicsInterface.WorldDraw) As Boolean
    
62.             draw.Geometry.Draw(ent)
    
63.             Return True
    
64.         End Function
    
65.     End Class

    ''' <summary><br />     ''' 由起点和中点绘制直线<br />     ''' </summary><br />     ''' <remarks></remarks><br />     Public Class DrawJig_Line<br />         Inherits DrawJig<br />         Private ent As Line<br />         Private sPt As Point3d<br />         Private ePt As Point3d<br />         Private funCount As Integer = 1<br />         <CommandMethod("ll")> _<br />         Sub DrawLine()<br />             Dim optFirstPoint As New PromptPointOptions(vbCrLf & "指定中点 或<指定端点>:")<br />             With optFirstPoint<br />                 .AllowNone = True<br />             End With<br />             Dim resFirstPoint As PromptPointResult = ed.GetPoint(optFirstPoint)<br />             If resFirstPoint.Status = PromptStatus.None Then<br />                 optFirstPoint.Message = "指定端点:"<br />                 resFirstPoint = ed.GetPoint(optFirstPoint)<br />                 funCount = 2<br />             End If<br />             If resFirstPoint.Status <> PromptStatus.OK Then Return<br />             sPt = resFirstPoint.Value<br />             sPt = sPt.TransformBy(ed.CurrentUserCoordinateSystem)'===第一个矩阵===<br />             ePt = sPt<br />             ent = New Line(sPt, ePt)<br /> <br />             Dim resJigPoint As PromptResult = ed.Drag(Me)<br />             If resJigPoint.Status = PromptStatus.OK Then<br />                 AppendEntity(ent)<br />             End If<br />             ent.Dispose()<br />             funCount = 1<br />         End Sub<br /> <br />         Protected Overrides Function Sampler(ByVal prompts As Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus<br />             Dim Message As String = IIf(funCount = 1, "指定端点:", "指定中点:")<br />             Dim optJigPoint As New JigPromptPointOptions(vbCrLf & Message)<br />             With optJigPoint<br />                 .BasePoint = sPt<br />                 .UseBasePoint = True<br />                 .UserInputControls = UserInputControls.Accept3dCoordinates<br />             End With<br />             Dim resJigPoint As PromptPointResult = prompts.AcquirePoint(optJigPoint)<br />             If resJigPoint.Status <> PromptStatus.OK Then Return SamplerStatus.Cancel<br />             ePt = resJigPoint.Value<br />             ePt = ePt.TransformBy(Matrix3d.Identity)'===第二个矩阵===<br /> <br />             If sPt = ePt Then Return SamplerStatus.NoChange<br />             If funCount = 1 Then<br />                 ent.EndPoint = ePt<br />                 ent.StartPoint = sPt + (sPt - ePt)<br />             Else<br />                 ent.StartPoint = sPt<br />                 ent.EndPoint = sPt + 2 * (ePt - sPt)<br />             End If<br />             Return SamplerStatus.OK<br />         End Function<br /> <br />         Protected Overrides Function WorldDraw(ByVal draw As Autodesk.AutoCAD.GraphicsInterface.WorldDraw) As Boolean<br />             draw.Geometry.Draw(ent)<br />             Return True<br />         End Function<br />     End Class

ywlm

原来第二个矩阵处的这行代码可以取消，没意义的。
是否可以这样理解：ed.GetPoint获得的是UCS坐标，而prompts.AcquirePoint获得的是WCS坐标？