exportar de excel a autocad

[karicf]

Hola

Espero puedan ayudarme, soy principiante en autolisp y quisiera saber como puedo importar el contenido de un archivo txt a un archivo dwg, encontre un ejemplo pero por lo que pude ver se necesitan poner las coordenadas dentro del mismo archivo y en mi caso no sería así.

Este es el código:

Código:
;;;;;;;;;;;;;;;;;;;;;;LECTURA DE FICHERO DE PUNTOS ASCII;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;


;;;;;; El fichero ascii debe tener el formato: nº punto,X punto, Y punto, Z punto, Código
;;;;;; Los campos deben estar separados por comas.
;;;;;; Los puntos repetidos también los pone.




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;PARÁMETROS DE CONFIGURACIÓN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN configura()
(if (not (tblsearch "layer" "puntos_2d"))
(COMMAND "_-layer" "_n" "puntos_2d" "")
(COMMAND "_-layer" "_t" "puntos_2d" "")
)
(if (not (tblsearch "layer" "puntos_3d"))
(COMMAND "_-layer" "_n" "puntos_3d" "")
(COMMAND "_-layer" "_t" "puntos_3d" "")
)
(if (not (tblsearch "layer" "1"))
(COMMAND "_-layer" "_n" "1" "_c" "1" "1" "")
(COMMAND "_-layer" "_t" "1" "")
)
(if (not (tblsearch "layer" "2"))
(COMMAND "_-layer" "_n" "2" "_c" "2" "2" "")
(COMMAND "_-layer" "_t" "2" "")
)
(if (not (tblsearch "layer" "3"))
(COMMAND "_-layer" "_n" "3" "_c" "3" "3" "")
(COMMAND "_-layer" "_t" "3" "")
)

(setq npuntos 0)

)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Selecciona archivo de puntos
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(DEFUN selec()
(SETQ fich (OPEN (GETFILED " Selecciona archivo ASCII" "c:\\" "txt;doc" 28) "r"))
(SETQ linea (read-line fich));Esta línea en realidad no pinta nada aquí. Lo que ocurre
;es que esta rutina está sacada de otra que además contempla la apertura de otro tipo de ficheros
;y la lectura de la primera línea indica qué tipo de fichero sería. Si queréis podéis implementar
;esta rutina con otras opciones.
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Parámetros de configuración de los textos
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(DEFUN textos()
(SETQ dt (GETDIST "\nDistancia del punto al texto: "))
(SETQ at (GETDIST "\nAltura de los textos: "))
(COMMAND "_-style" "standard" "romans.shx" at "1" "0" "_N" "_N" "_N")
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Si el archivo es un ASCII
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(DEFUN asci (/ n1 n1tx longn1tx x1 x2 x2tx longx2tx y1 y2 y2tx longy2tx z1 z2 z2tx longz2tx c1)
;Como ya hemos leido la primera línea pasamos directamente a calcular el primer punto
;Primer punto
(setq n1 (atof linea))
(setq n1tx (rtos n1 2 0))
(setq longn1tx (strlen n1tx))

;;; X del punto 1
(setq x1 (substr linea (+ longn1tx 2)))
(setq x2 (atof x1))
(setq x2tx (rtos x2))
(setq longx2tx (strlen x2tx))

;;; Y del punto 1
(setq y1 (substr linea (+ longn1tx 1 longx2tx 2)))
(setq y2 (atof y1))
(setq y2tx (rtos y2))
(setq longy2tx (strlen y2tx))

;;; Z del punto 1
(setq z1 (substr linea (+ longn1tx 1 longx2tx 1 longy2tx 2)))
(setq z2 (atof z1))
(setq z2tx (rtos z2))
(setq longz2tx (strlen z2tx))

;;; Código del punto 1
(setq c1 (substr linea (+ longn1tx 1 longx2tx 1 longy2tx 1 longz2tx 2)))

(SETQ numpto1 n1tx)
(SETQ coordx1 x2tx)
(SETQ coordy1 y2tx)
(SETQ coordz1 z2tx)
(SETQ codigo c1)

(dibujapunto)

;;;;; Resto de puntos
(WHILE (/= linea nil)
(SETQ linea (read-line fich))
(if (/= linea nil);Cuando se cumpla es que ya se habrá acabado el fichero
(progn
;;;numero del punto
(setq n1 (atof linea))
(setq n1tx (rtos n1 2 0))
(setq longn1tx (strlen n1tx))

;;; X del punto
(setq x1 (substr linea (+ longn1tx 2)))
(setq x2 (atof x1))
(setq x2tx (rtos x2))
(setq longx2tx (strlen x2tx))

;;; Y del punto
(setq y1 (substr linea (+ longn1tx 1 longx2tx 2)))
(setq y2 (atof y1))
(setq y2tx (rtos y2))
(setq longy2tx (strlen y2tx))

;;; Z del punto
(setq z1 (substr linea (+ longn1tx 1 longx2tx 1 longy2tx 2)))
(setq z2 (atof z1))
(setq z2tx (rtos z2))
(setq longz2tx (strlen z2tx))

;;; Código del punto
(setq c1 (substr linea (+ longn1tx 1 longx2tx 1 longy2tx 1 longz2tx 2)))

(SETQ numpto1 n1tx)
(SETQ coordx1 x2tx)
(SETQ coordy1 y2tx)
(SETQ coordz1 z2tx)
(SETQ codigo c1)

(dibujapunto)
)
)
)
)



;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Dibuja los puntos
;;;;;;;;;;;;;;;;;;;;;;;;;;;

(DEFUN dibujapunto (/ numpto coordz coordz2 pto2d pto3d xcota ycota xnumero ynumero
xcodigo ycodigo conj controlbase enti nomb num numpto)
(if (/= npuntos 0)(setq puntoa (list coordx coordy)))

(SETQ numpto (itoa (ATOI numpto1)))
(SETQ coordx (distof coordx1))
(SETQ coordy (distof coordy1))
(SETQ coordz (DISTOF coordz1))
(setq coordz2 (rtos coordz 2 2))
(SETQ pto2d (LIST coordx coordy))
(SETQ pto3d (LIST coordx coordy coordz))

(SETQ xcota (+ coordx dt))
(SETQ ycota coordy)
(SETQ xnumero xcota)
(SETQ ynumero (+ ycota at 0.2))
(SETQ xcodigo xcota)
(SETQ ycodigo (- ycota (+ 0.2 at)))


; inserta y dibuja los puntos
(setvar "clayer" "puntos_2d")
(COMMAND "_point" pto2d)

(setvar "clayer" "puntos_3d")
(COMMAND "_point" pto3d)

(setvar "clayer" "1")
(SETQ ptx (LIST xnumero ynumero))
(COMMAND "_text" ptx "" numpto)

(setvar "clayer" "2")
(SETQ ptx (LIST xcota ycota))
(COMMAND "_text" ptx "" coordz2)

(setvar "clayer" "3")
(SETQ ptx (LIST xcodigo ycodigo))
(if (/= codigo " ") (COMMAND "_text" ptx "" codigo))

(setq npuntos (+ npuntos 1))
)


;;;;;;;;;;;;;;;;;;;;;;
;;;;;INICIO PROGRAMA
;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN lectura (/ dt at unecod fich linea lineatipo tipoarch tipo numpto1 coordx1 coordy1
coordz1 codigo1 codigo puntoa puntob codpuntoa codpuntob coordx coordy)
(configura)
(selec)
(textos)
(asci)
(terpri)
(prompt "Dibujando nube de puntos.....")
(setvar "clayer" "puntos_2d")
(setvar "cmdecho" 1)
(setvar "osmode" 8)
(command "_zoom" "_e")
;(PROMPT "\nSe han insertado ")
(princ "\nSe han insertado ")
(PRIN1 npuntos)
(princ " puntos") (TERPRI)
(princ "© Roberto González ;-)")
(PRIN1)
)

Tambien tengo un ejemplo pero es un .vlx y por lo tanto no puede ver su codigo solo que el problema que tiene es que no importan los datos directamente de un excel y tiene problemas con campos combinados.
Espero puedan ayudarme, de antemano gracias.

Saludos

[DonLeandro]

http://www.arquinauta.com/foros/showthread.php?t=11435

Yo subi unas rutinas (y otros usuarios tambien) para hacer el proceso inverso pero estoy casi seguro que se puede hacer de excel a autocad
sino chequea esto

http://www.hispacad.com/foro/viewtop...=excel+autocad

[dvding]

si entendi bien, tu quieres pasar coordenadas x y z en sus combinaciones, de excel se convierte a formato txt, yo lo jalo al autocad por medio del civil cad,, es bueno

[gilsoto13]

Yo lo he hecho varias veces ya y funciona a la perfeccion el ASCPOINT.lsp, solo hay que guardarcomo en el excel a .txt con tabulaciones, luego editar el archivo de texto a que quede con este formato:

421039,1990447,0
421037,1990451,0

con el numero de renglones que se deseen, y el archivo lisp creará lineas continuas con las coordenadas de esos puntos, y tambien hay que poner el archivo .txt en alguna ruta que podamos teclear completa en la barra de comandos de autocad como

C:\Mis Documentos\acads\01.txt

y ya con eso.
sale

[rlopezgt]

Concuerdo con DvDing, es más fácil con el CivilCAD, ya que tiene un módulo de ingreso de coordenadas, ya sea en UTM o coordenadas GPS. Solamente tienes que ingresar el archivo con formato ASCII. Luego el CivilCAD te ayuda a corregir el polígono y a elaborar el derrotero.

[jhonatanp]

tambien se puede desarrollar en el autocadland con el formato txt.

[mgjaja]

Alguien pudiera explicar como hacerlo en civilcad...Gracias.

[pedropc]

Existe una excel que exporta los puntos y los dibuja en autocad con el nombre XYZ-dxf v13.xls que permite pasarlos en dos o en tres dimensiones. Insertas los nombres de los puntos, las coordenadas y las capas en las que quieres que aparezcan en la hoja coordenadas, luego seleccionas como lo quieres dibujar en la hoja previsualización, y como te lo va a dibujar en la hoja opciones.
Te genera una nueva excel en el disco raiz (C), y un fichero dxf en el mismo disco.
La hoja es de Juan Manuel Anguita Ordoñez, y espero os sirva de algo
Saludos

[hogri72]

nesecito importar texto de excel a autocad con la rutina impo.vlx, pero lo quiero hacer con comas separando los miles, con la rutina actual no me lo crea. Es urgente. Espero me puedan ayudar. Muchisimas gracias.

[amigosoyahoo]

Gracias...
...
...

[arkitool]

Hola,

En el programa ARKITool 2010 teneís una solución a esto de importar puntos. El comando se llama "TOP-IMPORTAR":

Aquí teneís el vídeo:



Para descargar ARKITool 2010.

Los otras 425 rutinas y comandos de ARKITool 2010.