Convert *.dwg Files To *.vdf Using Vb 6

convert *.dwg files to *.vdf using vb 6

convert .dwg files to .vdf using vb 6 Rate Topic:

#1 LtSwapnil

New D.I.C Head

Group: New Members
Posts: 3
Joined: 03-May 09

Dream Kudos: 0

Post icon Posted 03 May 2009 - 11:13 PM

I am trying to use a converter (an exe file) to convert *.dwg files to *.vdf through code. I am using following code which is not working.
<code> Dim AppPath As String
Dim val As Integer
val = 1
parameters = "? " + sourcefilename + "? " + destfilename
AppPath = App.Path & "\vdconv.exe"
success = VDPro1.VdShellExecute("", AppPath, parameters, val) <code>
is there any other method to do this?

Was This Post Helpful? 0

Register for Free to Make These Ads Go Away!

#2 firebolt

D.I.C Lover

Group: Author w/DIC++
Posts: 5,555
Joined: 20-February 09

Windows Favorite Browser Favorite Processor Favorite Gaming Platform Your Car
Dream Kudos: 1675

Posted 03 May 2009 - 11:23 PM

Please post your code like this: :code:

Was This Post Helpful? 0

#3 LtSwapnil

New D.I.C Head

Group: New Members
Posts: 3
Joined: 03-May 09

Dream Kudos: 0

Posted 05 May 2009 - 10:41 PM

Dim AppPath As String
	Dim val As Integer
	val = 1
	parameters = "? " + sourcefilename + "? " + destfilename
	AppPath = App.Path & "\vdconv.exe"
	success = VDPro1.VdShellExecute("", AppPath, parameters, val)

Was This Post Helpful? 0

#4 firebolt

D.I.C Lover

Group: Author w/DIC++
Posts: 5,555
Joined: 20-February 09

Windows Favorite Browser Favorite Processor Favorite Gaming Platform Your Car
Dream Kudos: 1675

Posted 05 May 2009 - 11:19 PM

What is the success? Have you declared it?

Was This Post Helpful? 0

#5 LtSwapnil

New D.I.C Head

Group: New Members
Posts: 3
Joined: 03-May 09

Dream Kudos: 0

Posted 06 May 2009 - 03:38 AM

The full code is as follows
everything is going well except exe not getting executed

Private Sub vdraw_NeedFileConvert(FileToOpen As String, TempFileName As String, ByVal CadVer As VDProLib5.VdConstFileVer, success As Boolean)

Dim parameters As String
Dim destfilename As String
Dim src As String
Dim actions As Long

destfilename = TempFileName
src = FileToOpen
success = False
actions = vdraw.ActionValidates
If Not (actions And 4194304) = 4194304 Then actions = actions + 4194304
If Not (actions And 8388608) = 8388608 Then actions = actions + 8388608

parameters = "? " + src + "? " + destfilename + "? " + CStr(CadVer) + " ? 1024 ? 768" + " ? " + CStr(actions) + " ? 0 ? 0 ? 1"
	
Dim appPath As String
Dim val As Integer
val = 1
			 
  appPath = app.path &"\vdconv.exe"
  success = vdraw.VdShellExecute("", appPath, parameters, val)
	
End Sub

This post has been edited by LtSwapnil: 06 May 2009 - 03:42 AM

Was This Post Helpful? 0