Coordenadas relativas

Buen día señores, espero se encuentren muy bien.

Primero que nada, una disculpa por lo que según yo, es muy básico, pero en verdad estoy algo oxidado en lisp y no he podido encontrar la respuesta.

El asunto es que necesito dibujar unos rectángulos que deben tener entre otras dimensiones: 178 unidades de largo y 13 de alto, entonces escribí esta rutinita, pero no funciona como espero, confío en que debe ser una pequeñez, espero puedan orientarme, gracias...

Código:


(defun c:zxxx()
  (setq pto(getpoint "Punto para Insertat RECTÁNGULO..."))
  (vl-cmdf "_rectang" xx (list (+ (car pto)178)(- (car pto)13)))
  )


La idea es dibujar un rectángulo desde el punto seleccionado, con 178 unidades a la derecha y 13 unidades hacia abajo. Se que ingresandolas desde el teclado, se que es @178,-13, Pero en lisp no pude ingresarlo.

Saludos y gracias

Solo te falta arreglar esta linea
(vl-cmdf "_rectang" pto (list (+ (car pto) 178) (- (cadr pto) 13)))

Uffff

Muchas gracias maestro, craso error....

Saludos

eliasp escribió:Uffff

Muchas gracias maestro, craso error....

Saludos

tambien te vale esta otra forma
(defun c:zxxx ()
(setq pto (getpoint "Punto para Insertat RECTÁNGULO..."))
(vl-cmdf "_rectang" pto (polar (polar pto (* pi 1.5) 13) 0 178))
)

Solo por diversión (para liar un poco más la cosa...)

Código:


(defun C:TST ()
  (setq pto (getpoint "Punto para Insertar RECTÁNGULO..."))
  (vl-cmdf "_rectang" pto (mapcar '(lambda (x y) (+ x y)) pto '(178 -13 0.)))
  )


kasperle escribió:Solo por diversión (para liar un poco más la cosa...)

Código:


(defun C:TST ()
  (setq pto (getpoint "Punto para Insertar RECTÁNGULO..."))
  (vl-cmdf "_rectang" pto (mapcar '(lambda (x y) (+ x y)) pto '(178 -13 0.)))
  )


Perdona, pero esa opcion es la mas tecnica de todas.
un saludo