HALLO.
'-------------------------------------------------------------------
selection1.Search "CATPrtSearch.BodyFeature.Name=ALUTEIL_9,all"
Set myVisProp =selection1.VisProperties
myVisProp.GetLayer layertype, layer
selection1.Search "CATPrtSearch.BodyFeature.Name=ALUTEIL_*,all"
set VisProp = selection1.VisProperties
VisProp.SetLayer catVisLayerBasic, layer
'-------------------------------------------------------------------
DANKE
------------------
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