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

[KABEL]

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!

Thanks

 

[LWolf]

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/catia-v6-macro-programming/

is the first query I found--will this help?

regards,
LWolf

 

[ferdo]

Is not that simple.... which version are you using 2013x? 3DEx? There are a lot of changes from one release to another one...did you tried to record something? Did you looked into documentation?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[KABEL]

Hello,
First, thank you all for your responses,I really appreciate it;
LWolf:
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 .

fredo
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 
[COLOR=#EDD400]oNewService.PLMCreate "3DShape",oEditor[/color]

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,
Regards,

 

[ferdo]

I was working for RENAULT in Bucharest for a time and it was highly customized...this is also another problem for you, customization (if existing)...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[KABEL]

ferdo:

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,
Sincerely,