[API应用]：[学习心得]XDAPI中几个矩阵类函数测试

eachy

XDAPI中几个矩阵类函数测试

用两个单位矩阵测试：2D和3D矩阵

_$ (setq mat2 (xdrx_matrix_identity 2))
((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
_$ (setq mat3 (xdrx_matrix_identity 3))
((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))

1 xdrx_matrix_settranslation

1. 
   
2. xdrx_matrix_SetTranslation
   
3. 
   
4. 功    能：设置一个矩阵的平移向量
   
5. 
   
6. 调用格式：(xdrx_matrix_SetTranslation <2d or 3d矩阵> <平移向量>)
   
7. 
   
8. 返 回 值：矩阵
   
9. 
   
10. 说    明： <平移向量>--对2D矩阵，是2D 向量
    
11.                        对3D矩阵, 是3D 向量

复制代码

_$ (xdrx_matrix_settranslation mat2 '(1.0 0.0))
nil
_$ (xdrx_matrix_settranslation mat2 '(0.0 0.0))
nil
_$ (xdrx_matrix_settranslation mat2 '(0.0 10.0))
nil
_$ (xdrx_matrix_settranslation mat2 '(10.0 10.0))
nil
_$ (xdrx_matrix_settranslation mat3 '(10 10 0))
nil
$ (xdrx_matrix_settranslation mat3 '(10.0 10.0 0))
((1.0 0.0 0.0 10.0) (0.0 1.0 0.0 10.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
_$ (xdrx_matrix_settranslation mat3 '(10.0 10 0))
((1.0 0.0 0.0 10.0) (0.0 1.0 0.0 10.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

结论：3D平移时第一个数必须是real，2D矩阵偏移失败。

2  xdrx_matrix_setmirror

2. 
   
3. 功    能：构造镜像矩阵
   
4. 
   
5. 调用格式：1、2D转换矩阵
   
6.                 (xdrx_matrix_setMirror <2d矩阵> <镜像点>)
   
7.                 (xdrx_matrix_setMirror <2d矩阵> <镜像线>)
   
8. 
   
9.           2、3D转换矩阵
   
10. 
    
11.                 (xdrx_matrix_setMirror <3d矩阵> <镜像点>)
    
12.                 (xdrx_matrix_setMirror <2d矩阵> <镜像线>)
    
13.                 (xdrx_matrix_setMirror <2d矩阵> <镜像面>)
    
14. 
    
15. 返 回 值：矩阵
    
16. 
    
17. 说    明：对2D矩阵，点都要给2D点。
    
18.           [镜像线]-- (线起点 线终点)
    
19.           [镜像面]-- (点1 点2 点3) 满足右手定则的时针顺序3个点表示一个平面。
    
20. 
    
21. 例子：
    
22. 
    
23. Command: !a
    
24. ((1.0 0.0 0.0 -30937.9) (0.0 1.0 0.0 -9817.43) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0)) ;矩阵
    
25. Command: !l
    
26. ((2922.82 -2479.0 0.0) (8768.45 7657.35 0.0)) ;;线
    
27. Command: (setq c (xdrx_matrix_setmirror a l)) ;;镜像
    
28. ((-0.500844 0.865537 0.0 -24405.6)
    
29. (0.865537 0.500844 0.0 -13584.6)
    
30. (0.0 0.0 -1.0 0.0)
    
31. (0.0 0.0 0.0 1.0)
    
32. )
    

<br /> 功    能：构造镜像矩阵<br /> <br /> 调用格式：1、2D转换矩阵<br />                 (xdrx_matrix_setMirror <2d矩阵> <镜像点>)<br />                 (xdrx_matrix_setMirror <2d矩阵> <镜像线>)<br /> <br />           2、3D转换矩阵<br /> <br />                 (xdrx_matrix_setMirror <3d矩阵> <镜像点>)<br />                 (xdrx_matrix_setMirror <2d矩阵> <镜像线>)<br />                 (xdrx_matrix_setMirror <2d矩阵> <镜像面>)<br /> <br /> 返 回 值：矩阵<br /> <br /> 说    明：对2D矩阵，点都要给2D点。<br />           [镜像线]-- (线起点 线终点)<br />           [镜像面]-- (点1 点2 点3) 满足右手定则的时针顺序3个点表示一个平面。<br /> <br /> 例子：<br /> <br /> Command: !a<br /> ((1.0 0.0 0.0 -30937.9) (0.0 1.0 0.0 -9817.43) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0)) ;矩阵<br /> Command: !l<br /> ((2922.82 -2479.0 0.0) (8768.45 7657.35 0.0)) ;;线<br /> Command: (setq c (xdrx_matrix_setmirror a l)) ;;镜像<br /> ((-0.500844 0.865537 0.0 -24405.6) <br /> (0.865537 0.500844 0.0 -13584.6) <br /> (0.0 0.0 -1.0 0.0) <br /> (0.0 0.0 0.0 1.0)<br /> )<br />

_$ (xdrx_matrix_setmirror mat2 '(3 2))
nil
_$ (xdrx_matrix_setmirror mat2 '(3.0 2))
nil
_$ (xdrx_matrix_setmirror mat2 '(3.0 2.0))
nil
_$ (xdrx_matrix_setmirror mat2 '(3.0 5.0) '(3.0 2.0))
nil
_$ (xdrx_matrix_setmirror mat3 '(3 5 0))
((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))
_$ (xdrx_matrix_setmirror mat2 '(3 5 0) '(3 2 0))
nil
_$ (xdrx_matrix_setmirror mat2 '(3.0 5.0 0.0) '(3.0 2.0 0.0))
nil
_$ (xdrx_matrix_setmirror mat2 '(3.0 5.0 1.0) '(3.0 2.0 0.0))
nil
_$
_$ (setq l '((3.0 5.0) (3.0 2.0)))
((3.0 5.0) (3.0 2.0))
_$ (xdrx_matrix_setmirror mat2 l)
nil
_$ (xdrx_matrix_setmirror mat3 l)
((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))
_$
为何？

3 xdrx_matrix_setRotation

1. 
   
2. xdrx_matrix_setRotation
   
3. 
   
4. 功    能：设置转换矩阵的旋转角
   
5. 
   
6. 调用格式：1、2D转换矩阵
   
7.             (xdrx_matrix_setRotation <2d矩阵> <角度弧度值> <2D基点>)
   
8. 
   
9.           2、3D转换矩阵
   
10.             (xdrx_matrix_setRotation <3d矩阵> <角度弧度值> <转轴向量> <基点>)
    
11. 
    
12. 返 回 值：旋转矩阵
    

复制代码

$ (setq mat0 (xdrx_matrix_settranslation mat3 '(30.0 20 0)))
((1.0 0.0 0.0 30.0) (0.0 1.0 0.0 20.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
_$ (xdrx_matrix_setrotation mat0 (/ pi 3) '(1.0 0.0 0.0) '(30 20 0))
((1.0 0.0 0.0 30.0) (0.0 0.5 -0.866025 30.0) (0.0 0.866025 0.5 -17.3205) (0.0 0.0 0.0 1.0))
_$ (xdrx_matrix_setrotation mat0 (/ pi 3) '(1.0 0.0 0.0) '(0 0 0))
((1.0 0.0 0.0 30.0) (0.0 0.5 -0.866025 20.0) (0.0 0.866025 0.5 0.0) (0.0 0.0 0.0 1.0))
_$
补充说明：基点是相对（xdrx_matrix_Translation matrix）的点。
应用示例：
旋转90度拷贝选择集

2. 
   
3. ($xdrx_load "xdlsp.lsp")
   
4. (defun c:test (/ matrix ss box)
   
5.   (setq ss (ssget))
   
6.   (xdrx_setsstodb ss 0)
   
7.   ;;选择集包围盒
   
8.   (setq box (xdrx_entity_box ss))
   
9.   ;;构造3D偏移矩阵－至包围盒左下角点
   
10.   (setq        matrix (xdrx_matrix_settranslation
    
11.                  (xdrx_matrix_identity 3)
    
12.                  (car box)
    
13.                )
    
14.   )
    
15.   ;;绕Z轴旋转
    
16.   (xdrx_entity_transformedcopy
    
17.     ss
    
18.     (xdrx_matrix_setrotation matrix _pi2 '(0.0 0 1.0) '(0 0 0))
    
19.   )
    
20. )
    

<br /> ($xdrx_load "xdlsp.lsp")<br /> (defun c:test (/ matrix ss box)<br />   (setq ss (ssget))<br />   (xdrx_setsstodb ss 0)<br />   ;;选择集包围盒<br />   (setq box (xdrx_entity_box ss))<br />   ;;构造3D偏移矩阵－至包围盒左下角点<br />   (setq        matrix (xdrx_matrix_settranslation<br />                  (xdrx_matrix_identity 3)<br />                  (car box)<br />                )<br />   )<br />   ;;绕Z轴旋转<br />   (xdrx_entity_transformedcopy<br />     ss<br />     (xdrx_matrix_setrotation matrix _pi2 '(0.0 0 1.0) '(0 0 0))<br />   )<br /> )<br />

路径阵列中就是在等分点间构造偏移矩阵，然后根据点的切线方向用向量求转角后构
造旋转矩阵，最后用 xdrx_entity_transformedby 构造实体（选择集）的copy。

CAD中矩阵应用不外于点的转换、实体的复制、旋转、镜像，比如在copy时传统的写法是（command “_.copy" ss "" p1 p2) 用矩阵是这样写

1. 
   
2. (xdrx_entity_transformedcopy
   
3.   ss
   
4.   (xdrx_matrix_settranslation
   
5.     (xdrx_matrix_identity 3)
   
6.     (mapcar '- p2 p1)
   
7.   )
   
8. )

复制代码

单步的操作在代码上显示不出矩阵的优势（可能速度上略快），但进行一系列的操作
时，矩阵的优势就明显了，只要用矩阵的运算（偏移、缩放、旋转、镜像）构造最终
的矩阵，然后用xdrx_entity_transform或xdrx_entity_transformedcopy作用实体。

aeo

我都贴了几个了,你才测试,骗分哪:)
关键是有xdrx_entity_transform或xdrx_entity_transformedcopy,vlisp也有transformby,但是转换矩阵好象要自己算.(还是我不知道?).
xdapi真是厉害呀.

XDSoft

最初由 aeo 发布
[B]我都贴了几个了,你才测试,骗分哪:)
关键是有xdrx_entity_transform或xdrx_entity_transformedcopy,vlisp也有transformby,但是转换矩阵好象要自己算.(还是我不知道?).
xdapi真是厉害呀. [/B]

：）

API除了对实体进行矩阵变换，提供了xdrx_entity_transform或xdrx_entity_transformedcopy，还可以对点进行变换，xdrx_point_transform，这个对写程序帮助更大，画图离不开点，灵活的构造点事半功倍。

你用XDRX_API 就是用LISP语言完成ARX的功能。习惯API后，如果学ARX，也会有帮助的。使用API的好处就是使用ARX的功能和开发思路，并且LISP代码非常短就可以完成复杂的功能。

eachy

最初由 aeo 发布
[B]我都贴了几个了,你才测试,骗分哪:)
关键是有xdrx_entity_transform或xdrx_entity_transformedcopy,vlisp也有transformby,但是转换矩阵好象要自己算.(还是我不知道?).
xdapi真是厉害呀. [/B]

我只是研究用LSP写矩阵转换，才写这些。
其中发现几个函数与手册有出入，比如setmirror，还有实数与整数区别还有其他的。

SEAGULLFLY

hao