在CAD中實現(xiàn)批量打印

1、在CAD中運用LISP實現(xiàn)批量打印王洪杰 張海明河北省第一測繪院 050031關(guān)鍵詞：CAD AUTOLISP 批量打印 腳本CAD數(shù)字化成圖已成為地形測量的主要手段，合理利用LISP文件將可以大大提高圖形處理工作效率，避免一些重復(fù)性勞動，以及增加準(zhǔn)確性。成果資料驗收中地形圖資料包含的標(biāo)準(zhǔn)分幅圖可能成百上千幅，如果人工打印的話可能需要一天或幾天的時間，既浪費人力又浪費精力，如何才能擺脫不斷的重復(fù)性勞動，使這一切更加人性化呢？使用LISP文件就是一個出路。1.AUTOLISP簡介AUTOLISP是由Autodesk公司開發(fā)的一種LISP程序語言。AutoCAD軟件包中包含大多數(shù)用于產(chǎn)生圖形的命令

2、，但仍有某些命令未被提供。通過AutoLISP可以編制任何程序，或把它嵌入到菜單中，這樣定制你的系統(tǒng)會取得更高的效率。2.AUTOLISP應(yīng)用打開AutoCAD命令行執(zhí)行“dy”(有時加載了某些運行程序后需要全稱“appload”)或者點擊工具條中AutoLisp中的“加載”，選擇需要加載的LISP文件，如打印.lsp（可加入啟動組中，以后自動加載）。（1）編輯腳本文件由于AUTOLISP只能在CAD環(huán)境中運行，而且一般的LISP程序只能在一個圖形中執(zhí)行，如何讓某文件夾下所有的圖形都執(zhí)行某一個LISP程序呢？我們只能建立一個腳本，把所有需要打印的圖形路徑、名稱、所要執(zhí)行的LISP程序都寫在腳本

3、里，通過運行腳本來實現(xiàn)。編輯再好的LISP程序也不如CAD里自帶的命令，所以通過CAD命令與LISP相結(jié)合，這樣既能減少編寫程序的工作量又能準(zhǔn)確表達(dá)出編寫者的意圖。 下面建立一個符合CAD中SCRIPT命令執(zhí)行腳本格式的文件。第一步：選擇批量打印LISP文件，生成符合SCRIPT命令可讀內(nèi)容； (setq selsp (getfiled "選擇lisp" "c:/" "lsp" 24) ;選擇一個LISP程序,如下圖； (setq len1 (strlen selsp) (setq n 1) (repeat len1 (setq mm

4、 (substr selsp n 1) (if (= mm "") (setq selsp (strcat (substr selsp 1 (- n 1) "/" (substr selsp (+ n 1) (- flen1 n) ) (setq n (1+ n) ) (setq str1 (strcat "(load "" selsp """ ")")以上程序生成一個調(diào)用lisp的字符串。如：(load "E:/程序/打印.lsp")第二步：建立腳本文件

5、；如下圖： (setq selscr (getfiled "選擇腳本" "c:/" "scr" 1) 第三步：選擇需要批量打印的文件夾；(setq ljm (xuanzewenjian) ;調(diào)用子程序，選擇需要批量打印的文件夾。第四步：打開腳本文件寫入符合SCRIPT腳本的內(nèi)容：(setq txlist (vl-directory-files ljm "*.dwg") (setq i 0) (setq len (vl-list-length txlist) (setq neirong (open selscr &q

6、uot;w") (repeat len (setq tm (nth i txlist) (setq str2 (strcat ljm "" tm) (princ "open" neirong) (princ "n" neirong) (princ str2 neirong) (princ "n" neirong) (princ str1 neirong) (princ "n" neirong) (princ "qsave" neirong) (princ "

7、;n" neirong) (princ "close" neirong) (princ "n" neirong)(setq i (1+ i) (close neirong) ;關(guān)閉腳本文件； 第五步：執(zhí)行腳本文件，開始批量打?。?(command "script" selscr) ;運行腳本； ;以下為選擇需要打印的文件的子程序；(defun xuanzewenjian (/ obj folder path) (vl-load-com) (setq obj (vlax-create-object "Shell.Ap

8、plication") (setqfolder (vlax-invoke-method obj 'browseforfolder 0 "請指定要打印的DWG文件夾" 1) ) (if (vl-catch-all-error-p(setq path (vl-catch-all-apply '(lambda() (vlax-get-property (vlax-get-property folder 'self) 'path ) ) ) ) ) nil path ) )運行子程序彈出上面對話框，選擇需要打印的文件夾即可。 以上為腳本程序

9、，此腳本程序不僅適合批量打印，所有需要批處理的圖形都可以使用，只需編寫一個lisp文件即可，如：批量關(guān)閉不打印圖層，批量圖紙、實地互轉(zhuǎn)，批量線型啟用等，對此腳本稍加改進(jìn)亦可執(zhí)行多個LISP 程序。（2）編輯打印程序腳本程序已經(jīng)完成，根據(jù)實際情況只需要編寫一個圖形打印程序即可。(setq ss (ssget "x" ' (0 . "insert") (8 . "tk")(setq len (sslength ss) (setq nam (ssname ss 0) (setq ent (cdr (assoc 1 (entget n

10、am) (setq ent10 (cdr (assoc 10 (entget nam) ;獲得圖框插入點坐標(biāo)(setq point1(list (- (car ent10) 10) (- (cadr ent10) 17)(setq point2(list (+ (car ent10) 260) (+ (cadr ent10) 217);獲得打印區(qū)域的左下角和右上角坐標(biāo)(command "-plot" "y" "" "HP LaserJet 5200L PCL 5e (副本 1)" "A3" "" "l" "n" "W" POINT1 POINT2 "FIT" "居中打印" "y" "acad.ctb" "y&