根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
'遍历得到所有body的Tag
'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)
6 T( J# B4 s$ J% x7 h8 @) p! G% Z
1 X& e% J3 s3 e) wSub ExportPart(ByRef part_tag As Tag)
! C3 w, W% y) F        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
. S% Q  @: i% m: r1 n6 I        Dim theUfSession As UFSession = UFSession.GetUFSession()
        Dim workPart As Part = theSession.Parts.Work
! p( C, s2 l( ?1 U0 R. y: D        Dim displayPart As Part = theSession.Parts.Display
        Dim body As Body = CType(NXObjectManager.Get(part_tag), Body)
0 z; x' S6 i/ B+ v# I4 {        Dim part_id As String = body.GetStringAttribute("part_id") '得到属性“part_id”作为零件名称，可以自己设置其他内容
% {1 A) A2 b/ [7 J" s9 Y4 r6 @- I        Try
. t" \9 N  b, ]" X( Q- \" V            Dim fileNew1 As FileNew
  a5 u7 b- i* X6 e            fileNew1 = theSession.Parts.FileNew()
/ F3 K; m% F4 e+ Y+ g: R  E+ |            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
0 N. C4 m6 n9 O7 W            fileNew1.Application = FileNewApplication.Modeling
8 [3 |' N' L' u. u" ^            fileNew1.Units = Part.Units.Millimeters
; i. i. d6 j* q/ ~& ~            fileNew1.TemplateType = FileNewTemplateType.Item
            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
            fileNew1.MasterFileName = ""
            fileNew1.UseBlankTemplate = False
            fileNew1.MakeDisplayedPart = False
! E% ^- O8 Y# M% `* s9 p6 b
            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
  |* E) g; k" g4 H) O& |( L            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
9 }% m* d1 l; {6 C3 l- \            createNewComponentBuilder.ReferenceSetName = "Model"
            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
+ I+ c* Z$ y0 q9 I, K            createNewComponentBuilder.NewComponentName = part_id
            Dim added1 As Boolean
& u5 b& f- l; R            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
8 `4 S' |" l8 t0 b; V" T7 T- A9 O5 B            createNewComponentBuilder.NewFile = fileNew1
            Dim nXObject1 As NXObject
' T. v% o) y) H  g: `! f            nXObject1 = createNewComponentBuilder.Commit()
            createNewComponentBuilder.Destroy()
% X9 y, V# ]) ~7 n9 ?        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

f1405602

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