topic Re: Pagesetup from VBA in VBA Forum

Pagesetup from VBA

Anonymous — Tue, 21 Nov 2006 20:01:41 GMT

Does anyone know how to add and then manipulate a page setup to an individual drawing using VBA? Alternatively, does anyone know how to import a page setup from another drawing. Preferably without using the command line.

Re: Pagesetup from VBA

Anonymous — Tue, 21 Nov 2006 21:18:58 GMT

http://discussion.autodesk.com/thread.jspa?messageID=4153640

In that thread I posted a dvb that shows how to do this....read all the
replies, I made some revisions that I only posted the code for, not a new
dvb.

wrote in message news:5403219@discussion.autodesk.com...
Does anyone know how to add and then manipulate a page setup to an
individual drawing using VBA? Alternatively, does anyone know how to import
a page setup from another drawing. Preferably without using the command
line.

Re: Pagesetup from VBA

Anonymous — Tue, 21 Nov 2006 21:48:17 GMT

Hey Jeff, I was trying to run this code to see how it all works and I got an error: "Can't find project or library" The code stops on the line for AXDBDocument. I can't seem to figure out what I don't have loaded. Any Ideas?

Also, The line that says " If Err.Number 0 Then" Is there supposed to be a boolean operator before the 0 and if so what is it?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 01:05:23 GMT

You are probably not using R2002 which is what this was written in. I
thought I'd included in the header a description of what needs to be done
for newer versions, but just in case.....

The Reference (under Tools->References) to the ObjectDBX Type library will
need to be changed for your version. When you first open the References
dialog you should see ObjectDBX Type 1.0(missing) is checked (or soemthing
like that), uncheck it, scroll down until you find a valid ObjectDBX Type
and check that.

Also, make sure to change the reference to the correct object when creating
the object. Versions 2000i-2002 is nothing, version 2004-2006 is .16 and
version 2007 is .17.....

Set oDBX = GetInterfaceObject("ObjectDBX.AxDbDocument") '200i-2002
Set oDBX = GetInterfaceObject("ObjectDBX.AxDbDocument.16") '2004-2006
Set oDBX = GetInterfaceObject("ObjectDBX.AxDbDocument.17") '2007

HTH,
Jeff

wrote in message news:5403421@discussion.autodesk.com...
Hey Jeff, I was trying to run this code to see how it all works and I got an
error: "Can't find project or library" The code stops on the line for
AXDBDocument. I can't seem to figure out what I don't have loaded. Any
Ideas?

Also, The line that says " If Err.Number 0 Then" Is there supposed to be a
boolean operator before the 0 and if so what is it?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 15:17:28 GMT

Hey Jeff, First of all thanks for all the help. It have gotten this mostly working. I am still running into two questions. Whenever I run this I get an error on the line that says
"oCfgNew.CopyFrom oCfg" It says "Invalid object type" I can give You the error code if you like. Any Idea what I am doing wrong.

Also, I cannot figure out what the Boolean operator on this line is. I put an asterix where I thought it should go.

"If Err.Number * 0 Then"

Re: Pagesetup from VBA

arcticad — Wed, 22 Nov 2006 15:54:12 GMT

if err.number <> 0 then
' there is an error
else
' no error
end if

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 16:23:33 GMT

Sorry, that is a result of the WEB interface munging code. If you view that
thread with a newsreader it shows correctly, but the web strips out "<" ">"
characters. So arcticad's solution will probably look the same to you.

The code shoud read "If Err.Number Is Not Equal to 0 Then"

HTH,
Jeff

wrote in message news:5404131@discussion.autodesk.com...
Hey Jeff, First of all thanks for all the help. It have gotten this mostly
working. I am still running into two questions. Whenever I run this I get an
error on the line that says
"oCfgNew.CopyFrom oCfg" It says "Invalid object type" I can give You the
error code if you like. Any Idea what I am doing wrong.

Also, I cannot figure out what the Boolean operator on this line is. I put
an asterix where I thought it should go.

"If Err.Number * 0 Then"

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 17:13:24 GMT

Any Idea why I'm getting the Invalid Object Type error on the "oCfgNew.CopyFrom oCfg" line?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 17:18:11 GMT

In my watch window I see the oDBX is getting : "Application : : "

But I don't know why. Any Ideas?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 17:22:46 GMT

What version of Acad are you trying this in?

wrote in message news:5404342@discussion.autodesk.com...
In my watch window I see the oDBX is getting : "Application :

: "

But I don't know why. Any Ideas?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 17:30:32 GMT

Here's a revised version tested in R2007.....

"Jeff Mishler" wrote in message
news:5404360@discussion.autodesk.com...
What version of Acad are you trying this in?

wrote in message news:5404342@discussion.autodesk.com...
In my watch window I see the oDBX is getting : "Application :

: "

But I don't know why. Any Ideas?

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 19:13:11 GMT

Hey Jeff, thanks for the rewrite but I am still throwing up the same error on that one line. I am about to go nuts because I cannot figure out why I am getting it. I know it is something with oDBX but Everything looks kosher. I'll keep trying and see what it comes up with.

What's really frustrating is that I did use part of this code in my macro and it worked. Once, and now it has gone bad. I suspect it is something with the libraries I have loaded. If you come up with any thoughts let me know and thanks again for all the help.

BTW I am using autocad 2006.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 19:58:23 GMT

I'll get to a machine with 2006 installed later today. I'll see if I can
reproduce your error there.

If you'd like you can send me (miff@sonic.net) a ZIP of the 2 drawings you
are trying to use as the source & destination files and I'll see if that
makes a difference. I just cannot, yet, duplicate that error.

wrote in message news:5404509@discussion.autodesk.com...
Hey Jeff, thanks for the rewrite but I am still throwing up the same error
on that one line. I am about to go nuts because I cannot figure out why I am
getting it. I know it is something with oDBX but Everything looks kosher.
I'll keep trying and see what it comes up with.

What's really frustrating is that I did use part of this code in my macro
and it worked. Once, and now it has gone bad. I suspect it is something with
the libraries I have loaded. If you come up with any thoughts let me know
and thanks again for all the help.

BTW I am using autocad 2006.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 20:09:13 GMT

Yup, I am exporting from a DWT and trying to import into a variety of DWGS as part of an automatic print job. Attached are the DWT and one of the DWG's I would like to print.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 21:26:18 GMT

OK, It looks like the Add method of the PlotConfiguration Object defaults to
the ModelType of Paper, but your DWT is for the Model type. The code will
need to be rearranged in order to determine the ModelType and create the new
Config with correct type (since the property is read-only it can only be
done at the time of creation).

In further thinking on this, maybe the listbox showing the available
PlotConfigurations should be revised to also include the Model/Paper type of
PC it is.

wrote in message news:5404600@discussion.autodesk.com...
Yup, I am exporting from a DWT and trying to import into a variety of DWGS
as part of an automatic print job. Attached are the DWT and one of the DWG's
I would like to print.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 21:44:06 GMT

This now works for me using both your test drawings and mine.

Here's the revised code:

[code]
Private Sub CommandButton1_Click()
Dim I As Integer
Dim oCfgNew As AcadPlotConfiguration
Dim oCfg As AcadPlotConfiguration
Dim bModelType As Boolean

With ListBox2
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
Set oCfg = oDBX.PlotConfigurations.Item(.List(I, 0))
bModelType = oCfg.ModelType
On Error Resume Next
Set oCfgNew = ThisDrawing.PlotConfigurations.Item(.List(I, 0))
If Err Then
Set oCfgNew = ThisDrawing.PlotConfigurations.Add(.List(I,
0), bModelType)
End If
Err.Clear
On Error GoTo 0
oCfgNew.CopyFrom oCfg
End If
Next
End With

End Sub
[/code]

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 21:46:36 GMT

Same error as before. Can you tell me what library files you have loaded? I suspect I am missing one.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 21:57:01 GMT

OK, I think I got it. This is writing the pagesetup to the my Layout 1 and I am looking at the model space view which doesn't show it. However, I am still not copying the values from the dwt correctly into the AdobePDF layout. I'll keep working on it though.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 21:58:42 GMT

What error? You've mentioned 2 of them in this thread......

Here are my references in 2007, you will have the Acad2006 OK, but make sure
you also have the ObjectDBX Common 16.0 Type.

wrote in message news:5404754@discussion.autodesk.com...
Same error as before. Can you tell me what library files you have loaded? I
suspect I am missing one.

Re: Pagesetup from VBA

Anonymous — Wed, 22 Nov 2006 22:18:27 GMT

That looks like it's fixed it. I'll hammer it out in my code. I'll keep my fingers crossed but it appears to be working.

I really appreciate all your help. Send me your address and I'll send you some good Texas beer.