tema Re: Obtener el Angulo de rotación del UCS personalizado en AutoCAD - Todos los productos - Foro en Español

¿Cómo obtener el Angulo de rotación del UCS personalizado en AutoCAD?

renzonet — Tue, 08 Feb 2022 14:10:07 GMT

Hola todos, tengo varios planos rotados y quiero insertar bloques mediante lisp o .net pero estos se dibujan rotados y no orientados al USC personalizado.

Alguien sabe como obtener el ángulo de rotación del plano?. porque quiero obtener ese angulo al momento de insertar el bloque o texto.

Gracias.

@renzonet para una mayor claridad @joaquim.moral ha editado el título original: Obtener el Angulo de rotación del UCS personalizado

Recuerda consultar cómo escoger el mejor título para tu post. ¡Gracias por participar!

Re: Obtener el Angulo de rotación del UCS personalizado

Valentin_CAD — Tue, 08 Feb 2022 10:39:57 GMT

@renzonet ,

Utilice la siguiente opción, PLAN = World.

Re: Obtener el Angulo de rotación del UCS personalizado

calderg1000 — Tue, 08 Feb 2022 12:08:22 GMT

Saludos @renzonet

Puede haber varias formas de obtener el angulo de rotacion de un sistema rotado; una forma sencilla es trazando una linea en dicho sistema con F8 activado. Luego regresar al distema Universal (ucs= W), aplicar el comando LIST a la linea y te dara el Angulo de rotacion. Tambien lo puedes visualizar en el cuadro de propiedades o puedes tambien hacer una medición del Angulo.

Re: Obtener el Angulo de rotación del UCS personalizado

renzonet — Tue, 08 Feb 2022 12:57:46 GMT

Gracias pero no es lo que necesito, no quiero agregar mas procedimientos.

estoy usando este código:

PaBlock = AcadDoc.ModelSpace.InsertBlock(XY, "C:\LispTin\Texto_Block.dwg", 1, 1, 1, AngRota)

Cuando uno inserta manualmente un block y obvia o solo pone un Enter cuando te pide ángulo te inserta ya rotado según la vista actual. habrá algo similar en que pueda hacer en mi código?

Re: Obtener el Angulo de rotación del UCS personalizado

renzonet — Tue, 08 Feb 2022 13:03:17 GMT

Gracias, pero no quiero agregar mas procedimientos a mi código.
Buscando encontré el UCSXDIR pero me bota esto 0.8444,0.5357,0.0000 como puedo calcular el ángulo con esta informacion?

Re: Obtener el Angulo de rotación del UCS personalizado

calderg1000 — Tue, 08 Feb 2022 14:14:20 GMT

Saludos @renzonet

Esta expresión lisp te da el Angulo de giro del UCS actual

(* (atan (/ (cadr (getvar "ucsxdir")) (car (getvar "ucsxdir")))) (/ 180 pi))

Re: Obtener el Angulo de rotación del UCS personalizado

renzonet — Tue, 08 Feb 2022 18:55:13 GMT

Muchas Gracias @calderg1000 , Es lo que necesitaba.

Mi código en Lisp:

(setq Pxyz (getpoint "Indique punto : ")) (command "Ucs" "V") (setq Rot(* (atan (/ (cadr (getvar "ucsxdir")) (car (getvar "ucsxdir")))) (/ 180 pi))) (setq texto "Mi Texto") (command "Ucs" "W") (command "._text" Pxyz Rot texto)

Mi código en VB o .NET:

Dim ucsxdir As Object Dim angrot As Single Dim Punto As Object Dim textObj As AcadText Punto = AcadDoc.Utility.GetPoint(, "Enter a point: ") AcadDoc.SendCommand("UCS V ") ucsxdir = AcadDoc.GetVariable("UCSXDIR") angrot = Math.Atan(ucsxdir(1) / ucsxdir(0)) AcadDoc.SendCommand("UCS WORLD ") textObj = AcadDoc.ModelSpace.AddText("Mi Texto", Punto, 1.5) textObj.Rotation = angrot textObj.Update()

Nótese que en VB la rotación se introduce en radianes.

Re: Obtener el Angulo de rotación del UCS personalizado

giovakasafus — Sun, 12 Nov 2023 13:25:44 GMT

La variable NORTHDIRECTION, es el paso más rápido para hallar ese ángulo.