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!
  • Students Click Here

*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


Create a new PDD and Insert a 3DD Catia V6 VBA

Create a new PDD and Insert a 3DD Catia V6 VBA

Create a new PDD and Insert a 3DD Catia V6 VBA

Hello everyone,

I've been spending days trying to solve this issue. I'm trying to write a VBA script that can create a new document with a new PDD and insert a new 3DD in V6, and I'm not able to find a solution. In V5, you could use something like:


Sub CATMain()
'===create a part document
Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")
End Sub 

But it CATIA v6, this is no longer valid (!). Does anyone of you know how to adapt the code above so it could work in V6?

Any hint is really appreciated!


RE: Create a new PDD and Insert a 3DD Catia V6 VBA

I am sorry if I sound harsh, but have you tried to search/google the net before asking a Q?...
http://www.scripting4v5.com/additional-articles/ca... is the first query I found--will this help?


RE: Create a new PDD and Insert a 3DD Catia V6 VBA

First, thank you all for your responses,I really appreciate it;
thank you I've already checked this one but its not working for me and its not what I'm looking for. I'm working on a project that needs to create automatically 3DPart, everything runs very well except for creating(3DPart ,"part") new document with a PDD inside and insert a 3DD .

thank you, I'm using the V6R2013x, for the recording is not working, I've tried this but when I opened the macro is empty; then I tried this code :


Sub CATMain()

Dim oNewService As PLMNewService
set oNewService = CATIA.GetSessionService("PLMNewService")

Dim oEditor As Editor 
oNewService.PLMCreate "3DShape",oEditor

End Sub 

but I got this error (for the yellow line ): " verification of client discipline attributes failed: you must choose a Client Discipline different that '---' from the list." ,

Any help is highly appreciated,

RE: Create a new PDD and Insert a 3DD Catia V6 VBA


Thank you again, for the customization,I didn't quite understand what you meant. could you illustrate what do you mean by customization ?
for the code above its the same as in the documentation, but I still get the same error.

I found a response on Community of experts of dassault systems solutions Forum
: http://www.coe.org/p/fo/et/thread=28847 that I may need an extra licence : VMX license for V6R13X or E70 licence for V6R2015X, what do you think ?

Thank you in advance,

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


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