UG利用ＶＢ.net导出图片

danyfer

Imports System
Imports NXOpen
Imports NXOpen.UF

    Sub ExportCurrentPng()
3 }# C1 V8 C) W4 b: a        Dim theSession As Session = Session.GetSession()
        Dim theUI As UI = UI.GetUI()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
4 E" n0 I6 o; H, i2 U5 C        Dim workPart As Part = theSession.Parts.Work
5 s6 _8 s* m& X! @# b3 h        Dim displayPart As Part = theSession.Parts.Display
7 |2 N/ ^! r) P% E$ Y6 I        Dim png_Path As String = workPart.FullPath
& M) u' ~# L! v( a& T6 i" {        png_Path = png_Path.Substring(0, png_Path.LastIndexOf(".")) & "_Current_" & Format(Now, "yyyyMMddHHmmss") & ".png"
        '设置适合窗口
7 }0 `9 J3 x- j7 k* b        workPart.ModelingViews.WorkView.Fit()
. ]/ b* t( R" V  l        'theUfSession.Disp.ExportWindowsMetafile(UFDisp.WmfOutput.WmfToClipboard, "d:\png2.png")
       theUfSession.Disp.CreateImage(png_Path, UFDisp.ImageFormat.Png, UFDisp.BackgroundColor.White)
1 X) g7 O" }) I$ R* b    End Sub

3691785

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

wukejiuyao2

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