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

admin

& u3 e, \% `6 s2 i5 Y主要是一个函数在CFI的头文件下，创建随机文件名
  ~+ Y& e1 r2 z
& h: m. g: _9 U

8 i$ y9 Z3 H$ N1 P
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
  D+ N- B& p* L    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
8 a. O4 Y. o$ C( a    theUFSession.UF.IsUGmanagerActive(nxMan)
% k! V  f) h6 l1 l/ j# H% j- Y
1 ^7 _6 D( l! h5 p/ X    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
/ c7 ~- f3 E* |( j    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
6 L  _# c3 _- k( u  a% r+ ?  Z        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
4 i/ \2 P7 l6 m" m7 R    fileNew1.Destroy()

End Function[/mw_shl_code]