Creating a DWF automatically on save

[mtuersley]

Sure. You can read my articles on CADalyst for basic info on single and/or multi=page dwf output.

From there, you need to decide when this should occur. I'd use the Close event instead of when saving. Just add code to fire for that event and you'll have it.

Post back if you run into problems.

Good Luck!

[barnesd]

Thanks for your help

I have got this code working to a certain extent but it displays the Publish Drawing Sheets form which I don;t really want it to do, I just want it to publish the DWF in the background and close.

I am using the following line, which I thought would turn off forms

.SetVariable "FILEDIA", 0

Thanks

Daniel

[mtuersley]

You'd need to post more code to determine exactly. Here are some thoughts though:

1. Are you publish a multi-page dwf? If not, don't use Publish, use Print and a DWF driver
2. Might need to turn of CMDDIA [CMDDIA = 0]
3. You need to access the publish command using "-PUBLISH"
4. Make sure background processing is turned off [BACKGROUNDPLOT = 0]

[barnesd]

I will sometimes be doing a multi-page DWF. Shall I do a check and see if its going to be a multi-page DWF use publish, but if not just use the print command.

Heres some of the code

Dim sTxt As String

'grab the drawing variables we need
dwgName = ThisDrawing.FullName
'check to make sure we have layouts
If cLayOuts.Count > 0 Then
'build the DSD file name
dsdFile = Replace(dwgName, ".dwg", ".dsd")
'build the DWF file name
d wfFile = Replace(dwgName, ".dwg", ".dwf")
' create the DSD file
If CreateDSDFile(cLayOuts, dsdFile, dwgName) = True Then
'publish our multipage DWF file
With ThisDrawing
sTxt = Replace(dsdFile, "\", "/")
'turn FILEDIA *OFF* to avoid dialog boxes
.SetVariable "FILEDIA", 0
.SetVariable "EXPERT", 0

.Regen acActiveViewport
'Publish layouts

sCommand = "(command " & Chr(34) & _
"QSAVE" & Chr(34) _
& ")" & vbCr

.SendCommand (sCommand)

sCommand = "(command " & Chr(34) & _
"_PUBLISH" & Chr(34) & _
" " & Chr(34) & sTxt & _
Chr(34) & " " & Chr(34) & " " & Chr(34) & ")" & vbCr

.SendCommand (sCommand)
End With
Else

[mtuersley]

Okay. Replace "_PUBLISH" with "-PUBLISH" and add .SetVariable "BACKGROUNDPLOT", 0. Unless you are specifcally testing for the SAVE command, remove the QSAVE and just use .Save [NEVER use SendCommand unless you absolutely have to, which you don't here].

As for a single sheet, you can still use the publish command. I just wouldn't use it if you're always going to be kicking out single-page DWFs.

[barnesd]

When setting the BACKGOUNDPLOT. I get an error saying. Error setting system variable.

Is there another setting i need to set before setting this.

Thanks very much for your help, I really do appretiate it. I am pretty new to CAD Development.

Daniel

[Mike.Perry]

When setting the BACKGOUNDPLOT. I get an error saying. Error setting system variable.

Hi

I don't know VBA, but I notice you missed an "R" in the above ie

BACKGOUNDPLOT should be BACKGROUNDPLOT

Could that be the problem (or was the above just a typo)?

Have a good one, Mike

[barnesd]

Unfortunetly this was just a typo on the message board, But thanks for point it out.

[mtuersley]

I don't believe so... post the portion of your code where you set it and whatever you do before that. Here's what I normally set:

With m_cadApp.ActiveDocument
.SetVariable("FILEDIA", 0)
.SetVariable("CMDDIA", 0)
.SetVariable("ATTREQ", 0)
.SetVariable("BACKGROUNDPLOT", 0)
End With

[san_k4]

just check if this will help u...

To get your drg name u can try this code..
Filename=ThisDrawing.FullName

Also create a pc3 file for your dwf.
Then try this code to get a plot for pc3
result = ThisDrawing.Plot.PlotToFile(plotFileName, "c:\folder\pc3filename.pc3")

santhosh