Hallo,
versuchs damit:
Language="VBSCRIPT"
Sub CATMain()
On Error Resume Next
Set oRoot = Catia.ActiveDocument '-- Root anziehen
sTest = InputBox("Text für Description", "Eingabe", "test") '-- Text Eingabe
For i = 1 To oRoot.Product.Products.Count '-- alle Instances des Roots durchgehen, nur erste Strukturebene
Set oProduct = oRoot.Product.Products.Item(i) '-- Ins Product der Instance wechseln
'-- es gibt zwei Descriptions: eine die zum Dokument gehört (für alle Inst. gleich)
'-- und eine die zur Instance gehört (also unterschiedlich)
oProduct.DescriptionRef = sTest & "_DescriptionRef"
oProduct.DescriptionInst = sTest & "_DescriptionInst"
Next
End Sub
Den Rest kannst du dir anpassen (für jeden Eintrag eine eigene Inputbox oder so was).
Hoffe es hilft dir weiter.
TomTom
------------------
tomtom1972
[Diese Nachricht wurde von tomtom1972 am 19. Jan. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP