Buenas, quería saber si alguien me puede ayudar. Tengo que realizar unos pilotes representados por un cilindro, en total unos 1000.Cada uno tiene sus coordenadas x,y,z y dispongo de un archivo excel o txt con estos datos de coordanadas. ¿Existe alguna macro o alguna forma de crear estos cilindros cogiendo los datos de las corrdenadas x,y,z desde el fichero txt o excel?Gracias por la atención.
[COLOR=#008000]-- Read data from file[/COLOR]
!file = object FILE('C:\temp\cyl.txt')
!coord = !file.readFile()
[COLOR=#008000]-- Set Hierarchy to create cylinders[/COLOR]
/*
new site
new zone
new equi
[COLOR=#008000]-- Initialize values[/COLOR]
!heigth = 1000mm
!diameter = 10mm
[COLOR=#008000]-- Create cylinder at the given position[/COLOR]
do !read values !coord
new cyl hei $!heigth dia $!diameter
!temp = !read.split(',')
!pos = 'E' & !temp[1] & ' N' & !temp[2] & ' U' & !temp[3]
!!ce.position = !pos.position()
enddo
0,0,0
100,200,300
50,60,1000
Buenas, quería saber si alguien me puede ayudar. Tengo que realizar unos pilotes representados por un cilindro, en total unos 1000.Cada uno tiene sus coordenadas x,y,z y dispongo de un archivo excel o txt con estos datos de coordanadas. ¿Existe alguna macro o alguna forma de crear estos cilindros cogiendo los datos de las corrdenadas x,y,z desde el fichero txt o excel?Gracias por la atención.
[COLOR=#008000]-- Read data from file[/COLOR]
!file = object FILE('C:\temp\cyl.txt')
!coord = !file.readFile()
[COLOR=#008000]-- Set Hierarchy to create cylinders[/COLOR]
/*
new site
new zone
new equi
[COLOR=#008000]-- Initialize values[/COLOR]
!heigth = 1000mm
!diameter = 10mm
[COLOR=#008000]-- Create cylinder at the given position[/COLOR]
do !read values !coord
new cyl hei $!heigth dia $!diameter
!temp = !read.split(',')
!pos = 'E' & !temp[1] & ' N' & !temp[2] & ' U' & !temp[3]
!!ce.position = !pos.position()
enddo
0,0,0
100,200,300
50,60,1000