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

admin

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

5 _1 p! U- y( ~& I; Q' ?5 l
2 }6 L6 {9 T5 {$ d& _) v5 g
5 d, N  Y- L4 [2 Q1 L. T7 n# E
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
  p0 \6 M  X- j* z    Dim NXMan As Boolean = Nothing
& G" p1 ~' L, r$ ?* J# x- B    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
  I. M3 z! e+ ^! `% m6 P8 O/ i& J0 r    fileNew1.Units = theSession.Parts.Work.PartUnits
    Dim tpn As String = Nothing
8 n) ^6 W9 Z9 J7 x' [    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
& p4 e2 d1 I: E* E2 w1 w# O        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
/ O; \+ `# n2 O        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
* r; S9 w0 T7 m: g3 q/ z  t    fileNew1.UseBlankTemplate = True
; R7 e$ Y" n( c3 V- w    fileNew1.MakeDisplayedPart = False
8 J0 j$ z0 p' h/ v    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()
" J: K* X* R& t+ g2 [
0 o: u3 {! ?; w9 o! kEnd Function[/mw_shl_code]