UG利用ＶＢ.net导出图片

danyfer · 发表于 2013-10-29 11:09

Imports System
Imports NXOpen
Imports NXOpen.UF

Sub ExportCurrentPng()
      Dim theSession As Session = Session.GetSession()
      Dim theUI As UI = UI.GetUI()
      Dim theUfSession As UFSession = UFSession.GetUFSession()
      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"
      '设置适合窗口
      workPart.ModelingViews.WorkView.Fit()
      'theUfSession.Disp.ExportWindowsMetafile(UFDisp.WmfOutput.WmfToClipboard, "d:\png2.png")
   theUfSession.Disp.CreateImage(png_Path, UFDisp.ImageFormat.Png, UFDisp.BackgroundColor.White)
End Sub

3691785 · 发表于 2014-6-9 20:48

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

wukejiuyao2 · 发表于 2014-12-14 09:10

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

		自动登录	找回密码
密码			注册

[原创] UG利用ＶＢ.net导出图片

评分