Смотрим код:
theView = av.FindDoc("View1") theView = av.FindDoc("View1") listTheme=theView.GetThemes type = MsgBox.ChoiceAsString(listTheme, "Select Theme to:", "Theme" ) theTheme = theView.FindTheme(type.AsString) shapeClass = theTheme.GetFTab.GetShapeClass.GetClassName MsgBox.Info( shapeClass, "")
Все здесь знакомо, за исключением метода GetShapeClass:
anFTab.GetShapeClass
Который возвращает имя класса. Результат работы может быть вот такой.
Можно использовать эту строку для проверки принадлежности к определенному классу.
if (shapeClass = "POLYGON") then MsgBox.Info( "POLIGON", "") end