【求助】grvecs函数后的偏移矩阵UCS下怎么写？

wowan1314

找到ea的那个函数了！ 运行后也不晓得这是在测试什么！

2. ;;矩阵平移一个向量
   
3. (defun ea:matrix_SetTranslation        (matrix ve / m1 m2 m3)
   
4.   (setq        m1 (car matrix)
   
5.         m2 (cadr matrix)
   
6.         m3 (nth 2 matrix)
   
7.   )
   
8.   (list        (list (car m1) (cadr m1) (nth 2 m1) (car ve))
   
9.         (list (car m2) (cadr m2) (nth 2 m2) (cadr ve))
   
10.         (list (car m3) (cadr m3) (nth 2 m3) (last ve))
    
11.         '(0.0 0.0 0.0 1.0)
    
12.   )
    
13. )

;;矩阵平移一个向量<br /> (defun ea:matrix_SetTranslation        (matrix ve / m1 m2 m3)<br />   (setq        m1 (car matrix)<br />         m2 (cadr matrix)<br />         m3 (nth 2 matrix)<br />   )<br />   (list        (list (car m1) (cadr m1) (nth 2 m1) (car ve))<br />         (list (car m2) (cadr m2) (nth 2 m2) (cadr ve))<br />         (list (car m3) (cadr m3) (nth 2 m3) (last ve))<br />         '(0.0 0.0 0.0 1.0)<br />   )<br /> )

wowan1314

而对于平移矩阵的构造！ 我又做了如下尝试。

测试程序后发现，可以实现X轴平行于水平线下的UCS及WCS的正常平移。

但是如果坐标系是斜的(斜的WCS与斜的ucs这两种)，那么这个平移矩阵，还是不对的。估计斜的坐标系下，不仅矩阵的最后一个元素有变化，其他非1的项（估计是表示旋转的）也得变化。

2. (DEFUN C:T1 NIL
   
3. (SETQ P1 (GETPOINT))
   
4. (SETQ P2 (GETPOINT))
   
5. (SETQ  WYL '(2000 0 0) JUZ (TRANS WYL 1 2) JUZ (APPEND JUZ '(1)))
   
6. (SETQ JUZ (MAPCAR '(LAMBDA(A B) (REVERSE(CONS B (REVERSE A))) ) '((1 0 0)(0 1 0)(0 0 1)(0 0 0)) JUZ))
   
7. ;(SETQ JUZ '((1 0 0 2000) (0 1 0 0) (0 0 1 0) (0 0 0 1)))
   
8. ;;(SETQ SJJZ '((1 0 0 0) (0 1 0 0) (0 0 1 0) (0 0 0 1)))
   
9. (GRVECS (LIST 1 P1 P2) JUZ)
   
10. )

(DEFUN C:T1 NIL<br /> (SETQ P1 (GETPOINT))<br /> (SETQ P2 (GETPOINT))<br /> (SETQ  WYL '(2000 0 0) JUZ (TRANS WYL 1 2) JUZ (APPEND JUZ '(1)))<br /> (SETQ JUZ (MAPCAR '(LAMBDA(A B) (REVERSE(CONS B (REVERSE A))) ) '((1 0 0)(0 1 0)(0 0 1)(0 0 0)) JUZ))<br /> ;(SETQ JUZ '((1 0 0 2000) (0 1 0 0) (0 0 1 0) (0 0 0 1)))<br /> ;;(SETQ SJJZ '((1 0 0 0) (0 1 0 0) (0 0 1 0) (0 0 0 1)))<br /> (GRVECS (LIST 1 P1 P2) JUZ)<br /> )

wowan1314

又看了下高飞鸟的平移矩阵函数。他提供了两种基本一样前面的三项都是0 1 0。
这种平移跟我写的一样，都不能实现想要的平移。

2. (defun MAT:Translation ( v )
   
3.   (list
   
4.     (list 1. 0. 0. (car v))
   
5.     (list 0. 1. 0. (cadr v))
   
6.     (list 0. 0. 1. (caddr v))
   
7.     (list 0. 0. 0. 1.)
   
8.   )
   
9. )

(defun MAT:Translation ( v )<br />   (list<br />     (list 1. 0. 0. (car v))<br />     (list 0. 1. 0. (cadr v))<br />     (list 0. 0. 1. (caddr v))<br />     (list 0. 0. 0. 1.)<br />   )<br /> )

wowan1314

按道理！ P1坐标与平移向量相加就是平移后的P1'坐标。

但是放到GRVECS就不对了。平的UCS下还得TRANS 一下才得到正确的平移向量。！

斜的坐标系怎么TRANS都不对！

snsj

葛老你也在研究这个啊，用这个可以实现天正粘贴的动态操作，比ARX速度还块，而且不会闪:lol

XDSoft

wowan1314 发表于 2013-6-17 20:26
按道理！ P1坐标与平移向量相加就是平移后的P1'坐标。

但是放到GRVECS就不对了。平的UCS下还得TRANS 一 ...

你的问题涉及到从一个坐标系到另一个坐标系的变换矩阵，不只是平移。

用 从 一个坐标系到另一个坐标系 做关键字搜索下论坛，我发过帖子。

wowan1314

snsj 发表于 2013-6-17 20:27
葛老你也在研究这个啊，用这个可以实现天正粘贴的动态操作，比ARX速度还块，而且不会闪

呵呵！ 我是在学习向量跟矩阵。 没深入研究他们的公式、定理什么的。

就是了解下他们的原理。 结果拿grvecs测试，连个平移矩阵都整不明白。

wowan1314

XDSoft 发表于 2013-6-17 20:29
你的问题涉及到从一个坐标系到另一个坐标系的变换矩阵，不只是平移。

用 从 一个坐标系到另一个坐标系 ...

感觉没用到 坐标系变换呀！

你比如 正的WCS与 斜的WCS。 他们的坐标系是一样的。你让我再向谁的坐标系转呢？

在这个斜的WCS下，我想把点P1作‘（2000  0  0）的位移。

用GRVECS就弄不出。(直接向量相加倒是正确)

wowan1314

改天继续！ 先回家睡觉。

XDSoft

wowan1314 发表于 2013-6-17 20:36
感觉没用到 坐标系变换呀！

你比如 正的WCS与 斜的WCS。 他们的坐标系是一样的。你让我再向谁的坐标 ...

坐标系怎么能一样呢 ，坐标系一样的是 原点，X轴，Y轴都一样，你斜的了，X轴向量和Y轴向量都不是(1.0 0.0 0.0) (0.0 1.0 0.0)了。

wowan1314

XDSoft 发表于 2013-6-17 20:44
坐标系怎么能一样呢 ，坐标系一样的是 原点，X轴，Y轴都一样，你斜的了，X轴向量和Y轴向量都不是(1.0 0.0 ...

尽管是斜的。但他的x.y与原点都与正的wcs一样。

XDSoft

wowan1314 发表于 2013-6-17 21:34
尽管是斜的。但他的x.y与原点都与正的wcs一样。

你贴一个这样的DWG上来吧。起夜了啊，这么快。

wowan1314

XDSoft 发表于 2013-6-17 22:03
你贴一个这样的DWG上来吧。起夜了啊，这么快。

哎！  被矩阵折磨的没睡好觉。

wowan1314

哎！ 不是很明白！ 硬是一个个的测试出来。

下面的这个代码，解决了正的ucs与正斜的WCS。但是没解决斜的ucs.

2. (DEFUN C:T1 NIL
   
3. (SETQ P1 (GETPOINT))
   
4. (SETQ P2 (GETPOINT))
   
5. (SETQ  WYL '(2000 0 0) WYL (TRANS WYL 1 2) ang (getvar 'viewtwist) JUZ (APPEND wyl '(1)))
   
6. (if (AND (/= (getvar 'WORLDUCS) 0)(/= (getvar 'viewtwist) 0))
   
7. (SETQ JUZ (LIST (LIST (COS ang) (-(SIN ang)) 0 (car wyl))(LIST (SIN ang)(COS ang) 0 (cadr wyl))   '(0 0 1 0) '(0 0 0 1)))
   
8. (SETQ JUZ (MAPCAR '(LAMBDA(A B) (REVERSE(CONS B (REVERSE A))) ) '((1 0 0)(0 1 0)(0 0 1)(0 0 0)) JUZ))
   
9. )
   
10. ;(SETQ WYL '(2000 0 0) WYL (TRANS WYL 1 2))
    
11. ;(SETQ JUZ (LIST (LIST (COS ang) (-(SIN ang)) 0 (car wyl))(LIST (SIN ang)(COS ang) 0 (cadr wyl))   '(0 0 1 0) '(0 0 0 1)))
    
12. (GRVECS (LIST 1 P1 P2) JUZ)
    
13. )

(DEFUN C:T1 NIL<br /> (SETQ P1 (GETPOINT))<br /> (SETQ P2 (GETPOINT))<br /> (SETQ  WYL '(2000 0 0) WYL (TRANS WYL 1 2) ang (getvar 'viewtwist) JUZ (APPEND wyl '(1)))<br /> (if (AND (/= (getvar 'WORLDUCS) 0)(/= (getvar 'viewtwist) 0))<br /> (SETQ JUZ (LIST (LIST (COS ang) (-(SIN ang)) 0 (car wyl))(LIST (SIN ang)(COS ang) 0 (cadr wyl))   '(0 0 1 0) '(0 0 0 1)))<br /> (SETQ JUZ (MAPCAR '(LAMBDA(A B) (REVERSE(CONS B (REVERSE A))) ) '((1 0 0)(0 1 0)(0 0 1)(0 0 0)) JUZ))<br /> )<br /> ;(SETQ WYL '(2000 0 0) WYL (TRANS WYL 1 2))<br /> ;(SETQ JUZ (LIST (LIST (COS ang) (-(SIN ang)) 0 (car wyl))(LIST (SIN ang)(COS ang) 0 (cadr wyl))   '(0 0 1 0) '(0 0 0 1)))<br /> (GRVECS (LIST 1 P1 P2) JUZ)<br /> )

marting

wowan1314 发表于 2013-6-18 08:22
哎！ 不是很明白！ 硬是一个个的测试出来。

下面的这个代码，解决了正的ucs与正斜的WCS。但是没解决斜的 ...

你这个斜的UCS，还是世界坐标系，但有视图的旋转角度，VIEWTWIST系统变量是332，楼主，你要是变换点坐标，因为在世界坐标系，不用变。

楼主是不是想做出来在这个斜坐标系的 getcorner 拉出的矩形框还是正交矩形的？ 如果那样，你需要把你的点 从 当前UCS 到 显示坐标系的变换，所以说，还是有个变换矩阵。