调用MOVE命令出错【已解决】

黑山羊蹦蹦跳跳

如图所示，我想把横向的直线向右移动，使得1号点和2号点(即矩形线框重合)，调用了MOVE命令，写了如下程序，但不能很好地执行，请诸位大大帮忙看一下是什么问题，或者有没有更好的解决方案，感激不尽(defun c:li ()
  (setq en (entsel "\n<<请选择要移动的物体>>"))
  (setq bfpt (getpoint "\n<<请选择平移前的节点>>"))
  (setq afpt (getpoint "\n<<请选择平移后的节点>>"))
  (command "move" en bfpt afpt "")
(prin1)
)

pxr201419

曾经我的想法同你一样，后来才知道，move命令真正需要的2个参数是X方向和Y方向的移动距离，要用下面的程序才可实现，注意命令行中en后面必须有 "" 确认：
(defun c:li ()
  (setq en (entsel "\n<<请选择要移动的物体>>"))
  (setq bfpt (getpoint "\n<<请选择平移前的节点>>"))
  (setq x1 (car bfpt))
  (setq y1 (cadr bfpt))
  (setq afpt (getpoint "\n<<请选择平移后的节点>>"))
  (setq x2 (car afpt))
  (setq y2 (cadr afpt))
  (command "move" en "" (list (- x2 x1)(- y2 y1)) "")
  (prin1)
)

taoyi0727

STRETCH  用这个拉伸就好了呀  为什么要用移动

lovezp

(command "move"  "" en bfpt afpt "")
你这个程序写了有什么意义？
直接用MOVE命令和你的程序一样的操作步骤

tzfcn

仔细看看操作时候命令行的提示，再修正代码。

evayleung

把捕捉关了就行了吧。。。一般都是捕捉问题啦。我只是不明白那么简单为什么还要写个LSP，直接点移动命令不就行了。

yangjian001

谢谢楼主分享

huangpc27

独树一帜啊

黑山羊蹦蹦跳跳

taoyi0727 发表于 2019-5-5 18:31
STRETCH  用这个拉伸就好了呀  为什么要用移动

之前没说清楚，要求保证那条直线完整的

黑山羊蹦蹦跳跳

taoyi0727 发表于 2019-5-5 18:31
STRETCH  用这个拉伸就好了呀  为什么要用移动

之前没说清楚，要求保证直线长度固定的

Lisphk

写LISP调用COMMAND，之前，记得把捕捉关闭。

黑山羊蹦蹦跳跳

lovezp 发表于 2019-5-5 19:07
(command "move"  "" en bfpt afpt "")
你这个程序写了有什么意义？
直接用MOVE命令和你的程序一样的操作 ...

主要是想和另一个命令联动，把这两个统合成一个命令

黑山羊蹦蹦跳跳

pxr201419 发表于 2019-5-5 20:50
曾经我的想法同你一样，后来才知道，move命令真正需要的2个参数是X方向和Y方向的移动距离，要用下 ...

嗯，问题解决了，学到了很多，感谢大佬的指导

黑山羊蹦蹦跳跳

evayleung 发表于 2019-5-5 21:06
把捕捉关了就行了吧。。。一般都是捕捉问题啦。我只是不明白那么简单为什么还要写个LSP，直接点移动命令不 ...

感谢帮助，刚才试了一下，跟捕捉的关系好像不大，刚才按照楼上大佬的办法可以解决这个问题。写这个命令主要是想和另一个命令统合一下，方便重复工作。

黑山羊蹦蹦跳跳

Lisphk 发表于 2019-5-6 08:52
写LISP调用COMMAND，之前，记得把捕捉关闭。

感谢帮助，可能是遇到的问题不一样吧，刚才试了跟捕捉的关系好像不大，按照楼上大佬的程序试了下，能解决我遇到的问题