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

admin

$ P' }9 N& g( J/ X4 H; E主要是一个函数在CFI的头文件下，创建随机文件名
* o* V$ i/ k) K/ |1 [- E

( R( p* w9 m# |6 T

[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
, t; g; C  j; P3 w. C    Dim theUFSession As UFSession = UFSession.GetUFSession()
+ [# t) P1 w0 ]0 A% `# `1 G) ]0 O6 _    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
( J9 _. Y6 c: g
    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
! M. P2 e7 k, Z. Q. g! ~* k$ R/ T    fileNew1.Application = FileNewApplication.Gateway
) B# q* M2 ~7 `+ h: @) t" u    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
# d% p5 k! r& |# `    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
1 @2 l6 a9 t8 B" `0 `        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
0 K3 d$ p$ B* ^        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
' l* M8 h# `) l3 a% K3 h# N        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
$ C/ b* I* J% N" A6 I6 |1 Z/ ?' ]' D    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
/ T0 o+ M- A1 |) d. p- q    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

End Function[/mw_shl_code]