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

admin

7 B, Q9 O5 s5 U- C/ x主要是一个函数在CFI的头文件下，创建随机文件名
+ z! g7 }7 |& M' J, U+ G
* m) E4 u2 f9 A, U
! |$ y4 r! L: ^: O: A# r

[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
0 d8 l) _9 J5 A; p    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
, y# W  G! H/ c
1 Z$ k. v9 e3 E    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
. F  S' b# n5 q7 i0 f, c  {    fileNew1.Units = theSession.Parts.Work.PartUnits
' N9 ^* l4 f- q    Dim tpn As String = Nothing
, s) A  O& Q( p; Y    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
9 A) x; }. ^. l0 {2 e' s        fileNew1.NewFileName = "@DB/" & tpn & "/A"
5 C" N. w, N& a& \! m$ ?  F    Else
/ D+ w3 o+ J) z  s, d        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
% f: H/ s! b! j+ V        fileNew1.NewFileName = tmp_dir & "\" & tpn
% U3 w& J; y' K6 U5 j    End If
    fileNew1.UseBlankTemplate = True
" D8 W- x' c; a' D$ N    fileNew1.MakeDisplayedPart = False
5 H/ h" Y6 r, P! S2 b' P" S+ p    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

End Function[/mw_shl_code]