悬赏50币，求一个移动图纸到指定点的功能

664571221 · 发表于 2016-1-14 14:46

本帖最后由 664571221 于 2016-1-19 20:03 编辑

陈进佳 · 发表于 2016-1-14 14:46

(defun c:tt()
(xyp-Subupd (ssget '((0 . "circle") (40 . 1000))) 40 1000)
)

jpg102329 · 发表于 2016-1-14 15:01

(defun c:tt(/)
(setvar "cmdecho" 0)
(setq ss(ssget))
(setq ss1(ssget "p" '((0 . "CIRCLE") (40 . 500) )))
(setq p0(cdr (assoc 10 (entget (ssname ss1 0)))))
(command "move" ss "" p0 "0,0"))

qinlianggao · 发表于 2016-1-19 17:33

学习了好东西哦学习了

zhangcan0515 · 发表于 2020-9-16 21:45

学习了比较实际

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

[已解答] 悬赏50币，求一个移动图纸到指定点的功能

最佳答案