Three curves for VB 6.0 write CATIA generated filling surfaces for boundary code, "CATIA secondary development technology foundation" described in the method can not run:
Dim oFill As HybridShapeFill
Dim FillEdge1 As no HybridShapeFillEdge HybridShapeFillEdge 'automatic selection options
Dim FillEdge2 As HybridShapeFillEdge
Dim FillEdge3 As HybridShapeFillEdge

The Set FillEdge1=oHSF. AddNewFillEdge (refCurve1, 0, 0)
The Set FillEdge2=oHSF. AddNewFillEdge (refCurve2, 0, 0)
The Set FillEdge3=oHSF. AddNewFillEdge (refCurve3, 0, 0)

OFill. AddFillEdge FillEdge1 'real-time error "438" : object does not support this property or method
OFill. AddFillEdge FillEdge2
OFill. AddFillEdge FillEdge3

OHBody. AppendHybridShape oFill
Beg ace to give directions! Thank you very much!

CodePudding user response:

You use the wrong place, here you do not have access to the APPLICATION of catia in VB 6.0 object, so you can't operate
"CATIA secondary development technology foundation" the book is used in the environment of CATIA