配置角度尺寸

(defun c:test (/ AT:MakeReadable ss i d)
  (defun AT:MakeReadable (ang)
    ;; Make angle readable
    ;; Alan J. Thompson, 12.14.10 / 11.02.11
    (cond ((> ang (* pi 2.)) (AT:MakeReadable (- ang pi)))
          ((minusp ang) (AT:MakeReadable (+ ang pi)))
          ((if (and (> ang (/ pi 2.)) (vla-object (ssname ss (setq i (1- i)))))
      (if (eq (vla-get-objectname o) "AcDb2LineAngularDimension")
        (vla-put-textrotation
          o
          (AT:MakeReadable
            (angle
              (vlax-get o 'textposition)
              (apply
                'inters
                (reverse
                  (cons
                    nil
                    (mapcar
                      (function (lambda (prop) (vlax-get o prop)))
                      '(ExtLine1EndPoint ExtLine1StartPoint ExtLine2EndPoint ExtLine2StartPoint)
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (princ)
)