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

admin

6 j4 g! c+ p- m4 Z主要是一个函数在CFI的头文件下，创建随机文件名
) H: R. @  i4 h9 t% c- a
* }9 f. G4 A9 Y" u- U& h
# w' b/ [& \  n

0 ?4 H/ _. F! R: U/ ?5 q8 w9 {[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
- Y8 h  Q) u9 }+ J    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
8 T% R7 k( m: K) `# Z1 J
    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
" f" L& Y- V8 T) N3 n    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
8 ^  I, y0 f7 v9 b! a2 \0 R' e6 s        fileNew1.NewFileName = "@DB/" & tpn & "/A"
: \% u8 d5 w; E! ^$ ~    Else
        Dim tmp_dir As String = Nothing
. _" Y: g, V/ g        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
4 B2 u9 T6 `! i* m- S    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
; a3 G  @+ f. z& `9 N  N3 n    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()
, }8 i0 u/ x9 r. m  X, ]
, A( O; d9 o6 x! F& u6 QEnd Function[/mw_shl_code]
# A+ m' {% i: z% {& \