社区 › CAD › 配置角度尺寸

mark 发表于 2016-8-25 11:06:32

配置角度尺寸

是否可以配置角度尺寸以使文本呈径向？
谢谢

**** Hidden Message *****

alanjt 发表于 2016-8-25 12:08:54

？
(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)
)

mark 发表于 2016-8-25 14:36:37

太棒了。

alanjt 发表于 2016-8-29 11:41:16

这是一笔好买卖。

查看完整版本: 配置角度尺寸