用矩阵旋转图元的方法，这样么写对么

newer

brainstorm 发表于 2017-9-4 21:02

1、先转到WCS坐标系 mat1
2、WCS坐标系下变换 mat2
3、结果在转回UCS坐标系 mat3

最终结果的变换矩阵= mat3 * mat2 * mat1

brainstorm

明天试试 谢谢

brainstorm

newer 发表于 2017-9-4 21:20

我试着弄了一下，不知道哪里不对，拖动时鼠标与物体是漂移的感觉帮忙看看哪里错了

1. (defun c:tt1 ()
   
2. 
   
3.   (defun mv (p)
   
4.     (if        (not (equal oldP p 1e-3))
   
5.       (progn
   
6.         (setq mat2 (xdrx_matrix_settranslation mat (mapcar '- p oldP))
   
7.               oldP p
   
8.         )
   
9.         (xdrx_entity_transform
   
10.           ss
    
11.           (xdrx_matrix_product mat3 mat2 mat1)
    
12.         )
    
13.       )
    
14.     )
    
15.     (princ (strcat "\n" (VL-PRINC-TO-STRING p)))
    
16.   )
    
17.   (setq mat (xdrx_matrix_identity 3))
    
18.   (setq ss (ssget))
    
19.   (setq        oldP  (trans (getpoint) 1 0)
    
20.         lastp (trans (getvar "lastpoint")1 0)
    
21.   )
    
22.   (setq        mat1 (xdrx_matrix_aligncoordsys
    
23.                (list (getvar "ucsorg")
    
24.                      (getvar "ucsxdir")
    
25.                      (getvar "ucsydir")
    
26.                      (xdrx_vector_CrossProduct
    
27.                        (getvar "ucsxdir")
    
28.                        (getvar "ucsydir")
    
29.                      )
    
30. 
    
31.                )
    
32.                (list
    
33.                  '(0 0 0)
    
34.                  '(1 0 0)
    
35.                  '(0 1 0)
    
36.                  '(0 0 1)
    
37.                )
    
38.              )
    
39.   )
    
40.   (setq        mat3 (xdrx_matrix_aligncoordsys
    
41.                (list
    
42.                  '(0 0 0)
    
43.                  '(1 0 0)
    
44.                  '(0 1 0)
    
45.                  '(0 0 1)
    
46.                )
    
47.                (list (getvar "ucsorg")
    
48.                      (getvar "ucsxdir")
    
49.                      (getvar "ucsydir")
    
50.                      (xdrx_vector_CrossProduct
    
51.                        (getvar "ucsxdir")
    
52.                        (getvar "ucsydir")
    
53.                      )
    
54. 
    
55.                )
    
56.              )
    
57.   )
    
58.   (xdrx_drag_jig
    
59.     "mv"
    
60.     "select point"
    
61.     ""
    
62.     (+ 2 128)
    
63.     0
    
64.     lastp
    
65.   )
    
66. )
    

(defun c:tt1 ()<br /> <br />   (defun mv (p)<br />     (if        (not (equal oldP p 1e-3))<br />       (progn<br />         (setq mat2 (xdrx_matrix_settranslation mat (mapcar '- p oldP))<br />               oldP p<br />         )<br />         (xdrx_entity_transform<br />           ss<br />           (xdrx_matrix_product mat3 mat2 mat1)<br />         )<br />       )<br />     )<br />     (princ (strcat "\n" (VL-PRINC-TO-STRING p)))<br />   )<br />   (setq mat (xdrx_matrix_identity 3))<br />   (setq ss (ssget))<br />   (setq        oldP  (trans (getpoint) 1 0)<br />         lastp (trans (getvar "lastpoint")1 0)<br />   )<br />   (setq        mat1 (xdrx_matrix_aligncoordsys<br />                (list (getvar "ucsorg")<br />                      (getvar "ucsxdir")<br />                      (getvar "ucsydir")<br />                      (xdrx_vector_CrossProduct<br />                        (getvar "ucsxdir")<br />                        (getvar "ucsydir")<br />                      )<br /> <br />                )<br />                (list<br />                  '(0 0 0)<br />                  '(1 0 0)<br />                  '(0 1 0)<br />                  '(0 0 1)<br />                )<br />              )<br />   )<br />   (setq        mat3 (xdrx_matrix_aligncoordsys<br />                (list<br />                  '(0 0 0)<br />                  '(1 0 0)<br />                  '(0 1 0)<br />                  '(0 0 1)<br />                )<br />                (list (getvar "ucsorg")<br />                      (getvar "ucsxdir")<br />                      (getvar "ucsydir")<br />                      (xdrx_vector_CrossProduct<br />                        (getvar "ucsxdir")<br />                        (getvar "ucsydir")<br />                      )<br /> <br />                )<br />              )<br />   )<br />   (xdrx_drag_jig<br />     "mv"<br />     "select point"<br />     ""<br />     (+ 2 128)<br />     0<br />     lastp<br />   )<br /> )<br />

XDSoft

brainstorm 发表于 2017-9-5 11:08

你这种应用有两个写法，你的写法，因为在回调里面使用的点是WCS的，所以就不涉及到UCS的变换了，直接用MAT2就行了。

1. (defun c:tt1 ()
   
2.   (defun mv (p)
   
3.     (if        (not (equal oldP p 1e-3))
   
4.       (progn (setq mat2        (xdrx_matrix_settranslation mat (mapcar '- p oldP))
   
5.                    oldP        p
   
6.              )
   
7.              (xdrx_entity_transform
   
8.                ss
   
9.                mat2
   
10.              )
    
11.       )
    
12.     )
    
13.   )
    
14.   (setq mat (xdrx_matrix_identity 3))
    
15.   (setq ss (ssget))
    
16.   (setq        oldP  (trans (getpoint "\n基点:") 1 0)
    
17.         lastp (trans (getvar "lastpoint") 1 0)
    
18.   )
    
19.   (xdrx_drag_jig "mv" "\nselect point:" "" (+ 2 128) 0 oldp)
    
20. )
    
21. 
    

(defun c:tt1 ()<br />   (defun mv (p)<br />     (if        (not (equal oldP p 1e-3))<br />       (progn (setq mat2        (xdrx_matrix_settranslation mat (mapcar '- p oldP))<br />                    oldP        p<br />              )<br />              (xdrx_entity_transform<br />                ss<br />                mat2<br />              )<br />       )<br />     )<br />   )<br />   (setq mat (xdrx_matrix_identity 3))<br />   (setq ss (ssget))<br />   (setq        oldP  (trans (getpoint "\n基点:") 1 0)<br />         lastp (trans (getvar "lastpoint") 1 0)<br />   )<br />   (xdrx_drag_jig "mv" "\nselect point:" "" (+ 2 128) 0 oldp)<br /> )<br /> <br />

另外一种写法，用矩阵左乘，用UCS变换，那么你在回调里面处理的点就应该是当前UCS坐标系的点，因为你要把UCS的东西变到WCS，然后在变回来。
改成下面的：

1. (defun c:tt1 ()
   
2.   (defun mv (p)
   
3.     (if        (not (equal oldP (setq p(trans p 0 1)) 1e-3))
   
4.       (progn (setq mat2        (xdrx_matrix_settranslation mat (mapcar '- p oldP))
   
5.                    oldP        p
   
6.              )
   
7.              (xdrx_entity_transform ss (xdrx_matrix_product mat1 mat2 mat3) )
   
8.       )
   
9.     )
   
10.   )
    
11.   (setq mat (xdrx_matrix_identity 3))
    
12.   (setq ss (ssget))
    
13.   (setq        oldP  (getpoint "\n基点:"))
    
14.   (setq mat1 (xdrx_matrix_ucs2wcs)
    
15.         mat3 (xdrx_matrix_wcs2ucs)
    
16.   )
    
17.   (xdrx_drag_jig "mv" "\nselect point:" "" (+ 2 128) 0 oldp)
    
18. )
    

(defun c:tt1 ()<br />   (defun mv (p)<br />     (if        (not (equal oldP (setq p(trans p 0 1)) 1e-3))<br />       (progn (setq mat2        (xdrx_matrix_settranslation mat (mapcar '- p oldP))<br />                    oldP        p<br />              )<br />              (xdrx_entity_transform ss (xdrx_matrix_product mat1 mat2 mat3) )<br />       )<br />     )<br />   )<br />   (setq mat (xdrx_matrix_identity 3))<br />   (setq ss (ssget))<br />   (setq        oldP  (getpoint "\n基点:"))<br />   (setq mat1 (xdrx_matrix_ucs2wcs)<br />         mat3 (xdrx_matrix_wcs2ucs)<br />   )<br />   (xdrx_drag_jig "mv" "\nselect point:" "" (+ 2 128) 0 oldp)<br /> )<br />

另外，你用了 xdrx_matrix_aligncoordsystem求WCS到UCS，UCS到WCS的矩阵是可以的，但API直接有WCS到UCS，UCS到WCS的变换矩阵
(xdrx_matrix_ucs2wcs)
(xdrx_matrix_wcs2ucs)
这两个函数里面的具体实现是用你用的aligncoordsystem实现的。
aligncoordsystem更通用，不一定求当前的UCS，任意两个坐标系都可以求。也就是说，你可以在地球上，把太阳上的东西给搬到火星上。不一定得身在“火星“或”太阳上”。

XDSoft

xinxirong 发表于 2017-9-4 12:37

支持非等比
函数

(xdrx_entity_xcopy <实体..选择集> <矩阵>)
(xdrx_entity_xtransform <实体..选择集> <矩阵>)


支持的实体： INSERT,*POLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE,LINE,TEXT,HATCH,DIMENSION....

不过，你用非等比变换一般做什么？

brainstorm

XDSoft 发表于 2017-9-5 12:40

还没有 正一点一点学