0 Members and 1 Guest are viewing this topic.
;;//---------------------------------------------------------------------------(defun c:ChangePageSetups (/ old_expert) (setq old_expert (getvar "expert")) (setvar "expert" 5) ;; REVISE TO SUIT ;; (VL-CMDF "-psetupin" "PageSetupTemplate_FileName" "pageSetup_Name") (vl-cmdf "-psetupin" "c:/PageSetupTemplate.DWG" "*") (setvar "expert" old_expert) (princ));;//---------------------------------------------------------------------------
(defun copy_page-setup (DwgName / psetups $acadver$ $typelib$ $classname$ $dbxDoc$) (setq $AcadVer$ (atoi (getvar "acadver")) $TypeLib$ (findfile "AxDb.dll") $ClassName$ (strcat "ObjectDBX.AxDbDocument" "." (itoa $AcadVer$)) $dbxdoc$ (vla-GetInterfaceObject (vlax-get-acad-object) $ClassName$)) (setq *acad* (vlax-get-acad-object)) (setq *active-document* (vla-get-activedocument *acad*)) (setq psetups (vla-get-plotconfigurations *active-document*)) (vla-open $dbxdoc$ DwgName) (vlax-for x (setq dbxdoc-collection (vla-get-plotconfigurations $dbxdoc$)) (setq name (vla-get-name x)) (vla-copyobjects $dbxdoc$ (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (vla-item dbxdoc-collection name))) psetups )) (vlax-release-object $dbxdoc$) (princ) );; BEGIN MAIN(defun c:psetup-in ( / *error* ERROR-LST-) ;; ;; BEGIN SETUP (setq ERROR-LST- '("AUTOSNAP" "OSMODE" "APERTURE" "HPSPACE" "HPASSOC" "MIRRTEXT" "AUPREC" "LUPREC" "DIMZIN" "CECOLOR" "CLAYER") ERROR-LST- (mapcar (function (lambda (a) (list 'setvar a (getvar a)))) ERROR-LST-) );_end setq (defun *error* (msg) (command) (command) (mapcar 'eval ERROR-LST-) ) ;; END SETUP ;; ;; ;; BEGIN CODE (setq *acad-object* (vlax-get-acad-object)) (setq *active-document* (vla-get-activedocument *acad-object*)) ;; ;; delete existing pagesetups (vlax-map-collection (vla-get-plotconfigurations *active-document*) 'vla-delete) ;; ;; import the new ones (copy_page-setup "C:\\tmp\\Test-PageSetups-ABS08.dwt") ;; END CODE ;; ;; ;; BEGIN CLEANUP (*error* "") ;; END CLEANUP ;; (princ))
(vla-put-configname (vla-get-layout (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-object "AutoCAD.Application") ) ) ) "Ghostscript.pc3");; or(vla-put-configname (vla-get-layout (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-object "AutoCAD.Application") ) ) ) "None")
(vla-put-configname (vla-get-layout (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-object "AutoCAD.Application") ) ) ) "Ghostscript.pc3")