export points into femap from excels via macro 3

[rk_19]

Hi, I am using Femap v10.1.0.32 on windows10. I prepared a macro (copied/edited from femap manual) to export the coordinates as points into femap. I am getting the following error. could some one help me on this

http://files.engineering.com/getfil...888-482f-977a-14704c1d4f39&file=xl_femap.xlsm

http://files.engineering.com/getfil...9-9d7e-3283ceb99435&file=error-screenshot.PNG

 

[RCatania]

You have the “.Put” method graysd out. You’ll need that to actually create the nodes.

You may also want to include “.feViewRegenerate(0)” at the end to redraw the screen.

With those small changes your script created nodes for me.

 

[rk_19]

Hello Rcatania, thanks for the suggestion - it worked. i wish the coordinates to be exported as points, not as nodes. how do i achieve that ..thanks

 

[TG_eng]

You will need a point object instead of a node object. In your script from "Dim nd as node" down to "loop" should be changed to

Dim pt As Point
Set pt = App.fePoint
'
I = 5
Do While Cells(I, 2) <>""
rc = pt.Get(pt.ID)
pt.ID = Cells(I, 2)
pt.x = Cells(I, 3)
pt.y = Cells(I, 4)
pt.z = Cells(I, 5)
pt.defCSys = Cells(I, 6)

rc = pt.Put(pt.ID)
I = I + 1
Loop

The nd.OutCsys is no longer needed.

 

[rk_19]

Hello TG eng, I edited my excel. I have 65 points in the excel for export. upon running the macro, the femap screen is empty, but shows 65 'nodes' at the message bar. could you pleas have a look on the attachments

http://files.engineering.com/getfil...-4a84-86dc-16995be7143c&file=femap_screen.PNG

http://files.engineering.com/getfil...4e1-4f50-8f8a-3f24e2d3ba27&file=xl_femap.xlsm

 

[RCatania]

You need to change your code for Module2. Also, you need to dimension point a little differently. "Dim pt as femap.Point"

 

[rk_19]

thanks all, solved

 

[rb1957]

or you can create a point on the node

another day in paradise, or is paradise one day closer ?