COORDENADAS

Hola a Todos.

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


Se los agradezco


Saludos

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

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.

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

Saludos

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