SolidWorks VBA Een blad toevoegen (MEP)

3D Design Volume Model
1

Hoi allemaal

Ik ben op zoek naar de mogelijkheid om een specifieke onderdeeltekening te automatiseren en voor de dimensionering van bepaalde opties wil ik een tweede blad toevoegen om een afbeelding in te voegen.

Ik gebruikte macro-opname en het gaf me dit:

Dim swApp als object
Deel dimmen als object
Dim SelMgr als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Dimfunctie als object
Sub hoofd()

Stel swApp = Toepassing.SldWorks in

Deel instellen = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Deel.NieuwBlad3 "Blad2", 12, 12, 2, 1, Waar, "C:\Basemap\A4V_vide.slddrt", 0.21, 0.297, "Standaard", Waar
Dim SkPicture als object
Stel SkPicture = Part.SketchManager.InsertSketchPicture in("C:\Users\IMG OPTIONS\U01.jpg")
Einde Sub

 

Maar zodra ik het aan mijn macro toevoeg, verschijnt er een foutmelding: "Ongeldig aantal argumenten of ongeldige toewijzing van eigenschappen (fout 450) "

Ik zie niet precies waar het probleem vandaan komt, dus als iemand een oplossing heeft, ben ik een en al oor.

Bij voorbaat dank

2

Hallo

er is één "Waar" te veel. Probeer de laatste "True" in de definitie van Part.NewSheet3 te verwijderen

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)

 

 

 

Kanton Gauthik

 

 

3 likes
3

Hallo

Je moet een Booleaanse voor Part.NewSheet3 plaatsen.

De juiste beoordeling is als volgt:

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

 

3 likes
4

Dank u zowel voor uw antwoorden en uw tijd, het is perfect.

Ik pas het nu toe

Oprechte groeten

5

Wees voorzichtig, je moet een vinkje toevoegen aan de naam van het blad:)