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

admin

  g: |) j4 y6 k8 S主要是一个函数在CFI的头文件下，创建随机文件名

5 A! E$ a: X6 U( _

) G8 u$ K: w- A7 ], x: z, p
3 X2 r) P, |/ m1 L. ~" A* }$ [[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
2 U, p3 d( @* A- S; l  b: o    theUFSession.UF.IsUGmanagerActive(nxMan)

4 p, r8 s$ a7 c4 H) v  `1 z# J. U    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
7 e* X9 M$ _' ^* @6 X% _    Dim tpn As String = Nothing
) k8 Z" p8 I3 v    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
" |) }4 \! n5 Z* g7 n        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
4 s% o2 w! B9 B        fileNew1.NewFileName = tmp_dir & "\" & tpn
1 J# q4 A% x$ e5 Z* Y    End If
/ |9 r! }+ L# P0 ?    fileNew1.UseBlankTemplate = True
8 D. H6 A& o4 {' {  F' b    fileNew1.MakeDisplayedPart = False
$ ?' z- @% W0 S  F" z    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

End Function[/mw_shl_code]
8 V) l1 n: v$ {' B