Ayuda para obtener las coordenadas de un punto
2 participantes
Página 1 de 1.
Ayuda para obtener las coordenadas de un punto
Buen día a todos en el Foro.
Pasa lo siguiente: Quiero modificar una rutina que uso a diario, es más que todo visual y para ello necesito obtener las coordenadas "X, Y" de un punto en la pantalla. Este punto es al que quiero mover un cuadro o rectángulo (al correr el lisp lo entenderán).
Es sí es esto: dibujo un rectángulo en las coordenadas "100,100" "300,300" y lo muevo desde las coordenadas "100,100" a un punto cualquiera en la pantalla. La pregunta en si es: ¿ como le asigno a una variable las coordenadas de ese punto?
Si pueden ayudarme, les agradezco.
Este es el código que tengo :
(defun c:mrt (/)
(command "_.rectang" "100,100" "300,300")
(command "move" "last" "" "100,100" pause)
)
Saludos
Pasa lo siguiente: Quiero modificar una rutina que uso a diario, es más que todo visual y para ello necesito obtener las coordenadas "X, Y" de un punto en la pantalla. Este punto es al que quiero mover un cuadro o rectángulo (al correr el lisp lo entenderán).
Es sí es esto: dibujo un rectángulo en las coordenadas "100,100" "300,300" y lo muevo desde las coordenadas "100,100" a un punto cualquiera en la pantalla. La pregunta en si es: ¿ como le asigno a una variable las coordenadas de ese punto?
Si pueden ayudarme, les agradezco.
Este es el código que tengo :
(defun c:mrt (/)
(command "_.rectang" "100,100" "300,300")
(command "move" "last" "" "100,100" pause)
)
Saludos
José Francisco- Mensajes : 46
Fecha de inscripción : 30/03/2016
Re: Ayuda para obtener las coordenadas de un punto
no veo claro lo que quieres pero prueba con algo parecido a esto
Un saludo
- Código:
(command "_move" "_last" "" (getpoint"\npunto base : ") pause)
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Ayuda para obtener las coordenadas de un punto
Buenos días.
Nolo, gracias por su ayuda.
Lo que estoy buscando es el punto (coordenadas "X,Y") al cual voy a mover el rectángulo, sé que lo muevo desde "100,100" pero "no sé" (puede ser cualquier punto) a que punto lo voy a mover.
Supongamos que quiero mover de nuevo el rectángulo, lo muevo desde qué punto?. Es un nuevo punto base y es el que quiero obtener.
No sé si me explico.
Agradezco su ayuda.
Nolo, gracias por su ayuda.
Lo que estoy buscando es el punto (coordenadas "X,Y") al cual voy a mover el rectángulo, sé que lo muevo desde "100,100" pero "no sé" (puede ser cualquier punto) a que punto lo voy a mover.
Supongamos que quiero mover de nuevo el rectángulo, lo muevo desde qué punto?. Es un nuevo punto base y es el que quiero obtener.
No sé si me explico.
Agradezco su ayuda.
José Francisco- Mensajes : 46
Fecha de inscripción : 30/03/2016
Re: Ayuda para obtener las coordenadas de un punto
A ver si es esto
Un saludo
- Código:
;; primero lo movemos a newp
(command "move" "last" "" "100,100" (setq newp (getpoint "Nuevo punto")))
;; luego lo movemos desde newp
(command "move" "last" "" newp pause)
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Ayuda para obtener las coordenadas de un punto
De nuevo, buen día.
Nolo, gracias.
Me ha dado la luz para encontrar lo que busco.
(defun c:mrt (/)
(command "_.rectang" "100,100" "300,300")
(command "move" "last" "" "100,100" pause)
(while
(setq c (getvar "lastpoint"))
(command "move" "last" "" c pause)
)
)
En verdad, mil gracias.
Saludos
Nolo, gracias.
Me ha dado la luz para encontrar lo que busco.
(defun c:mrt (/)
(command "_.rectang" "100,100" "300,300")
(command "move" "last" "" "100,100" pause)
(while
(setq c (getvar "lastpoint"))
(command "move" "last" "" c pause)
)
)
En verdad, mil gracias.
Saludos
José Francisco- Mensajes : 46
Fecha de inscripción : 30/03/2016
Re: Ayuda para obtener las coordenadas de un punto
De nada, pero tal y como lo tienes solo sales de la rutina interrumpiendola ya que siempre existirá el lastpoint
Creo que deberías utilizar lago así para que salgas cuando no pinches en un nuevo punto (botón derecho)
Un saludo
Creo que deberías utilizar lago así para que salgas cuando no pinches en un nuevo punto (botón derecho)
- Código:
(defun c:mrt (/)
(command "_.rectang" "100,100" "300,300")
(command "_move" "_last" "" "100,100" (setq newp (getpoint "Nuevo punto")))
(while newp
(command "_move" "_last" "" (getvar 'lastpoint) (setq newp (getpoint "Nuevo punto")))
)
)
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Ayuda para obtener las coordenadas de un punto
Nolo, es verdad, para salir le tenía que dar "ESC", (poco elegante).
De nuevo, muchas gracias.
De nuevo, muchas gracias.
José Francisco- Mensajes : 46
Fecha de inscripción : 30/03/2016
Temas similares
» Obtener Coordenadas y trazar poly en base a algunas de ellas.
» Ayuda con una rutina de coordenadas
» Ayuda con rutina lisp de Coordenadas
» Ayuda para modificar una rutina
» Macro para abrir archivo chm de ayuda
» Ayuda con una rutina de coordenadas
» Ayuda con rutina lisp de Coordenadas
» Ayuda para modificar una rutina
» Macro para abrir archivo chm de ayuda
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|