Make commandbutton called plot

[MR MAN]

how can i make a commandbutton called plot when i press on it plot setup appear to me?

[flowerrobot]

In your cui, creat a button with some thing like "^^_plot", i belive
or
get the button that is already "plot" or maybe "print", and place that where you want

[MR MAN]

iam sorry i will explain more i have a form in vba and have commandbutton called plot i need press on it to get plot setup i try sendcommand but it work after i close my program is there any way to run it with my program



thanks for help

[Zorg]

iam sorry i will explain more i have a form in vba and have commandbutton called plot i need press on it to get plot setup i try sendcommand but it work after i close my program is there any way to run it with my program



thanks for help

Not, entirely sure what sort of end result you are after but if it's a button that will plot from a plot setup saved somewhere like 'A0', 'A1', 'A2', 'A3 then you need a lisp routine that wil ldo that for you

[Lee Mac]

Mr MAN, Are you saying you want to bypass the plot setup and just have a "plot" button?

[MR MAN]

IAM SORRY FOR LATE IN REPLY
DEAR LEE MAC I MAKE A BUTTON ITS NAME IS PLOT AS SHOWN
Private Sub CommandButton5_Click()
UserForm1.Hide
ThisDrawing.SendCommand "_plot" & vbCr
UserForm1.Show
End Sub

IT OPEN MENU OF PLOT FOR ME UNTIL I CHOOSE WHAT I NEED MY PROBLEM IS WHEN I NEED TO PREVIEW OR MAKE PLOT AREA NO ACTION TAKEN UNTIL I CLOSE MY PROGRAM


HAVE ANY IDEA TO SOLVE THIS


THANKS FOR HELP

[SEANT]

Instead of SendCommand, have you looked into the DisplayPlotPreview method of the Application.Document.Plot object (ThisDrawing.Plot.DisplayPlotPreview acFullPreview).

[MR MAN]

Can You Please Explain More Seant?
How Can I Make It Exactly?


Thanks For Help

[SEANT]

Sadly, it appears that Autodesk has managed to break the DisplayPlotPreview method somewhere between AutoCAD 2004 and 2009.

Sub DisplayPlotPreview()
    Dim objPlot As AcadPlot
    Dim AddedLayouts() As String
    Dim LayoutList As Variant
    Dim oLayout As AcadLayout
    Dim ArraySize As Integer
    Dim objConfig As AcadPlotConfiguration
    Dim colPlotConfigs As AcadPlotConfigurations
    
    Set colPlotConfigs = ThisDrawing.PlotConfigurations
   If colPlotConfigs.count = 0 Then
      colPlotConfigs.Add "TestConfig"
   End If

    Set objConfig = ThisDrawing.PlotConfigurations.Item("TestConfig")
    For Each oLayout In ThisDrawing.Layouts
        ArraySize = ArraySize + 1
        ReDim Preserve AddedLayouts(1 To ArraySize)
        AddedLayouts(ArraySize) = oLayout.Name
    Next

    LayoutList = AddedLayouts
    Set objPlot = ThisDrawing.Plot
    objPlot.SetLayoutsToPlot LayoutList
    objPlot.DisplayPlotPreview acFullPreview 'works in 2004, error in 2009

        
End Sub

[MR MAN]

THANKS SEANT BUT IT DOESN'T WORK WITH AUTOCAD 2007
objPlot.DisplayPlotPreview acFullPreview 'works in 2004, error in 2009

THANK YOU AGAIN FOR YOUR HELP