打印问题，相同的dwg，一个dwg正常，另外dwg错误，已上传dwg和代码

DCMZ

两个完全相同的dwg，“01_正常.dwg”和"02_错误.dwg"，我的打印程序（已上传附件），通过选择左下角和右上角的点进行打印。

但是02.dwg打印出来是白的，然后，我选中02.dwg里面所有内容，新建一个空白01.dwg，将图元全部粘贴过来。然后在01.dwg里面同样的操作，打印就正常了。
麻烦大家帮忙看下原因呢，下面是代码，也可见附件。
另外，我初步分析原因，错误的那个dwg可能藏有私货，打开时，会有下图中的提示，并且，两个dwg大小不同。


(defun C:Dprint()
        ;基本参数设置
        (progn
                (setq PlotDevice "pdfFactory Pro");打印机名称
                (setq PlotStyle "monochrome.ctb");打印样式
                (setq Acad (vlax-get-acad-object))
                (setq ActDoc (vla-get-Activedocument Acad))
                (setq Ms (vla-get-Modelspace ActDoc))
                (setq Plot (vla-get-plot ActDoc))
                (setq Layout (vla-get-activelayout ActDoc))
        )
        
        ;打印
        (progn
                (setq Pt1 (getpoint "\n拾取坐下点坐标："));左下点坐标
                (setq Pt2 (getpoint "\n拾取坐右上坐标："));右上点坐标
                ;开始窗口打印
                (vla-put-ConfigName Layout PlotDevice);设置打印机名称，这一步必须在前面，否则后面无法运行
                (vla-SetWindowToPlot Layout (2DPoint Pt1) (2DPoint Pt2))
                (vla-put-plottype Layout acWindow);打印范围设置为窗口
                (vla-put-plotrotation Layout ac0degrees)
                (vla-put-centerplot Layout :vlax-true);自动居中
                (vla-put-PlotRotation Layout 1);打印方向设置为横向
                (vla-setcustomscale Layout 1 1);设置比例
                (vla-put-CanonicalMediaName Layout "A3")
                (vla-put-StyleSheet Layout PlotStyle)
                (vla-put-paperunits Layout acMillimeters);设置单位为mm
                (vla-put-NumberofCopies Plot 1)
                (setvar "backgroundplot" 0);设置为前台打印
                (vla-plotToDevice Plot)
        )

)

(defun 2DPoint (pt)
        (vlax-make-variant
                (vlax-safearray-fill
                        (vlax-make-safearray vlax-vbdouble '(0 . 1))
                        (list (car pt) (cadr pt))
                )
        )
)

hubeiwdlue

2. (defun C:Dprint()
   
3.         ;基本参数设置
   
4.         (progn
   
5.                 (defun 2DPoint (pt)
   
6.                         (vlax-make-variant
   
7.                                 (vlax-safearray-fill
   
8.                                         (vlax-make-safearray vlax-vbdouble '(0 . 1))
   
9.                                         (list (car pt) (cadr pt))
   
10.                                 )
    
11.                         )
    
12.                 )
    
13.                 (setq PlotDevice "pdfFactory Pro");打印机名称
    
14.                 (setq PlotStyle "monochrome.ctb");打印样式
    
15.                 (setq Acad (vlax-get-acad-object))
    
16.                 (setq ActDoc (vla-get-Activedocument Acad))
    
17.                 (setq Ms (vla-get-Modelspace ActDoc))
    
18.                 (setq Plot (vla-get-plot ActDoc))
    
19.                 (setq Layout (vla-get-activelayout ActDoc))
    
20.         )
    
21.        
    
22.         ;打印
    
23.         (progn
    
24.                 (setq p1 (getpoint "\n拾取坐下点坐标："))
    
25.                 (setq Pt1 (trans p1 1 0));左下点坐标
    
26.                 (setq p2 (getcorner p1 "\n拾取坐右上坐标："))
    
27.                 (setq Pt2 (trans p2 1 0));右上点坐标
    
28.                 ;开始窗口打印
    
29.                 (vla-put-ConfigName Layout PlotDevice);设置打印机名称，这一步必须在前面，否则后面无法运行
    
30.                 (vla-SetWindowToPlot Layout (2DPoint Pt1) (2DPoint Pt2))
    
31.                 (vla-put-plottype Layout acWindow);打印范围设置为窗口
    
32.                 (vla-put-plotrotation Layout ac0degrees)
    
33.                 (vla-put-centerplot Layout :vlax-true);自动居中
    
34.                 (vla-put-PlotRotation Layout 1);打印方向设置为横向
    
35.                 (vla-setcustomscale Layout 1 1);设置比例
    
36.                 (vla-put-CanonicalMediaName Layout "A3")
    
37.                 ;布满图纸
    
38.                 (vla-put-UseStandardScale Layout :vlax-true);启用标准比例
    
39.                 (vla-put-StandardScale Layout acScaleToFit);自动调整比例
    
40.                 (vla-put-StyleSheet Layout PlotStyle)
    
41.                 (vla-put-paperunits Layout acMillimeters);设置单位为mm
    
42.                 (vla-put-NumberofCopies Plot 1)
    
43.                 (setvar "backgroundplot" 0);设置为前台打印
    
44.                 (vla-plotToDevice Plot)
    
45.         )
    
46. )

(defun C:Dprint()<br />         ;基本参数设置<br />         (progn<br />                 (defun 2DPoint (pt)<br />                         (vlax-make-variant<br />                                 (vlax-safearray-fill<br />                                         (vlax-make-safearray vlax-vbdouble '(0 . 1))<br />                                         (list (car pt) (cadr pt))<br />                                 )<br />                         )<br />                 )<br />                 (setq PlotDevice "pdfFactory Pro");打印机名称<br />                 (setq PlotStyle "monochrome.ctb");打印样式<br />                 (setq Acad (vlax-get-acad-object))<br />                 (setq ActDoc (vla-get-Activedocument Acad))<br />                 (setq Ms (vla-get-Modelspace ActDoc))<br />                 (setq Plot (vla-get-plot ActDoc))<br />                 (setq Layout (vla-get-activelayout ActDoc))<br />         )<br />         <br />         ;打印<br />         (progn<br />                 (setq p1 (getpoint "\n拾取坐下点坐标："))<br />                 (setq Pt1 (trans p1 1 0));左下点坐标<br />                 (setq p2 (getcorner p1 "\n拾取坐右上坐标："))<br />                 (setq Pt2 (trans p2 1 0));右上点坐标<br />                 ;开始窗口打印<br />                 (vla-put-ConfigName Layout PlotDevice);设置打印机名称，这一步必须在前面，否则后面无法运行<br />                 (vla-SetWindowToPlot Layout (2DPoint Pt1) (2DPoint Pt2))<br />                 (vla-put-plottype Layout acWindow);打印范围设置为窗口<br />                 (vla-put-plotrotation Layout ac0degrees)<br />                 (vla-put-centerplot Layout :vlax-true);自动居中<br />                 (vla-put-PlotRotation Layout 1);打印方向设置为横向<br />                 (vla-setcustomscale Layout 1 1);设置比例<br />                 (vla-put-CanonicalMediaName Layout "A3")<br />                 ;布满图纸<br />                 (vla-put-UseStandardScale Layout :vlax-true);启用标准比例<br />                 (vla-put-StandardScale Layout acScaleToFit);自动调整比例<br />                 (vla-put-StyleSheet Layout PlotStyle)<br />                 (vla-put-paperunits Layout acMillimeters);设置单位为mm<br />                 (vla-put-NumberofCopies Plot 1)<br />                 (setvar "backgroundplot" 0);设置为前台打印<br />                 (vla-plotToDevice Plot)<br />         )<br /> )

DCMZ

hubeiwdlue 发表于 2025-3-8 11:32

大神，我按你代码试了，还是白的

hubeiwdlue

DCMZ 发表于 2025-3-9 09:10
大神，我按你代码试了，还是白的

是的，这个图纸上模型空间上画的任何图纸，用这段代码打印，都是空白。不清楚什么原因。

DCMZ

顶起来，等着大神大显身手。

ludaweb

参考下秋枫大佬源码里面这段代码修改下你的程序

(setq target (getvar "target"))

黄翔

代码修复.                     

lijiao

把拾取pt1和pt2坐标这样改一下就可以了

2. (while (not (setq Pt1 (getpoint "\n拾取第一角坐标："))));左下点坐标
   
3.                 (while (not (setq Pt2 (GETCORNER pt1 "\n拾取第二角坐标："))));右上点坐标
   
4.                 (setq pt1 (mapcar '- pt1 (getvar "target"))
   
5.                       pt2 (mapcar '- pt2 (getvar "target"))
   
6.                 )

(while (not (setq Pt1 (getpoint "\n拾取第一角坐标："))));左下点坐标<br />                 (while (not (setq Pt2 (GETCORNER pt1 "\n拾取第二角坐标："))));右上点坐标<br />                 (setq pt1 (mapcar '- pt1 (getvar "target"))<br />                       pt2 (mapcar '- pt2 (getvar "target"))<br />                 )

DCMZ

ludaweb 发表于 2025-3-10 12:15
参考下秋枫大佬源码里面这段代码修改下你的程序

(setq target (getvar "target"))

搞定了，谢谢大神

DCMZ

lijiao 发表于 2025-3-10 13:38
把拾取pt1和pt2坐标这样改一下就可以了

终于可以了，感谢大神