tema Re: ¿Cómo medir ángulos en AutoCAD? en AutoCAD - Todos los productos - Foro en Español

¿Cómo medir ángulos en AutoCAD?

Ray-Sync — Sun, 08 Sep 2024 02:14:14 GMT

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

Re: ¿Cómo medir ángulos en AutoCAD?

Richard.Vivanco — Mon, 09 Sep 2024 02:06:19 GMT

Quizás te pueda servir mi tutorial

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

Re: ¿Cómo medir ángulos en AutoCAD?

calderg1000 — Tue, 10 Sep 2024 04:41:26 GMT

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") )

Re: ¿Cómo medir ángulos en AutoCAD?

Ray-Sync — Tue, 10 Sep 2024 19:18:54 GMT

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

Re: ¿Cómo medir ángulos en AutoCAD?

calderg1000 — Wed, 11 Sep 2024 03:45:13 GMT

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") ) ) )