根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
" R+ }9 F6 T7 k( V* z) e '遍历得到所有body的Tag
'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)

Sub ExportPart(ByRef part_tag As Tag)
        Dim theSession As Session = Session.GetSession()
% G$ i  ~6 p0 U  m6 _9 F        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
* [1 l% y, r- o5 L: _3 s* k, _        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As Part = theSession.Parts.Display
        Dim body As Body = CType(NXObjectManager.Get(part_tag), Body)
        Dim part_id As String = body.GetStringAttribute("part_id") '得到属性“part_id”作为零件名称，可以自己设置其他内容
        Try
! T& U+ a: V: x! y$ Q7 J- J            Dim fileNew1 As FileNew
6 k& }2 {* P; [6 e1 M. O' s            fileNew1 = theSession.Parts.FileNew()
            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
            fileNew1.Application = FileNewApplication.Modeling
1 X' y  C  X( e! c; f            fileNew1.Units = Part.Units.Millimeters
            fileNew1.TemplateType = FileNewTemplateType.Item
            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
            fileNew1.MasterFileName = ""
3 b1 ~, }$ e  k" r9 ]1 Q) V            fileNew1.UseBlankTemplate = False
* X7 m+ j, @8 j            fileNew1.MakeDisplayedPart = False
2 l9 v% z5 Y/ H. r
" Z  |( J: ~6 m/ c! @% S% J            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
            createNewComponentBuilder.ReferenceSetName = "Model"
            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
: D0 l) f& \" }- z1 B            createNewComponentBuilder.NewComponentName = part_id
* Q4 n  T& M6 K0 O6 K$ m7 t            Dim added1 As Boolean
% G9 \* p8 t5 t7 u            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
            createNewComponentBuilder.NewFile = fileNew1
            Dim nXObject1 As NXObject
            nXObject1 = createNewComponentBuilder.Commit()
            createNewComponentBuilder.Destroy()
        Catch ex As Exception
  t: o  H7 m* G6 y, r/ g5 B            MsgBox(ex.Message)
        End Try
    End Sub

f1405602

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