Topic: Help with Print Views Routine...

[MvdP]

Here the two files you requested.
Let me explain a little of what i am trying to achieve.
First of all i found this basic  routine somewhere on the net and added some more options (scale and plotstyle)but i did it with radio buttons and only put in the code my settings .Now i am trying  to make this routine universal (by reading  its plotstyle and printers) so that it will run on any machine no matter what plotstyle is made on that particular system.
But  i can't figure out how to do and solve this.

[T.Willey]

I will help when I can, and if you still need help.  Real work has come, and I have to do it.

[T.Willey]

See if the attached works for you.

[MvdP]

Tim
It works for me.Thank you so much for the help you are giving me.I really appreciate that.
I have added an option for choosing a printer and this is working also.Now i have another question.
Is it possible to set the default printer and plotstyle and that it is immediately shown in the drop down list after starting this routine.?

[T.Willey]

You're welcome.

You can set it to a default.  Use "set_tile" and the value (string) you want it to be for default.  So

Code: [Select]

(set_tile "dcl Key" "String Value")


[MvdP]

I am not behind a PC with AutoCAD installed right now.I have to wait til tomorrow to test that.

But Again here is another question.
Can lsp read the scalelist (same as used in the plot dialog box).?.
So i can make a drop downlist with these.

[T.Willey]

I don't know where that list is stored, or if it is.  If it is, then you can copy it to your own popup_list, but if it's not, then all you have to do is create your own, and then figure out the print scale accordingly.

[MvdP]

Maybe in here.

http://www.theswamp.org/index.php?topic=5151.0

[T.Willey]

I didn't see it in there.

[MvdP]

I thought this

Code: [Select]

setq acadApp (vlax-get-acad-object)
     ThisDwg (vla-get-activedocument acadApp)
     CurLayout (vla-get-activelayout ThisDwg))
(vla-refreshplotdeviceinfo CurLayout)
(vla-getcustomscale CurLayout 'scaleN 'scaleD)
(vla-getpapersize CurLayout 'paperW 'paperH)

was the way to go but apparently not.

[T.Willey]

That is getting the current scale and paer size for the active layout.

[MvdP]

Code: [Select]

(set_tile "dcl Key" "String Value")
This working great.

[MvdP]

And yet another question.I have added an select all and clear all button in my DCL.
How to program this in LSP that when a button is pushed it will select all my views.?

[T.Willey]

And yet another question.I have added an select all and clear all button in my DCL.
How to program this in LSP that when a button is pushed it will select all my views.?

This one I'm not sure about.  I put a toggle at the bottom of my dialog boxes, and tell people that if selected it will process all in the list box.  If I have some time today I will look into this, as it is a good question.  Maybe someone will chime in that has more dcl experience.

[MvdP]

it is a good question.

And it seems to a difficult one too because there is no reaction from somebody else.