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

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

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


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

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

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

(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:58

学习了好东西哦学习了

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

学习了 比较实际
页: [1]
查看完整版本: 悬赏50币，求一个移动图纸到指定点的功能