CAD中将一样的圆替换为块

 针对Revit软件中翻模插件一般是基于CAD图块生成构件进行翻模操作，为解决在图纸标准化程度不足或块被无故炸开后无法进行翻模的问题，使用下述CAD插件在CAD图纸中，将选择类似对象选中的一致构件替换为名称一致的通一个块，使图纸支持翻模；下述插件功能以圆为例制作；

效果展示

源码

 ; Copyright By 嗜血星空earth
 ;将选中的一模一样的圆替换为块；注：圆的尺寸必须一样；

(defun c:CB (/ ss i ent blockName basePoint)
  (setq blockName (getstring "\n请输入块的名称: ")) ; 提示用户输入块名称
  (if (and blockName (not (equal blockName "")))
    (progn
      (setq ss (ssget '((0 . "CIRCLE")))) ; 手动选择圆形
      (if ss
        (progn
          (setq i 0) ; 初始化计数器
          ; 获取第一个圆的实体名称和圆心
          (setq ent (ssname ss i)) 
          (setq basePoint (cdr (assoc 10 (entget ent)))) ; 获取圆心
          
          ; 创建块
          (command "_BLOCK" blockName basePoint ent "") ; 创建块并指定基点和实体

          ; 在第一个圆的位置插入块（原始位置）
          (command "_INSERT" blockName basePoint 1 1 0)

          ; 遍历所有圆
          (repeat (sslength ss)
            (setq ent (ssname ss i)) ; 获取当前圆
            ; 在圆心位置插入块
            (command "_INSERT" blockName (cdr (assoc 10 (entget ent))) 1 1 0)
            ; 删除原来的圆
            (command "_ERASE" ent "") ; 清理圆形
            (setq i (1+ i)) ; 计数器增加
          )
        )
        (princ "\n未选择任何圆形对象！") ; 如果未选择任何圆形，则提示
      )
    )
    (princ "\n块名称无效！") ; 如果用户未输入有效块名称，则提示
  )
  (princ)
)

使用

   下载下方附件，在cad中点击工具-加载应用程序-选中下载的文件-加载;对插件进行加载；加载后，使用CB命令执行命令，根据提示给定块的名称后点击空格进行执行；

  为保证插件执行准确性，内容选中务必通过右键图元-选择类似对象进行对象选择；

附件下载

点此下载cad圆转块插件，插件格式为lsp；