怎样把多个圆转化多个点，点就是圆心的位置，用cdr cad AI文泰软件，精雕软件，或其他插件都可以？

圆批量变点，autolisp代码如下，适合任何坐标系。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

(defun c:tes ( / &k1 &kw1 &p1 &tc1)

(if (null vlax-dump-object) (vl-load-com) )

(princ \”\n请选择圆\”)

(if (setq &kw1 (ssget ‘((0 . \”CIRCLE\”))))

(progn

(while (setq &k1 (ssname &kw1 0))

(setq &kw1 (ssdel &k1 &kw1))

(setq &k1 (vlax-ename->vla-object &k1))

(setq &tc1 (vla-get-layer &k1));图层

(setq &p1 (Vlax-SafeArray->List (Vlax-Variant-Value (vla-get-Center &k1))))

(vla-delete &k1)

(entmake (list ‘(0 . \”POINT\”) (cons 8 &tc1) (cons 10 &p1)))

);while

)

)

(princ)

);复制到记事本，以【.lsp】为后缀命名。cad命令【appload】加载，命令【TES】。

出现这样的情况，必须有dwg文件才可以修改，只有在dwg文件里面查看属性才可以做出修正。