---

Hallo zusammen,

wir fügen per Makro (VB6) verschiedene Parts in ein geöffnetes Assembly ein.
Das Part liegt dann bei 0,0,0 und muss dann über die gewohnten Befehle korrekt plaziert werden.

Ich möchte gerne das Makro so erweitern das das Part an der Maus hängen bleibt und ich dann die gewohnten Einfügebefehle von Solid Edge verwenden kann.

Hat da jemand ein Beispiel ?

Viele Grüße
Ralf

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

---

Wie wählst du die Teilflächen für die Platzierung aus, wenn das Bauteil an der Maus hängt?

------------------
"Das beste Werkzeug ist ein Tand, in eines tumben Toren Hand!"
Daniel Düsentrieb zitiert Konfuzius Peng (Fataler Rechenfehler, 1957)

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

---

Zitat:

---

Original erstellt von caeman:
Hallo zusammen,

wir fügen per Makro (VB6) verschiedene Parts in ein geöffnetes Assembly ein.
Das Part liegt dann bei 0,0,0 und muss dann über die gewohnten Befehle korrekt plaziert werden.

Ich möchte gerne das Makro so erweitern das das Part an der Maus hängen bleibt und ich dann die gewohnten Einfügebefehle von Solid Edge verwenden kann.

Hat da jemand ein Beispiel ?

Viele Grüße
Ralf

---

Hallo,

habe in einem uralten Makro vo mir nachgesehen und damals die Teile in die Baugruppe mit dem Befehl:

...
objApp.StartCommand seAssemblyPlacePartCommand
...

eingefügt.
das sollte das normale Einfügen eines Teiles in eine Baugruppe ergeben.

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult

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

---

Habe mich schlecht ausgedrückt. Teil hängt natürlich nicht an der Maus.
Ich wollte per Makro einfügen aber dann soll es so weitergehen wie wenn man es per Drag&Drop aus der Teilebibliothek zieht.

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

---

Hallo wolha,

danke für den Hinweis.

Habe es so:
  objSEapp.StartCommand (seAssemblyPlacePartCommand)
  Set objPARdoc = objSEapp.ActiveDocument.Parts.AddByFilename(cFileName)

und auch so versucht:
  Set objPARdoc = objSEapp.ActiveDocument.Parts.AddByFilename(cFileName)
  objSEapp.StartCommand (seAssemblyPlacePartCommand)

Es kommt aber beim Aufruf von
  objSEapp.StartCommand (seAssemblyPlacePartCommand)

immer die Meldung: Verwenden Sie die Registerkarte Teilebibliothek in EdgeBar, um Teile zur Baugruppe hinzuzufügen. Aktivieren Sie EdgeBar im Menü Extras oder in der Hauptsymbolleiste.

Viele Grüße
Ralf Fischer

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

---

caeman,

du kannst den Dateinamen nicht direkt übergeben.
Versuche es mit
Private WithEvents FUIE As SolidEdgeFramework.FileUIEvents

und
Public Function AddOccurrenceByFileName(sName As String) As Boolean

  On Error GoTo ErrorHandler
 
  msFileName = sName
  Set FUIE = moSEApp.FileUIEvents
  SEApp.StartCommand seAssemblyPlacePartCommand
  Set FUIE = Nothing
 
AddOccurrenceByFileName = True
Exit Function
ErrorHandler:
  Set FUIE = Nothing
  Err.Clear
End Function

Wenn Du AddOccurrenceByFileName aufrufst kannst Du im Event
Private Sub FUIE_OnPlacePartUI(FileName As String, AppendToTitle As String)
  FileName = msFileName
End Sub

den Dateinamen übergeben.

HTH pablo

------------------
PST => Parametersteuerung für Solid Edge
TB Haberl

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

---

Hallo pablo,

funktioniert ! Vielen Dank.

Aber nun habe ich ein Fass aufgemacht. Die Anwender wollen jetzt auch noch Teile einfügen z.B Gasdruckfedern mit entsprechend ausgefahrenem Kolben und natürlich "Teil ersetzen".

Gibt es da auch eine Lösung ?

Gruß
Ralf Fischer

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

---

Hallo Ralf,

'Teil ersetzen' funktioniert auf oberster Ebene z.B. so:
- Überprüfen ob die Auswahl ein Element vom Typ Occurrence ist
- Mit Occurrence.Replace (FileName) ersetzen.
Teile auf unterer Ebene sind vom Typ Reference, da wird es dann aufwändiger.

Was meinst Du mit z.B Gasdruckfedern mit entsprechend ausgefahrenem Kolben?
Wenn Ihr mit Baugruppenfamilien arbeitet dann geht das mit Occurrence.SwapFamilyMember.

HTH Pablo

------------------
PST => Parametersteuerung für Solid Edge
TB Haberl

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

---

Hallo Pablo,

damit ist gemeint "Anpassbares Teil plazieren".
Die Konstrukteure setzen damit z.B. eine Gasdruckfeder zwischen Werkzeugoberteil und Werkzeugunterteil.
Beim Platzieren stellt sich der Kolben der Gasdruckfeder gleich auf die richtige Länge ein.
Wird der Abstand von Oberteil und Unterteil verändert dann geht der Kolben mit.

Gruß Ralf

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