求VB 6.0撰寫CATIA以三條曲線為邊界生成填充曲面的代碼，《CATIA二次開發技識訓礎》中介紹的方法不能運行：
Dim oFill As HybridShapeFill
Dim FillEdge1 As HybridShapeFillEdge '自動選擇中沒有HybridShapeFillEdge的選項
Dim FillEdge2 As HybridShapeFillEdge
Dim FillEdge3 As HybridShapeFillEdge
Set FillEdge1 = oHSF.AddNewFillEdge(refCurve1, 0, 0)
Set FillEdge2 = oHSF.AddNewFillEdge(refCurve2, 0, 0)
Set FillEdge3 = oHSF.AddNewFillEdge(refCurve3, 0, 0)
oFill.AddFillEdge FillEdge1 ‘實時錯誤“438”：物件不支持該屬性或方法
oFill.AddFillEdge FillEdge2
oFill.AddFillEdge FillEdge3
oHBody.AppendHybridShape oFill
求高手指點！萬分感謝！
uj5u.com熱心網友回復：
你使用錯了地方，此處你沒有在VB 6.0獲取到catia的APPLICATION物件，所以你無法操作《CATIA二次開發技識訓礎》這本書是在CATIA的環境中使用的
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/139617.html
標籤：VB基礎類
上一篇：VB作業。求高手幫忙。。萬分感謝
下一篇：VB 監測某個檔案被哪個行程打開