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

admin

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


3 ?, i' M0 M2 I  [3 i& ]6 q
8 L$ Y, X# w0 a  r7 D9 L5 ^
[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
! A& j, g% f2 t( S' M* [3 i    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim NXMan As Boolean = Nothing
    theUFSession.UF.IsUGmanagerActive(nxMan)

    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
    fileNew1.Application = FileNewApplication.Gateway
7 o: d0 U6 V# Y' u" D# Q& j    fileNew1.Units = theSession.Parts.Work.PartUnits
# @, Q+ x7 ~' v  N% O, b4 L    Dim tpn As String = Nothing
5 R, ]" o. N. N' T* I7 \& i7 e    theUFSession.Cfi.GetUniqueFilename(tpn)
    If (nxMan) Then
- P- ^/ W& q2 s. J3 L; d4 r% S        fileNew1.NewFileName = "@DB/" & tpn & "/A"
& W  ~; W+ N7 R8 ~    Else
        Dim tmp_dir As String = Nothing
        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
    End If
    fileNew1.UseBlankTemplate = True
2 ~* ]$ {. M; `! F- s& Z2 y    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
, M/ v2 W" T* d+ m% `9 H/ X    fileNew1.Destroy()

! C* m2 k! o7 G3 u' T, t) rEnd Function[/mw_shl_code]