如何在AutoCAD中选择内部无指定块的闭合二维多段线

(defun c:CheckPolyWithBlock (/ ss_polys ss_blk blkname poly_list ent pt blk_ss)
  ;; 选择闭合多段线
  (if (setq ss_polys (ssget '((0 . "LWPOLYLINE") (70 . 1))))
    (progn
      ;; 选择目标块
      (if (setq ss_blk (ssget '((0 . "INSERT"))))
        (progn
          ;; 获取块名
          (setq blkname (cdr (assoc 2 (entget (ssname ss_blk 0)))))
          ;; 遍历所有闭合多段线
          (setq poly_list '())
          (repeat (sslength ss_polys)
            (setq ent (ssname ss_polys (setq i (1+ (or i -1)))))
            ;; 获取多段线质心（作为内部点）
            (setq pt (vlax-curve-getAreaCentroid ent))
            ;; 检查该点位置是否存在目标块
            (setq blk_ss (ssget "_C" pt pt (list (cons 2 blkname))))
            ;; 如果无对应块，加入高亮列表
            (if (null blk_ss)
              (setq poly_list (cons ent poly_list))
            )
          )
          ;; 高亮所有符合条件的多段线
          (foreach ent poly_list
            (redraw ent 3)
          )
          (princ (strcat "\n共高亮 " (itoa (length poly_list)) " 个内部无指定块的闭合多段线"))
        )
        (princ "\n未选择到任何块对象")
      )
    )
    (princ "\n未选择到任何闭合多段线")
  )
  (princ)
)

程序使用说明 #

• 运行命令CheckPolyWithBlock（可简化输入CPWB）
• 第一步选择闭合多段线，程序会自动过滤非闭合的多段线
• 第二步选择一个目标块，程序将以该块的名称作为检查依据
• 程序会自动高亮所有内部无该块的闭合多段线，取消高亮可执行REGEN命令刷新视图

关键逻辑说明 #

• ssget '((0 . "LWPOLYLINE") (70 . 1))：通过DXF代码过滤，仅选择闭合状态的多段线
• vlax-curve-getAreaCentroid：获取多段线的面积质心，确保该点必然处于闭合多段线内部
• ssget "_C" pt pt ...：用单点交叉选择逻辑，检查质心位置是否存在目标块，仅内部的块会被选中

内容的提问来源于stack exchange，提问作者Kevin. Perez