Bonjour à tous et à toutes,
Je cherche à faire un bout de code qui me ferai une coupe locale avec un cercle ou le centre de ce dernier serai posotionner sur "l'origine" de la pièce (voir plan)
Merci d'avances pour toutes les réponses
Bonjour,
Avez-vous essayé via l'enregistreur de macro???
Oui mais enfaite ma macro créé des axes différents a chaque fois (c'est le but) et l'enregistrement de macro me donne des coordonnés et quand je selectionne l'origine seulement il me donne cela :
boolstatus = Part.Extension.SelectByID2("Point1@Origine@Pièce50-1@Vue de mise en plan1", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
Et j'aimerai que ce point (l'origine pièce) soit le centre de mon cercle pour la coupe locale
Salut,
Il nous faudraient plus d'information,
Le nom de la pièce dans la mise en plan est-il fixe ?
Ta mise en plan contient t'elle toujours une seule pièce ?
Tu souhaites reprendre le point d'origine de la pièce, et c'est ce qui semble à priori le plus compliqué. Ne pourrions nous pas avoir un point fixe dans la mise en plan pour la création de la coupe local ?
La profondeur de la coupe serait-elle fixe ? Indiqué par l'utilisateur ? Reprise sur une cote ?
Mais dans tous les cas d'après quelques essai, c'est faisable.
Le nom de la pièce change à chaque fois suivant la référence, ensuite ce qui est fixe c'est le centre de ma vie 1 ou 2 mais cela ne me sert à rien.
Ensuite la profondeur de la coupe je n'en occupe il faut jusque que je sache comment dire à ma macro ceci :
-Faire un cercle Ø14 de centre l'origine de la pièce
-Faire une coupe locale de 3.175 de profond
C'est tout ce qui me faut mais si je cherche ce point c'est car comme la longueur client de la pièce peut changer à chaque fois il me faut un point qui sera le même sur chaque pièces et comme j'ai un perçage sur cet origine ça deviens logique
J'ai trouvé la solution :
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ClearSelection2 True
Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0.05089546697908, 0.1514160210352, 0, 0.05637302852263, 0.1469609376464, 0)
boolstatus = Part.Extension.SelectByID2("Point1@Origine@Pièce51-1@Vue de mise en plan1", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point5", "SKETCHPOINT", 0.05089546697908, 0.1514160210352, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0.1060269148852, 0.2591576180298, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0.09157040374567, 0.2475179348306, 0, False, 0, Nothing, 0)
Part.CreateBreakOutSection 0.003175
Part.ClearSelection2 True
End Sub
Voila merci à tous quand même