[编程交流] 有可能得到普洛特吗

Dim i As Integer
Dim default As Integer
Dim PName As String
'DirList1.Drive = "H:"
'DirList1.Path = "\Design_Office"
'DirList1.Pattern = "*.dwg"
default = 0
For i = 1 To UBound(ThisDrawing.ModelSpace.Layout.GetPlotDeviceNames)
PName = ThisDrawing.ModelSpace.Layout.GetPlotDeviceNames(i)
cmbPrinters.AddItem PName
If PName = "PR03" Then default = i - 1
Next
cmbPrinters.ListIndex = default
For i = 0 To UBound(ThisDrawing.ModelSpace.Layout.GetPlotStyleTableNames)
cmbStyle.AddItem (ThisDrawing.ModelSpace.Layout.GetPlotStyleTableNames(i))
Next
cmbStyle.ListIndex = 0
End Sub

Sub GetPlotNames ()
   Dim i As Integer
   Dim Layout As ACADLayout
   Set Layout = ThisDrawing.ModelSpace.Layout
   
   Layout.RefreshPlotDeviceInfo
   Dim plotDevices As Variant
   plotDevices = Layout.GetPlotDeviceNames()
   
   For i = LBound(plotDevices) To UBound(plotDevices)
       MsgBox plotDevices(i)
   Next
   
End Sub