移动对象的7种方法

newer

1. ;;移动对象的几种方法
   
2. (setq e (entmakex (list '(0 . "CIRCLE") '(10 0. 0. 0.) '(40 . 1.0))))
   
3. 
   
4. ; 第一种
   
5. (entmod (append (entget e) '((10 25. 0. 0.))))
   
6. ; 第二种
   
7. (entmod
   
8.   (subst '(10 25. 0. 0.) (assoc 10 (entget e)) (entget e))
   
9. )
   

;;移动对象的几种方法<br /> (setq e (entmakex (list '(0 . "CIRCLE") '(10 0. 0. 0.) '(40 . 1.0))))<br /> <br /> ; 第一种<br /> (entmod (append (entget e) '((10 25. 0. 0.))))<br /> ; 第二种<br /> (entmod<br />   (subst '(10 25. 0. 0.) (assoc 10 (entget e)) (entget e))<br /> )<br />

; 第三种

游客，如果您要查看本帖隐藏内容请回复

1. ; 第四种
   
2. (vla-move (vlax-ename->vla-object e)
   
3.           (vlax-3d-point '(0. 0. 0.))
   
4.           (vlax-3d-point '(25. 0. 0.))
   
5. )
   
6. ; 第五种 command
   
7. (command ".move" e "" '(0. 0. 0.) '(25. 0. 0.))
   
8. ;;第六种 XDRX API
   
9. (xdrx_entity_move e '(0. 0. 0.) '(25. 0. 0.))
   
10. ;第七种 XDRX_API
    
11. (xdrx_entity_transform e (xdrx_matrix_settranslation
    
12.                                                      (xdrx_matrix_identity 3)
    
13.                                                      (mapcar
    
14.                                                        '-
    
15.                                                        '(25. 0. 0.)
    
16.                                                        '(0. 0. 0.)
    
17.                                                      )
    
18.                          )
    
19. )
    
20. 
    

; 第四种<br /> (vla-move (vlax-ename->vla-object e)<br />           (vlax-3d-point '(0. 0. 0.))<br />           (vlax-3d-point '(25. 0. 0.))<br /> )<br /> ; 第五种 command<br /> (command ".move" e "" '(0. 0. 0.) '(25. 0. 0.))<br /> ;;第六种 XDRX API<br /> (xdrx_entity_move e '(0. 0. 0.) '(25. 0. 0.))<br /> ;第七种 XDRX_API<br /> (xdrx_entity_transform e (xdrx_matrix_settranslation<br />                                                      (xdrx_matrix_identity 3)<br />                                                      (mapcar<br />                                                        '-<br />                                                        '(25. 0. 0.)<br />                                                        '(0. 0. 0.)<br />                                                      )<br />                          )<br /> )<br /> <br />

上面第六、第七种方法同时支持 实体表 和 选择集

/db_自贡黄明儒_

隐藏的是不是矩阵法？
坚持lisp版块的版主就是只有您 了。
我打算"ActiveX 和脚本技术在CAD的运用"这个方向去学习

游客，如果您要查看本帖隐藏内容请回复

q3_2006

基本都用MOVE...

HLCAD

非常感谢版主的无私奉献，向版主致敬！！！

yoyoho

感谢 N版 分享程序!!!

819534890

谢谢分享，学习了

adc

非常厉害~~

abc498091367

非常厉害~~

lucas3

非常感谢版主的无私奉献，向版主致敬！！

zytyd

好好学习----------------------

yxianfo

版主程序，必须学习。

qq1846687144

学习大神作品

sicky111

厉害哦，我只会move

caogis

一个对象移动有这么多方法，学习了！

winerfjy

学习一下长长知识