UG利用ＶＢ.net导出图片

danyfer

Imports System
8 G9 u, f3 y9 T, ]$ uImports NXOpen
* X  B6 V: \% c8 Z1 fImports NXOpen.UF
. P9 S6 P' O' Z( j
2 b1 H# Z0 y% ?9 R; a# U    Sub ExportCurrentPng()
        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
4 N0 {; Z2 x( w! X2 b        Dim workPart As Part = theSession.Parts.Work
2 @" k0 w% U5 |1 c. L5 ^$ t        Dim displayPart As Part = theSession.Parts.Display
; _3 Q+ t# Y/ y; `: T/ h5 X* b        Dim png_Path As String = workPart.FullPath
        png_Path = png_Path.Substring(0, png_Path.LastIndexOf(".")) & "_Current_" & Format(Now, "yyyyMMddHHmmss") & ".png"
        '设置适合窗口
        workPart.ModelingViews.WorkView.Fit()
        'theUfSession.Disp.ExportWindowsMetafile(UFDisp.WmfOutput.WmfToClipboard, "d:\png2.png")
- k9 d8 s4 c9 s       theUfSession.Disp.CreateImage(png_Path, UFDisp.ImageFormat.Png, UFDisp.BackgroundColor.White)
0 X: m0 D# Z; U' a+ j; D    End Sub
+ Z+ m" ^; {: e; X* ?  r

3691785

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

wukejiuyao2

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