Hola...
Para tener el punto del poligono y ademas insertar un texto en el punto central
leyendo un archivo exterior lo puedes hacer de la siguiente forma:
(defun c:tcen ()
(setvar "cmdecho" 0)
(setq pins (getpoint "\nPunto de insercion del poligono: "))
(setq num (getint "\nIngrese el numero de lados para el poligono: "))
(setq arch (open "datos.txt" "r"))
(setq dato (read-line arch))
(close arch)
(command "_text" "j" "m" pins "" "" dato)
(command "_polygon" num pins)
(command "")
(setvar "cmdecho" 1)
(prin1)
)
Donde dato, es el dato que extraeras del archivo datos.txt.
Ahora para madar a un archivo los datos extraidos desde AutoLISP se hace asi,
por ejemplo:
(setq arch (open "datos.txt" "w"))
(setq datoextraido (write-line arch))
(close arch)
Para escribir el nombre del archivo actual es igual a la forma anterior pero
extrayendo el nombre de la variable de sistema dwgname:
(setq nombre (getvar "DWGNAME"))
(setq arch (open "datos.txt" "w"))
(setq nombre (write-line arch))
(setq capas (write-line arch))
(close arch)
Nota: Si el archivo datos.txt no existe se crea solo, pero para leer el datos el
archivo ya debe existir...
Espero que te sirva...
Un saludo de SpeedCAD... :-)
