topic Re: Gdl and read file in Libraries & objects

Gdl and read file

Anonymous — Tue, 13 Oct 2009 12:10:40 GMT

Here TXT file filling:

K30.00K62.00K5757.13
K130.00K267.00K5493.25
K230.00K472.00K5229.36
K454.00K932.00K4638.25
K554.00K1137.00K4374.36
K654.00K1341.00K4111.27

And my script:

!--> file names added
f1= "ARMDATA.txt"

!--> LIBRARY keyword added
ch1 = open ("TEXT", f1, "mode = ro,LIBRARY" )

!--> script continues as before

1:
n = input (ch1, "K", 1, var1,var2,var3)
if n <> -1 then

ADDX var1/1000
ADDY var2/1000
ROTX 90
CYLIND 12,var3/1000
ROTX 270
IF VAR1/1000<0 then ADDX VAR1/1000
IF VAR1/1000>0 then ADDX -VAR1/1000
IF VAR2/1000<0 then ADDY VAR2/1000
IF VAR2/1000>0 then ADDY -VAR2/1000
IF VAR3/1000<0 then ADDX VAR3/1000
IF VAR3/1000>0 then ADDX -VAR3/1000

goto 1
else
goto 2
endif
2:
close ch1

But he does not want to build my figure.

Re: Gdl and read file

ztaskai — Wed, 14 Oct 2009 12:44:44 GMT

Hi,

Your script has two fundamental problems.
- The 'K' separator should be passed to the 'OPEN' command.
- The 'INPUT' command need a proper row number to read.

I created the following equivalent script but seeing the result I doubt that this is what you aim for.

!--> file names added 
f1= "ARMDATA.txt" 

ch1 = open ("TEXT", f1, "separator = 'K'; mode = ro,LIBRARY" ) 

n = input (ch1, 1, 1, var1,var2,var3)
i = 1

while n > 2 do
	ADDX var1/1000 
	ADDY var2/1000 
	ROTX 90 
	CYLIND 12, var3/1000
	ROTX 270
	add -abs(var1/1000)-abs(var3/1000), -abs(var2/1000), 0
	i = i+1
	n = input (ch1, i, 1, var1,var2,var3)
endwhile

close ch1

HTH,
Zsolt

Re: Gdl and read file

Piotr Dobrowolski — Wed, 14 Oct 2009 14:39:42 GMT

Hi,

Similar problem.

Text file read write>

Is there any way (but using random no. generator) to get the "open" dialog box (always) when some switch is trigered?

And is there any way to create the file on saving via dialog box? (in database addon - it is possible but not in text addon) - the workaround is to create the new text file inside the save dialog (Win) - I do not know reliable workaround for Mac.

Best Regards,
Piotr

Re: Gdl and read file

Anonymous — Thu, 15 Oct 2009 08:55:51 GMT

ztaskai wrote:
Hi,

Your script has two fundamental problems.
- The 'K' separator should be passed to the 'OPEN' command.
- The 'INPUT' command need a proper row number to read.

I created the following equivalent script but seeing the result I doubt that this is what you aim for.
!--> file names added 
f1= "ARMDATA.txt" 

ch1 = open ("TEXT", f1, "separator = 'K'; mode = ro,LIBRARY" ) 

n = input (ch1, 1, 1, var1,var2,var3)
i = 1

while n > 2 do
	ADDX var1/1000 
	ADDY var2/1000 
	ROTX 90 
	CYLIND 12, var3/1000
	ROTX 270
	add -abs(var1/1000)-abs(var3/1000), -abs(var2/1000), 0
	i = i+1
	n = input (ch1, i, 1, var1,var2,var3)
endwhile

close ch1 
HTH,
Zsolt

That not so works well, as I thought.
I did a verification script, but a condition malfunctions....


!--> file names added 
f1= "ARMDATA.txt" 

ch1 = open ("TEXT", f1, "separator = 'K'; mode = ro,LIBRARY" ) 

n = input (ch1, 1, 1, var1,var2,var3) 
 
 IF var1=30.00 THEN CYLIND 10,0.006
 IF var2=62.00 THEN CYLIND 10,0.006
 IF var3=5757.13 THEN CYLIND 10,0.006

close ch1

Re: Gdl and read file

ztaskai — Fri, 16 Oct 2009 10:33:26 GMT

Alexonus wrote:
That not so works well, as I thought.
I did a verification script, but a condition malfunctions....


!--> file names added 
f1= "ARMDATA.txt" 

ch1 = open ("TEXT", f1, "separator = 'K'; mode = ro,LIBRARY" ) 

n = input (ch1, 1, 1, var1,var2,var3) 
 
 IF var1=30.00 THEN CYLIND 10,0.006
 IF var2=62.00 THEN CYLIND 10,0.006
 IF var3=5757.13 THEN CYLIND 10,0.006

close ch1

Well, since you defined K as a separator and you begin your data lines with a K, the first value read is an empty string which is converted to 0.

You have 2 options: (1) drop the first K from the beginning of your lines in the data file, (2) read the starting 0s into a dummy variable like this: n = input (ch1, 1, 1, dummy,var1,var2,var3).

I still don't think this is the end result you'd like to get you may have got closer to it.

Regards,
Zsolt

Re: Gdl and read file

Anonymous — Mon, 19 Oct 2009 06:17:13 GMT

Is there a simple function for returning to the beginning of coordinate system?

Re: Gdl and read file

Anonymous — Mon, 19 Oct 2009 07:18:17 GMT

Del top ?

Re: Gdl and read file

Anonymous — Mon, 19 Oct 2009 07:43:31 GMT

flat system of co-ordinates of x=any number y=any number, add x... y.... then needed return in x=0 y=0 .Something simpler than "abs"

Re: Gdl and read file

Anonymous — Tue, 20 Oct 2009 08:48:35 GMT

How to set the thickness of lines?

LINE2 x1, y1, x2, y2

Re: Gdl and read file

David Maudlin — Tue, 20 Oct 2009 12:55:39 GMT

Alexonus wrote:
How to set the thickness of lines?
LINE2 x1, y1, x2, y2

Alexonus:

Use the PEN statement, this will set the pen by number, the thickness will depend on the thickness of that pen number set in the Pen Set, see the GDL Reference Guide for more information.

You should add a Signature to your Profile (click the Profile button near the top of this page) with your ArchiCAD version and operating system (see mine for an example) for more accurate help in this forum.

David

Re: Gdl and read file

Anonymous — Tue, 20 Oct 2009 13:42:21 GMT

How can I draw a solid line if I have only x1,y1,x2,y,2

Re: Gdl and read file

Laszlo Nagy — Tue, 20 Oct 2009 14:56:22 GMT

Use the PEN command as suggested to set the color.
Use the LINETYPE command to set the linetype.
Then use the LINE2 command.

Re: Gdl and read file

Anonymous — Wed, 21 Oct 2009 12:54:17 GMT

I would like to build a 3D cylinder having co-ordinates of his beginning and end co-ordinate.

Re: Gdl and read file

ztaskai — Wed, 21 Oct 2009 13:06:25 GMT

Alexonus wrote:
I would like to build a 3D cylinder having co-ordinates of his beginning and end co-ordinate.

There is no explicit command for it in GDL. You have to do some coordinate geometry then:) You have to compute the actual length and the rotation angle of the cylinder based on the difference of coordinates. A nice task for returning to school memories:)

Re: Gdl and read file

Anonymous — Sat, 24 Oct 2009 13:44:53 GMT

ztaskai wrote:
Alexonus wrote:
I would like to build a 3D cylinder having co-ordinates of his beginning and end co-ordinate.
There is no explicit command for it in GDL. You have to do some coordinate geometry then:) You have to compute the actual length and the rotation angle of the cylinder based on the difference of coordinates. A nice task for returning to school memories:)

I thought there were predefined function for that ^_^

Re: Gdl and read file

Anonymous — Sat, 24 Oct 2009 21:39:07 GMT

Ruled?

Re: Gdl and read file

ztaskai — Mon, 26 Oct 2009 14:25:19 GMT

Juha wrote:
Ruled?

Good point. I didn't explicitly check it but I think ruled doesn't support curved edges. tube could work though. We usually don't use these commands whenever not absolutely necessary because they are less effective than the simple body generators.

Regards,
Zsolt

Re: Gdl and read file

David Maudlin — Tue, 27 Oct 2009 13:35:48 GMT

ztaskai wrote:
tube could work though.

The problem with TUBE is that you need a minimum of 4 points for the path (the first and last points are not part of the model itself, but determine the angle of the start and end planes), so this is not as simple a solution as Alexonus is looking for.

David

Re: Gdl and read file

ztaskai — Tue, 27 Oct 2009 14:25:31 GMT

David wrote:
The problem with TUBE is that you need a minimum of 4 points for the path (the first and last points are not part of the model itself, but determine the angle of the start and end planes), so this is not as simple a solution as Alexonus is looking for.

Exactly. Another reason why we don't use tube much 🙂

Thanks,
Zsolt

Re: Gdl and read file

Anonymous — Thu, 29 Oct 2009 20:06:41 GMT

Ok. I make my gdl with CYLINER, but i not undarstand where problem. Not work conditions sum=6


!--> file names added 
f1= "ARMDATA.txt" 

ch1 = open ("TEXT", f1, "separator = 'K'; mode = ro,LIBRARY" ) 

n = input (ch1, 1, 1,dummy, var1,var2,var3,var4,var5,var6) 
i = 1 

while n > 2 do 
sum=var1+var2+var3+var4+var5+var6
IF sum=6 THEN 

i = i+1  
n = input (ch1, i, 1, dummy,var7)
FOR I=1 TO var7
i = i+1  
n = input (ch1, i, 1, dummy,var8,var9)
ADDX var9/1000
ROTZ -90 
CYLIND var8,0.006
ADDX -var9/1000
ROTZ 90 
NEXT I

ENDIF

IF sum<>6 THEN   
   ADDX var1/1000 
   ADDY var2/1000 
  ROTZ var4  
  IF var4=0 and var2<>var6 THEN ROTZ 90
  ROTY 90
   
CYLIND var3/1000,0.006 
  
 ROTY 270  
 IF var4=0 and var2<>var6 THEN ROTZ -90
ROTZ -var4 

LINE2 var1/1000,var2/1000,var5/1000,var6/1000


IF var1>0 THEN ADDX -var1/1000
IF var1<0 THEN ADDX -var1/1000
IF var2>0 THEN ADDY -var2/1000
IF var2<0 THEN ADDY -var2/1000
ENDIF
   i = i+1 
   n = input (ch1, i, 1, dummy,var1,var2,var3,var4,var5,var6) 

endwhile 

close ch1

and my file:

K62.00K-30.00K5757.13K0.00K5819.13K-30.00
K267.00K-130.00K5493.25K0.00K5760.25K-130.00
K472.00K-230.00K5229.36K0.00K5701.36K-230.00
K932.00K-454.00K4638.25K0.00K5570.25K-454.00
K1137.00K-554.00K4374.36K0.00K5511.36K-554.00
K1341.00K-654.00K4111.27K0.00K5452.27K-654.00
K1K1K1K1K1K1
K7
K0.68K901.20
K0.68K1401.20
K0.68K1901.20
K0.68K2933.20
K0.68K3433.20
K0.68K3933.20
K0.68K4433.20

Please help me ! I want make this GDL file