I have had problems in this area with AutoCAD as well, but was able to use a workaround with a script file. Anyone know if this is possible with IntelliCAD?

Thnx
Cheryl

Cheryl,

I have only had a quick look at the plotting in VBA and can't comment.

If you are trying to setup batch plotting, have you tried the script recording facility in IntelliCAD?


------------------
Regards
John Finlay

The project I am on deals with zooming in on a certain location, switching to paper space and inserting a block for format purposes, then switching back to model space, and depending on the user either doing a print preview or printing the drawing. I have Pro4 and viewctr and zoomextents are giving me trouble not to mention that everything locks up when in print preview. If anyone can help it would be greatly appreciated. I can't get the examples to display in help even with an updated browser.

Cheryl,

I tried out the PlotManager and had some problems with the Print Object, so I just used the RunCommand Method to Print. I think the code below is what you are looking for - it may point you in the right direction.

Option Explicit

Sub TestPrinting()
Dim intMsg As Integer

' Goto ModelSpace
ThisDocument.ActiveSpace = vicModelSpace
' Using the Help in IntelliCAD and correcting it for errors
ZoomWindow_Example

' Goto PaperSpace
ThisDocument.ActiveSpace = vicPaperSpace

' Insert Your InsertBlock Code Here
MsgBox "See I'm Now in PaperSpace", vbInformation, "PaperSpace"
'---- Your Block Stuff Here ----

' Go back to ModelSpace
ThisDocument.ActiveSpace = vicModelSpace

' Setup the printing options
' Select a window area
IntelliCAD.PlotManager.Area = Window
' Set the Plot Window Area
IntelliCAD.PlotManager.SetWindow 0, 0, 10, 10

' Print/PrintPreview Options
intMsg = MsgBox("Do You Want To Preview", vbYesNoCancel, "Printing NOW")

Select Case intMsg
Case 6
IntelliCAD.PlotManager.Preview
Case 7
IntelliCAD.RunCommand "QPRINT"
End Select


End Sub

Sub ZoomWindow_Example()
' This example creates a line and adds it to the drawing using the AddLine
' method. It then uses the ZoomWindow method to zoom in on a window.
Dim myDoc As IntelliCAD.Document
Dim myLine As IntelliCAD.Line
Dim myStartPt As IntelliCAD.Point
Dim myEndPt As IntelliCAD.Point
Dim PtLL As IntelliCAD.Point
Dim PtUR As IntelliCAD.Point
Set myDoc = Application.ActiveDocument
Set myLine = myDoc.ModelSpace.AddLine(Library.CreatePoint(0, 0), Library.CreatePoint(10, 10))
Set PtLL = Library.CreatePoint(0, 0, 0)
Set PtUR = Library.CreatePoint(10, 10, 0)
myLine.Update
ThisDocument.ActiveViewport.ZoomWindow PtLL, PtUR
End Sub

------------------
Regards
John Finlay

[This message has been edited by John Finlay (edited 05-03-2003).]

John you're an angel, thanks a bunch.