求求哪位高手告诉我怎么改一下这个移动到原点的命令

ninja37

求求哪位高手告诉我怎么改一下这个移动到原点的命令，论坛里最基本简单的问题，可是我就是脑子笨，只会复制别人的代码稍微懂一点就自己用。
由于本人比较倾向用CAD原生的命令，希望就能用MOVE能够解决 ，不希望用到什么变量函数什么的.
这个命令功能 :就是选取图档的图元 指定一个基准点   然后一定到0，0点 （相当于移动到#0，0）
(defun c:M00 () (command "move" "" ""  "0,0" ) (princ "选取图元移到00点")(princ))

lht

(defun c:M00 ()
    (setvar "osmode" 35)
    (setq ss (car (entsel "\n请选择图元:")))
    (setq p (getpoint "\n请确定基准点:"))
    (command "move" ss "" p '(0 0) "")
)

start4444

(command "move" (ssget) "" pause  "0,0" )

ninja37

start4444 发表于 2020-3-10 22:39
(command "move" (ssget) "" pause  "0,0" )

谢谢 ，很好用，很简洁的用法

ninja37

lht 发表于 2020-3-10 22:37
(defun c:M00 ()
    (setvar "osmode" 35)
    (setq ss (car (entsel "\n请选择图元:")))

谢谢 ，很好用，方便多了。