Recent content by KDorka

I followed what you said however i still can't get the co-ordinates to import? Please can you look at the attached .dat filehttp://files.engineering.com/getfile.aspx?folder=785fd9ac-b3a9-4281-9014-935bfa650078&file=C1_NEW.dat

This is a version with X between 0 and 1, and Y between -1 and 1 however i am still encountering the same problem. I have attached the new file to this post. Any help would be much appreciated!http://files.engineering.com/getfile.aspx?folder=c5ba4ff9-e046-47c4-b934-f2563621a616&file=C1_NEW.dat

Also the points aren't between 0 and 1 in the x direction and not between -1 to 1 in the y direction. Does this also have any influence?

Hi, I've got some co-ordinates that i want to put into XLFR5 however it doesn't seem to recognise the points apart from the first one. I realise that the shape isn't really an aerofoil and was wondering if this had anything to do with it? I am basically importing co-ordinates from a CAD model...

Thanks for your response, i tried reversing the co-ordinates in a clockwise direction and i got the correct results

Hi Doug, when using the following co-ordinates, im not sure the results are correct? x y 1.037181486 0.001523559 1.035589476 0.001828478 1.030824855 0.002737012 1.022915625 0.00423568 1.011910532 0.006300626 0.997878028 0.008900735 0.980902121 0.011998673 0.961087561...

I forgot to define 'seg' as an array in my declarations

Solved it guys!

I get an error for the ReDim seg(ns, 2) It says expected array but im not sure what that means. I am trying to create a 2D array in which the cells can be read from based on a segment number 'ns' and either columns 1 or 2

This is some new code i have been writing: Option Explicit Option Base 1 Dim row, col, i As Long Dim seg As Integer Dim np, ns As Long Dim X, Y, L As Double Dim SinB, CosB, Sin2B As Double Function SectionalProperties() ReDim X(np) ReDim Y(np) ReDim seg(ns, 2) np = 5...

I get that message sometimes and other times the program runs fine!

My program is for thin-walled structures instead of enclosed structures and so finding the length has been useful when carrying out other calculations. How would i go about creating a variant array? Also when going to the next step: For i = 1 To np SinB(i) = (Y2(i) - Y1(i)) / L(i)...

These are my declarations: Option Explicit Option Base 1 Dim row, col, i As Integer Dim np As Integer Dim X1(1 To 1000), Y1(1 To 1000), X2(1 To 1000), Y2(1 To 1000), L(1 To 1000) As Double

This is the code i have written to find the length of each segment, it gives me correct answers which is good: Function SectionalProperties() np = 4 For i = 1 To np row = 22 + (i - 1) col = 3 X1(i) = ThisWorkbook.Sheets("TWSAOptions").Cells(row, col).Value Next...

I am still relatively new to VBA so cant understand where your xyrange is being defined? Also what do x1, x2, y1, y2, XD, and YD represent? My program allows a user to specify the number of co-ordinates to be inputted, the VBA code then reads the co-ordinates from a specific row and column...