角度标注样式

Free-Lancer

三点标注，示例仅对 Line
[pcode=lisp,true](defun c:tt (/ sp1 ep1 sp2 ep2 e1 e2 d p1 p2 p)
  (setq        ms (vla-get-modelspace
             (vla-get-activedocument (vlax-get-acad-object))
           )
  )
  (while (and (setq e1 (car (entsel "\nFirst Line: ")))
              (setq e2 (car (entsel "\nSecond Line: ")))
              (setq p (getpoint "\nDim Location: "))
         )
    (setq sp1 (vlax-curve-getstartpoint e1)
          ep1 (vlax-curve-getendpoint e1)
          sp2 (vlax-curve-getstartpoint e2)
          ep2 (vlax-curve-getendpoint e2)
    )
    (if        (setq pcen (inters sp1 ep1 sp2 ep2 nil))
      (progn
        (setq d         (distance pcen p)
              p1 (polar        pcen
                        (if (equal pcen sp1 1e-8)
                          (angle pcen ep1)
                          (angle pcen sp1)
                        )
                        (* d 0.5)
                 )
              p2
                 (polar        pcen
                        (if (equal pcen sp2 1e-8)
                          (angle pcen ep2)
                          (angle pcen sp2)
                        )
                        (* d 0.5)
                 )
        )       
        (vla-adddim3pointangular
          ms
          (vlax-3d-point pcen)
          (vlax-3d-point p1)
          (vlax-3d-point p2)
          (vlax-3d-point p)
        )
      )
    )
  )
  (princ)
)[/pcode]

守仁格竹GM

Free-Lancer 发表于 2013-6-4 21:00
三点标注，示例仅对 Line
(defun c:tt (/ sp1 ep1 sp2 ep2 e1 e2 d p1 p2 p)
  (setq        ms (vla-get-model ...

这个可以直接做成通用函数了，多谢版主大力支持！

栋梁

学习学习一下