¿Cómo utilizar el lenguaje LISP para extraer el ángulo de inclinación del texto o líneas rectas en CAD?
((-1 .
"DF2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "MOU") (100 .
"AcDbLine") (10 0.919113 2.15962 0.0) (11 4.32096 6.14953 0.0) (210 0.0 0.0
1.0))
Los elementos 10 y 11 son los dos extremos de la recta (10 0.919113 2.15962 0.0) (11 4.32096 6.14953 0.0). Estos dos extremos deben calcularse para obtener el ángulo de la recta.
Tabla primitiva de inclinadas. texto
((-1 .
"DF4" ) (100 . "AcDbEntity") (67 . 0) (410 . "Modelo") (8 . "MOU") (100 .
"AcDbText") (10 7.44934 1.78795 0.0) (40 . 1.235 ) (1 . "123456") (50 .
0.273648) (41 . 1.0) (51 . 0.0) (7 . "ROMAND") (71 . 0) (72 .0) (11 0.0 0.0
0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
El elemento número 50 (50 . 0.273648) está en ángulo en radianes, para convertir a ángulo (15,6789 grados)
Puedes usar el comando
(entget (car (entsel)))
para extraer la tabla de medidas.