Need help!
Run the following program error.
"\\\\zwp\\EPSON EPL-2020 advanced"This printer is a local area network to other users, the program execution to stop here,Why?
If i change "pdffactory Pro" this printer,Sample program execution to the printer stopped there.
;;; huaji blog
(defun c:test (/ a4l aa ll n p1 p2 ss ww zhixing)
(setvar "osmode" 16384)
(setvar "cmdecho" 0)
(setq ss (ssget))
(setq n 0)
(repeat (sslength ss)
(setq ent1 (alist (PLINE-GETPTLST (ssname ss n))))
(setq p1 (nth 0 ent1))
(setq p2 (nth 2 ent1))
(setq ll (abs (- (car p2) (car p1))))
(setq ww (abs (- (cadr p2) (cadr p1))))
(if (> ll ww)
(command "-plot"
"y"
"MODEL"
"\\\\zwp\\EPSON EPL-2020 advanced"
"A3"
"Millimeters"
"Landscape"
"n"
"w"
p1
p2
"f"
"c"
"y"
"acad.ctb"
"y"
"w"
"n"
"n"
"y"
)
(command "-plot"
"y"
"MODEL"
"\\\\zwp\\EPSON EPL-2020 advanced"
"A3"
"Millimeters"
"Portrait"
"n"
"w"
p1
p2
"f"
"c"
"y"
"acad.ctb"
"y"
"w"
"n"
"n"
"y"
)
) ;if
(setq n (1+ n))
) ;repeat
)
(defun PLINE-GETPTLST (EN / LST ENT N)
(setq LST '()
ENT (entget EN)
)
(foreach N ENT
(if (= (car N) 10)
(setq LST (cons (cdr N) LST))
)
)
(reverse LST)
)
(defun alist (lst / tlst tl n i k)
(setq xlst '()
tlst lst
k (length tlst)
i 0
)
(while (> k 0)
(setq tl '()
n 0
i 0
)
(setq l1 (nth 0 tlst))
(while (< i k)
(if (/= l1 (nth i tlst))
(setq tl (cons (nth i tlst) tl))
)
(setq i (1+ i))
)
(setq tlst (reverse tl)
k (length tlst)
)
(setq xlst (cons l1 xlst))
)
(setq xlst (reverse xlst))
)
