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

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

(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轴垂直方向上移动吗？:handshake

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

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

:handshake:handshake

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" )

:handshake

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

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

:handshake
页: [1] 2
查看完整版本: 如何调 "-30,0,0" 为可输入参数，LISP初学请求帮助！