COORDENADAS

Ir abajo

COORDENADAS

Mensaje por saulo2016 el Mar Dic 05, 2017 6:05 pm

Hola a Todos.

Alguien del foro tendrá alguna rutina para poner COORDENADAS en un plano??.


Se los agradezco


Saludos
avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: COORDENADAS

Mensaje por nolo el Mar Dic 05, 2017 8:08 pm

Hola Saulo, no tengo ninguna pero seguro que es fácil de hacer con una premisas claras de lo que se quiere en cuanto a manejo y características del texto final.
Esta desde que tu pinches un punto, con referencias o sin ellas, que te lo ponga en movimiento hasta que vuelvas a pinchar etc hasta que te ponga el texto a una distancia y altura determinada de los puntos de una nube.
Seguro que de todo hay por ahí pero para alguien prepare algo tendrías que definir y aportar algo mas

Un saludo

nolo

Mensajes : 167
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: COORDENADAS

Mensaje por robierzo el Miér Dic 06, 2017 8:54 am

No sé exactamente a qué te refieres, pero Dominguez tiene una que va muy bien. Me parece que ya está puesta en el foro. Se llama DTCOOR o algo parecido.
avatar
robierzo

Mensajes : 53
Fecha de inscripción : 17/03/2016
Localización : La Coruña

Ver perfil de usuario http://www.selmotopografia.es

Volver arriba Ir abajo

Re: COORDENADAS

Mensaje por saulo2016 el Miér Dic 06, 2017 2:49 pm

Listo ya consegui la rutina del MASTER Dominguez...gracias amigos...

Saludos
avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: COORDENADAS

Mensaje por Dominguez el Lun Dic 18, 2017 8:58 pm

saulo2016 escribió:Listo ya consegui la rutina del MASTER Dominguez...gracias amigos...

Saludos
aunque mi rutina no es mala, existen otras opciones, por ejemplo esta.
Código:
; Escribe las coordenadas cartesianas ó polares de un punto.
(defun c:cc (/ pt1 xpt1 ypt1)
 (while (setq pt1 (getpoint " Señalar punto para coordenadas cartesianas: "))
  (setq xpt1 (car pt1)
 ypt1 (cadr pt1)
  )
  (command "_.TEXT" "_j" "_tc" pt1 "" "" (strcat (rtos xpt1 2 2) " , " (rtos ypt1 2 2)))
 )
)

 ;|Calcula coordenadas polares|;
(defun c:cp (/ cerox ceroy ptcero cerox2 ceroy2 ptc pt1 distancia ang)
 (setq cerox  0
       ceroy  0
       ptcero (list cerox ceroy)
       cerox2 0
       ceroy2 0
       ptc    (list cerox2 ceroy2)
 )
 (while (setq pt1 (getpoint " Señalar punto para coordenadas polares : "))
  (setq distancia (distance pt1 ptcero)
 ang  (angle ptcero pt1)
 ang  (/ (* 180 ang) pi)
  )
  (command "_.TEXT" "_j" "_tc" pt1 "" "" (strcat (rtos distancia 2 2) " < " (rtos ang 2 2) (chr 176)))
 )
)
(alert "CC  coordenadas cartesianas   \nCP   coordenadas polares: ")
o esta otra
Código:
 ; Escribe coordenadas con directriz (Con ó Sin Z) del (SCP actual) de los puntos indicados.
 ; Luis Dominguez Gómez  © 2013
(defun c:coor_point (/ ort zin alt decim pt1 pt2 x y z)
 (setvar "cmdecho" 0)
 (setq ort (getvar "orthomode"))
 (setq zin (getvar "dimzin"))
 (setvar "orthomode" 0)
 (setvar "dimzin" 1)
 (if (= #scl# nil)
  (while (not (setq #scl# (getreal "\nAltura de texto: "))))
  (progn (setq alt (getreal (strcat "\nAltura de texto: <" (rtos #scl#) ">")))
    (if (= alt nil)
     (setq #scl# #scl#)
     (setq #scl# alt)
    )
  )
 )
 (if (= #dec# nil)
  (while (not (setq #dec# (getint "\nCantidad de Decimales: "))))
  (progn (setq decim (getint (strcat "\nCantidad de Decimales: <" (itoa #dec#) ">")))
    (if (= decim nil)
     (setq #dec# #dec#)
     (setq #dec# decim)
    )
  )
 )
 (initget 7 "Si No")
 (if (or (= #z# nil) (= #z# ""))
  (while (not (setq #z# (getkword "\nCota Z [Si/No]: "))))
  (progn (setq cz (getstring (strcat "\nCota Z [Si/No]: <" #z# ">")))
    (if (= cz "")
     (setq #z# #z#)
     (cond   ((or (= cz "SI") (= cz "si") (= cz "S") (= cz "s")) (setq #z# "Si"))
      ((or (= cz "NO") (= cz "no") (= cz "N") (= cz "n")) (setq #z# "No"))
     )
    )
  )
 )
 (if (= #z# "Si")
  (while (setq pt1 (getpoint "\nPrimer punto: "))
  (setq pt2 (getpoint pt1 "\nSegundo punto: "))
  (setq x (nth 0 pt1))
  (setq y (nth 1 pt1))
  (setq z (nth 2 pt1))
  (vl-cmdf "_leader"
       pt1
       pt2
       "_a"
       (strcat "Este:" (rtos x 2 #dec#))
       (strcat "Norte:" (rtos y 2 #dec#))
       (strcat "Elev:" (rtos z 2 #dec#))
       ""
  )
  )
  (while (setq pt1 (getpoint "\nPrimer punto: "))
  (setq pt2 (getpoint pt1 "\nSegundo punto: "))
  (setq x (nth 0 pt1))
  (setq y (nth 1 pt1))
  (vl-cmdf "_leader"
       pt1
       pt2
       "_a"
       (strcat "Este:" (rtos x 2 #dec#))
       (strcat "Norte:" (rtos y 2 #dec#))
       ""
  )
  )
 )
 (setvar "orthomode" ort)
 (setvar "dimzin" zin)
 (prin1)
)
y muchas mas
Un saludo
avatar
Dominguez

Mensajes : 73
Fecha de inscripción : 20/03/2016
Edad : 68
Localización : Zaragoza (España)

Ver perfil de usuario

Volver arriba Ir abajo

Re: COORDENADAS

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.