hallo liebe gemeinde,
Ich möchte folgendes bewerkstelligen: ich möchte eine Komponente selektieren und mit "catClashComputationTypeAgainstAll" eine Kollisionsanalyse starten. Mit dem Microsoft Visual Basic Editor tut es einwandfrei. Wenn ich dies aber von einem externen Visualbasic Skript mache, dann funktioniert es nicht.
Mein Skript sieht folgendermassen aus:
-------------------------------------------------------
Main()
Sub Main()
Set CATIA=GetObject("","CATIA.Application")
Set Document = CATIA.ActiveDocument
Set ProdDoc1 = Document.Product
Set docs1 = CATIA.Documents
Set products1 = ProdDoc1.Products
Set product2 = products1.Item(1)
Set Liste1 = Document.Selection
Liste1.Clear
Liste1.Add (product2)
Set Clashes1 = ProdDoc1.GetTechnologicalObject("Clashes")
Set Clash1 = Clashes1.AddFromSel
Clash1.ComputationType = catClashComputationAgainstAll
Clash1.InterferenceType = catClashInterferenceTypeClearance
Clash1.Clearance = 20
Clash1.Compute
End Sub
-------------------------------------------------------------------
Dieses Skript kann man einfach in eine Text Datei reinkopieren und mit der Endung VBS versehen und einfach laufen lassen.
kann mir da jemand auf anhieb helfen???
salam
L_C
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP