[求助]：为拉伸，移动，复制之类添加数值记忆功能

gysjy

最初由 paladi 发布
[B]楼主，非正交移动的那个LISP发现一个小地方不是很方便啊，就是一使用这个命令就没有捕捉了，要重新点F3才能再设置捕捉，能否修改成使用的时候仍然保持捕捉啊。 [/B]

将  (setvar "osmode" 0) 移至  (command "move"   ss "" p1 p3)前。

最初由yinzhun22  发布
[B]距离能不能在输入数值的基础上，添加用点取两点距离作为后面移动，拉伸的距离，并记录下 。 [/B]

请稍等。

paladi

楼主，谢谢，真的可以捕捉了，这个记忆数值也是我曾经觉得很方便的东西，这下好了，方便多了。

gysjy

最初由 yinzhun22 发布
[B]距离能不能在输入数值的基础上，添加用点取两点距离作为后面移动，拉伸的距离，并记录下 [/B]

下面的程序中，输入0则将基点和搬移方向点之间的距离作为移动的距离：

[PHP](princ "\n欢迎使用定距移动程序！命令名：md   === gysjy 2009.8===")
(defun c:md(/ ss p1 p2 ang dis p3)     
  (setq os (getvar "osmode") ot (getvar "orthomode"))
  (setvar "cmdecho" 0)
  (setvar "orthomode" 0)
  (setq ss (ssget) p1 (getpoint "\n基点："))     
  (if mvang0
    (setq fix0 "刚才方向")(setq fix0 "竖直向上")
  )
  (setq p2 (getpoint (strcat "\n搬移方向点<" fix0 ">:") p1))
  (if p2
    (setq ang (angle p1 p2) disp2 (fix (distance p1 p2)))
    (setq ang (if mvang0 mvang0 (/ pi 2))))
  (if (= distan nil) (setq distan 1000))
  (princ  "\n移动距离（两点距离请输入0）<")(princ distan)
  (setq dis (getint  ">:" ))
  (if (= dis nil) (setq dis distan))
  (if (and (= dis 0) p2) (setq dis disp2))
  (setq p3 (polar p1 ang dis))
  (setvar "osmode" 0)
  (command "move"   ss "" p1 p3)
  (setq distan dis mvang0 ang)
  (setvar "osmode" os)
  (setvar "orthomode" ot)
  (princ "\n(gysjy  2009.8 制作)")   
  (moder)
  (princ)
)
[/PHP]

ngc

感谢楼主，楼主好人，我也用了你的好多程序，很好用

KK9527

长见识了！呵呵！

13993359550

好是好就是不精确呀