有记忆的移动

FireflyButler · 发表于 2016-1-7 18:01:15

谢谢楼主赞一个

xyxy · 发表于 2016-1-30 16:35:40

程序在哪里？

GNJLISP · 发表于 2016-4-4 21:37:29

用了海盗的，

qq1254582201 · 发表于 2016-4-6 11:20:59

为什么什么都没有呢？

biscxz · 发表于 2016-4-30 11:59:21

来学习下啊，感谢

sosomany · 发表于 2016-5-2 13:19:32

这个功能不错，支持一下！

kingofauto · 发表于 2016-5-2 17:43:10

1111111111111111111111111111111111

GamIng · 发表于 2016-5-3 09:55:40

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

唐伯虎9527 · 发表于 2017-12-27 15:34:31

6666666666666666

zhangcan0515 · 发表于 2017-12-27 21:03:19

正在找这谢谢

账号		自动登录	找回密码
密码			注册