Да нашел код , как строится фланец, только мне тут мало что можно изменить, разве что после IF flangeA THEN , попробовать вставить код построения своего обьекта
IF pipe_show THEN ! -----> pipe flanges <----- !
MATERIAL gs_PipeMat
IF flangeA THEN
EXTRUDE 2, 0, 0, connectorWidthA, 1+addStatus2+16+32,
0, 0, 901,
connectorDiameterA/2, 360, 4001
IF connectorDiameterA-pipeDiameterA > EPS AND operatedMode < EPS THEN
ADDz connectorWidthA
POLY_ 4,
0, 0, 901,
connectorDiameterA/2, 360, 4001,
0, 0, 901,
pipeDiameterA/2, 360, 4001
DEL 1
ENDIF
BASE
VERT 0, 0, 0
VERT connectorDiameterA/2, 0, 0
VERT 0, 1, 0
VERT 0, 0, 1
COOR 3, -1, -2, -3, -4
BODY -1
ENDIF