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

admin

主要是一个函数在CFI的头文件下，创建随机文件名
/ O. k( A( J6 H1 \0 Q* g6 n$ x



( W$ U  X0 a6 E6 G) z/ J* {[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
* j' _5 v( l4 _; x6 i( Z& ^' y    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
2 d6 B4 a( m/ C. L; X( I" d
! J8 [* J3 s8 Q; Y( c4 L! O0 s$ m, h    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
7 }$ u$ l& t  {- d    fileNew1.Application = FileNewApplication.Gateway
) e+ b! n' E& \/ `    fileNew1.Units = theSession.Parts.Work.PartUnits
/ S& X# \+ h& i; |6 E    Dim tpn As String = Nothing
    theUFSession.Cfi.GetUniqueFilename(tpn)
3 @4 y1 K2 j) x3 s$ e- _    If (nxMan) Then
& c; h+ c: u$ `        fileNew1.NewFileName = "@DB/" & tpn & "/A"
9 ~% T* @5 G+ R; `7 v    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
$ |% G: j/ _: m) @% S    End If
% q. [2 v( h9 [2 s    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
6 L0 `8 n2 b3 e( i+ b    CreateNewTemporaryPartQuietly = fileNew1.Commit()
+ d1 P+ j6 @' o- a2 r0 [6 c2 q    fileNew1.Destroy()
5 e3 k% t/ X0 m9 w& X
, L8 M  C  H; O2 j! A3 M3 Q) QEnd Function[/mw_shl_code]