---

Hallo mal wieder,

ich habe momentan etwas Schwierigkeiten und hoffe jemand von euch kann mir helfen.

Wie kann ich ein bereits markiertes Teil in einer Baugruppe mittels VBA virtuell machen?

Ich danke schon mal in voraus für jegliche Art von Hilfe :-)

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

---

Erst

Get Component Name From Selected Entity Example (VBA),

dann

MakeVirtual Method (IComponent2).

Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM & -SU =)

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

---

Danke für die schnelle Antwort Jens, aber irgendwie kriege ich es dennoch nicht gebacken 

Der erste Link bezieht sich ja auf markierte Flächen, Ecken, Kanten usw., für mich so leider keine Verwendbarkeit.

Deinen zweiten Link hatte ich auch schon gefunden, werde aber nicht schlau draus.

Bisher sieht mein Makro so aus...

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Anschluss@Baugruppe1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
End Sub

Anschließend wollte ich Part.MakeVirtual() = True verwenden aber dann kommt Laufzeitfehler 438

(ich weiß... Makro-Recorder  )

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

---

Also ganz viel besser als Jens mit seinen 2 Links kann man Dir die Lösung nur auftischen, wenn man Dir die drei Zeilen (ohne Deklaration), die Du aus den Links kopieren musst, hier direkt hinschreibt.
Möchtest Du das?

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

---

Ja wäre nett, stehe nämlich total aufm Schlauch

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

---

Hallo,

Code:

---

Set Part = swApp.ActiveDoc

---

dir ist bewusst das in deiner Variablen "Part" die Baugruppe drin ist?

Code:

---

boolstatus = Part.Extension.SelectByID2("Anschluss@Baugruppe1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

---

Hier wird immer die gleiche Componente selektirert, ist das beabsichtigt?

Code:

---

Part.MakeVirtual()

---

Hier versuchst du die Hauptbaugruppe virtuell zu machen (da diese ja im Objekt "Part" drin steckt), was nicht möglich ist.

Wenn du eine Componente selektierst musst du diese erst über den SelectionManager in eine Variable packen die du dann auch Virtuel machen kannst.
Der Hinweis von Jens Ziel daraufhin ab das du ja wahrscheinlich Teile im Grafikbereich selektieren willst um sie dann virtuell zu machen, daher würde er über die selektierten Entities (Flächen, Kanten etc.) auf die dazugehörigen Komponenten gehen um diese dann Virtuell zu machen.

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

---

Hallo Bernd,

die im boolstatus enthaltenen Teil- und Baugruppennamen werden über eine zuvor eingeladenen Textdatei in einen String geschrieben
(boolstatus = Part.Extension.SelectByID2(String1 & "@" & String2, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

Nach diesem Anwählen konnte ich über Part. schon mehrere Sachen machen, z.b. Part.EditDelete2

nur dieses MakeVirtual ralle ich einfach nicht 

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

---

ungetestet!

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swSelectionMgr As SldWorks.SelectionMgr
Dim swEntity As SldWorks.Entity
Dim swComponent As SldWorks.Component2

Sub main()

Set swApp = Application.SldWorks
Set swSelectionMgr = swModel.SelectionManager
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Anschluss@Baugruppe1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set swEntity = swSelectionMgr.GetSelectedObject6(1, -1)
Set swComponent = swEntity.GetComponent
boolstatus  = swcomponent.MakeVirtual

End Sub

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

---

hat leider nicht geklappt

bei

Set swSelectionMgr = swModel.SelectionManager

kommt Laufzeitfehler 424

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

---

Hallo,

sollte hier in deinem Fall auch eher "Part.SelectionManager" heisen.
Wäre mir beim freihandtippen aber bestimmt auch passiert da die Deklaration mit swModel für diese Variable geläufiger ist wie Part.

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

---

ups, sorry.
und es muss dann auch eine zeile tiefer...

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