Création d'un point dans la fonction "assistance pour le perçage"

Macro
1

Bonjour à tous,

J’ai pour objectif de faire une macro qui supprime le point d’insertion de mon perçage puis en rajoute un sur une position donnée. Or j’ai un problème, la fonction « createpoint » place bien un point au coordonnées voulues mais ne rattache pas le point à la surface percée (pourtant bien au coordonnées données). Ainsi mon perçage ne se fait pas car il ne trouve pas la surface associé.

Quelqu’un aurait-il déjà manipulé cette fonction ?

Merci.

2

Mets un exemple ce sera plus simple

chez moi ça fonctionne

Sub main()
Dim swApp As Object
Dim Part As Object
Dim myModelView As Object
Dim skPoint As Object

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView

Set skPoint = Part.SketchManager.CreatePoint(0, 0, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub
2 « J'aime »
3

Point sur plan
Point sur plan1075×541 23.7 KB

Enfaite, c’est pas la fonction de création de point qui ne fonctionne pas, c’est plus que le point créer ne convient pas à la fonction

4

le point créer ici est confondu avec le plan mais pas « sur le plan » comme la contrainte me permettrait de le faire mais manuellement

5

la question est donc est-ce possible de créer le point (qui est dans une esquisse 3D) directement avec la contrainte « sur le plan » ?

6

Regarde l’api sur comment récupérer et ajouter un point dans cette fonction.
Si je me trompa pas cela devrait t’aider:
https://help.solidworks.com/2022/English/api/sldworksapi/Get_Sketch_Points_in_Wizard_Hole_Example_VB.htm