SolidWorks VBA Dodawanie arkusza (MEP)

3D Design Volume Model
1

Cze wszystkim

Chcę mieć możliwość zautomatyzowania rysunku określonej części, a do wymiarowania niektórych opcji chcę dodać drugi arkusz, aby wstawić obraz.

Użyłem nagrywania makr i dało mi to:

Dim swApp As Object
Przyciemnij część jako obiekt
Dim SelMgr As Obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Przyciemnij element jako obiekt
Sub main()

Ustaw swApp = Application.SldWorks

Ustaw część = swApp.ActiveDoc
Ustaw SelMgr = Part.SelectionManager
Part.NewSheet3 "Arkusz2", 12, 12, 2, 1, Prawda, "C:\Mapa bazowa\A4V_vide.slddrt", 0.21, 0.297, "Domyślnie", Prawda
Dim SkPicture As Obiekt
Set SkPicture = Part.SketchManager.InsertSketchPicture("C:\Users\IMG OPTIONS\U01.jpg")
Koniec subwoofera

 

Ale po dodaniu go do makra pojawia się komunikat o błędzie: "Nieprawidłowa liczba argumentów lub nieprawidłowe przypisanie właściwości (błąd 450) "

Nie widzę dokładnie, skąd bierze się problem, więc jeśli ktoś ma rozwiązanie, jestem do dyspozycji.

Z góry dziękuję

2

Witam

jest o jeden "Prawdziwy" za dużo. Spróbuj usunąć ostatnią wartość "True" w definicji Part.NewSheet3

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 powiedział:

 

 

3 polubienia
3

Witam

Musisz umieścić wartość logiczną przed Part.NewSheet3.

Prawidłowa ocena jest następująca:

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

 

3 polubienia
4

Dziękuję zarówno za odpowiedzi, jak i za poświęcony czas, jest idealnie.

Stosuję go teraz

Serdeczne pozdrowienia

5

Uważaj, musisz dodać sprawdzanie nazwy arkusza :)