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

admin

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



4 {4 t: ]8 v7 o* p' E* m) p
3 W: l, f4 f% J/ O) J, Q" |2 L6 @+ g% g[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
    Dim theUFSession As UFSession = UFSession.GetUFSession()
( P+ f& {3 }  C+ l" G9 i3 \    Dim NXMan As Boolean = Nothing
' c0 i* P$ j7 h' }+ ]    theUFSession.UF.IsUGmanagerActive(nxMan)
4 @8 {- Z: ~3 f; v8 P  y
6 \9 q8 M( W& j* J- ^1 E' z    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
5 b/ ]7 t4 P2 U3 ^. G6 d; p+ L3 z    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
. U; i! J$ W+ Q0 ^5 a0 \+ z    Dim tpn As String = Nothing
/ J3 p- c  d1 T$ D6 C) u    theUFSession.Cfi.GetUniqueFilename(tpn)
: i" H! C. c+ k- q; Z    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
        Dim tmp_dir As String = Nothing
6 d5 C. Y! A6 R" Z* z. q0 Q) t        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
% ]9 {5 c) s3 {+ |4 r, @/ d3 R    End If
    fileNew1.UseBlankTemplate = True
9 x6 ]3 u: c* P7 T5 |/ `$ X    fileNew1.MakeDisplayedPart = False
  W# L0 C3 O- V4 H8 Q/ v" \2 C9 g    CreateNewTemporaryPartQuietly = fileNew1.Commit()
    fileNew1.Destroy()
" y. F+ k. T  T' b/ r5 z) I) ]
End Function[/mw_shl_code]