Text dotazu:
Donrý den.
Chtěl bych vytvořit makro, kde uživatel zadává bod a plochu nebo rovinu. Jako základ jsem vzal kód uveřejněný v sekci Seriál CATIA. Problém je, že nevím, jak vybírat bod obsažený ve skice. Když do pole Dim ObjType(3) zadám ObjType(2) = "Sketch" , tak makro logicky vybírá celou skicu. Já ale potřebuji, aby výběr reagoval jen na pointy obsažené ve skice. Zbývající nastavení "Plane", "Point", "Face" fungují podle mých představ.
Předem děkuji za radu.

Language="VBSCRIPT"



Sub CATMain()



Dim oSelection As Selection

Set oSelection = CATIA.ActiveDocument.Selection



oSelection.Clear()



Dim ObjType(3)

ObjType(0) = "Plane"

ObjType(1) = "Point"

ObjType(2) = "Sketch"

ObjType(3) = "Face"



sStatus = oSelection.SelectElement2(ObjType, "Vyberte objekt ... (ESC pro ukončení)", False )

If (sStatus = "Cancel") Then ' ukoncime proceduru pri stisku Esc

   Exit Sub 

End If



Set oVybranyObjekt = oSelection.Item(1).Value 



End Sub