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

admin

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

, v$ u1 i( N2 {/ o9 l4 i3 G

5 @/ R" X- w8 i+ F2 S" V
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
- z) g  q+ F6 E8 M5 y    Dim NXMan As Boolean = Nothing
9 H3 e2 a. J; j! t' Q# u    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
7 B; I* F* r/ R( d6 }    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
- r* |# Y; y0 R) `    theUFSession.Cfi.GetUniqueFilename(tpn)
$ M7 x7 U: H+ }    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
# e# \8 ^* I: B1 c) j5 E    End If
    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
. |, Q+ x% x: U" O6 s" N    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

" Z1 J" e. B0 X. I6 o  CEnd Function[/mw_shl_code]
9 q1 h9 F) B. B- l  J7 M% d* p