SolidWorks VBA Ajout d'une feuille (MEP)

3D Design Volume Model
1

Bonjour à tous,

Je cherche à pouvoir automatiser une mise en plan de pièce spécifique, et pour la cotations de certaines options je cherche à rajouter une deuxième feuille pour y insérer une image.

J'ai utiliser l'enregistrement de macro et il m'a donner ceci :

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.NewSheet3 "Feuille2", 12, 12, 2, 1, True, "C:\Fond de plan\A4V_vide.slddrt", 0.21, 0.297, "Par défaut", True
Dim SkPicture As Object
Set SkPicture = Part.SketchManager.InsertSketchPicture("C:\Users\IMG OPTIONS\U01.jpg")
End Sub

 

Mais une fois que je l'es ajouter à ma macro un message d'erreur apparait : "Nombre d'arguments incorrect ou affectation de propriété non valide (erreur 450) "

Je ne vois pas exactement d'ou viens le problème donc si quelqu'un a une solution je suis tout ouie.

Merci d'avance

2

Bonjour,

il y a un "True" en trop. Essayez d'enlever le dernier "True" dans la definition de Part.NewSheet3

Dim instance As IDrawingDoc
Dim Name As String
Dim PaperSize As Integer
Dim TemplateIn As Integer
Dim Scale1 As Double
Dim Scale2 As Double
Dim FirstAngle As Boolean
Dim TemplateName As String
Dim Width As Double
Dim Height As Double
Dim PropertyViewName As String
Dim value As Boolean
 
value = instance.NewSheet3(Name, PaperSize, TemplateIn, Scale1, Scale2, FirstAngle, TemplateName, Width, Height, PropertyViewName)

 

 

 

Gauthik

 

 

3 « J'aime »
3

Bonjour,

Il faut mettre un booléen avant Part.NewSheet3.

La bonne notation est la suivante:

Boolstatus = Part.NewSheet3 ("Feuille2", 12, 12, 2, 1, True, "C:\Fond de plan\A4V_vide.slddrt", 0.21, 0.297, "Par défaut")

 

3 « J'aime »
4

Merci à vous deux pour vos réponses et votre temps c'est parfait.

J'y met en application dès maintenant

Sincères salutations

5

Attention il faut rajouter un controle sur le nom de la feuille :)