[求助]：这个批处理打印程序，不能在USB打印口使用请求帮忙！

lcdai

谢谢！

2. 
   
3. (defun c:plo()
   
4.   (setvar "CMDDIA" 0)
   
5.   (setvar "CMDECHO" 0)  
   
6.   (setq token nil)
   
7.   (setq token1 nil)
   
8.   (princ "\n点对定义:仅绘图区域左上角与右下角两点为一对点对.点对不可COPY!")
   
9.   (setq token (getint "\n1.建立点对/2.清除所有点对/<3>.打印:"))
   
10.   (while (not (or (= token nil) (= token 3) (= token 2) (= token 1)))
    
11.     (setq token (getint "\n1.建立点对/2.清除所有点对/<3>.打印:"))
    
12.   )
    
13.   (if (or (= token nil) (= token 3))
    
14.     (progn
    
15.       (setq token1 (getint "\n1.部分打印/<2>.全部打印:"))
    
16.       (setq j 1)
    
17.       (setq plotter1 nil)
    
18.       (if (= token1 1)
    
19.         (progn
    
20.           (setq p1 (getpoint "\n请在绘图区内选择一点:"))
    
21.           (setq plotter1 (list p1))
    
22.           (while (/= p1 nil)
    
23.             (setq p1 (getpoint "\n请在绘图区内再选择一点:"))
    
24.             (setq plotter1 (append plotter1 (list p1)))
    
25.           )
    
26.           (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
27.           (setq j (+ j 1))
    
28.           (while (/= s nil)
    
29.             (progn
    
30.               (setq ttt (entget (ssname s 0)))
    
31.               (setq p1 (cdr (assoc 10 ttt)))
    
32.               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
33.               (setq j (+ j 1))
    
34.               (setq ttt (entget (ssname s 0)))
    
35.               (setq p2 (cdr (assoc 10 ttt)))               
    
36.               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
37.               (setq j (+ j 1))   
    
38.               (foreach plotprint plotter1
    
39.                 (if (and (< (car p1) (car plotprint))
    
40.                          (> (car p2) (car plotprint))
    
41.                          (> (cadr p1) (cadr plotprint))
    
42.                          (< (cadr p2) (cadr plotprint))
    
43.                     )     
    
44.                   (command "plot" "w" p1 p2 "")
    
45.                 )
    
46.               )
    
47.             )
    
48.           )
    
49.         )
    
50.       )
    
51.       (if (or (= token1 2) (= token1 nil))
    
52.         (progn
    
53.           (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
54.           (setq j (+ j 1))
    
55.           (while (/= s nil)
    
56.             (progn
    
57.               (setq ttt (entget (ssname s 0)))
    
58.               (setq p1 (cdr (assoc 10 ttt)))
    
59.               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
60.               (setq j (+ j 1))
    
61.               (setq ttt (entget (ssname s 0)))
    
62.               (setq p2 (cdr (assoc 10 ttt)))               
    
63.               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j))))
    
64.               (setq j (+ j 1))
    
65.               (command "plot" "w" p1 p2 "")
    
66.             )
    
67.           )
    
68.           (princ "\n打印完")
    
69.           (princ (/ (- j 1) 2))
    
70.           (princ "张图!")
    
71.         )
    
72.       )
    
73.     )
    
74.   )
    
75.   (if (= token 2)
    
76.     (progn
    
77.       (setq k 0)
    
78.       (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot"))))
    
79.       (if (/= s nil)
    
80.         (progn
    
81.           (repeat (sslength s)
    
82.             (setq s1 (ssname s k))
    
83.             (entdel s1)
    
84.             (setq k (+ k 1))
    
85.           )
    
86.           (princ "\n清除了")
    
87.           (princ (/ (+ k 1) 2))
    
88.           (princ "对点对!")  
    
89.         )
    
90.         (princ "\n无点对可清除!")
    
91.       )
    
92.     )
    
93.   )
    
94.   (if (= token 1)
    
95.     (progn
    
96.       (if (not (tblsearch "layer" "forprinter"))
    
97.         (command "layer" "n" "forprinter" "off" "forprinter" "")
    
98.       )
    
99.       (if (not (tblsearch "block" "plot"))
    
100.         (progn
     
101.           (entmake (list (cons 0 "BLOCK")
     
102.                          (cons 2 "plot")
     
103.                          (cons 70 0)
     
104.                          (cons 10 '(0 0 0))
     
105.                    )
     
106.           )
     
107.           (entmake (list (cons 0 "CIRCLE")
     
108.                          (cons 10 '(0 0 0))
     
109.                          (cons 62 6)
     
110.                          (cons 40 (/ (getvar "TEXTSIZE") 3))
     
111.                    )
     
112.           )
     
113.           (entmake (list (cons 0 "ENDBLK")))
     
114.         )
     
115.       )
     
116.       (setq i 1)
     
117.       (princ "\n第")
     
118.       (princ i)
     
119.       (setq p1 (getpoint "个绘图区左上角:"))
     
120.       (while (/= p1 nill)
     
121.         (setq p2 (getcorner p1 "\n该绘图区右下角:"))
     
122.         (if (= p2 nil)
     
123.           (while (= p2 nil)
     
124.             (setq p2 (getcorner p1 "\n该绘图区右下角:"))
     
125.           )
     
126.         )   
     
127.         (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 i))))
     
128.         (if (= s nil)
     
129.           (entmake (list (cons 0 "INSERT")
     
130.                          (cons 2 "plot")
     
131.                          (cons 8 "forprinter")
     
132.                          (cons 10 p1)
     
133.                          (cons 50 i)
     
134.                    )
     
135.           )
     
136.           (progn
     
137.             (setq ttt (entget (ssname s 0)))
     
138.             (setq pp (cons 10 p1))
     
139.             (setq ttt (subst pp (assoc 10 ttt) ttt))
     
140.             (entmod ttt)
     
141.           )
     
142.         )  
     
143.         (setq i (+ i 1))
     
144.         (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 i))))
     
145.         (if (= s nil)
     
146.           (entmake (list (cons 0 "INSERT")
     
147.                          (cons 2 "plot")
     
148.                          (cons 8 "forprinter")
     
149.                          (cons 10 p2)
     
150.                          (cons 50 i)
     
151.                    )
     
152.           )
     
153.           (progn
     
154.             (setq ttt (entget (ssname s 0)))
     
155.             (setq pp (cons 10 p2))
     
156.             (setq ttt (subst pp (assoc 10 ttt) ttt))
     
157.             (entmod ttt)
     
158.           )
     
159.         )  
     
160.         (setq i (+ i 1))
     
161.         (princ "\n第")
     
162.         (princ (/ (+ 1 i) 2))
     
163.         (setq p1 (getpoint "个绘图区左上角:"))
     
164.       )
     
165.       (princ "\n定义了")
     
166.       (princ (/ (- i 1) 2))
     
167.       (princ "对点对!")  
     
168.     )
     
169.   )
     
170.   (setq i nil j nil ttt nil pp nil p1 nil p2 nil plotter1 nil)
     
171.   (setq s nil token nil token1 nil k nil s1 nil)
     
172.   (setvar "CMDDIA" 1)
     
173.   (setvar "CMDECHO" 1)  
     
174.   (princ)
     
175. )

<br /> (defun c:plo()<br />   (setvar "CMDDIA" 0)<br />   (setvar "CMDECHO" 0)  <br />   (setq token nil)<br />   (setq token1 nil)<br />   (princ "\n点对定义:仅绘图区域左上角与右下角两点为一对点对.点对不可COPY!")<br />   (setq token (getint "\n1.建立点对/2.清除所有点对/<3>.打印:")) <br />   (while (not (or (= token nil) (= token 3) (= token 2) (= token 1)))<br />     (setq token (getint "\n1.建立点对/2.清除所有点对/<3>.打印:")) <br />   )<br />   (if (or (= token nil) (= token 3))<br />     (progn<br />       (setq token1 (getint "\n1.部分打印/<2>.全部打印:"))<br />       (setq j 1)<br />       (setq plotter1 nil)<br />       (if (= token1 1)<br />         (progn<br />           (setq p1 (getpoint "\n请在绘图区内选择一点:"))<br />           (setq plotter1 (list p1))<br />           (while (/= p1 nil)<br />             (setq p1 (getpoint "\n请在绘图区内再选择一点:"))<br />             (setq plotter1 (append plotter1 (list p1)))<br />           )<br />           (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />           (setq j (+ j 1))<br />           (while (/= s nil)<br />             (progn<br />               (setq ttt (entget (ssname s 0)))<br />               (setq p1 (cdr (assoc 10 ttt)))<br />               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />               (setq j (+ j 1))<br />               (setq ttt (entget (ssname s 0)))<br />               (setq p2 (cdr (assoc 10 ttt)))                <br />               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />               (setq j (+ j 1))   <br />               (foreach plotprint plotter1<br />                 (if (and (< (car p1) (car plotprint))<br />                          (> (car p2) (car plotprint)) <br />                          (> (cadr p1) (cadr plotprint))<br />                          (< (cadr p2) (cadr plotprint))<br />                     )     <br />                   (command "plot" "w" p1 p2 "")<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (if (or (= token1 2) (= token1 nil))<br />         (progn<br />           (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />           (setq j (+ j 1))<br />           (while (/= s nil)<br />             (progn<br />               (setq ttt (entget (ssname s 0)))<br />               (setq p1 (cdr (assoc 10 ttt)))<br />               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />               (setq j (+ j 1))<br />               (setq ttt (entget (ssname s 0)))<br />               (setq p2 (cdr (assoc 10 ttt)))                <br />               (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 j)))) <br />               (setq j (+ j 1))<br />               (command "plot" "w" p1 p2 "")<br />             )<br />           )<br />           (princ "\n打印完")<br />           (princ (/ (- j 1) 2))<br />           (princ "张图!") <br />         )<br />       ) <br />     )<br />   )<br />   (if (= token 2)<br />     (progn<br />       (setq k 0)<br />       (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot"))))<br />       (if (/= s nil)<br />         (progn <br />           (repeat (sslength s)<br />             (setq s1 (ssname s k))<br />             (entdel s1)<br />             (setq k (+ k 1))<br />           )<br />           (princ "\n清除了")<br />           (princ (/ (+ k 1) 2))<br />           (princ "对点对!")  <br />         )<br />         (princ "\n无点对可清除!") <br />       )<br />     )<br />   )<br />   (if (= token 1)<br />     (progn<br />       (if (not (tblsearch "layer" "forprinter"))<br />         (command "layer" "n" "forprinter" "off" "forprinter" "")<br />       )<br />       (if (not (tblsearch "block" "plot"))<br />         (progn<br />           (entmake (list (cons 0 "BLOCK")<br />                          (cons 2 "plot")<br />                          (cons 70 0)<br />                          (cons 10 '(0 0 0))<br />                    )<br />           )<br />           (entmake (list (cons 0 "CIRCLE")<br />                          (cons 10 '(0 0 0))<br />                          (cons 62 6)<br />                          (cons 40 (/ (getvar "TEXTSIZE") 3))<br />                    )<br />           )<br />           (entmake (list (cons 0 "ENDBLK")))<br />         )<br />       )<br />       (setq i 1)<br />       (princ "\n第")<br />       (princ i)<br />       (setq p1 (getpoint "个绘图区左上角:"))<br />       (while (/= p1 nill)<br />         (setq p2 (getcorner p1 "\n该绘图区右下角:"))<br />         (if (= p2 nil) <br />           (while (= p2 nil)<br />             (setq p2 (getcorner p1 "\n该绘图区右下角:"))<br />           )<br />         )   <br />         (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 i)))) <br />         (if (= s nil)<br />           (entmake (list (cons 0 "INSERT")<br />                          (cons 2 "plot")<br />                          (cons 8 "forprinter")<br />                          (cons 10 p1)<br />                          (cons 50 i)<br />                    )<br />           )<br />           (progn<br />             (setq ttt (entget (ssname s 0)))<br />             (setq pp (cons 10 p1))<br />             (setq ttt (subst pp (assoc 10 ttt) ttt))<br />             (entmod ttt)<br />           )<br />         )  <br />         (setq i (+ i 1))<br />         (setq s (ssget "X" (list (cons 0 "INSERT") (cons 2 "plot") (cons 50 i)))) <br />         (if (= s nil)<br />           (entmake (list (cons 0 "INSERT")<br />                          (cons 2 "plot")<br />                          (cons 8 "forprinter")<br />                          (cons 10 p2)<br />                          (cons 50 i)<br />                    )<br />           )<br />           (progn<br />             (setq ttt (entget (ssname s 0)))<br />             (setq pp (cons 10 p2))<br />             (setq ttt (subst pp (assoc 10 ttt) ttt))<br />             (entmod ttt)<br />           )<br />         )  <br />         (setq i (+ i 1))<br />         (princ "\n第")<br />         (princ (/ (+ 1 i) 2))<br />         (setq p1 (getpoint "个绘图区左上角:"))<br />       )<br />       (princ "\n定义了")<br />       (princ (/ (- i 1) 2))<br />       (princ "对点对!")  <br />     )<br />   )<br />   (setq i nil j nil ttt nil pp nil p1 nil p2 nil plotter1 nil)<br />   (setq s nil token nil token1 nil k nil s1 nil)<br />   (setvar "CMDDIA" 1)<br />   (setvar "CMDECHO" 1)  <br />   (princ)<br /> )

cqnj023

改变这一句(command "plot" "w" p1 p2 "")，首先plot改为-plot，后面的参数要与命令行中的顺序一致。