Guten Morgen.
Bin neu hier und beschäftige mich seit einem halben Jahr mit Makros.
Mir fehlen noch einige Grundlagen und diese Problem mag für manchen simpel sein aber ich stehe an.
Problem:
Ich würde gerne über eine Inputbox im Part nach dem Körper zb. "STAHLSCHEIBE_28_ABGEFLACHT" suchen und die Körper nacheinander von Layer_900 auf Layer legen.
sprich Körper 1 der Auswahl auf 901, Körper 2 der Auswahl auf 902 usw.
Hab einiges Versucht und das ist Makro V.XXXXXXXX
------------------------------------------------------------------------------------
Sub CATMain()
Dim oPartDocument as PartDocument
Dim selection1 as Selection
Dim oPart as Part
Dim Status as String
Set oPartDocument = CATIA.ActiveDocument
Set selection1 = oPartDocument.Selection
Set oPart = oPartDocument.Part
Input1 = InputBox ("TEILENAME_SUCHEN", "NAME", "STAHLSCHEIBE_28_ABGEFLACHT_*")
'Input2 = InputBox ("LAYER", "LAYER", "900")
selection1.Search "Name="&Input1&",all"
Dim Imax1 As Integer
Imax1 = selection1.Count
For I= 1 To Imax1
oPart.InWorkObject = selection1.item(I).Value
'Und hier steige ich aus....egal was ich hier einsetzte entweder es kommt eine Fehelermeldung oder alles auf den Letzten Layer gelegt, spricht in diesem Fall auf L904
set VisProp = selection1.VisProperties
'Und hier steige ich aus....egal was ich hier einsetzte entweder es kommt eine Fehelermeldung oder alles auf den Letzten Layer gelegt, spricht in diesem Fall auf L904
'anscheinend kann .VisProperties die INFO "selection1.item(I).Value" nicht verarbeiten.....aber warum.
VisProp.SetLayer catVisLayerBasic, CInt(900)+ I
next
end Sub
------------------
Ich will es gar nicht wissen, aber ich muss.....Das Leben verlangt es.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP