得到打印区域的信息

citykunan

以下代码在2004中能成功得到打印时window选择的区域范围，为何在2007中就不行了。从05开始就没有"Save change to layout"了，有好的什么办法能够得到plot时所选的window范围？谢谢：）

(vl-load-com)
(defun C:PlotInfos ( / appObj docObj layObj pltObj ll ur)

(SaveChangeToLayout t);将"Save change to layout"的勾勾上。

;get some objects
(setq appObj (vlax-get-acad-object)
docObj (vla-get-ActiveDocument appObj)
layObj (vla-get-ActiveLayout docObj)
pltObj (vla-get-plot docObj)
)
;get the window corners
(vla-GetWindowToPlot layObj 'll 'ur)
(setq ll (vlax-safearray->list ll)
ur (vlax-safearray->list ur)
)
;display info
(princ (strcat "\nPrinter:\t" (vla-get-ConfigName layObj))) ;打印机名
(princ (strcat "\nPaper: \t" (vla-get-CanonicalMediaName layObj))) ;打印纸的大小
(princ (strcat "\nWindow: \t" "(" (rtos(car ll)) "," (rtos(cadr ll)) ")" " to " "(" (rtos(car ur)) "," (rtos(cadr ur)) ")")) ;打印的window的范围
(princ (strcat "\nCopies: \t" (rtos(vla-get-NumberOfCopies pltObj)))) ;打印的数量
(princ)
)

;本程序是可以让在打印对话框中的"Save change to layout"的勾，勾上或不勾。
;(SaveChangeToLayout t)则勾上
;(SaveChangeToLayout nil)则不勾上
;返回值为T

;;;*******************************************************************
;;;一定要将此程序写入Acad200x.lsp中，才能在启动cad的一开始就能得到设置
;;;*******************************************************************

;;;---------------------------------------
;;;在RUN中打入regedit，可以查看注册表
;;;---------------------------------------

(defun SaveChangeToLayout (arg)
 (and (vl-registry-write
        (strcat "HKEY_CURRENT_USER\\"
                (vlax-product-key) 
                "\\Profiles\\"
                (getvar "cprofile");返回profile的名字
                "\\Dialogs\\Plot"
         ) ;end strcat
        "SaveChangeToLayout"
        (if arg "true" "false")
      );end vl-registry-write
  );end and
);end defun

citykunan

我顶啊！有没有办法？：（

danxingpen

我有时间可惜没有高版本测试,<呵呵,实话说估计我的水平也测试不出来>
所以我也帮你顶~

caoyin

06,09版都有啊

citykunan

但是现在有没有办法通过VLISP把这个框的钩给钩上呢？谢谢。

caoyin

高版本的注册表路径改了

(defun SaveChangeToLayout (arg)
 (and (vl-registry-write
        (strcat "HKEY_CURRENT_USER\\"
                (vlax-product-key) 
                "\\Profiles\\"
                (getvar "cprofile");返回profile的名字
                "\\Dialogs\\Plot Stamp"
         ) ;end strcat
        "SaveChangeToLayout"
        (if arg "true" "false")
      );end vl-registry-write
  );end and
);

citykunan

Great! :)

citykunan

还有两个问题。
1.有没有办法知道在上次调用打印的时候当设置都做好了最后是选择了ok命令还是canncel命令
2.有没有办法知道上次调用打印是用了extention, display, limited和window的哪种打印区域的选择法是呢？
谢谢。：）

caoyin

参考vba的对象 PreferencesOutput，

和一些属性

PlotType

UseLastPlotSettings

常规的一些打印设置都保存在当前图形文档中，

我通常在设置好打印后，按一下“应用到布局”，然后 qsave