Creating some bodies and assemles with one click with names

[Dialga1]

I added example about what am I needed in picture. Is this possible to create parts and assembles like this with 1 macro? I tried my best but I got stuck.

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Part1.CATPart")

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Add()

part1.Update 

Set body2 = bodies1.Add()

part1.Update 

Set body3 = bodies1.Add()

part1.Update 

Set body4 = bodies1.Add()

part1.Update 

Set body5 = bodies1.Add()

part1.Update 

Set body6 = bodies1.Add()

part1.Update 

Set body7 = bodies1.Add()

part1.Update 

Set body8 = bodies1.Add()

part1.Update 

Set shapeFactory1 = part1.ShapeFactory

shapeFactory1.AddNewAssemble body2

Set shapes1 = body1.Shapes

Set assemble1 = shapes1.Item("KABUK.1")

part1.UpdateObject assemble1

Set assemble2 = shapes1.Item("Assemble.2")

part1.UpdateObject assemble2

Set assemble3 = shapes1.Item("Assemble.3")

part1.UpdateObject assemble3

Set assemble4 = shapes1.Item("Assemble.4")

part1.UpdateObject assemble4

Set assemble5 = shapes1.Item("Assemble.5")

part1.UpdateObject assemble5

Set assemble6 = shapes1.Item("Assemble.6")

part1.UpdateObject assemble6

part1.Update 

Set body9 = bodies1.Add()

part1.Update 

shapeFactory1.AddNewAssemble body9

part1.Update 

End Sub

 

[TiagoFigueiredo]

I,

I would select the bodies, with selectelement3, then make the add.
here some ideas to implement it. In case of doubts, please post your current code.

InputObjectType(0)="Body" 
 Status=Selection.SelectElement3(InputObjectType,"Select bodies", _
                                 true,CATMultiSelTriggWhenSelPerf,false)
 if (Status = "Cancel") then Exit Sub

After make a loop to cycle between all selected bodies.

for i=1 to selection.count
Set body1 = Selection.item(i).value
Dim add1 = shapeFactory1.AddNewAdd(body1)
add1.Name = body1.name
next

part1.update

Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw

 

[ferdo]

Just another idea

[youtube BYfkSCGtP0k]

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[TiagoFigueiredo]

Nice work Ferdo!

Hope that Dialga1, makes the trial and return us some feedback.

Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw

 

[Azzazil]

Just another idea

@ferdo is this possible in 3DExperience?

Regards,
Azzazil

CATIA v5 Assmebly Manager App:

https://www.youtube.com/watch?v=po7kAOiEkZ0&ab_channel=JoeNitnelav

 

[ferdo]

is this possible in 3DExperience?

This is from a post from ENOVIA community

https://r1132100503382-eu1-3dswym.3...60sQGPAUhAUg/iquestion:Y7rsiGACQrO1YfpFZQqAmg

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[Azzazil]

Thanks will check this tomorrow at my work

Regards,
Azzazil

CATIA v5 Assmebly Manager App:

https://www.youtube.com/watch?v=po7kAOiEkZ0&ab_channel=JoeNitnelav