请教如何设置打印横向

cww77412

;;打印表格
;;在options中plotting设置打印机
(defun plotTbl (layer / s i len pt1 pt2)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(princ "\n请选择需打印的表格：\n")
(if (setq s (ssget))
(progn
(if (setq s (Filter1 s 0 "INSERT" 8 layer))
(progn
(setq i 0
len (sslength s)
)
(princ (strcat "选择到" (itoa len) "个表格！\n"))
(while (< i len)
(setq e (ssname s i))
(setq pt1 (ev 10 e)
pt2 (list (+ (car pt1) 210) (+ (cadr pt1) 297))
)
;;;============================================================
;;;====================Custom==================================
;;;============================================================
(command "plot" "Y" "" "" "" "M" "P"
"N" "W" pt1 pt2 "1:1" "C" "" ""
"" "" "N" "Y" "Y"
)
;;;============================================================
;;;============================================================
;;;============================================================ (setq i (1+ i))
)
)
)
(princ "打印完毕!\n")
)
)
(princ)
)

gzy

有什么问题吗？