CAA中如何设置精度 accuracy

用下面的macro了话，可以马上反映值的变化
Language="VBSCRIPT"

Sub CATMain()

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

Dim visualizationSettingAtt1 As SettingController
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")

visualizationSettingAtt1.Viz3DFixedAccuracy = 2.000000

visualizationSettingAtt1.SaveRepository

End Sub

在VC如果可以得到CATIASettingController或CATISysSettingCtrl应该可以做到，尝试中

[ 本帖最后由 acoka 于 2006-3-29 15:59 编辑 ]

大致有些眉目了

取得当前的application,用它的 CATIAApplication的IF的
virtual HRESULT __stdcall get_SettingControllers(CATIASettingControllers *& oCtrl)
来取得CATIASettingControllers
然后用它的
virtual HRESULT __stdcall Item(const CATBSTR & iIndex, CATIASettingController *& oSetting);
取得ｏＳｅｔｔｉｎｇ应该可以ｃａｓｔ－＞CATIVizVisualizationSettingAtt

然后用CATIVizVisualizationSettingAtt来改设定了话，应该和上面的ｍａｃｒｏ是一个效果

新发现 CATInstantiateComponent

CATIVizVisualizationSettingAtt  *vizSettingCtrl  =  NULL;   
hr  =  ::CATInstantiateComponent("CATVizVisualizationSettingCtrl", IID_CATIVizVisualizationSettingAtt, (void**)&vizSettingCtrl );