Hallo, ich bin dabei für unserer Stammdatenteile eine übsichtliche
einfache Einfüge-Dialogbox zu basteln.
An zwei Punkten komme ich nicht weiter.
1. Das einzufügende aus der Listbox gewählte Part wird immer bei 0,0,0 eingefügt. Ich
würde es gern frei platzieren, finde aber für AddComponent keine Option dafür.
Set swComp = swAsm.AddComponent5(Teil_Einf1.pfad & ListBox1.Text, swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0, 0, 0)
2. Aus der Listbox sollen sowohl Part als auch asm Datei einzufügen sein. Wenn ich im unteren
Code *.* eingebe, werden die Unterbaugruppen sldasm zwar angezeigt, aber beim Einfügen bekomme ich die
Meldung falsche Datei.
Name1 = Dir(Teil_Einf1.pfad & "*.sldasm", vbNormal)
Do While Name2 <> ""
If Name2 <> "." And Name2 <> ".." Then
ListBox1.AddItem Name2
End If
Name2 = Dir
Loop
End Sub
Für Tipps wäre ich echt dankbar.
Wenn ich die Box fertig habe werde ich Sie natürlich der "konstruktiven" Kritik in CAD.de aussetzen.
Gruß
GE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP