SolidWorks VBA Hinzufügen eines Blattes (MEP)

3D Design Volume Model
1

Hallo ihr alle

Ich möchte in der Lage sein, eine bestimmte Teilezeichnung zu automatisieren, und für die Bemaßung bestimmter Optionen möchte ich ein zweites Blatt hinzufügen, um ein Bild einzufügen.

Ich habe Makroaufnahmen verwendet und es hat mir folgendes gegeben:

Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim SelMgr als Objekt
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Dimmen von Feature als Objekt
Sub main()

Legen Sie swApp = Application.SldWorks fest

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.NewSheet3 "Sheet2", 12, 12, 2, 1, True, "C:\Grundkarte\A4V_vide.slddrt", 0.21, 0.297, "Standard", True
SkBild als Objekt dimmen
Set SkPicture = Part.SketchManager.InsertSketchPicture("C:\Benutzer\IMG OPTIONS\U01.jpg")
Ende Sub

 

Aber sobald ich es zu meinem Makro hinzufüge, erscheint eine Fehlermeldung: "Ungültige Anzahl von Argumenten oder ungültige Eigenschaftszuweisung (Fehler 450) "

Ich sehe nicht genau, woher das Problem kommt, also bin ich ganz Ohr, wenn jemand eine Lösung hat.

Vielen Dank im Voraus

2

Hallo

es gibt ein "Wahr" zu viel. Versuchen Sie, das letzte "True" in der Definition von Part.NewSheet3 zu entfernen.

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 „Gefällt mir“
3

Hallo

Sie müssen einen booleschen Wert vor Part.NewSheet3 setzen.

Die korrekte Bewertung lautet wie folgt:

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

 

3 „Gefällt mir“
4

Vielen Dank an euch beide für eure Antworten und eure Zeit, es ist perfekt.

Ich bewerbe es jetzt

Herzliche Grüße

5

Seien Sie vorsichtig, Sie müssen den Namen des Blattes ankreuzen:)