kkleinchester 发表于 2022-7-6 12:39:18

这是reg move命令

alanjt 发表于 2022-7-6 12:40:12

(defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only
(setvar "cmdecho" 1)
(setq ss (ssget))
(setq ptso (getpoint "\n Select source point"))
(setq ptre (getpoint "\n Select destination reference"))
(setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))
(command "_.move" ss "" "_non" ptso "_non" ptd)
(setvar "cmdecho" 1)
(princ)
)
 
运行该命令并将其打印的所有内容复制/粘贴到命令行。

kkleinchester 发表于 2022-7-6 12:44:56

您的意思是将其保存为lisp，然后转到cmdline吗？还是只是粘贴？

alanjt 发表于 2022-7-6 12:48:15

 
两者都可以。

kkleinchester 发表于 2022-7-6 12:51:37

我仍然使用标准移动命令。感谢您的帮助，如果有帮助的话，这个lisp允许您在一个轴上移动一个对象，或者只移动xy。

alanjt 发表于 2022-7-6 12:54:58

 
我理解它的作用。它在我这方面工作得很好，但我需要你加载它，执行它并粘贴它在命令行上显示的所有内容。

kkleinchester 发表于 2022-7-6 12:56:39

我粘贴到命令行，得到了标准的移动

alanjt 发表于 2022-7-6 13:00:36

你执行命令了吗？
 
对不起，我在上班。

Lee Mac 发表于 2022-7-6 13:03:40

在运行代码回复#12后，您是否没有收到错误？
 
如果是这样的话，你能在这里发布你的命令行历史记录吗？这样我们就可以对它进行诊断了

kkleinchester 发表于 2022-7-6 13:05:01

也许我做得不对！
 
我粘贴了它，点击回车键，然后才开始移动。
页: 1 [2]
查看完整版本: Lisp'；s不在201工作