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

admin

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




* e$ \% \  Y' z' Z0 B8 |7 T% y[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
" u  Y0 @" }; n: X! ?    Dim theUFSession As UFSession = UFSession.GetUFSession()
2 H3 c3 `; g- o2 {" I0 r    Dim NXMan As Boolean = Nothing
* l( K8 O3 p- U, X8 y    theUFSession.UF.IsUGmanagerActive(nxMan)

! ~& Z2 S: r/ M2 K0 u    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
' k+ l) T: J9 Y. T; n3 g' E! h    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
! o3 `- u- ]) n0 n1 y: Y    Dim tpn As String = Nothing
    theUFSession.Cfi.GetUniqueFilename(tpn)
* @. q/ I8 Q! g. ~3 {    If (nxMan) Then
+ R, o, ]2 O1 u( m- F3 q: y        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
: M( p' W) o* K) S! m        fileNew1.NewFileName = tmp_dir & "\" & tpn
2 M* c  P% f* f7 E6 @. B7 z+ _    End If
$ k% K4 W2 ~5 C" E. g    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
/ E+ t0 F$ I( I. r6 R% V  k    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()
; o  ?5 e* s4 `. W- e
! ?4 i, a( T0 f' FEnd Function[/mw_shl_code]