根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
0 A8 C4 T; P, P. P% ^8 o7 r7 L. X '遍历得到所有body的Tag
5 Q, X  h* u$ l. j. a( `. h6 P 'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)

- y3 V! t1 u+ jSub ExportPart(ByRef part_tag As Tag)
' x9 _- ]/ g2 J+ V3 c" h        Dim theSession As Session = Session.GetSession()
/ B/ _* i  ]+ z( t/ b; P8 C        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
4 ]3 i& I. |1 ?        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”作为零件名称，可以自己设置其他内容
4 K+ d# N7 T5 b1 E3 X5 c        Try
            Dim fileNew1 As FileNew
' I7 O: u1 g# R9 k+ o            fileNew1 = theSession.Parts.FileNew()
: \% `" H* l" _: j& l0 C            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
+ _* e0 |5 L) r7 g! f            fileNew1.Application = FileNewApplication.Modeling
% |  @# c) B! i8 L) I, {            fileNew1.Units = Part.Units.Millimeters
( `. B$ k; d5 Z- R; O* f            fileNew1.TemplateType = FileNewTemplateType.Item
. E- J9 H5 f) V, z7 r8 ^. O            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
            fileNew1.MasterFileName = ""
1 t2 I' Y; V: z- a- w. d4 B+ x            fileNew1.UseBlankTemplate = False
$ \- a: R" \5 O8 p. L            fileNew1.MakeDisplayedPart = False

9 m' j$ t  p, z3 K$ U. l            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
            createNewComponentBuilder.ReferenceSetName = "Model"
            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
6 ~2 u6 z2 H8 }. I1 T, B            createNewComponentBuilder.NewComponentName = part_id
% D: H- n" ~, N1 ^7 M6 G! v            Dim added1 As Boolean
: g2 \: L' z: o: S- X3 Z            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
            createNewComponentBuilder.NewFile = fileNew1
' N% L, L- K, F) _  S4 A1 Z1 ]            Dim nXObject1 As NXObject
2 r* L) v) n$ {5 \. U' b- p            nXObject1 = createNewComponentBuilder.Commit()
            createNewComponentBuilder.Destroy()
9 v2 f1 K( h3 ?        Catch ex As Exception
            MsgBox(ex.Message)
& i8 S/ k( f* M9 k+ F+ d: w        End Try
5 g! m, A9 d1 }/ |    End Sub

f1405602

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