快速打印设置，避免重复劳动

zhb236623

最近打印了200多份大小不一的图纸，要求每张图打印三份或四份，使用的是HP Designjet 500 打印机，880宽的图纸，长的话根据图纸大小 决定。因为有的图大，一张纸只能打一份，有的图小，要在一张图纸范围内打三到四份，因此打印起来比较麻烦，所以才有下面的小程序帮忙，帮我节省了不少时间。
首先，在CASS7.0里面新建图形文件，  文件－绘图输出－页面设置－新建（名称取你设置的打印图纸大小例：880z250  ,这里用Z代替*，因为不能输入*，只是为了直观，最小图纸只能选250）最终设置如下图。（注意自定义纸张的时候，自定义1选880Z250,设置第二张图纸大小的时候，应该选自定义2的纸张大小例如880Z300),不然会搞混。

新建块文件，因为我打印的图纸大部份是880*450大小的，所以做了个880*450大小的矩形，可以对比大小，方便快速选择图纸。

小程序：

;;四幅打印快速复制
;;纸张自定义设置，需要将对应的HP DesignJet 500 42 by HP (副本 1)拷到目录下，才能改变自定义纸张。
(defun c:qq()
(setq allss(ssget "all"))  ;;选取所有图元
(setq point_xyz(getpoint "点选获取矩形（880*450）左上角点" ))
(command "-insert" "880z450"  point_xyz "" "" "")
(command "ortho" "on" "")  ;;打开正交模式

(command "psetupin" "print_set_880z25_30_35_40_45.dwt"  "880z250" "Y" )
(command "psetupin" "print_set_880z25_30_35_40_45.dwt"  "880z300" "Y" )
(command "psetupin" "print_set_880z25_30_35_40_45.dwt"  "880z350" "Y" )
(command "psetupin" "print_set_880z25_30_35_40_45.dwt"  "880z400" "Y" )
(command "psetupin" "print_set_880z25_30_35_40_45.dwt"  "880z450" "Y" )


(command "copy" allss "" "m")  多重复制
)



这是我的设置
将下面三个文件拷贝至对应的文件夹下面即可（看你的安装目录）
C:\Program Files\CASS70\SYSTEM    \print_set_880z25_30_35_40_45.dwt


C:\Documents and Settings\admin\Application Data\Autodesk\AutoCAD 2005\R16.1\chs\Plotters     \ \HP250-450.pc3


C:\Program Files\CASS70\BIN    \880z450.dwg
设置好后加载程序qq.lsp命令行输入QQ回车，可以快速复制图形，然后点击打印在页面设置，名称那里选 择880z250可以快速选择打印设置

最终打印前效果
不是太懂怎么写程序，可能有不当之处，但也能达到所要效果，有高手的话可以提出改进建议。