Text dotazu:
Dobrý den,

Pokouším se pomocí funkce GetPointsOnCurve zjistit krajní body křivky(průsečíku roviny a plochy), ale právě na této funkci mi to hází následující chybu:

Compile error: Function or interface marked as restricted, or the function uses an Automation type not supported in VisualBasic.

Nedaří se mi zjistit, čím to může být, no hold nejsem žádný expert.
Část kódu je zde:

Sub KrajniBody()



Dim objPart As Part

Dim objHShape As HybridShape

Dim objHShapeRef As Reference

Dim reference1, reference7 As Reference

Dim Krivka(8) As Variant



Set objPart = CATIA.ActiveDocument.Part



   'první bod z „oblast“



Set objHShapePt1 = objPart.HybridBodies.Item("oblast").HybridShapes.Item(1)

Set objHShapePt1Ref = objPart.CreateReferenceFromObject(objHShapePt1)



Set hybridShapeFactory1 = objPart.HybridShapeFactory



   'první plocha z „sklo“



Set objHShape = objPart.HybridBodies.Item("sklo").HybridShapes.Item(1)

Set objHShapeRef = objPart.CreateReferenceFromObject(objHShape)



   'novy Set



Set hybridBodies1 = objPart.HybridBodies

Set HybridBody1 = hybridBodies1.Add()



   'plocha YZ



Set originElements1 = objPart.OriginElements

Set hybridShapePlaneExplicit1 = originElements1.PlaneYZ

Set reference1 = objPart.CreateReferenceFromObject(hybridShapePlaneExplicit1)

 



Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Set TheMeasurable = TheSPAWorkbench.GetMeasurable(reference1)



   'ofSet roviny YZ



Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(reference1, 100, True)

HybridBody1.AppendHybridShape hybridShapePlaneOffset1



   'intersection roviny s plochou = krivka



Set hybridShapeIntersection1 = hybridShapeFactory1.AddNewIntersection(hybridShapePlaneOffset1, objHShape)



HybridBody1.AppendHybridShape hybridShapeIntersection1



   'ulozeni souradnic krajnich bodu intersectionu Do Krivka



Set reference7 = objPart.CreateReferenceFromObject(hybridShapeIntersection1)

Set TheMeasurable = TheSPAWorkbench.GetMeasurable(reference7)

TheMeasurable.'bold'>GetPointsOnCurve Krivka



objPart.Update



End Sub