lisp如何实现对象的非等比例变换

namezg

lisp如何实现对象的非等比例变换

已知一个最终变换矩阵，变换矩阵中包括平移，旋转、非等比例变换，
lisp如何实现对象的三维变换，这个是我一直不能实现的功能，到底能不能实现，CAD的新版的ET工具中ncopy实现了这一功能，不过没有公布方法。

newer

论坛有好多种解决方法，也有比NCOPY功能更强的程序，先搜索下论坛，用 非等比例 做关键字。

Free-Lancer

你打开看过ncopy的lisp吗？知道他的算法吗？来自: Android客户端

namezg

不是单纯的非等比例变换

Love-Lisp

如果是正交非等比矩阵，可以通过矩阵计算出XYZ的缩放比例和旋转角，然后将对象制成无名块，按计算出的XYZ的缩放比例和旋转角插入到CAD,再炸开即可实现非等比矩阵缩放！

1. ;; Decompose Matrix  -  Lee Mac
   
2. ;; Decomposes a 4x4 transformation matrix into a list of
   
3. ;; ((Sx Sy Sz) <angle> (x y z))
   
4. ;;;(Decompose mat) mat为nentselp返回4X4矩阵由4X4矩阵计算((Sx Sy Sz) <angle> (x y z))
   
5. ;;;(Decompose (caddr(nentselp "\n选择图块:"))) 返回:((xscale yscale zscale) rotation (xbase ybase zbase)
   
6. (defun Decompose ( mat / sign)
   
7.   (defun sign ( a ) (if (minusp a) -1.0 1.0))
   
8.     (list
   
9.         (list
   
10.             (* (sign (caar mat))
    
11.                (sqrt (+ (* (caar mat) (caar mat)) (* (caadr mat) (caadr mat))))
    
12.             )
    
13.             (* (sign (cadadr mat))
    
14.                (sqrt (+ (* (cadar mat) (cadar mat)) (* (cadadr mat) (cadadr mat))))
    
15.             )
    
16.             (caddr (caddr mat))
    
17.         )
    
18.         (atan (caadr mat) (caar mat))
    
19.         (mapcar '+ (mapcar 'last mat) '(0 0 0))
    
20.     )
    
21. )
    

;; Decompose Matrix  -  Lee Mac<br /> ;; Decomposes a 4x4 transformation matrix into a list of<br /> ;; ((Sx Sy Sz) <angle> (x y z))<br /> ;;;(Decompose mat) mat为nentselp返回4X4矩阵由4X4矩阵计算((Sx Sy Sz) <angle> (x y z))<br /> ;;;(Decompose (caddr(nentselp "\n选择图块:"))) 返回:((xscale yscale zscale) rotation (xbase ybase zbase)<br /> (defun Decompose ( mat / sign)<br />   (defun sign ( a ) (if (minusp a) -1.0 1.0))<br />     (list<br />         (list<br />             (* (sign (caar mat))<br />                (sqrt (+ (* (caar mat) (caar mat)) (* (caadr mat) (caadr mat))))<br />             )<br />             (* (sign (cadadr mat))<br />                (sqrt (+ (* (cadar mat) (cadar mat)) (* (cadadr mat) (cadadr mat))))<br />             )<br />             (caddr (caddr mat))<br />         )<br />         (atan (caadr mat) (caar mat))<br />         (mapcar '+ (mapcar 'last mat) '(0 0 0))<br />     )<br /> )<br />

如果是正交非等比矩阵，就不知道咋计算了！

newer

namezg 发表于 2013-6-27 23:58
不是单纯的非等比例变换

矩阵就是矩阵，怎么还分单纯不单纯一说。

非等比变换难点不是矩阵构造，而是如何TRANSFORM，组合矩阵，也没有什么难度，按照你的要求，矩阵左乘组合就是了。

楼主，最好你拿个例图说话，说下你想要什么。

你现在问题是组合矩阵写不出来？，还是最后变换不出来？

namezg

上传一个测试的非等比例嵌套块，如何原位复制块内对象？

st788796

namezg 发表于 2013-7-1 23:00
上传一个测试的非等比例嵌套块，如何原位复制？

不明白何为原位复制？

1. (vl-cmdf ".copy" (ssget) "" pause "@")
   
2. (vl-cmdf ".explode" "L" "")
   

(vl-cmdf ".copy" (ssget) "" pause "@") <br /> (vl-cmdf ".explode" "L" "")<br />