练习 Lisp定义矩阵

csharp

1.         //Matrix3d 转换为 ResultBuffer
   
2.         static ResultBuffer Matrix3dToesultBuffer(Matrix3d matrix3D)
   
3.         {
   
4.             ResultBuffer result = new ResultBuffer();
   
5.             Double [] arrays = matrix3D.ToArray();
   
6.             int count = 0;
   
7.             result.Add(new TypedValue((int)LispDataType.ListBegin));
   
8.             for (int i = 0; i < 4; i++)
   
9.             {
   
10.                 result .Add( new TypedValue((int)LispDataType .ListBegin ));
    
11.                 for (int j = 0; j < 4; j++)
    
12.                 {
    
13.                     result.Add(new TypedValue((int)LispDataType.Double, arrays[count]));
    
14.                     count++;
    
15.                 }
    
16.                 result.Add(new TypedValue((int)LispDataType.ListEnd ));
    
17.             }
    
18.             result.Add(new TypedValue((int)LispDataType.ListEnd));
    
19.             return result;
    
20.         }
    
21.         //Wcs 到当前 Ucs 转换矩阵
    
22.         static Matrix3d GetUcsMatrix()
    
23.         {
    
24.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
25.             Matrix3d mat = ed.CurrentUserCoordinateSystem;
    
26.             return mat;
    
27.         }
    
28.         //单位矩阵
    
29.         [LispFunction("Matrix_identity")]
    
30.         public static ResultBuffer MatrixIdEntity(ResultBuffer rb)
    
31.         {
    
32.             Matrix3d matrix3D = new Matrix3d();
    
33.             matrix3D = Matrix3d.Identity;
    
34.             return Matrix3dToesultBuffer(matrix3D);
    
35.         }
    
36.         //Wcs 到当前 Ucs 转换矩阵
    
37.         [LispFunction("Matrix_Wcs2Ucs")]
    
38.         public ResultBuffer MatrixWcs2Ucs(ResultBuffer rb)
    
39.         {
    
40.             Matrix3d mat = GetUcsMatrix();
    
41.             return Matrix3dToesultBuffer(mat);
    
42.         }
    
43.         //当前 Ucs 到 Wcs 转换矩阵
    
44.         [LispFunction ("Matrix_Ucs2Wcs")]
    
45.         public ResultBuffer MatrixUcs2Wcs(ResultBuffer rb)
    
46.         {
    
47.             Matrix3d mat = GetUcsMatrix();
    
48.             return Matrix3dToesultBuffer(mat.Inverse() );
    
49.         }
    

        //Matrix3d 转换为 ResultBuffer<br />         static ResultBuffer Matrix3dToesultBuffer(Matrix3d matrix3D)<br />         {<br />             ResultBuffer result = new ResultBuffer();<br />             Double [] arrays = matrix3D.ToArray();<br />             int count = 0;<br />             result.Add(new TypedValue((int)LispDataType.ListBegin));<br />             for (int i = 0; i < 4; i++)<br />             {<br />                 result .Add( new TypedValue((int)LispDataType .ListBegin ));<br />                 for (int j = 0; j < 4; j++)<br />                 {<br />                     result.Add(new TypedValue((int)LispDataType.Double, arrays[count]));<br />                     count++;<br />                 }<br />                 result.Add(new TypedValue((int)LispDataType.ListEnd ));<br />             }<br />             result.Add(new TypedValue((int)LispDataType.ListEnd));<br />             return result;<br />         }<br />         //Wcs 到当前 Ucs 转换矩阵<br />         static Matrix3d GetUcsMatrix()<br />         {<br />             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             Matrix3d mat = ed.CurrentUserCoordinateSystem;<br />             return mat;<br />         }<br />         //单位矩阵<br />         [LispFunction("Matrix_identity")]<br />         public static ResultBuffer MatrixIdEntity(ResultBuffer rb)<br />         {<br />             Matrix3d matrix3D = new Matrix3d();<br />             matrix3D = Matrix3d.Identity;<br />             return Matrix3dToesultBuffer(matrix3D);<br />         }<br />         //Wcs 到当前 Ucs 转换矩阵<br />         [LispFunction("Matrix_Wcs2Ucs")]<br />         public ResultBuffer MatrixWcs2Ucs(ResultBuffer rb)<br />         {<br />             Matrix3d mat = GetUcsMatrix();<br />             return Matrix3dToesultBuffer(mat);<br />         }<br />         //当前 Ucs 到 Wcs 转换矩阵<br />         [LispFunction ("Matrix_Ucs2Wcs")]<br />         public ResultBuffer MatrixUcs2Wcs(ResultBuffer rb)<br />         {<br />             Matrix3d mat = GetUcsMatrix();<br />             return Matrix3dToesultBuffer(mat.Inverse() );<br />         }<br />

命令: (matrix_ucs2wcs)
((0.763333 0.646005 0.0 -2411.89) (-0.646005 0.763333 0.0 496.264) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

命令: (matrix_wcs2ucs)
((0.763333 -0.646005 0.0 2161.66) (0.646005 0.763333 0.0 1179.28) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

命令: (matrix_identity)
((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))