NX二次开发源码分享：创建一个临时的prt文件

admin

4 i) k! T/ U# O' t主要是一个函数在CFI的头文件下，创建随机文件名


) T* [  f3 Y4 Z) J% G2 L& Y5 x
! ?& f' t1 F# a3 D
7 e% Y2 j; P  n  y: U[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
/ J% t7 h  z3 U8 i! `+ s
2 M$ O( _/ I3 |/ ^    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
4 _  ^- [  t& B8 V    theUFSession.Cfi.GetUniqueFilename(tpn)
& E% U( l- d% b6 M3 B8 K. \6 y    If (nxMan) Then
' p9 `1 ~" B, s& p! i  J" v6 e        fileNew1.NewFileName = "@DB/" & tpn & "/A"
3 f, N5 H- l8 D* I/ G    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
. C% V- }  J$ @# {+ K. B    End If
    fileNew1.UseBlankTemplate = True
8 l- H' J: U' Q, ]. k    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

  p* q! |: ^$ b2 W4 j+ L9 WEnd Function[/mw_shl_code]
9 ^" j* d0 `+ O% f* F7 j' ?/ t