•修改当前选择集
' 假定当前选择集有两条路径
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
•
•
•
•