Export Wizard with Visual Basic

[hugo_wy]

Hi.

I am using PowerShape 2015 R2 and Visual Basic 2010 Express.

I am doing a program and i am stuck with this situation.

I need do export everything that is VISIBLE.

If i use this macro and run it in PowerShape, it works fine.
FILE EXPORT WIZARD
NEXT
D:\Moldes\tmp_elec.dgk
EXPORTTYPE VISIBLE
WIZEXPORT
EVERYTHING PARTIALBOX

But if i use it with Visual Basic 2010, don´t work.
PSHAPE.Execute("FILE EXPORT WIZARD")
PSHAPE.Execute("NEXT")
PSHAPE.Execute("D:\Moldes\tmp_elec.dgk")      'It stops here. Don´t use the path.
PSHAPE.Execute("EXPORTTYPE VISIBLE")
PSHAPE.Execute("WIZEXPORT")
PSHAPE.Execute("EVERYTHING PARTIALBOX")

Note:
This works in Visual Basic, but don´t export everything that is VISIBLE, like "Workplanes" that aren´t activated.
PSHAPE.Execute("FILE EXPORT D:\Moldes\tmp_elec.dgk")

[l.ponsaerts]

Hi,

To export something I use the API code. Ex.g. to export a model to a AutoCad dwg file :

Public Sub WriteDWGFile()
Dim dwgfile As New Autodesk.FileSystem.File(Reg_OutputFolder & "\" & Frm_Main.g_Fname & ".dwg")
PSModel.Export(dwgfile, ExportItemsOptions.Selected, ExportWorkplanes.World)
End Sub

[hugo_wy]

Hi.

The problem is not exporting what is selected. That i know how.

The issue is exporting what is visible. 

When i use the Visual Basic e gets stuck in the path of the file.

[luc_ponsaerts]

Hi,

The example I gave was a hint...

The .Export function is using the property ExportItemsOptions, which can also take the value "Visible".

Public Sub WriteDWGFile()
Dim dwgfile As New Autodesk.FileSystem.File(Reg_OutputFolder & "\" & Frm_Main.g_Fname & ".dwg")
PSModel.Export(dwgfile, ExportItemsOptions.Visible, ExportWorkplanes.World)
End Sub

I didn't try this yet, but it should work.

[luc_ponsaerts · Accepted solution]

I also looked at the custom core source.

In the source I found (simplified version)

PSHAPE.Execute("FORMUPDATE OFF");
PSHAPE.Execute("FILE EXPORT WIZARD", "TARGET UNKNOWN");
PSHAPE.Execute("NEXT", exportFile.Path);
PSHAPE.Execute("EXPORTTYPE VISIBLE");
PSHAPE.Execute("NEXT");

PSHAPE.Execute("EXPORTTYPE WORLD");

PSHAPE.Execute("WIZEXPORT");
PSHAPE.Execute("FORMUPDATE ON")

[hugo_wy]

That works perfectly. 

Thanks a lot.

[corl_jammy74]

It is hard to believe that  بازی انفجار

[corl_jamm_y74]

Dim dwgfile As New Autodesk.FileSystem.File(Reg_OutputFolder & "\" & Frm_Main.g_Fname & ".dwg")
PSModel.Export(dwgfile, ExportItemsOptions.Selected, بازی انفجار آنلاین ExportWorkplanes.World)
End Sub

[corljam_m_y_]

hats off to writer اپ انفجار