Hallo,
meine Suche hat leider nichts ergeben, von daher probiere ich es mal so.
Ich habe einen Ordner mit fertigen CATParts, z.B. Schrauben.
Ich habe nun eine Userform erstellt, die mir ermöglicht, mit einem Klick auf einen Commandbutton eines dieser Teile in ein Product einzufügen, dazu benutze ich folgenden Code:
Code:
'***Fügt ein fertiges CATPart in ein Product ein
Private Sub CommandButton2_Click()
Dim PP
Dim Liste(0)
Set PP = CATIA.ActiveDocument.Product.Products
Liste(0) = "Verzeichnisname" & nvs_teilenummer
PP.AddComponentsFromFiles Liste, "CATPart"
End Sub
Dies funktioniert auch wunderbar.
Wie kann ich es nun realisieren, das diese eben nicht willkürlich in das Product eingefügt werden, sondern mit Bedingungen?
Bei einer Schraube macht es ja auch meiner Sicht Sinn, wenn ich zum einen den Mittelpunkt der Bohrung (welche in einer Platte ist) selektiere und dann die Flächen, auf die der Schraubenkopf anliegt.
Die erste Referenz kann ich ja setzen mit
Code:
Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Produkt1/" & nvs_teilenummer & ".1/!Axis:(Selection_RSur:(Face:(Brp:(Solid.9;(Brp:(Shaft.5;0:(Brp:(Sketch.3;4)))));None:();Cf11:());Thread.2_ResultOUT;Z0;G2906))")
welches die Achse der Schraube darstellt, aber wie kann ich nun den Bediener dazu auffordern, er möge mir die Achse der Bohrung selektieren und wie speicher ich seine Selektion?Danke schon mal
[Diese Nachricht wurde von HAW-Raptor am 02. Nov. 2009 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP