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

admin

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

+ @" h' y/ B* @( f" R/ V
0 p/ @8 R* O% h) ^6 M1 h4 \8 f

[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
+ U; H) F9 s1 y9 e& ?6 Y6 B3 X
    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
4 N3 U6 |, s* o: N) }7 y    fileNew1.Units = theSession.Parts.Work.PartUnits
! I; \- V9 [3 k! p    Dim tpn As String = Nothing
% O. u& h) \& z7 n    theUFSession.Cfi.GetUniqueFilename(tpn)
8 S7 U8 J5 \; C- F; M    If (nxMan) Then
3 G3 C' D+ I$ W- d" N1 O% O9 Z        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
2 ?  L& g' d5 K        Dim tmp_dir As String = Nothing
3 V) ^* b; P" b        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
& g/ G* ~( X# o2 B5 u    End If
    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
( Y+ w# X( h8 D# \" a1 m    CreateNewTemporaryPartQuietly = fileNew1.Commit()
) W: }6 p( C% ~$ a    fileNew1.Destroy()
6 F9 P/ `. d$ \  r/ ]# Y
5 p9 K; ]$ K. Y: F8 I" _End Function[/mw_shl_code]
  }+ G3 }. Z" b9 q+ |/ a" D" M: J1 _