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

admin

主要是一个函数在CFI的头文件下，创建随机文件名
% l8 Q+ t8 b* P3 y
2 ]' H1 @1 b9 A3 H" l
& D3 {9 D# B* ]1 e

[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
6 k$ n; q$ ^: z( _+ E    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
: ?  a: B& r* d5 r3 e* f    fileNew1.Application = FileNewApplication.Gateway
) b0 T2 b5 u* N- z1 [) K    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
- R/ U) [  u  T" X' G        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
" n7 p& A: S2 s: b( C' O        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
9 B/ w8 {- b1 H. P( G    End If
# R# S) k) N5 X$ F5 e: [2 f    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

End Function[/mw_shl_code]