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

admin

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

, D3 B( [8 f* m/ ~  c- H6 j


[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)
/ l* l( A' \4 ?  f7 t# f  K3 K
' t7 f5 e0 R* c$ N) T    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
3 ^& `  _7 R: U    fileNew1.Application = FileNewApplication.Gateway
  \/ e1 f& ?4 q7 H$ r    fileNew1.Units = theSession.Parts.Work.PartUnits
$ S9 P1 y4 h9 ^9 F. n4 ]2 t% p" T# g    Dim tpn As String = Nothing
1 T( R0 }0 j" p1 }; o    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
3 Q7 j3 f$ W$ E6 U2 f/ R8 ~    Else
& D! ?' |9 i1 {4 v. S* E1 `. x  l        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
0 W; V, c0 s2 A4 t        fileNew1.NewFileName = tmp_dir & "\" & tpn
9 F3 v1 m6 q( Z3 V" {    End If
    fileNew1.UseBlankTemplate = True
9 Z% U2 a  W0 O    fileNew1.MakeDisplayedPart = False
" ]. M: R$ S0 l8 i+ z" m. E    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()

; ^7 p. d/ l6 B, W, B  @End Function[/mw_shl_code]