按圆心重合

刘炎华

如图片所示，要在圆心处重合。请高手帮忙！

start4444

(defun c:tt5 (/ en i pt ss)
        (setq ss (ssget '((0 . "arc,circle"))) en (entsel "\n选择基准对象：") pt (cdr (assoc 10 (entget (car en)))))
        (setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
                (command "move" en "" "non" (cdr (assoc 10 (entget en))) "non" pt)
        )
        (princ)       
)

xyp1964

1. (defun c:tt ()
   
2.   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))
   
3.   (if (and (setq s0 (car (entsel "\n选择基准对象: ")))
   
4.            (setq ss (ssget '((0 . "arc,circle"))))
   
5.       )
   
6.     (progn
   
7.       (command "undo" "be")
   
8.       (setq os (getvar "osmode"))
   
9.       (setvar "osmode" 0)
   
10.       (setq pt (xyp-dxf 10 s0))
    
11.       (setq i -1)
    
12.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.         (setq p1 (xyp-DXF 10 s1))
    
14.         (command "move" s1 "" p1 pt)
    
15.       )
    
16.       (command "undo" "e")
    
17.     )
    
18.   )
    
19.   (setvar "osmode" os)
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))<br />   (if (and (setq s0 (car (entsel "\n选择基准对象: ")))<br />            (setq ss (ssget '((0 . "arc,circle"))))<br />       )<br />     (progn<br />       (command "undo" "be")<br />       (setq os (getvar "osmode"))<br />       (setvar "osmode" 0)<br />       (setq pt (xyp-dxf 10 s0))<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq p1 (xyp-DXF 10 s1))<br />         (command "move" s1 "" p1 pt)<br />       )<br />       (command "undo" "e")<br />     )<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )

表骑马实开车

2. (defun c:tt (/ e m s ne)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (if (and (setq e (entsel "\n选择基准对象：")
   
6.                  s (ssget '((0 . "arc,circle")))
   
7.            )
   
8.       )
   
9.     (progn
   
10.       (setq m (cdr (assoc 10 (entget (car e)))))
    
11.       (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
    
12.         (setq ne (subst (cons 10 m) (assoc 10 (entget x)) (entget x)))
    
13.         (entmod ne)
    
14.       )
    
15.     )
    
16.   )
    
17.   (setvar "osmode" os)
    
18.   (princ)
    
19. )

(defun c:tt (/ e m s ne)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (if (and (setq e (entsel "\n选择基准对象：")<br />                  s (ssget '((0 . "arc,circle")))<br />            )<br />       )<br />     (progn<br />       (setq m (cdr (assoc 10 (entget (car e)))))<br />       (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))<br />         (setq ne (subst (cons 10 m) (assoc 10 (entget x)) (entget x)))<br />         (entmod ne)<br />       )<br />     )<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )

新手来练习练习

czb203

这个有什么用，介绍一下啊