带记忆功能的移动--【源代码】

再往上就可看见

支持楼主，不错 学习一下

hhh454

bdboy 发表于 2012-11-24 10:32
不错 有记忆功能，但如果能改成随鼠标方向会好很多，比输入正负号方便多了

这个用的代码可能更复杂，我不会写了，希望高手帮忙

xiaobao02

以下是根据论坛的一个贴子思路改进的，移动记忆上次移动值鼠标定向。有高手帮忙再升级一下成S拉伸功能！

2. (defun c:m (/ ss p1 p2 p3 et1 pt p4)
   
3.   (if (not md1)
   
4.      (setq md1 0.2)
   
5.    )   
   
6. 
   
7.   (if (setq ss (ssget)
   
8.       p1 (getpoint "\n指定基点:")
   
9.       )
   
10.    
    
11.      (progn
    
12.        (command "point" p1)
    
13.        (setq ss (ssadd (setq et1 (entlast)) ss))
    
14. 
    
15.        (princ "\n指定第二点:<")(princ md1)(princ "> ")
    
16.        (command "move" ss "" p1 pause)
    
17.        (setq p3 (cadr (grread 1)))
    
18. 
    
19. (cond
    
20.   ((equal 0 (angle p1 p3) (* pi 0.25)) (setq ma1 0))
    
21.   ((equal (* pi 0.5) (angle p1 p3) (* pi 0.25)) (setq ma1 (* pi 0.5)))
    
22.   ((equal pi (angle p1 p3) (* pi 0.25)) (setq ma1 pi))
    
23.   ((equal (* pi 1.5) (angle p1 p3) (* pi 0.25)) (setq ma1 (* pi 1.5)))
    
24. )
    
25. 
    
26.        (setq p2 (polar p1 ma1 md1))
    
27. 
    
28.       
    
29.       (setvar "osmode" 0)
    
30.       (setq pt (trans(cdr (assoc 10 (entget et1))) 0 1))
    
31.       (setq p4 (list (- (car pt) (car p1)) (- (cadr pt) (cadr p1)) 0))
    
32.       (if (equal p1 p4)(command "move" ss "" pt p2))
    
33.       (setq pt (trans(cdr (assoc 10 (entget et1))) 0 1))
    
34.       (setq md1 (distance p1 pt) ma1 (angle p1 pt))
    
35.        (entdel et1)
    
36.       (princ "\n移动: ")(princ md1)(princ)
    
37.       
    
38.       )
    
39.     )
    
40.     (princ)
    
41. )
    
42. 
    
43. 
    
44. (defun *error* (msg)
    
45. (if (/= et1 nil)(entdel et1))  ;M命令按ESC时删除点
    
46.   (princ " ")
    
47.   (princ)
    
48. )

(defun c:m (/ ss p1 p2 p3 et1 pt p4)<br />   (if (not md1)<br />      (setq md1 0.2)<br />    )   <br /> <br />   (if (setq ss (ssget)<br />       p1 (getpoint "\n指定基点:")<br />       )<br />     <br />      (progn<br />        (command "point" p1)<br />        (setq ss (ssadd (setq et1 (entlast)) ss))<br /> <br />        (princ "\n指定第二点:<")(princ md1)(princ "> ")<br />        (command "move" ss "" p1 pause)<br />        (setq p3 (cadr (grread 1)))<br /> <br /> (cond<br />   ((equal 0 (angle p1 p3) (* pi 0.25)) (setq ma1 0))<br />   ((equal (* pi 0.5) (angle p1 p3) (* pi 0.25)) (setq ma1 (* pi 0.5)))<br />   ((equal pi (angle p1 p3) (* pi 0.25)) (setq ma1 pi))<br />   ((equal (* pi 1.5) (angle p1 p3) (* pi 0.25)) (setq ma1 (* pi 1.5)))<br /> )<br /> <br />        (setq p2 (polar p1 ma1 md1))<br /> <br />        <br />       (setvar "osmode" 0)<br />       (setq pt (trans(cdr (assoc 10 (entget et1))) 0 1))<br />       (setq p4 (list (- (car pt) (car p1)) (- (cadr pt) (cadr p1)) 0))<br />       (if (equal p1 p4)(command "move" ss "" pt p2))<br />       (setq pt (trans(cdr (assoc 10 (entget et1))) 0 1))<br />       (setq md1 (distance p1 pt) ma1 (angle p1 pt))<br />        (entdel et1)<br />       (princ "\n移动: ")(princ md1)(princ)<br />       <br />       )<br />     )<br />     (princ)<br /> )<br /> <br /> <br /> (defun *error* (msg)<br /> (if (/= et1 nil)(entdel et1))  ;M命令按ESC时删除点<br />   (princ " ")<br />   (princ)<br /> )

海盗曹

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 /> )

海盗曹

海盗曹 发表于 2012-11-24 19:05

取之明经，用之明经~

zzc83

这个不错，很有用，但是移动时不能捕捉点，能不能加上啊？

ucuc2003

还有个带记忆功能的复制功能

zhengxiansz

如果改成这样的方式就好了。

twsyzx

主贴的X和Y还要分命令，比较麻烦的，后面的都不错

enn09

不错，顶顶！！！！！！！！！！！！