如何修改一下"MOVE"命令？

tianyuan · 发表于 2013-3-4 16:38:02

图形移动时非常麻烦，经常地还要手动输入第二点坐标，如何能给第二点加上一个度带（如“39”）就能省去手动输入坐标的麻烦了，比如移动的基点为587000,4151000需要移动到的基点为39587000,4151000 不知用lsp程序如何修改“move"？谢！

tianyuan · 发表于 2013-3-5 09:14:35

请帮忙看看这个程序错在哪？怎样修改？
(defun c:mm()
  (setvar "cmdecho" 0)
  (setq ss (ssget "_w"))
(setq m (getpoint "\n 请选取移动基点"))
  (setq n m)
  (steq l (getreal "\n 请输入移动距离"))
  (setq f l)
  (setq h (polar n 0 f))
(command "move" ss n h)
(princ)
)

ScmTools · 发表于 2013-3-4 23:07:16

贴个图片说明下

jdlfjk · 发表于 2013-3-5 08:32:21

用这个命令(polar pt ang dist)

zyhandw · 发表于 2013-3-5 09:28:45

这不还是需要手工输入？没看出用程序方便在哪

tianyuan · 发表于 2013-3-5 10:28:38

手工输入一个距离值总比输入坐标值方便些吧

Andyhon · 发表于 2013-3-5 11:08:56

(command "move" ss n h)
==>
(command "move" ss "" n h)

仲文玉 · 发表于 2013-3-5 21:15:25

不是吧，还在讨论？

仲文玉 · 发表于 2013-3-5 21:17:11

本帖最后由仲文玉于 2013-3-5 21:18 编辑

(steq l (getreal "\n 请输入移动距离")) (setq .....
(command "move" ss “” n h)

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

[基础] 如何修改一下"MOVE"命令？

浏览过的版块