Updates the plot, canonical media, and plot style table information to reflect the current system state.
Supported platforms: Windows only
VBA:
object.RefreshPlotDeviceInfo
Type: Layout, PlotConfiguration
The objects this method applies to.
No return value.
It is recommended that you refresh your plot device information before you use GetCanonicalMediaNames, GetPlotDeviceNames, or GetPlotStyleTableNames methods for a given AutoCAD session. After that, you need only refresh the information if some part of the device setup changes during the course of the session.
VBA:
Sub Example_RefreshPlotDeviceInfo()
' This example gets the current plot device information,
' and then displays the list of plot device names,
' media names, localized media names, and plot style
' table entries.
Dim Layout As ACADLayout
Set Layout = ThisDrawing.ModelSpace.Layout
' Refresh the current plot information for
' this session.
Layout.RefreshPlotDeviceInfo
' List all the valid device names for the system
Dim plotDevices As Variant
plotDevices = Layout.GetPlotDeviceNames()
Dim x As Integer
For x = LBound(plotDevices) To UBound(plotDevices)
MsgBox plotDevices(x)
Next
' List all the media names and their localized version
Dim mediaNames As Variant
mediaNames = Layout.GetCanonicalMediaNames()
For x = LBound(mediaNames) To UBound(mediaNames)
MsgBox mediaNames(x)
MsgBox Layout.GetLocaleMediaName(mediaNames(x))
Next
' List all the entries in the plot style table
Dim styleNames As Variant
styleNames = Layout.GetPlotStyleTableNames()
For x = LBound(styleNames) To UBound(styleNames)
MsgBox styleNames(x)
Next
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_RefreshPlotDeviceInfo()
;; This example gets the current plot device information
;; and then displays the list of plot device names,
;; media names, localized media names, and plot style
;; table entries.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq Layout (vla-get-Layout (vla-get-ModelSpace doc)))
;; Refresh the current plot information for
;; this session.
(vla-RefreshPlotDeviceInfo Layout)
;; List all the valid device names for the system
(setq plotDevices (vlax-variant-value (vla-GetPlotDeviceNames Layout)))
(setq x 0)
(while (>= (vlax-safearray-get-u-bound plotDevices 1) x)
(alert (vlax-safearray-get-element plotDevices x))
(setq x (1+ x))
)
;; List all the media names, and their localized version
(setq mediaNames (vlax-variant-value (vla-GetCanonicalMediaNames Layout)))
(setq x 0)
(while (>= (vlax-safearray-get-u-bound mediaNames 1) x)
(alert (vlax-safearray-get-element mediaNames x))
(alert (vla-GetLocaleMediaName Layout (vlax-safearray-get-element mediaNames x)))
(setq x (1+ x))
)
;; List all the entries in the plot style table
(setq styleNames (vlax-variant-value (vla-GetPlotStyleTableNames Layout)))
(setq x 0)
(while (>= (vlax-safearray-get-u-bound styleNames 1) x)
(alert (vlax-safearray-get-element styleNames x))
(setq x (1+ x))
)
)