不使用move命令移动对象

自贡黄明儒

1. ;;看到highflybir的《论矩阵》，我首先是吓坏了，原来可以这样玩
   
2. ;;我想我肯定不会，看到矩阵我都绕道
   
3. ;;各位好心的网友都劝我玩，我还是怕。。
   
4. ;;今天试了一试，好像并不是那么可怕，难的是矩阵，highflybir都解决了呀，呵呵。
   
5. ;;http://bbs.mjtd.com/forum.php?mo ... D108%26typeid%3D108
   
6. (defun C:w1 (/ MAT OBJ P1 P2 V)  
   
7.   (setq obj (vlax-ename->vla-object (car (entsel))))
   
8.   (setq p1 (getpoint))
   
9.   (setq p2 (getpoint p1))
   
10.   (setq v (MAT:v-v p2 p1))
    
11.   (vla-transformby obj (vlax-tmatrix (MAT:Translation v)))
    
12.   (princ)
    
13. )

;;看到highflybir的《论矩阵》，我首先是吓坏了，原来可以这样玩<br /> ;;我想我肯定不会，看到矩阵我都绕道<br /> ;;各位好心的网友都劝我玩，我还是怕。。<br /> ;;今天试了一试，好像并不是那么可怕，难的是矩阵，highflybir都解决了呀，呵呵。<br /> ;;<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99926&extra=page%3D1%26filter%3Dtypeid%26typeid%3D108%26typeid%3D108" target="_blank">http://bbs.mjtd.com/forum.php?mo ... D108%26typeid%3D108</a><br /> (defun C:w1 (/ MAT OBJ P1 P2 V)  <br />   (setq obj (vlax-ename->vla-object (car (entsel))))<br />   (setq p1 (getpoint))<br />   (setq p2 (getpoint p1))<br />   (setq v (MAT:v-v p2 p1))<br />   (vla-transformby obj (vlax-tmatrix (MAT:Translation v)))<br />   (princ)<br /> )

vormittag

vla-transformby 的能力还是有限的，很多不规则的转换矩阵都不能用。

tgliu

不懂，第一次听说，以后也学学

pzweng

正在慢慢学习矩阵，以前读的书几乎忘干净了

vormittag

回复楼主： 比如不等比的缩放是一个很简单的线性变化，转换矩阵也很容易写，但是对很多CAD图元就不能适用，比如圆进行着这样的变换就成为了椭圆，这个变换用vla-transformby就没法实现。还有例如错切变换，很多图元也没办法用这种方法实现错切变换。

vormittag

圆是不是能用vla-transformby进行非等比缩放我不记得了，但是错切变换是一定不行的。