помогите с макросом

[dracondo 0]

у меня макрос создает цилиндрическое основание и бобишку

и в месте ихнего соединения мне надо сделать скругление

как мне программно выбрать кромку для указания скругления?

[MiRu 18]

Посмотрите ето

blow.rar

blow.rar

[dracondo 0]

мне желательно выделять кромку с помощю метода GetFaces

[MiRu 18]

А ето пробавали "void = MacroFeatureData.GetSelections3 (*Objects, *ObjectTypes, *SelMarks, *DrViews, *ComponentXForms)"

[dracondo 0]

pFeature := ModDoc.FeatureManager.FeatureExtrusion (True, False, False, 0, 0,

iRdeep, iRDeep, False,False,

False, False, 0.01745329251994,

0.01745329251994, False, False,

False, False, 1, 1, 1);

{ получаем массив указателей на боковые поверхности образующие

твердое тело (куба) в aArrToFaces, соответсвенно для кубического

тела их будет 6 }

aArrToFaces:=pFeature.GetFaces;

{ делаем доступным для выделения объект в графической модели

=-перед выполнением оперции выделения объектов вызов

свойства SelectionManager объекта ModelDoc2 строго неоходим-=

}

vSelMng:=ModDoc.SelectionManager;

{ если требуется выделять объекты модели с помощью функции

Select4- необходим данный вызов }

vSelData:=vSelMng.CreateSelectData;

{ по полученному указателю (1-я) на боковую поверхность тела (куба)

получаем массив указателей на ограничивающие эту поверхность ребра,

соответственно их будет 4}

vEdgesArr:=aArrToFaces[0].GetEdges;

vSelData:=vSelMng.CreateSelectData;

{ выделяем одно из ребер куба соответсвующее его ширине }

vEdgesArr[2].Select4(false,vSelData);

эта программа написана на Delphi и вроде все работает

а в VB таким способом не могу зделать