UG利用ＶＢ.net导出图片

danyfer

Imports System
/ l: R4 b( l+ CImports NXOpen
, T8 Z6 X& x  Y! e# HImports NXOpen.UF

, J& m8 ~, i8 F    Sub ExportCurrentPng()
0 v+ A; j0 f3 T: Y        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
* z0 Z/ Y  o3 I, E$ L        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As Part = theSession.Parts.Display
        Dim png_Path As String = workPart.FullPath
        png_Path = png_Path.Substring(0, png_Path.LastIndexOf(".")) & "_Current_" & Format(Now, "yyyyMMddHHmmss") & ".png"
* K' @  i7 g* }/ n        '设置适合窗口
: P/ d: V* A2 v4 w1 h1 o. l' Q$ O        workPart.ModelingViews.WorkView.Fit()
" M9 K/ X2 j  `1 C' B        'theUfSession.Disp.ExportWindowsMetafile(UFDisp.WmfOutput.WmfToClipboard, "d:\png2.png")
       theUfSession.Disp.CreateImage(png_Path, UFDisp.ImageFormat.Png, UFDisp.BackgroundColor.White)
    End Sub
& p7 v7 j) I( q/ l

3691785

谢谢分享，这年头贴完整源码的太少。。。。

wukejiuyao2

再次拜读了一下，很原创，谢谢楼主