有记忆的移动

longer1000

谢谢楼主，又学一招

dalin1985

支持源码！学习学习！

水工木又

要顶一下滴

tianyi1230

很实用的东西，谢谢楼主了，感谢，

cable2004

源码的，就得支持！

hhh454

支持源码，楼主辛苦了

海盗曹

下载学习一下

海盗曹

2. (defun c:jyyd (/ s_disyd)
   
3.   (princ "\n<<<欢迎使用记忆移动功能>>>")
   
4.   (setvar "ORTHOMODE" 1)
   
5.   (command ".MOVE" (ssget) "")
   
6.   (command (setq basicpoint (getpoint "\n指定基点:")))
   
7.   (if (= nil s_dis_allyd)
   
8.     (progn
   
9.       (setq s_dis_allyd (getreal "\n输入移动距离:"))
   
10.       (command s_dis_allyd)
    
11.     )
    
12.     (progn
    
13.       (setq s_disyd (getreal (strcat "\n输入拉伸距离<" (rtos s_dis_allyd 2 4)
    
14.                                      ">:"
    
15.                              )
    
16.                     )
    
17.       )
    
18.       (if (= nil s_disyd)
    
19.         (setq s_disyd s_dis_allyd)
    
20.       )
    
21.       (command s_disyd)
    
22.       (setq s_dis_allyd s_disyd)
    
23.     )
    
24.   )
    
25.   (setvar "ORTHOMODE" 0)
    
26.   (princ "\<<<记忆移动执行完毕!>>>")
    
27.   (princ)
    
28. )
    

(defun c:jyyd (/ s_disyd)<br />   (princ "\n<<<欢迎使用记忆移动功能>>>")<br />   (setvar "ORTHOMODE" 1)<br />   (command ".MOVE" (ssget) "")<br />   (command (setq basicpoint (getpoint "\n指定基点:")))<br />   (if (= nil s_dis_allyd)<br />     (progn<br />       (setq s_dis_allyd (getreal "\n输入移动距离:"))<br />       (command s_dis_allyd)<br />     )<br />     (progn<br />       (setq s_disyd (getreal (strcat "\n输入拉伸距离<" (rtos s_dis_allyd 2 4)<br />                                      ">:"<br />                              )<br />                     )<br />       )<br />       (if (= nil s_disyd)<br />         (setq s_disyd s_dis_allyd)<br />       )<br />       (command s_disyd)<br />       (setq s_dis_allyd s_disyd)<br />     )<br />   )<br />   (setvar "ORTHOMODE" 0)<br />   (princ "\<<<记忆移动执行完毕!>>>")<br />   (princ)<br /> )<br />

取自明经，各有优劣

461045462

谢谢楼主的分享！
收藏下来看看学习学习。
谢谢！

xiagood

学习了。。。。。。。。。。。。。。