直线或多段线均可，多边形无闭合要求，可批量操作
AI编写的反复修改了多次

;;;批量标注多边形外轮廓高宽

(setq *last_dim_height* 22.0)

(defun c:PolygonDim (/ ss lines groups ptlist bbox width height txt_height pt1 pt2 dim_offset
                      old_cmdecho old_dimtxt old_dimasz old_dimexe old_dimgap old_dimdec dim_ent)
  (vl-load-com)

  (princ "\n=== 批量标注多边形轮廓尺寸（粉红色标注，精度0）===\n")

  ;; 选择图元（直线和多段线）
  (setq ss (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE"))))
  (if (not ss)
    (progn
      (princ "\n未选择任何直线或多段线，程序退出。")
      (exit)
    )
  )







网友答: 不好意思，走错地方了。

网友答: 不就是计算包围盒的 两点？  不用这么复杂吧

网友答:
你说的对，这有些复杂了