ninja37 发表于 2020-3-10 21:08:21

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

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

lht 发表于 2020-3-10 22:37:56

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

start4444 发表于 2020-3-10 22:39:34

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

ninja37 发表于 2020-3-11 10:10:37

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

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

ninja37 发表于 2020-3-11 10:10:16

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


谢谢 ，很好用，方便多了。
页: [1]
查看完整版本: 求求哪位高手告诉我怎么改一下这个移动到原点的命令