根据Object.Tag导出part部件

danyfer

'如何得到Object.Tag
8 r! X8 r! u6 W' r '遍历得到所有body的Tag
/ h! ?7 Z/ w  S 'theUfSession.Obj.CycleObjsInPart(workPart.Tag, 70, objTag)
$ j! a! T9 Y/ V7 _+ b* A
/ y: q  R% u+ V( pSub ExportPart(ByRef part_tag As Tag)
        Dim theSession As Session = Session.GetSession()
/ l9 J3 ]2 |" B; R        Dim theUI As UI = UI.GetUI()
8 f9 I% T+ f5 A! @  b7 Y        Dim theUfSession As UFSession = UFSession.GetUFSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As Part = theSession.Parts.Display
        Dim body As Body = CType(NXObjectManager.Get(part_tag), Body)
) a) z5 P. _; }6 k$ [* s        Dim part_id As String = body.GetStringAttribute("part_id") '得到属性“part_id”作为零件名称，可以自己设置其他内容
        Try
( V% C' J' j7 [& \0 u# l: T7 M8 ]            Dim fileNew1 As FileNew
            fileNew1 = theSession.Parts.FileNew()
/ {7 _% V6 g+ N* S* s& ^            fileNew1.TemplateFileName = "model-plain-1-mm-template.prt" '导出模板名称
$ I: G1 R2 ]9 v1 i* t            fileNew1.Application = FileNewApplication.Modeling
            fileNew1.Units = Part.Units.Millimeters
/ C( p) X& W" V& Q+ m            fileNew1.TemplateType = FileNewTemplateType.Item
$ I4 \# S5 F* S; x! c4 D            fileNew1.NewFileName = "D:\" & part_id & ".prt"  '保存路径
            fileNew1.MasterFileName = ""
            fileNew1.UseBlankTemplate = False
            fileNew1.MakeDisplayedPart = False
" i1 L& _* y- e' ~; B& }% u  c: |
            Dim createNewComponentBuilder As Assemblies.CreateNewComponentBuilder
" k* F2 ?  ^  T! n( j& X# m            createNewComponentBuilder = workPart.AssemblyManager.CreateNewComponentBuilder()
' F/ l& ~5 @# r0 H            createNewComponentBuilder.ReferenceSetName = "Model"
            createNewComponentBuilder.OriginalObjectsDeleted = True '一般设置成False，删除源文件中的对象
            createNewComponentBuilder.NewComponentName = part_id
9 u3 @0 A- Y" V9 l; t" F% x            Dim added1 As Boolean
+ \* }' Q/ H8 y- m: x; Y, Z            added1 = createNewComponentBuilder.ObjectForNewComponent.Add(body)
            createNewComponentBuilder.NewFile = fileNew1
            Dim nXObject1 As NXObject
0 S  e; _) `  O& l            nXObject1 = createNewComponentBuilder.Commit()
            createNewComponentBuilder.Destroy()
        Catch ex As Exception
            MsgBox(ex.Message)
9 I- S0 L. U: C) T% `7 H        End Try
    End Sub

f1405602

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