CADDIT CAD CAM CNC Software - download AutoCAD compatible design software progeCAD Alibre T-FLEX and more
CADDIT Website Knowledge Base Search:
CL

progeCAD Help

CR
Welcome to progeCAD
Working with progeCAD
Command Reference
CAD System Variables
Programming progeCAD
Full Index (caution - 400kb)

Further Links:

Download progeCAD
Register progeCAD

Learning

T-FLEX PLM tutorial (PDF)
progeCAD IntelliCAD and AutoCAD training 
CATIA 2D 3D design tutorial
Alibre CAD/CAM basic tutorial

Resources

Educational CAD Software Solutions
Python scripting for DOS and Windows
Other free software downloads
CADDIT CAD CAM Forum Australia
__

PlotProperties property examples

Example 1

Public Sub StandardScaleStatusExample()

     Dim myPM As progeCAD.PlotManager

     Application.Visible = True

     Set myPM = Application.PlotManager

     ' Set the UseStandardScale property to false.
     myPM.PlotProperties.UseStandardScale = False

     Dim msgStr As String
     msgStr = IIf(myPM.PlotProperties.UseStandardScale = True, "set to True", "set to False")

     ' Report the current status of UseStandardScale
     MsgBox "Before setting Standard Scale, UseStandardScale property is " & msgStr

     ' Set the Standard Scale to one of the available values (vic1_16i).
     ' This will automatically set UseStandardScale property to True.
     ' It will also set Numerator (Printed Units) to 1 and
     ' Denominator (Drawing Units) to:
     ' = 1' x 16
     ' = 12 x 16
     ' = 192
     myPM.PlotProperties.StandardScale = vic1_16i

     ' Now check the status of UseStandardScale property
     msgStr = IIf(myPM.PlotProperties.UseStandardScale = True, "set to True", "set to False")
     MsgBox "After setting Standard Scale, UseStandardScale property is " & msgStr

     Dim dPrintedUnits As Double
     Dim dDrawingUnits As Double
     dPrintedUnits = 1#
     dDrawingUnits = 1#

     ' Get the values of Printed Units and Drawing Units
     ' from the standard scale that is set currently
     myPM.PlotProperties.GetCustomScale dPrintedUnits, dDrawingUnits

     msgStr = "Printed Units = " & dPrintedUnits
     msgStr = msgStr + " & Drawing Units = " & dDrawingUnits

     ' Display the Message Box containing the values
     MsgBox "For the current Standard Scale, " & msgStr

End Sub

Example 2

Public Sub CustomScaleStatusExample()

     Dim myPM As progeCAD.PlotManager

     Application.Visible = True

     Set myPM = Application.PlotManager

     ' Set the UseStandardScale property to false.
     myPM.PlotProperties.UseStandardScale = True

     Dim msgStr As String
     msgStr = IIf(myPM.PlotProperties.UseStandardScale = True, "set to True", "set to False")

     ' Report the current status of UseStandardScale
     MsgBox "Before setting Custom Scale, UseStandardScale property is " & msgStr

     ' Set the Custom Scale to 1 : 2.34.
     ' This will automatically set UseStandardScale property to False.
     ' It will set Numerator (Printed Units) to 1 and
     ' Denominator (Drawing Units) to: 2.34
     myPM.PlotProperties.SetCustomScale 1#, 2.34

     ' Now check the status of UseStandardScale property
     msgStr = IIf(myPM.PlotProperties.UseStandardScale = True, "set to True", "set to False")
     MsgBox "After setting Custom Scale, UseStandardScale property is " & msgStr

     Dim dPrintedUnits As Double
     Dim dDrawingUnits As Double
     dPrintedUnits = 1#
     dDrawingUnits = 1#

     ' Get the values of Printed Units and Drawing Units
     ' from the Custom scale that is set currently
     myPM.PlotProperties.GetCustomScale dPrintedUnits, dDrawingUnits

     msgStr = "Printed Units = " & dPrintedUnits
     msgStr = msgStr + " & Drawing Units = " & dDrawingUnits

     ' Display the Message Box containing the values
     MsgBox "For the current Custom Scale, " & msgStr


End Sub

CADDIT® is a registered trademark in Australia. All Rights Reserved. Comments concerning the content of this site should be addressed to our webmaster. progeCAD is a trademark of ProgeCAD srl. Autodesk® and AutoCAD® are both registered trademarks or trademarks of a third party, and used only for comparison purposes. All other trademarks, trade names or company names referenced herein are used for identification only and are the property of their respective owners. Legal and Terms of Use. Google. Find us on Google+.