有记忆的移动

luyu9635

因为常用到往同一方向移动同一距离，所以就写了个小程序，希望对各位也有点小用,有记忆功能的,如下

海盗曹

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

取自明经，各有优劣

GamIng

zhong876158 发表于 2014-9-20 09:34
有同感，运行后影响了正交模式

照着论坛记忆拉伸的程序改成了记忆移动，同时感谢Z大！

;;;;============================================================
;;;;========================记忆移动============================
;;;;============================================================
;源地址http://bbs.mjtd.com/forum.php?mo ... 1&fromuid=38464
(defun c:MM (/ basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (if (= nil S_distance)
    (progn (setq S_distance (getreal "\n输入移动距离:"))
    )
    (progn (setq s_disyd (getreal
                           (strcat "\n输入移动距离<" (rtos S_distance) ">")
                         )
           )
           (if (= nil s_disyd)
             (setq s_disyd S_distance)
           )
           (setq S_distance s_disyd)
    )
  )
  (command ".move" (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint
           (polar basicpoint (angle basicpoint pt) S_distance)
  )
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)



;;;;============================================================
;;;;================记忆移动100 200 300 400 50==================
;;;;============================================================
(defun c:M1 (/ S_distance basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (setq S_distance 100)
  (command ".move"  (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint (polar basicpoint (angle basicpoint pt) S_distance))
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)

(defun c:M2 (/ S_distance basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (setq S_distance 200)
  (command ".move"  (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint (polar basicpoint (angle basicpoint pt) S_distance))
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)

(defun c:M3 (/ S_distance basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (setq S_distance 300)
  (command ".move"  (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint (polar basicpoint (angle basicpoint pt) S_distance))
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)

(defun c:M4 (/ S_distance basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (setq S_distance 400)
  (command ".move"  (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint (polar basicpoint (angle basicpoint pt) S_distance))
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)

(defun c:M5 (/ S_distance basicpoint old_ORTHOMODE pt)
  (setq old_ORTHOMODE (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)
  (setq S_distance 50)
  (command ".move"  (ssget) "")
  (setq basicpoint (getpoint "\n指定基点:"))
  (setq pt (getpoint basicpoint "\n指定方向:"))
  (command basicpoint (polar basicpoint (angle basicpoint pt) S_distance))
  (setvar "ORTHOMODE" old_ORTHOMODE)
  (princ)
)

999999

海盗曹 发表于 2012-6-14 17:02
取自明经，各有优劣

谢谢大神的分享，用处大大的用

完整武器

下载要记得回帖一下

vlisp2012

顶。试用一下。

清风明月名字

谢谢楼主，又学一招

gao051525

先看看好不好用，哈

lzg8877

谢谢 顶顶顶

kwok

这个不错,支持一下,刚好需要.
试了一下,
如果能只记忆距离,方向由鼠标来定+加空格确定移动,就好了.

zyhandw

源码的，就得支持！
下来，学习一下！

357785513

昨天忘记回铁了

edsion24

试用一下。。。。。