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

admin

: Y" ^3 `7 H8 U% G! J2 b主要是一个函数在CFI的头文件下，创建随机文件名
+ D3 x8 B9 M+ i1 o5 O
) v+ X; c8 B; t  e, M
% ?7 k) j0 |% r, T* u+ [
0 e) X# `7 L& B: w( J
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
& \+ N" O5 w4 a    fileNew1.Application = FileNewApplication.Gateway
4 H$ ^2 v& N0 C' v+ I/ F$ f) C, q* H$ ]    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
9 A1 x) Y1 h$ v6 n    theUFSession.Cfi.GetUniqueFilename(tpn)
( u9 q& }: C1 o7 x; v9 N  B  P    If (nxMan) Then
( S$ W. |+ l1 ]0 `* @8 R! c        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
- |+ r7 K. y. k        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
    fileNew1.UseBlankTemplate = True
% h7 @' b6 e1 W' J5 g2 |  Y9 x. X: D    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
; g  b" l  Y2 n$ m3 W& W( c    fileNew1.Destroy()
# l$ x" G. r9 s' |, q
. z8 E0 w4 g* q- S) O# WEnd Function[/mw_shl_code]