Re: Trucos y tips sobre AutoCad
Saludos Nanook!
gracias por tu ayuda pero ya logre realizar el codigo.. para el que algun dia lo necesite es
(defun c:cc ()
(Setvar "dimzin" 1)
(setq punto (getpoint "introducir el punto: "))
(setq puntox (car punto))
(setq puntoy (car (cdr punto)))
(setq fy (/ puntoy 10))
(setq finy (+ fy 600))
(setq impx (rtos puntox 2 2))
(setq impy (rtos finy 2 2))
(command "_text" "tc" punto "0" impy "")
(command "_text" "tc" (list puntox (- puntoy 1.4)) "0" impx "")
)
esto e ahorrar horas de trabajo..
pero igual sigo con la intriga de la polilinea!!! es posible crear algun comando que me coloque puntos en cada vertice de una polilinea? ..
Gracias
__________________
si lo imaginas, lo animas ! :D
|