Hi,
I need to access the scale property of a paperspace viewport.
In AutoCAD PViewPort object there are the properties 'StandardScale' and 'CustomScale' but it appears that there are not such properties in the Intellicad PViewport object.
I would like to know how to access this propoerty through VBA
#2
gvvelev,
according to help document:
Syntax
object.ZoomScaled(Scale, ScaleType)
Where:
object is an IntelliCAD Viewport or PViewport object;
Scale is a double-precision variable or value representing the scale factor to use for zooming;
ScaleType is one of the following constants that determines how the scale factor is applied:
vicZoomScaledAbsolute = 0 (scaled absolutely, relative to the drawing limits)
vicZoomScaledRelative = 1 (relative to the current view)
vicZoomScaledRelativePSpace = 2 (relative to paper space units)
Dim myDoc As IntelliCAD.Document
Dim myStartPt As IntelliCAD.Point
Set myDoc = Application.ActiveDocument
ThisDocument.ActiveViewport.ZoomScaled 0.5, vicZoomScaledRelative
I have not tried it though.
ssc
[This message has been edited by ssc (edited 11-04-2005).]
according to help document:
Syntax
object.ZoomScaled(Scale, ScaleType)
Where:
object is an IntelliCAD Viewport or PViewport object;
Scale is a double-precision variable or value representing the scale factor to use for zooming;
ScaleType is one of the following constants that determines how the scale factor is applied:
vicZoomScaledAbsolute = 0 (scaled absolutely, relative to the drawing limits)
vicZoomScaledRelative = 1 (relative to the current view)
vicZoomScaledRelativePSpace = 2 (relative to paper space units)
Dim myDoc As IntelliCAD.Document
Dim myStartPt As IntelliCAD.Point
Set myDoc = Application.ActiveDocument
ThisDocument.ActiveViewport.ZoomScaled 0.5, vicZoomScaledRelative
I have not tried it though.
ssc
[This message has been edited by ssc (edited 11-04-2005).]