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

admin

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

" P% J& B1 h2 ^& n2 J. G
: C0 G" \5 Q3 o1 q0 e5 b. k8 ]0 r- |

& g4 |( T+ L! ~; Q[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
/ {/ v1 M3 w; r: {& i9 Z) c    theUFSession.UF.IsUGmanagerActive(nxMan)
( `3 K1 y4 ?2 ]# D4 r% h
    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
$ I5 J; N, z7 B7 h# w3 W    fileNew1.Units = theSession.Parts.Work.PartUnits
- h, u/ q% U( o& P9 ^2 g, R: ^    Dim tpn As String = Nothing
4 S4 ?4 ~! b; L/ G+ _    theUFSession.Cfi.GetUniqueFilename(tpn)
: M- n2 m* `' u0 \5 G# Z4 ]    If (nxMan) Then
; g' ~- |( l4 L# h6 T/ `, V        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
! G/ b1 c3 T) r# L        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
9 t2 Y( U* P1 y        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
5 o& K3 d% C0 `: l    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
: G& E* U" e: r4 F: O    CreateNewTemporaryPartQuietly = fileNew1.Commit()
4 D, v& `( g" E) O3 T    fileNew1.Destroy()
9 T" ?, Y* M  a
7 |7 Q2 P6 D. n$ A2 Z) H  rEnd Function[/mw_shl_code]