根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
. p& P5 ]0 }( [( o$ k- H( B '遍历得到所有body的Tag
" E3 Z2 K/ b, \8 S 'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)
% M) |: w# u5 ~4 G2 n
3 V" ~& f, t4 E1 R5 t& T2 t9 wSub ExportPart(ByRef part_tag As Tag)
& W0 j, M# x; V0 E4 Q        Dim theSession As Session = Session.GetSession()
- t  g  Q. F8 G% ]        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
: P3 n' T% q, x: }* g; A& y( e        Dim workPart As Part = theSession.Parts.Work
0 z1 q/ @# \, e' E7 a. Q  }        Dim displayPart As Part = theSession.Parts.Display
. z$ o0 i# Y- X% o: y        Dim body As Body = CType(NXObjectManager.Get(part_tag), Body)
        Dim part_id As String = body.GetStringAttribute("part_id") '得到属性“part_id”作为零件名称，可以自己设置其他内容
        Try
            Dim fileNew1 As FileNew
            fileNew1 = theSession.Parts.FileNew()
            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
7 d6 s6 }2 R6 s            fileNew1.Application = FileNewApplication.Modeling
            fileNew1.Units = Part.Units.Millimeters
& N# \6 P9 l- [) X6 G# R: T- p. L            fileNew1.TemplateType = FileNewTemplateType.Item
            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
            fileNew1.MasterFileName = ""
            fileNew1.UseBlankTemplate = False
& j1 P) {- }. p, _4 u7 v8 ?            fileNew1.MakeDisplayedPart = False

8 G5 D4 @6 s% B. I) ]8 F            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
" D) s+ A2 a! f! i8 }' t) K$ P            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
! i& F: J' i* a- v5 d/ g  z/ c; K            createNewComponentBuilder.ReferenceSetName = "Model"
            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
3 I2 s! S: Z) q            createNewComponentBuilder.NewComponentName = part_id
* G/ o7 R  t% O+ d+ J" ]& Y. D4 f            Dim added1 As Boolean
            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
( x! [, l: `  I/ D) T            createNewComponentBuilder.NewFile = fileNew1
- ^- @4 z6 k8 |! S* {" W+ _" t8 T            Dim nXObject1 As NXObject
            nXObject1 = createNewComponentBuilder.Commit()
            createNewComponentBuilder.Destroy()
: b# q  x. ^8 g* o8 P# l        Catch ex As Exception
            MsgBox(ex.Message)
  y1 \6 v! M$ r5 Q: @# L) K        End Try
. W1 P6 N  Z) ?6 S. ~7 V    End Sub

f1405602

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