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

admin

主要是一个函数在CFI的头文件下，创建随机文件名

* w, O% n0 }& ^" ^; I7 ]

* o* C$ _" e0 G& u: Q, z3 @
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
4 a8 p* T4 E, `    Dim theUFSession As UFSession = UFSession.GetUFSession()
# f: ^8 [$ r3 R# h3 r; x    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
$ V" Y# P3 A7 F  |' ]5 c2 g+ d# W0 ^
1 P" Q* e1 t7 b6 N9 K) @    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
0 C7 U* [3 l4 t    fileNew1.Application = FileNewApplication.Gateway
, f9 S4 O0 @, D  V5 n    fileNew1.Units = theSession.Parts.Work.PartUnits
7 x$ n( ?& G3 E    Dim tpn As String = Nothing
! t. K5 x$ G. T5 D/ ?" o* u8 W    theUFSession.Cfi.GetUniqueFilename(tpn)
; t& g* ]1 }& [7 W5 _    If (nxMan) Then
* b: S1 P$ {) H3 A! \- @- D4 U2 N: a        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
        Dim tmp_dir As String = Nothing
# w% ]1 _# d4 j        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
3 f, |! x5 b5 M: m% H; F    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
' C( B3 A9 P7 i  J    CreateNewTemporaryPartQuietly = fileNew1.Commit()
" |& }: \+ Z4 p. Z- c1 H* `    fileNew1.Destroy()
& p+ v% V! c* u. l* H* I! s. x
End Function[/mw_shl_code]
$ W9 a7 [. ^" U2 S5 l1 E4 v