2014-11-21 70 views

回答

1

四處搜索後,看起來您無法測量任何未更新的幾何圖形。

您可以使用MecMod零件庫中的UpdateObject方法更新一個對象。然後運行可測量的方法,現在您有一個更新的對象。

像這樣:

CurPart.UpdateObject Obj1 

如果幾何不能更新,由於與幾何的問題,你可以隨時與錯誤檢查(馬虎)跳過​​它,或者使用命令「IsUpToDate」檢查幾何被更新。

像這樣:

If CurPart.IsUpToDate(Obj1) = true then 
    Meas.GetPoint PTArr 
End If 

一定要保持對象名稱在數組中,因此您可以提示有沒有獲得測量的所有對象的列表用戶。

0

你總是可以隔離的幾何形狀,然後就可以測量並刪除它,如果你不需要它了..

這裏是創造了第一幾何組第一點的孤立拷貝一個例子,更新或沒有,而原始的立場完好無損。

Sub makePointDatum() 
    Dim sPoint As HybridShapePointExplicit, oPart As Part, oHSF As HybridShapeFactory 
    Set oPart = CATIA.ActiveDocument.Part 
    Set oHSF = oPart.HybridShapeFactory 

    Set sPoint = oHSF.AddNewPointDatum(oPart.HybridBodies.Item(1).HybridShapes.Item(1)) 
    oPart.UpdateObject sPoint 
    oPart.HybridBodies.Item(1).AppendHybridShape sPoint 
End Sub 
+0

技術上是的,你可以這樣做,但生成一堆基準幾何圖形只是爲了測量它非常昂貴。 – 2016-10-13 20:56:31