[求助]：大家帮我修改一下这个程序好吗？

laoxie_1983

我做的一个自动打印的lisp，不能在程序里制定打印的份数．各位朋友们帮帮我修改修改．
　　谢谢！！！

(setq sjd2 1.28806)
(setq xx(ssget "x" ' ((0 . "INSERT"))))
(if (/= xx nil)
(progn
(setq k(sslength xx))
(setq o 0)
(repeat k;将图形中图框是块的宗地炸开
  (setq z (ssname xx o))
  (setq z1 (entget z))
  (command "explode" z1)
(setq o (+ o 1))
  (command "explode" xx "")
)
)
)
(setq xzj(ssget "x" ' ((0 . "LWPOLYLINE") (8 . "图框"))));建立选择集
(setq xzjc (sslength xzj));求出宗地数
(setq j 0)
(repeat xzjc
  (setq ym (ssname xzj j))
  (setq a (entget ym))
  (setq j1 (cdr (nth 14 a)))
  (setq j2 (cdr (nth 18 a)))
  (setq j3 (cdr (nth 22 a)))
  (setq j4 (cdr (nth 26 a)))
  (setq dx (- (car j2) (car j1)))
  (setq dy (- (cadr j2) (cadr j1)))
  (setq dd1 (list dx dy ))
  (setq dx1 (car dd1))
  (setq dy1 (cadr dd1))
  (setq x (* dx1 dx1))
  (setq y (* dy1 dy1))
  (setq d (sqrt  (+ x y )))
  (setq jd (angle j1 j3 ))
  (if (> jd 5);判断图形横、竖
    (progn
      (setq bl (/ d hkcd));求出图形比例
      (setq h1 (* hcd1 bl))
      (setq h2 (* hcd2 bl))
      (setq xbzb  (polar j1 hjd1 h1))
      (setq dnzb (polar j3 hjd2 h2))
      (command "-plot" "y" "模型" "\\\\YZW\\HP LaserJet 5100 PCL 6"  "A4" "m" "l" "n" "w" xbzb dnzb "F" "" "n" "" "y" "n" "n" "n" "y")
      ;(command "line" xbzb dnzb "")
    )
    (progn
      (setq b2 (/ d skcd))
      (setq s1 (* scd1 b2))
      (setq s2 (* scd2 b2))
      (setq xnzb (polar j1 sjd1 s1))
      (setq dbzb (polar j3 sjd2 s2))
      (command "-plot" "y" "模型" "\\\\YZW\\HP LaserJet 5100 PCL 6"  "A4" "m" "p" "n" "w" xnzb dbzb "F" "" "n" "" "y" "n" "n" "n" "y")
      ;(command "line" xnzb dbzb "")
    )
   )
(setq j (+ j 1))
)
)