PPT_LOGO_4b
‹#›
修改模型
•修改当前选择集
    ' 假定当前选择集有两条路径
     Dim oCurSel As InwOpSelection = oState.CurrentSelection
     Dim oPath1 As InwOaPath = oCurSel.Paths(1)
     '新建一个新的选择集,只包含路径1
     Dim oMySel As InwOpSelection =   
                   oState.ObjectFactory(nwEObjectType.eObjectType_nwOpSelection)
     oMySel.Paths().Add(oPath1)
     oState.CurrentSelection = oMySel
•覆盖当前选择集的颜色  
      '新建颜色
        Dim oColor As InwLVec3f = oState.ObjectFactory(nwEObjectType.eObjectType_nwLVec3f)
        oColor.data1 = 1 : oColor.data2 = 0 : oColor.data3 = 0
        '覆盖颜色
        oState.OverrideColor(oState.CurrentSelection, oColor)
•切换漫游模式和视图
      oState.CurrentView.ViewPoint.Paradigm = nwEParadigm.eParadigm_ZOOM
      oState.ApplyView(oState.SavedViews(1))
•对象属性 (访问/修改/增加 )
        api\COM\examples\AUTO_06
•查找对象 (Find API)
       api\COM\examples\ACTX_05
•
•
•
 
•