Macro programmation

30 novembre 2018

creation d'une esquisse suivant le planYZ

Sub CATMain() dim partdocument1set partdocument1=CATIA.ActiveDocument dim part1 as Partset part1 = partDocument1.Part Dim bodies1 As BodiesSet bodies1 = part1.Bodies Dim body1 As BodySet body1 = bodies1.Item("Corps principal") Dim sketches1 As SketchesSet...

Posté par ours_brun83 à 19:27 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

1 vote

30 novembre 2018

creation de set geometrique sous un corps ou apres le corps principal

Sub CATMain()dim mybodydim hbrid1,hbrid2dim monset1,monset2 set mybody=catia.activedocument.part.Mainbodyset hbrid1=catia.activedocument.part.hybridbodiesset hbrid2=mybody.hybridbodiesset monset1 = hbrid1.addset monset2=hbrid2.add monset1.name="apres"monset2.name="dessous"...

Posté par ours_brun83 à 18:17 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote

30 novembre 2018

ouverture d'une part avec chemin sur disque

Sub CATMain()Dim documents 'As DocumentsSet documents = CATIA.Documents Dim partDocument 'As DocumentSet partDocument = documents.Open("H:\macro\part_avec_plan.CATPart")End Sub

Posté par ours_brun83 à 17:51 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote

30 novembre 2018

creation part et set geometrique

Sub CATMain()Dim documents ' As DocumentsDim partDocument' As DocumentDim hybridBodies 'As HybridBodiesDim hybridBody 'As HybridBody Set documents = CATIA.DocumentsSet partDocument = documents.Add("Part")Set hybridBodies = catia.activedocument.part.HybridBodiesSet...

Posté par ours_brun83 à 17:12 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote

30 novembre 2018

creation d'une part

Sub CATMain()Dim documents1 'As DocumentsDim partDocument1 'As Document Set documents1 = CATIA.DocumentsSet partDocument1 = documents1.Add("Part") End Sub

Posté par ours_brun83 à 16:43 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote

30 novembre 2018

affiche le nom de la part active

Sub CATMain()set mypart = catia.activedocumentmsgbox(mypart.name)End Sub

Posté par ours_brun83 à 16:35 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote

30 novembre 2018

creation d'un corps principal "Vis" dans une part.

Sub CATMain()dim mybodiesset mybodies=catia.activedocument.part.bodiesdim visset vis = mybodies.addvis.name="Vis"End Sub

Posté par ours_brun83 à 16:31 - Commentaires […] - Permalien [#]

Partager cet article

Vous aimez ?

0 vote