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

admin

+ x" \; C" Y) H8 G( t! N主要是一个函数在CFI的头文件下，创建随机文件名

, e. I) H- p3 ]& c1 W$ g
# R9 w9 v: c  ]: i8 C; P
' s4 u7 W7 x% c, M# V# Q$ B4 w
2 P' w$ x4 ~! V5 A[mw_shl_code=c,true]Function CreateNewTemporaryPartQuietly() As Part
. V  F; ~, J) G% |, d% ^& s' s    Dim theUFSession As UFSession = UFSession.GetUFSession()
! U' z* Q  O9 Y2 m3 H: s+ y' M    Dim NXMan As Boolean = Nothing
( I7 }5 j5 e6 I    theUFSession.UF.IsUGmanagerActive(nxMan)
; j8 ?8 S" b; {! y' u( V4 \6 f
" ]0 N) A, R+ v- p    Dim fileNew1 As FileNew = theSession.Parts.FileNew()
, E& c5 u4 O9 o" Z. }    fileNew1.Application = FileNewApplication.Gateway
    fileNew1.Units = theSession.Parts.Work.PartUnits
! h% V! v8 O% b$ W. b" D6 V9 q    Dim tpn As String = Nothing
$ v, _6 y- O* r/ F" t3 U    theUFSession.Cfi.GetUniqueFilename(tpn)
+ }; I6 X5 v7 |! K  n' G4 n; E    If (nxMan) Then
        fileNew1.NewFileName = "@DB/" & tpn & "/A"
    Else
& o8 y5 c: ~9 x  m        Dim tmp_dir As String = Nothing
' u% Z2 O! s0 ~$ X+ r        theUFSession.UF.TranslateVariable("UGII_TMP_DIR", tmp_dir)
        fileNew1.NewFileName = tmp_dir & "\" & tpn
% M7 m! k8 w% y- m+ `    End If
    fileNew1.UseBlankTemplate = True
    fileNew1.MakeDisplayedPart = False
    CreateNewTemporaryPartQuietly = fileNew1.Commit()
6 C  k& s! D; R    fileNew1.Destroy()
0 H& }- X) M* H( {, a" w
End Function[/mw_shl_code]