[编程申请]：CAD图形打印

2002zjp

;;;;;--------------------------------------------------
;;;;;    电脑报的作品， 我搞不定，请求帮助
;;;;;   2002zjp@sohu.com　
;;;;;       说明：CAD图形打印   2001-03-26于杭州      
;众多使用过AutoCAD的朋友都知道，AutoCAD2000的打印功能较
;以前的版本已大有提高。如果您想打印出一幅；图（譬如A3幅），
;但是您的打印机只能打印A4幅，这时您只有用打印功能里的窗选
;功能手工选择打印。为了；以后图形的拼接方便，您还得手工
;给出窗选点的坐标，实在烦琐。笔者用Visual Lisp编了个小程
;序，能够实；现从A3图幅到A4图幅的自动打印，稍加改动能够实
;现A1图幅到A3图幅的打印等，限于篇幅，这里不在详细介绍。
;原程序如下：   ；；；打印主程序
;;;;;--------------------------------------------------

(Defun c:a34()
　　(Command "layer" "on" "*" "")
　　(initpt)
　　(Command "Plot" "w" (ret1 pt 1 0) (ret2 pt 2 1) "n")
　　(Command "Plot" "w" (ret1 pt 0 0) (ret2 pt 1 1) "n")
　　(Command "qsave" "y")
　　)
　　；；；－－－－－－－－－－－；；；
　　(Defun initpt()
　　(SetQ ptmax (Getvar "extmax")
　　a1 (Car ptmax)
　　a2 (Cadr ptmax)
　　ptmin (Getvar "extmin")
　　b1 (Car ptmin)
　　b2 (Cadr ptmin)
　　s3 0
　　lengthx (－ a1 b1)
　　lengthy (－ a2 b2)
　　factor (/ 2850 1980)
　　unitx (/ lengthx 2)
　　unity (* unitx factor)
　　)
　　(If (<； (/ lengthx 2) (* lengthy factor))
　　(Progn (SetQ unity (/ lengthy 2)
　　unitx (/ unity factor)
　　)
　　)
　　)对瘦长的图形进行长宽对调
　　)；；；确定图形的范围并对瘦长的图形进行"处理"；；；
　　；；；－－－－－－－－－－－－；；；
　　(Defun ret1 (Pt numx numy)
　　(SetQ s1 (* unitx numx)
　　s1 (＋ s1 b1)
　　s2 (* unity numy)
　　s2 (＋ s2 b2)
　　s3 0
　　pt (List s1 s2 s3)
　　)
　　)；；；求窗选点1
　　；；；－－－－－－－－－－－－；；；
　　(Defun ret2 (Pt numx numy)
　　(SetQ s1 (* unitx numx)
　　s2 (* unity numy)
　　s1 (＋ b1 (* s1 101))
　　s2 (* s2 101)
　　s3 0
　　pt (List s1 s2 s3)
　　)
　　)；；；求窗选点2；；；

CHZS

大哥，如何实现出图时的自动拼图？

cy956

这是个“理论”程序，没什么实用价值。
至少应该是手选窗点，而不应该硬套图形界限。

梦断江南

对于一张图中有多张图纸，可以把图框做块，出图时按照图框块的范围分别出图。

2002zjp

请求将此栏内容删除

lines

一点也没用！