(deleteAllPageSetups (vla-get-activedocument (vlax-get-acad-object))) (if (= (vla-get-ModelType pc) :vlax-false) (defun allPageSetupsOfLayoutType (doc / aps) (allPageSetupsOfLayoutType (vla-get-activedocument (vlax-get-acad-object))) (defun allPageSetupsOfModelType (doc / aps) (allPageSetupsOfModelType (vla-get-activedocument (vlax-get-acad-object))) (if (= (vla-get-ModelType pc) :vlax-true) (defun allPageSetupsAndModelType (doc / aps pc) (allPageSetupsAndModelType (vla-get-activedocument (vlax-get-acad-object))) (allPageSetups (vla-get-activedocument (vlax-get-acad-object)))
(listPageSetups (vla-get-activedocument (vlax-get-acad-object))) Copyright (C) 1997-2011 JTB World, All Rights Reserved Miscellaneous routines related to Page Setup (rtos (/ (cdr (assoc 45 psn)) scale) 2 2) (strcat (rtos (/ (cdr (assoc 44 psn)) scale) 2 2) (progn (setq scale (if (= 0 (cdr (assoc 72 psn))) (if (= (caadr psn) 1) Page Setup Name exist (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT")))
Autocad lisp rtos list code#
Will return it in inches like this: "11.00 x 8.50"ĭXF group code 44 is Plot paper size: physical paper width in millimetersĭXF group code 45 is Plot paper size: physical paper height in millimetersĢ = Plot in pixels get paper size on current tab (list (cdr (assoc 44 psn)) (cdr (assoc 45 psn))) will return for example (279.4 215.9) GetPageSetupName can easily be modified to get the actual paper size in millimeters.
"*" is used to import all page setups, otherwise specify the exact name of the page setup to import.
Autocad lisp rtos list full#
To import page setups the easiest way is to use PSETUPIN where filename is the full path including file name and can be a DWG or DWT. (if (not (member (vla-get-name pc) names)) (vlax-for pc (vla-get-plotconfigurations doc) (defun deleteAllPageSetupsExcept (doc names) (deleteAllPageSetupsExcept (vla-get-activedocument (vlax-get-acad-object)) Here is an additional function that can be useful if you want to delete all page setups except the specified one(s): (deleteAllPageSetupsExcept ) More Free AutoLISP and Visual LISP code snippets for AutoCAD See also GetPlotDevices.lsp to find paper sizes or plot sizes and PlotDevicesFunctions.lsp
0 kommentar(er)
