根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
'遍历得到所有body的Tag
/ A: S3 v' K# r+ P/ o% w 'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)
  M5 Z: D' f- _& [: I8 i  w
Sub ExportPart(ByRef part_tag As Tag)
        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
. Z: `+ r* A* |9 o3 U1 b. W        Dim theUfSession As UFSession = UFSession.GetUFSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As Part = theSession.Parts.Display
& m' s, p* a0 A        Dim body As Body = CType(NXObjectManager.Get(part_tag), Body)
        Dim part_id As String = body.GetStringAttribute("part_id") '得到属性“part_id”作为零件名称，可以自己设置其他内容
! R5 T( m& S9 _5 O        Try
            Dim fileNew1 As FileNew
            fileNew1 = theSession.Parts.FileNew()
            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
) `; b8 V( X3 G4 |            fileNew1.Application = FileNewApplication.Modeling
& ]  q# _  z3 r8 K: o5 T" g# m# N- S            fileNew1.Units = Part.Units.Millimeters
; i$ X9 z4 U- [9 x% n  f            fileNew1.TemplateType = FileNewTemplateType.Item
            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
  F. C( F/ i7 P            fileNew1.MasterFileName = ""
            fileNew1.UseBlankTemplate = False
            fileNew1.MakeDisplayedPart = False
/ c. \  E0 E! e! t. Y. C& K
            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
2 \* C0 D* L) O  l2 M4 k            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
            createNewComponentBuilder.ReferenceSetName = "Model"
! ]4 Z# c3 Y$ r4 D            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
* {3 j$ U8 S) A+ D! n3 e            createNewComponentBuilder.NewComponentName = part_id
            Dim added1 As Boolean
            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
& f  B( z5 x7 x: y$ r0 S8 h: Y- T5 ?7 y            createNewComponentBuilder.NewFile = fileNew1
            Dim nXObject1 As NXObject
            nXObject1 = createNewComponentBuilder.Commit()
( Z' }$ H) B! r$ ^& v1 @8 v" G            createNewComponentBuilder.Destroy()
# m; [( @5 C+ O0 V        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

f1405602

NXOPEN .NET很好的例子，顶LZ一个！