[求助]选取的圆或圆弧，同圆心

my_autocad

选取的圆或圆弧，同圆心

做总图时，常常发现几个圆或弧，不同圆心，单个修改，或偏移修改相当麻烦，有没有一个LSP程序，可以使被选取的圆或圆弧，同圆心，（在半径不变的情况）

ZZXXQQ

如果是将所选的圆或圆弧转换(移动)到同心可以用下面的程序。

2. (DEFUN C:TT ()
3. (IF (AND (PRINC "\nSelect a Circle or Arc 选择一个圆或圆弧 :")
4.           (SETQ S1 (SSGET '((0 . "ARC,CIRCLE"))))
5.      ) (PROGN
6.   (SETQ PC (ASSOC 10 (ENTGET (SSNAME S1 0))))
7.   (IF (AND (PRINC "\nSelect Circle(s) or Arc(s) 选择要移动的圆或圆弧 :")
8.            (SETQ SS (SSGET '((0 . "ARC,CIRCLE"))))
9.       ) (PROGN
10.    (SETQ I -1)
11.    (REPEAT (SSLENGTH SS)
12.     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
13.           ENT (SUBST PC (ASSOC 10 ENT) ENT))
14.     (ENTMOD ENT)
15.    )
16.   ))
17. ))
18. (PRINC)
19. )

复制代码

my_autocad

恩，程序试用了，非常好，呵呵，万分感谢！