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

admin

7 p$ K3 L, d: M/ W8 o4 M主要是一个函数在CFI的头文件下，创建随机文件名
4 M) H' I1 B6 D0 u* M( k5 Z8 l/ b
7 P0 S; G3 Y! I0 u1 k4 p9 D" @


; B6 R4 E. `, t) {6 P. W, \[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
8 b% O- L5 B% @    Dim NXMan As Boolean = Nothing
  q) I2 ^7 j6 E( w$ U3 B/ S    theUFSession.UF.IsUGmanagerActive(nxMan)

2 Q$ D7 _" ?$ z  k, Z    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
0 X; [7 _% t* h  h/ l    theUFSession.Cfi.GetUniqueFilename(tpn)
+ c6 G4 T' z2 g' T    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
; @" Y2 l) z5 M  l. F' {& C    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
) I0 k9 H$ h# x) W! d        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
" k5 u8 i) s' Z) J6 ]# l+ S    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

End Function[/mw_shl_code]