如何调 "-30,0,0" 为可输入参数，LISP初学请求帮助！

lifeifei · 发表于 2023-2-2 20:46:56

(defun c:m1 (/ ss p1 p2)
(prompt "选择移动对象:")
(setq ss (ssget))
(prompt "选择相对基点:")
(setq p1 (getpoint))
(prompt "输入相对坐标:")
(setq p2 (getpoint))
(command "move" ss "" p1 P2 "")
(command "MOVE" ss "" "D" "-30,0,0" )
(PRINC)
)

xj6019 · 发表于 2023-2-2 20:56:31

(defun c:m1 (/ p1 p2 ss txt1)
(prompt "选择移动对象:")
(setq ss (ssget))
(prompt "选择相对基点:")
(setq p1 (getpoint))
(prompt "输入相对坐标:")
(setq p2 (getpoint))
(setq txt1 (getstring "\n 输入自定义数值<" ))
(command "move" ss "" p1 P2 "")
(command "MOVE" ss "" "D" txt1)
(PRINC)
)

lifeifei · 发表于 2023-2-2 21:18:02

xj6019 发表于 2023-2-2 20:56
(defun c:m1 (/ p1 p2 ss txt1)
(prompt "选择移动对象:")
(setq ss (ssget))

可以调整为X轴水平方向，y轴垂直方向上移动吗？

lifeifei · 发表于 2023-2-3 20:27:40

xj6019 发表于 2023-2-3 08:37
输入的数字：X,0,0 X正负控制水平方向 0,Y,0 Y正负控制垂直方向

lifeifei · 发表于 2023-2-2 21:07:17

xj6019 发表于 2023-2-2 20:56
(defun c:m1 (/ p1 p2 ss txt1)
(prompt "选择移动对象:")
(setq ss (ssget))

非常感谢您的帮助。

mokson · 发表于 2023-2-3 08:16:52

(command "MOVE" ss "" "from" "" "0,30" )

xj6019 · 发表于 2023-2-3 08:37:03

输入的数字：X,0,0 X正负控制水平方向 0,Y,0 Y正负控制垂直方向

434939575 · 发表于 2023-2-3 11:37:51

mokson 发表于 2023-2-3 08:16
(command "MOVE" ss "" "from" "" "0,30" )

from 这个参数哪里看到的啊。

lifeifei · 发表于 2023-2-3 20:39:21

mokson 发表于 2023-2-3 08:16
(command "MOVE" ss "" "from" "" "0,30" )

lifeifei · 发表于 2023-2-3 21:09:41

mokson 发表于 2023-2-3 08:16
(command "MOVE" ss "" "from" "" "0,30" )

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