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

admin

主要是一个函数在CFI的头文件下，创建随机文件名
( ]- i4 k7 H- G9 S' z8 y



[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
$ f0 {8 W! v! t, m    Dim theUFSession As UFSession = UFSession.GetUFSession()
: y7 e! y0 m# N7 i9 s    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
. I' h% k# A  c# L    fileNew1.Application = FileNewApplication.Gateway
& i) P  }7 B9 D0 @0 x    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
9 j" T/ e* ?2 d  f, \" E" b    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
, d# o# I4 S) h5 P        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
3 N+ A" O! l% A9 C; I        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
3 J3 M6 i" l! }4 G5 P( R, P    End If
7 y' B/ ~3 ]: i" E, z    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
) q! V: i, b7 V2 ^    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()
0 P! O: O; X! J2 y2 R8 F
1 B0 s. g3 c$ I! x- {End Function[/mw_shl_code]
6 y& x" W6 ?- t; L3 O: Q9 J1 v