ıch hab dıe makro vergessen zu Schreıben
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("Part1.CATPart")
Set product1 = partDocument1.GetItem("Part1")
Set parameters1 = product1.UserRefProperties
Set dimension1 = parameters1.CreateDimension("Mass", "MASS", 0.000000)
dimension1.ValuateFromString "0kg"
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
dimension1.Value = 0.000000
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set publications1 = product1.Publications
Dim long1
long1 = publications1.Count
Set products1 = product1.Products
Dim long2
long2 = products1.Count
Set publications1 = product1.Publications
Dim long3
long3 = publications1.Count
Set products1 = product1.Products
Dim long4
long4 = products1.Count
Set publications1 = product1.Publications
Dim long5
long5 = publications1.Count
Set products1 = product1.Products
Dim long6
long6 = products1.Count
Set relations1 = product1.Relations
Set formula1 = relations1.CreateFormula("Formula.1", "", dimension1, "Part1\InertiaVolume.1\Mass ")
formula1.Rename "Formula.1"
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
End Sub
------------------
Cahit Öztürk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP