各位大神帮忙我看下这个代码啥问题，就是移动图纸到一个指定的点，通过一个已经有圆形

664571221

各位大神帮忙我看下这个代码啥问题，就是移动图纸到一个指定的点，通过一个已经有圆形
就是图纸上已经有一个半径1000的圆形，通过这个代码选择图纸后移动到点200000.0这个坐标点，移动是可以移动，但经常是移动到他的附近，不能准确移动到200000.0这个坐标点，是啥问题大神帮忙看看


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  TZDW  图纸移动
(defun c:TZDW1(/)
(setvar "cmdecho" 0)
(setq ss(ssget))
(setq ss1(ssget "p" '((0 . "CIRCLE") (40 . 1000) )))
(setq p0(cdr (assoc 10 (entget (ssname ss1 0)))))
(command "move" ss "" p0 "200000,0"))

start4444

要把捕捉关掉

664571221

start4444 发表于 2024-4-28 12:27
要把捕捉关掉

可以在代码里面关闭吗，执行完后恢复

自贡黄明儒

上面说得对。(command "move" ss "" "non" p0 "non" "200000,0"))

xyp1964

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget))
   
3.            (setq ss1 (ssget "p" '((0 . "CIRCLE") (40 . 1000))))
   
4.       )
   
5.     (progn
   
6.       (setq p0 (cdr (assoc 10 (entget (ssname ss1 0)))))
   
7.       (command "move" ss "" "non" p0 "non" '(200000 0))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (if (and (setq ss (ssget))<br />            (setq ss1 (ssget "p" '((0 . "CIRCLE") (40 . 1000))))<br />       )<br />     (progn<br />       (setq p0 (cdr (assoc 10 (entget (ssname ss1 0)))))<br />       (command "move" ss "" "non" p0 "non" '(200000 0))<br />     )<br />   )<br />   (princ)<br /> )

OooCcc

664571221 发表于 2024-4-28 12:45
可以在代码里面关闭吗，执行完后恢复

2. (setq oldOSMODE (getvar "OSMODE")) ;;保存原有的捕捉参数
   
3. (setvar "OSMODE" 0)
   
4. ;;
   
5. ;;程序代码段......
   
6. ;;
   
7. (setvar "OSMODE" oldOSMODE) ;;恢复捕捉参数

(setq oldOSMODE (getvar "OSMODE")) ;;保存原有的捕捉参数<br /> (setvar "OSMODE" 0)<br /> ;;<br /> ;;程序代码段......<br /> ;;<br /> (setvar "OSMODE" oldOSMODE) ;;恢复捕捉参数

664571221

OooCcc 发表于 2024-4-29 09:50

谢谢大哥...

664571221

xyp1964 发表于 2024-4-28 19:33

谢谢派大..