本帖最后由 ynhh 于 2026-3-8 13:00 编辑

适用于直线和多段线
可指定标注文字的位置
可自定标注文字大小并保留给下次输入用

(defun C:QQ (/ ss ent obj start end segdata i j n pt1 pt2 an an1 group groups
             p txt_height old_cmdecho old_dimtxt old_dimasz old_dimexe old_dimgap old_dimdec
             item1 item2 ent1 ent2 pt1 pt2 midpt ang dimpt dim_ent ed)

  (vl-load-com)
  (princ "\n=== 自动批量标注平行线间距（安全版）===\n")

  ;; 选择对象
  (setq ss (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE"))))
  (if (not ss)
    (progn
      (princ "\n未选择任何对象，程序退出。")
      (exit)
    )
  )