关于自动打印时不能居中的奇怪问题

changyiran

2. (defun c:pdf(/ );将点之记以pdf格式输出到指定文件夹
   
3.   (setq szss(ssget"x"'((1 . "所在图幅"))));建立所在图幅选择集
   
4.   (setq lcss(ssget"x"'((1 . "联测高程等级"))));建立联测高程等级选择集
   
5.   (setq szx(cadr(assoc 10(entget(ssname szss 0))))szy(caddr(assoc 10(entget(ssname szss 0)))));求出所在图幅的x、y坐标
   
6.   (setq lcx(cadr(assoc 10(entget(ssname lcss 0))))lcy(caddr(assoc 10(entget(ssname lcss 0)))));求出联测高程等级的x、y坐标
   
7.   (setq zxj(strcat(rtos(- lcx 4.318))","(rtos(- lcy 23.349))));求出打印窗口的左下角点
   
8.   (setq ysj(strcat(rtos(+ szx 73.351))","(rtos(+ szy 23.131))));求出打印窗口的右上角点
   
9.   (command "_.PLOT"
   
10.                  "Y"              ;是否需要详细打印配置？[是(Y)/否(N)] <否>: y                        
    
11.                  ""               ;输入布局名或 [?] <模型>:
    
12.                  "Adobe PDF.pc3"      ;输入输出设备的名称或 [?]
    
13.                  "a4"    ;输入图纸尺寸或 [?] <上一个图纸尺寸  (2550.00 x 3300.00 像素)>:
    
14.       "M"              ;输入图纸单位 [英寸(I)/毫米(M)] <毫米>: p
    
15.                  "p"              ;输入图形方向 [纵向(P)/横向(L)] <横向>:
    
16.                  "N"              ;是否上下颠倒打印？[是(Y)/否(N)] <否>:               
    
17.                  "W"              ;输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <范围>:
    
18.     zxj      ;左下角坐标
    
19.     ysj    ;右上角坐标
    
20.                  "1=1"              ;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <Fit>: fit
    
21.                  "c"              ;输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
    
22.                  "Y"              ;是否按样式打印？[是(Y)/否(N)] <是>:
    
23.     "monochrome.ctb" ;输入打印样式表名称或 [?] (输入 . 表示无) <hp5100.ctb>:
    
24.                  "n"              ;是否打印线宽？[是(Y)/否(N)] <是>:
    
25.                  "A"              ;输入着色打印设置 [按显示(A)/线框(W)/隐藏(H)/视觉样式(V)/渲染(R)] <按显示>:
    
26.            ""              ;输入文件名 <Drawing1-Model.jpg>:
    
27.                  "n"              ;是否保存对页面设置的修改 [是(Y)/否(N)]?
    
28.                  "y"              ;是否继续打印？[是(Y)/否(N)] <Y>:
    
29.   )
    
30. ;(command"qsave""close")
    
31. )
    

(defun c:pdf(/ );将点之记以pdf格式输出到指定文件夹<br />   (setq szss(ssget"x"'((1 . "所在图幅"))));建立所在图幅选择集<br />   (setq lcss(ssget"x"'((1 . "联测高程等级"))));建立联测高程等级选择集<br />   (setq szx(cadr(assoc 10(entget(ssname szss 0))))szy(caddr(assoc 10(entget(ssname szss 0)))));求出所在图幅的x、y坐标<br />   (setq lcx(cadr(assoc 10(entget(ssname lcss 0))))lcy(caddr(assoc 10(entget(ssname lcss 0)))));求出联测高程等级的x、y坐标<br />   (setq zxj(strcat(rtos(- lcx 4.318))","(rtos(- lcy 23.349))));求出打印窗口的左下角点<br />   (setq ysj(strcat(rtos(+ szx 73.351))","(rtos(+ szy 23.131))));求出打印窗口的右上角点<br />   (command "_.PLOT"<br />                  "Y"              ;是否需要详细打印配置？[是(Y)/否(N)] <否>: y                         <br />                  ""               ;输入布局名或 [?] <模型>:<br />                  "Adobe PDF.pc3"      ;输入输出设备的名称或 [?] <br />                  "a4"    ;输入图纸尺寸或 [?] <上一个图纸尺寸  (2550.00 x 3300.00 像素)>:<br />       "M"              ;输入图纸单位 [英寸(I)/毫米(M)] <毫米>: p<br />                  "p"              ;输入图形方向 [纵向(P)/横向(L)] <横向>:<br />                  "N"              ;是否上下颠倒打印？[是(Y)/否(N)] <否>:                <br />                  "W"              ;输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <范围>: <br />     zxj      ;左下角坐标<br />     ysj    ;右上角坐标<br />                  "1=1"              ;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <Fit>: fit<br />                  "c"              ;输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c<br />                  "Y"              ;是否按样式打印？[是(Y)/否(N)] <是>:<br />     "monochrome.ctb" ;输入打印样式表名称或 [?] (输入 . 表示无) <hp5100.ctb>:<br />                  "n"              ;是否打印线宽？[是(Y)/否(N)] <是>:<br />                  "A"              ;输入着色打印设置 [按显示(A)/线框(W)/隐藏(H)/视觉样式(V)/渲染(R)] <按显示>:<br />            ""              ;输入文件名 <Drawing1-Model.jpg>:<br />                  "n"              ;是否保存对页面设置的修改 [是(Y)/否(N)]?<br />                  "y"              ;是否继续打印？[是(Y)/否(N)] <Y>: <br />   )<br /> ;(command"qsave""close")<br /> )<br />

用该代码运行时，提示未知命令“Y”。按 F1 查看帮助。
未知命令“MONOCHROME.CTB”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“A”。按 F1 查看帮助。
未知命令“PDF”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助，但如果把其中的居中选项"c"换成"",就能顺利输出pdf图片，但是图片不是居中的，有哪位高手指教一下为什么不能居中打印？

305341043

305341043 发表于 2018-11-1 15:05
6年后的今天（20181101）测试这段程序时，发现用不了谁能改进下，各位路过的大侠

主要是有时居中，有时不居中，不稳定

305341043

6年后的今天（20181101）测试这段程序时，发现用不了谁能改进下，各位路过的大侠

libo2000

试试坐标点zxj，ysj 是否为空。
打印到文件输入“N”而不是“”

changyiran

libo2000 发表于 2012-8-20 13:51  试试坐标点zxj，ysj 是否为空。  打印到文件输入“N”而不是“”

都不为空，就是将居中的c换成空就能正常输出了，但是不输入c的话又不居中，让我很是郁闷！

libo2000

(setq zxj (list (- lcx 4.318) (- lcy 23.349)))
(setq yxj (list (+ szx 73.351) (+ szy 23.131)))

libo2000

你那个不是点，居中cad无法判断居中点在哪里

changyiran

libo2000 发表于 2012-8-20 14:10  你那个不是点，居中cad无法判断居中点在哪里

还是不行啊，问题还是出在那个c上面，我就纳闷了，在打印设置里就可以居中，用程序就不行。

libo2000

changyiran 发表于 2012-8-20 14:43
还是不行啊，问题还是出在那个c上面，我就纳闷了，在打印设置里就可以居中，用程序就不行。

我试了下，可以正常打印啊。
看看A4打印图纸尺寸有没有。先配置下默认打印机，在c：pdf

changyiran

libo2000 发表于 2012-8-20 14:57  我试了下，可以正常打印啊。  看看A4打印图纸尺寸有没有。先配置下默认打印机，在c：pdf

打印机配置应该没问题，因为如果手动打印就可以实现程序里要求的居中打印，但用程序就不行，所有设置明明都一样。还有为什么在程序里把居中那一项改成空就行了呢？

changyiran

现在可以确定是电脑的原因，因为换了个电脑就能居中了，只是不明白是何种问题？

longer1000

电脑的原因啊，不懂