Red de conocimiento informático - Material del sitio web - ¿Cómo utilizar el lenguaje LISP para extraer el ángulo de inclinación del texto o líneas rectas en CAD?

¿Cómo utilizar el lenguaje LISP para extraer el ángulo de inclinación del texto o líneas rectas en CAD?

Tabla de texturas para líneas rectas:

((-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 . ) (0 . "TEXTO") (330 . ) (5 .

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