¿Cómo medir ángulos en AutoCAD?

[Ray-Sync]

Hola, ¿cómo debería medir ángulos externos? A continuación, djunto imagen para aclarar mi pregunta:

[Richard.Vivanco · Accepted solution]

Quizás te pueda servir mi tutorial

https://www.youtube.com/watch?v=UBHkVWNE_n4

[calderg1000 · Accepted solution]

Saludos  @Ray-Sync 

Adjunto aquí una alternativa....

;;;___
(defun c:darc (/ sn i j p ps)
  (setq
    sn (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*line"))))))
  )
  (foreach i sn
    (if (= (cdr (assoc 0 (entget i))) "LWPOLYLINE")
      (setq
        p (mapcar 'cdr
                  (vl-remove-if-not '(lambda (j) (= (car j) 10)) (entget i))
          )
      )
      (setq p (list (cdr (assoc 10 (entget i))) (cdr (assoc 11 (entget i)))))
    )
    (setq lp (cons p lp)
    )
  )
  (setq ps (inters (caar lp) (cadar lp) (caadr lp) (cadadr lp)))
  (command "_dimangular" "" ps "pause" "pause" "pause")
)

 

[Ray-Sync]

Gracias, @calderg1000 , tu código me será de mucha utilidad para mi programación en AutoCAD con VBA.

[calderg1000]

Saludos...

Aquí adjunto una mejora  a la rutina anterior para acotar ángulos mayores a 90° para el caso de una sola polilinea de 2 tramos y cuando las líneas o polilineas no presentan el punto de intersección visible.

Espero les sea de ayuda.

;;;___
(defun c:darc (/ sn i j p ps lp)
  (setq
    sn (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*line"))))))
  )
  (if (and (> (length sn) 1) (< (length sn) 3))
    (progn
      (foreach i sn
        (if (= (cdr (assoc 0 (entget i))) "LWPOLYLINE")
          (setq
            p
             (mapcar 'cdr
                     (vl-remove-if-not '(lambda (j) (= (car j) 10)) (entget i))
             )
          )
          (setq
            p (list (cdr (assoc 10 (entget i))) (cdr (assoc 11 (entget i))))
          )
        )
        (setq lp (cons p lp)
        )
      )
      (setq ps (inters (caar lp) (cadar lp) (caadr lp) (cadadr lp) nil))
      (command "_dimangular" "" ps "pause" "pause" "pause")
    )                                            
    (progn
      (foreach i sn
        (if (= (cdr (assoc 0 (entget i))) "LWPOLYLINE")
          (setq
            p
             (mapcar 'cdr
                     (vl-remove-if-not '(lambda (j) (= (car j) 10)) (entget i))
             )
          )
        )
        (setq lp (cons p lp)
        )
      )
      (command "_dimangular" "" (cadar lp) (caar lp) (last (car lp)) "pause")
    )
  )
)