那天好友HT问起可否弄个批量打印的lsp，其实这算个难题，早在2004以前的版本，有个batchplt的批量打印命令，但操作及其复杂，而plot命令偏偏又不是内部命令，所以要在lsp里面解决连续plot命令真是一件痛苦、困难和糟糕的事情，但是2007的出现终于象遵义会议一样，在关键的时刻挽救好友的渴望。

      再打印了无数张纸后，终于搞定了这个程序，喜欢的朋友下载吧...不要忘记回帖哦...

      使用前，请根据你打图的比例等等设置好，并点击“应用到布局”，退出打印窗口。

      每次保证打印的图纸的比例都一样，如果不同请分次使用本命令。

      第一步  "请选择标准图框的块!" 即随便一个图框的块

      第二步 "图框打印第一点" 按刚才选的那个图框打印的第一点
      第三步 "图框打印第二点"  按刚才选的那个图框打印的第二点

      第四步 "请选择需要打印的图框!" 选择需要答应的图框（可混选，程序可以过滤）

附使用方法:

     1.在命令行"appload"

     2.选择该程序

      3.命令行  pt

     把下列文本,存成"1.lsp",然后加载...

(defun dxf (code elist)
 (cdr (assoc code (entget elist)))
)

(defun addss (ss1 ss2 / i l1)
(if ss1
(progn
(setq i (- (sslength ss1) 1))
(while (>= i 0)
(setq l1 (ssname ss1 i))
(ssadd l1 ss2)
(setq i (- i 1))
)
)
)
ss2
)

 ;要是有我原来lsp的话，就从下面开始就可以了

(defun c:pt( / i  l l1 p0 p1 p2 p3 p4 ss1 ss2  bname )
(command"undo" "g")
(setvar "cmdecho" 0)
(setvar "osmode" 163)
(command "ucs" "w")
(setq i nil)
(while (/= i "INSERT")
(prompt"请选择标准图框的块!")
(setq l1 (car (entsel)))
(setq i (dxf 0 l1))
)
(setq p1 (getpoint "图框打印第一点"))
(setq p2 (getcorner p1 "图框打印第二点"))
(setq p0 (dxf 10 l1))
(setq bname (dxf 2 l1))
(prompt"请选择需要打印的图框!")
(setq ss1 (filss (ssget) "INSERT"))
(setq i (- (sslength ss1) 1))
(setq ss2 (ssadd))
(while (>= i 0)
(setq l (ssname ss1 i))
(if (= (dxf 2 l) bname)
(setq ss2 (ssadd l ss1))
)
(setq i (- i 1))
)
(command"ucs" "o" p0)
(setq p1 (trans p1 0 1 ))
(setq p2 (trans p2 0 1 ))
(command"ucs" "p")
(setq i (- (sslength ss2) 1))
(while (>= i 0)
(setq l (ssname ss2 i))
(setq p4 (dxf 10 l))
(command "ucs" "o" p4)
(command "plot" "y" "" "" "" "" "" "" "" p1 p2 "" "" "" "" "" "" "n" "" "")
(setq i (- i 1))
(command "ucs" "p")
)
(command "ucs" "p")
(setvar "osmode" 163)
(setvar "cmdecho" 1)
(command"undo" "e")
);defun