Dim Coordinates1(2)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set reference1 = oPart.FindObjectByName("點1")
Set measureObj = TheSPAWorkbench.GetMeasurable(reference1)
measureObj.GetPoint Coordinates1 運行的時候說"函式或介面標記為限制的或函式使用了vb中不支持的自動型別",點擊錯誤提示中的確定回傳程式時，其中GetPoint變成藍色，是不是就這里錯了，但是怎么改呢？求教~~~~~~~~
uj5u.com熱心網友回復：
怎么沒人來啊~~~uj5u.com熱心網友回復：
我用下面的陳述句來獲得一個點的坐標TheMeasurable.GetPoint
總是出現
函式或介面標記為限制的，或函式使用了Visual Basic中不支持的自動型別
uj5u.com熱心網友回復：
怎么沒人回答呢？？？uj5u.com熱心網友回復：
親，你這個問題解決了沒有？求解uj5u.com熱心網友回復：
不過按照你說的那個，應該是GetPoint函式沒有提供相應的介面，我也遇到了這個問題uj5u.com熱心網友回復：
measureObj 定義為object就可以了～！～uj5u.com熱心網友回復：
樓主您好！請教您類似的問題. 我想通過VB得出CATIA切割體的體積、重心等體積特性。Dim TheSPAWorkbench As Workbench
Dim MyMeasure As Measure
Dim VOL As Double
Dim COG(2) As Double
Dim reference As Reference
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Part1.InWorkObject = Body1
reference = Part1.CreateReferenceFromObject(split1)
Set MyMeasure = TheSPAWorkbench.GetMeasurable(reference)
VOL = MyMeasure.Volume
MyMeasure.GetCOG COG(2)
運行的時候也是說"函式或介面標記為限制的或函式使用了vb中不支持的自動型別" 請問怎么解決？ 謝謝！
uj5u.com熱心網友回復：
Dim Coordinates1(2)measureObj.GetPoint Coordinates1
Coordinates1是個variant型別的陣列，看看.GetPoint需要什么型別的引數。
uj5u.com熱心網友回復：
會用OleView.exe查看COM介面資訊嗎？uj5u.com熱心網友回復：
直接把不能確定的型別改為object或者直接不確定型別就好了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112448.html
標籤：控件