在一个CAD文件里打印多个图框，求一个编好的LISP程序，之前别人给了一个。

;;; 快速打印程序,选一堆矩图框,再批量打印

(defun c:ksdy (/ ent fx i maxpoint maxx0 maxy0 minpoint minx0 miny0 os pmax pmin ptlist ss sstk)

(vl-load-com)

(setvar "cmdecho" 0) (setq os (getvar "osmode")   ss (ssadd)    sstk (ssadd)  )

(princ "\n 请选取矩形图框:")

(while (setq ss (ssget ":E:S" (list '(0 . "LWPOLYLINE") '(90 . 4))))

(setq ent (ssname ss 0))

(vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)

(setq pmax (vlax-safearray->list maxpoint)  pmin (vlax-safearray->list minpoint)

minx0 (car pmin)  miny0 (cadr pmin)   maxx0 (car pmax)  maxy0 (cadr pmax))

(if (>= (- maxx0 minx0) (- maxy0 miny0))   (setq fx "L")      (setq fx "P") )

(entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 miny0 0)) (cons 11 (list maxx0 maxy0 0))))

(setq sstk (ssadd (entlast) sstk))

(entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 maxy0 0)) (cons 11 (list maxx0 miny0 0))))

(setq sstk (ssadd (entlast) sstk))

(setq ptlist (cons (list pmin pmax fx) ptlist))

)

(initget "Y N ")

(if (/= (getpoint (strcat "\n 确定批量打印?[确认(Y)/退出(N)]: ")) "N")

(progn

(command "erase" sstk "")

(repeat (setq i (length ptlist))

(setq ent (nth (setq i (1- i)) ptlist )  pmin (car ent) pmax (cadr ent) fx (last ent))

(command "_.PLOT" "Y" "" "pdffactory pro" "A3" "M" fx "N" "W" pmin pmax "F" "C" "Y" "monochrome.ctb" "Y" "N" "N" "N" "Y")

(princ (strcat "\n 程序正在打印第" (itoa (- (length ptlist) i)) "张>>>>>>>> "))

)

)

(command "erase" sstk "")

)

(setvar "osmode" os)                 ; 恢复捕捉模式

(princ)

)

----------------------使用后出现的是这样，求大虾解决。

但是出现命令: ksdy

请选取矩形图框:

选择对象:

选择对象:

选择对象:

确定批量打印?[确认(Y)/退出(N)]: y

程序正在打印第1张>>>>>>>> 未知命令“PDFFACTORY PRO”。按 F1 查看帮助。

未知命令“A3”。按 F1 查看帮助。

未知命令“M”。按 F1 查看帮助。

未知命令“P”。按 F1 查看帮助。

未知命令“N”。按 F1 查看帮助。

未知命令“W”。按 F1 查看帮助。

未知命令“F”。按 F1 查看帮助。

未知命令“C”。按 F1 查看帮助。

未知命令“Y”。按 F1 查看帮助。

未知命令“MONOCHROME.CTB”。按 F1 查看帮助。

未知命令“Y”。按 F1 查看帮助。

未知命令“N”。按 F1 查看帮助。

未知命令“N”。按 F1 查看帮助。

未知命令“N”。按 F1 查看帮助。

未知命令“Y”。按 F1 查看帮助。

程序正在打印第2张>>>>>>>>