CAD中如何把圆批量改为点？

2026年09月18日 16:06

有5个网友回答

网友（1）：

要批量修改的话，只有安装一个小插件才可以办到，插件也是一个一个的修改，由于是电脑完成操作，减少了人工的工作量。

;;圆批量变为点
(defun C:tes ( / #g1 &k1 &kw1 c8 pt)
 (princ "\n请选择要变成点的圆")
 (if (setq &kw1 (ssget '((0 . "CIRCLE"))));选取圆
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq #g1 (entget &k1) pt (cdr (assoc 10 #g1)));提取圆心坐标
    (setq c8 (cdr (assoc 8 #g1)));提取圆图层
    (entmake (list '(0 . "POINT") (cons 8 c8) (cons 10 pt)));绘制点
    (entdel &k1);删除圆
   )
  )
 )
 (princ)
);复制到记事本，以【.lsp】为后缀命名，打开CAD，autolisp加载了，命令【TES】

网友（2）：

批量改为点，我假定你是想把圆都变成他们所在圆心的点；
你可以这么操作：
1、选择所有的圆；
2、右键→特性
3、在特性中的半径、直径、周长、面积的数据会显示*多种*，这时你随便把这四个数据中的任一个改为0，然后回车！
4、所有的圆都变成了点，点的位置是之前所在圆的圆心位置！

网友（3）：

右键--快速选择--选择你要选的图形模式--然后选择你要修改成的图形

网友（4）：

选择，右键选择类似，炸开，圆就炸开成圆心和圆外围线了

网友（5）：

不懂你的意思？