发码养号之打印设置

夏生生

收币有风险，下载需谨慎，勿喷


附件含1个函数
put-printset 打印设置
;;;=============================================
;;;      通用函数  打印设置
;;;参数： myLayout---------------当前活动的布局
;;;       ConfigName-------------打印机名称pc3
;;;       CanonicalMediaName-----图纸尺寸本地名称
;;;       paperunits-------------打印单位:0英寸:1毫米:2像素
;;;       CenterPlot-------------是否居中打印:0不居中:1居中
;;;       StyleSheet-------------打印样式ctb
;;;       PlotHidden-------------打印期间是否隐藏对象:0不隐藏:1隐藏
;;;       PlotWithLineweights----打印对象线宽:0否:1是
;;;       PlotWithPlotStyles-----按样式打印:0否:1是
;;;       PlotType---------------打印配置的类型:0显示:1范围:2图形界限:4窗口
;;;       Window-----------------打印范围'(左下 右上)
;;;       UseStandardScale-------使用标准比例还是用户比例:0标准:1用户
;;;       StandardScale----------打印配置的标准比例:0布满:1自定义
;;;       scale------------------比例'(1 100)
;;;       PlotRotation-----------打印角度对于横向图纸:0横向:1纵向:2横向颠倒:3纵向颠倒
;;;返回值：nil

2. ;;;示例
   
3. (defun c:tt1 ()
   
4.   (setq
   
5.     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)
   
6.   )
   
7.   (setq myLayout (vlax-get-property acdoc 'ActiveLayout))
   
8.   (setq pt1(getpoint"\n第一点:") pt2(getpoint pt1 "\n第二点:"))
   
9.   (setq pt1(list(car pt1)(cadr pt1))pt2(list(car pt2)(cadr pt2)))
   
10.   (put-printset
    
11.     myLayout
    
12.     "DWG To PDF.pc3"
    
13.     "ISO expand A4 (297.00 x 210.00 毫米)"
    
14.     1
    
15.     1
    
16.     "monochrome.ctb"
    
17.     0
    
18.     1
    
19.     1
    
20.     4
    
21.     (list pt1 pt2)
    
22.     0
    
23.     0
    
24.     nil
    
25.     1
    
26.   )
    
27.   (vl-cmdf ".-plot" "No" "" "" "" "d:\\1.pdf" "No" "YES")
    
28. )

;;;示例<br /> (defun c:tt1 ()<br />   (setq<br />     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />   )<br />   (setq myLayout (vlax-get-property acdoc 'ActiveLayout))<br />   (setq pt1(getpoint"\n第一点:") pt2(getpoint pt1 "\n第二点:"))<br />   (setq pt1(list(car pt1)(cadr pt1))pt2(list(car pt2)(cadr pt2)))<br />   (put-printset<br />     myLayout<br />     "DWG To PDF.pc3"<br />     "ISO expand A4 (297.00 x 210.00 毫米)"<br />     1<br />     1<br />     "monochrome.ctb"<br />     0<br />     1<br />     1<br />     4<br />     (list pt1 pt2)<br />     0<br />     0<br />     nil<br />     1<br />   )<br />   (vl-cmdf ".-plot" "No" "" "" "" "d:\\1.pdf" "No" "YES")<br /> )

夏生生

夏生生 发表于 2021-10-29 19:28
控制打印预览在自己的输出代码里面加，例如用plot命令输出时，在提示是否预览的时候，输入yes

执行完put-printset后，再(vla-DisplayPlotPreview (vlax-get-property  (vlax-get-property (vlax-get-acad-object) 'activedocument)'plot)acFullPreview)就可以预览了

傲视豆腐

夏生生 发表于 2021-10-29 19:28
控制打印预览在自己的输出代码里面加，例如用plot命令输出时，在提示是否预览的时候，输入yes

我在用命令行输入plot一步步设置里，没有看到打印预览的提示呢，所以不知道怎么做

夏生生

傲视豆腐 发表于 2021-10-29 19:31
我在用命令行输入plot一步步设置里，没有看到打印预览的提示呢，所以不知道怎么做

抱歉，我没研究就回复了，我的说法是错误的，要用DisplayPlotPreview方法

夏生生

发了三个贴，居然进入高级会员了，谢谢各位捧场

gaics

这个函数是什么作用？

夏生生

相当于打印设置页面

gaics

夏生生 发表于 2021-9-1 08:27
相当于打印设置页面

强，学习了！

Sonnenblumen

很有用，学习了

LIULISHENG

下来试一试

傲视豆腐

增加一行代码功能是打印预览，这个能实现吗

夏生生

傲视豆腐 发表于 2021-10-29 15:04
增加一行代码功能是打印预览，这个能实现吗

控制打印预览在自己的输出代码里面加，例如用plot命令输出时，在提示是否预览的时候，输入yes