Autodesk ObjectARX

[#1]

How do you access AcDbPlotSettings paper image origin from ARX?

AcDbPlotSettings
PaperImageOrigin
dxf code 148,149 x,y

http://docs.autodesk.com/ACD/2011/ENU/filesDXF/WS1a9193826455f5ff18cb41610ec0a2e719-7996.htm

Thanks,

John

[#2]

Hi John,

To retrieve the origin, you can use AcDbPlotSettings::getPlotOrigin().

Plot settings are applied using the AcDbPlotSettingsValidator class. That is where you'll find the set functions corresponding to the get functions you see in AcDbPlotSettings. I've copied below a pertinent example from the ADN website (apologies for the sub-optimal formatting due to copy and paste).

Cheers,

Stephen Preston

Autodesk Developer Network

>>>

Issue

I want to Window plot a drawing to DWF, I'm using COM to plot the DWF but how do I setup the Plot Settings so that it plots using a couple of Window coordinates?

Solution

In ObjectARX you need to use the AcDbPlotSettingsValidator class to setup the Plot. Here is some code which shows you what to do. Note this is using the Window coordinates as the extents of the drawing. This is purely for test purposes - if you want to plot the extents then use setPlotType (pLayout, AcDbPlotSettings::kExtents). There is also a Visual LISP example following the ObjectARX code.

#import "acad.tlb" no_namespace

static void ASDKTS66871_PlotWindow_COM_testPlot(void)
 {
  // Use ActiveX interface to get the application object
  IAcadApplicationPtr pAcad = acedGetAcadWinApp()->GetIDispatch(TRUE);

  //get the path to plotter configuration
  _bstr_t szPrinterPath;
  szPrinterPath = pAcad->Preferences->GetFiles()->GetPrinterConfigPath() + _bstr_t("\\DWF6 ePlot.pc3");
  // get the current database
  AcDbDatabase *curDocDB = acdbHostApplicationServices()->workingDatabase();
  // get a pointer to the layout manager
  AcApLayoutManager *pLayoutManager = (AcApLayoutManager *)acdbHostApplicationServices()->layoutManager();
  const ACHAR *layoutName = pLayoutManager->findActiveLayout (true);
  // get the current layout
  AcDbLayout *pLayout = pLayoutManager->findLayoutNamed (layoutName, true); 
  // if we got it ok
  if (pLayout != NULL)
  {
   Acad::ErrorStatus es;
   // get the plotsetttings class
   AcDbPlotSettingsValidator *pPlotSettingsValidator = acdbHostApplicationServices()->plotSettingsValidator();
   // if we got it ok
   if (pPlotSettingsValidator != NULL)
   {
    // Refresh the layout lists in order to use it
    pPlotSettingsValidator->refreshLists (pLayout);
    // change the current layout plotter
    es = pPlotSettingsValidator->setPlotCfgName (pLayout, szPrinterPath);  
    // set the window to plot as the extents of the drawing
    es = pPlotSettingsValidator->setPlotWindowArea (pLayout,
     curDocDB->extmin ().x,
     curDocDB->extmin ().y,
     curDocDB->extmax ().x,
     curDocDB->extmax ().y);
    // set the orgin
    es = pPlotSettingsValidator->setPlotOrigin (pLayout,
     curDocDB->extmin ().x,
     curDocDB->extmin ().y);
    // set to plot centred
    es = pPlotSettingsValidator->setPlotCentered (pLayout, true);
    // setup the plot type to window
    es = pPlotSettingsValidator->setPlotType (pLayout, AcDbPlotSettings::kWindow);
    // set the scale
    es = pPlotSettingsValidator->setStdScaleType (pLayout, AcDbPlotSettings:tdScaleType::kScaleToFit);

    // we have to close the layout here because the last parameter of
    // findLayoutNamed is true, leave layout open
    pLayout->close ();
   } 
  }

  // get the current document
  IAcadDocumentPtr pDoc = pAcad->GetActiveDocument();
  // create a plot object
  IAcadPlotPtr pPlot = pDoc->GetPlot();
  // lets plot
  pPlot->PlotToFile("c:\\test.dwf", szPrinterPath);
 }

Note: You do not need to use COM to plot. Instead you can use ObjectARX functions. A sample ships with the SDK. ( ..\ObjectARX 2009\samples\editor\AsdkPlotAPI )

 Here is a Visual LISP example:

(defun c:testPlotWindow ( / acadObject acadDocument activeLayoutObject plt p1 point1
     pPt1 pPt1sa pt1 p2 point2 pPt2 pPt2sa pt2 )
  (vl-load-com)
  (setq acadObject (vlax-get-Acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq activeLayoutObject (vla-Get-ActiveLayout acadDocument))

  (setq plt (vla-get-plot acadDocument))

  (vla-put-configname activeLayoutObject "DWF6 ePlot.pc3")
  (vla-put-canonicalmedianame
    activeLayoutObject
    "ISO_full_bleed_A3_(420.00_x_297.00_MM)"
    )
  (vla-put-paperunits activeLayoutObject acMillimeters)
  (vla-put-plotrotation activeLayoutObject ac0degrees)
  ; How to control the Plot Style Table
  ; (vla-put-StyleSheet activeLayoutObject "HP LaserJet 4MV.ctb")

  (setq p1 (getpoint "\nSelect Window Point No 1 (Lower Left): "))
  (setq point1 (list (car p1) (cadr p1)))
  (setq pPt1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (setq pPt1sa (vlax-safearray-fill pPt1 point1))
  (setq pt1 (vlax-make-variant
       pPt1sa
       (logior vlax-vbarray vlax-vbDouble)
       )
 )

  (setq p2 (getpoint "\nSelect Window Point No 2 (Upper Right): "))
  (setq point2 (list (car p2) (cadr p2)))
  (setq pPt2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (setq pPt2sa (vlax-safearray-fill pPt2 point2))
  (setq pt2 (vlax-make-variant
       pPt2sa
       (logior vlax-vbarray vlax-vbDouble)
       )
 )

  (vla-SetWindowToPlot activeLayoutObject pt1 pt2)
  (vla-put-plottype activeLayoutObject acWindow)

   (vla-plottofile plt "c:\\test.dwf" "DWF6 ePlot.pc3")

  )

[#3]

I'm looking for "paper image origin" not the "plot origin".

getPlotOrigin() retrieve values for DXF code 46,47

I need the values for DXF code 148,149.

http://docs.autodesk.com/ACD/2011/ENU/filesDXF/WS1a9193826455f5ff18cb41610ec0a2e719-7996.htm

Thanks,

John