×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Macro for 3DExperience-Automatically exporting STEP file

Macro for 3DExperience-Automatically exporting STEP file

Macro for 3DExperience-Automatically exporting STEP file

(OP)
Hi there I'm Matthieu, I'm new here. I'm doing my thesis on lattice structures.

I currently use Part design in 3D experience to create a lot of geometries of lattices with modified parameters (struts diameters for example)

I would like to make this parameters vary from i=0 to x, and at each iteration it saves me a step file so I use it on my meshing/simulation softwares, that will also be scripted.

Making my parameters vary is done, but i can't get the export .stp output,
Here is what I've tried.

Sub CATMain()


Dim i As Integer
Dim editor1 As Editor
Dim part1 As Part

Set editor1 = CATIA.ActiveEditor
Set part1 = editor1.ActiveObject


For i = 1 To 5


Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim strParam1 As Parameter
Set strParam1 = parameters1.Item("Fillets radius")

strParam1.Value = 0.01 * i


part1.Update

Dim PartDocument0 As Document
' Reading a CATPart file
Set PartDocument0 = CATIA.Documents.Open("C:\desktop\File1.CATPart")
' Saving the part in a STEP file
PartDocument0.ExportData("C:\desktop\File1", "stp")
Next


End Sub

It says that it needs '='a t the last line before Next,, when i put it it says that sub is not defined..
Can't seem to make the last part work. And I'm not really into scripting but really want to do this as I can learn a lot... Also the record function doesn't catch the exporting

And i Think cloud based stuff isn't very intuitive yet, I prefered how solidworks worked with good old desktop folders ahah!

Thanks a lot for any help!
Have a great day,
Matthieu.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login



News


Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close