---

kotxmemoei.png

Hallo zusammen,

arbeite an einem Macro wie in diesem Thread beschrieben Hier entlang.
Diese erste Problemstellung habe ich dank Stefans Tipp schon gelöst und stehe nun vor dem nächsten Problem.

Weiß einer von euch ob bzw. wie es möglich ist per API einer vordefinierten leeren Ansicht di in der Blattvorlage gespeichert ist das Teil bzw. die Baugruppe zuzuweisen? Sprich ich suchen den API-Befehl für den Menüpunkt "Modell einfügen" im Kontextmenü für die leere Ansicht.

Ich könnte natürlich auch die Anschit manuell erzeugen aber da es 60 Vorlagen mit verschieschidenen Einfügepunkten und Ansichtsrotationen sind die bereits erstellt sind, wäre dass jetzt ein großer Aufwand die Einfügepunkte alle zu ermittel bzw. die ganzen Vorlagen nachzuarbeiten.

Bin wie immer für jeden Tipp dankbar  .

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

Schau mal hier.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten,

danke schonmal für den Link, habe es mir auch schonmal angeschaut und versucht umzusetzten aber läuft leider immer auf Fehler  .

Je nach Variante läuft

Code:

---

longstatus = viewModelDoc.ReloadOrReplace(False, swAssemblyPath, True)

---

oder

Code:

---

boolstatus = swDrawing.ChangeRefConfigurationOfFlatPatternView(swAssembly.GetTitle, "")

---

auf Fehler.

Code:

---

   
Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swAssembly As SldWorks.ModelDoc2
Dim swAssemblyPath As String

Dim swDrawing As SldWorks.ModelDoc2

Dim swView As SldWorks.View
Dim viewModelDoc As ModelDoc2

Dim boolstatus As Boolean
Dim longstatus As Long
Dim Errors    As Long
Dim Warnings  As Long
-----------------------------
Sub main()

Set swApp = Application.SldWorks
   
Set swAssembly = swApp.ActiveDoc
swAssemblyPath = swAssembly.GetPathName
.
.
.
.
Set swDrawing = swApp.NewDocument("Vorlagenpfad", 12, 0, 0)
Set swView = swDrawing.GetFirstView
Set viewModelDoc = swView.ReferencedDocument
longstatus = viewModelDoc.ReloadOrReplace(False, swAssemblyPath, True)
   
'Set swDrawing = swApp.NewDocument("Vorlagenpfad", 12, 0, 0)
'Set swView = swDrawing.GetFirstView
'boolstatus = swDrawing.ChangeRefConfigurationOfFlatPatternView(swAssembly.GetTitle, "")
.
.
.
End Sub

---

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

Ich habe gerade mal danach geschaut.
Du darst zu dem Zeitpunkt nur die Zeichnung geöffnet haben.
Wenn das Teil bzw. die Baugruppe direkt geöffnet oder in einer geöffneten Baugruppe enthalten ist kommt eine Meldung mit dem Fehlercode 12.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten,

auch wenn ich die BG vorher schließe läuft es noch auf Fehler.
Aber ich werde wohl doch die Ansicht manuell erstellen und verschiebend da das schließen und öffnen der BG zu lange dauert. Und ich will ja das es mit dem Makro schneller und nicht langsamer geht wie bis jetzt  .

Aber trotzdem danke für die Mühe, vielleicht greif ich das später ja nochmal auf.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP