发码养号之打印设置
收币有风险，下载需谨慎，勿喷附件含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
;;;示例
(defun c:tt1 ()
(setq
acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)
)
(setq myLayout (vlax-get-property acdoc 'ActiveLayout))
(setq pt1(getpoint"\n第一点:") pt2(getpoint pt1 "\n第二点:"))
(setq pt1(list(car pt1)(cadr pt1))pt2(list(car pt2)(cadr pt2)))
(put-printset
myLayout
"DWG To PDF.pc3"
"ISO expand A4 (297.00 x 210.00 毫米)"
1
1
"monochrome.ctb"
0
1
1
4
(list pt1 pt2)
0
0
nil
1
)
(vl-cmdf ".-plot" "No" "" "" "" "d:\\1.pdf" "No" "YES")
)
夏生生 发表于 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方法 发了三个贴，居然进入高级会员了:victory:，谢谢各位捧场 这个函数是什么作用？ 相当于打印设置页面 夏生生 发表于 2021-9-1 08:27
相当于打印设置页面
强，学习了！ 很有用，学习了 下来试一试 增加一行代码功能是打印预览，这个能实现吗 傲视豆腐 发表于 2021-10-29 15:04
增加一行代码功能是打印预览，这个能实现吗
控制打印预览在自己的输出代码里面加，例如用plot命令输出时，在提示是否预览的时候，输入yes
页:
[1]
2