[求助]：求R14的打印LSP

NCDZHWZWGD

请问那位高手能编写PLOT LSP, 若有请上传, 谢谢!!!

oyxx_1023

不知道这个合不合你的要求．
没考虑ＵＣＳ的．可自己加工一下．

2. 
   
3. ;;;打印阵列图形．
   
4. ;;;R14下测试通过.
   
5. 
   
6.        (defun c:parr14 ()
   
7.          (setvar "cmdecho" 0)
   
8.          (princ "\n请确定打印配置已设置好.退出请按ESC.\n")
   
9.          (command ".undo" "begin")
   
10.          (setq page-v (getint "竖向打印页数(1):"))
    
11.          (if (not page-v)
    
12.            (setq page-v 1)
    
13.          )
    
14.          (setq page-h (getint "横向打印页数(1):"))
    
15.          (if (not page-h)
    
16.            (setq page-h 1)
    
17.          )
    
18.          (setq pt1 (getpoint "\n开始页第一个角点:"))
    
19.          (setq pt1-x (car pt1))
    
20.          (setq pt1-y (cadr pt1))
    
21.          (setq pt2 (getcorner pt1 "\n开始页第二个角点:"))
    
22.          (setq pt2-x (car pt2))
    
23.          (setq pt2-y (cadr pt2))
    
24.          (setq n-v 0)
    
25.          (repeat page-v
    
26.            (setq n-h 0)                       
    
27.            (repeat page-h
    
28.              (setq ptn-x1 (+ pt1-x (* n-h (abs (- pt2-x pt1-x)))))
    
29.              (setq ptn-y1 (+ pt1-y (* n-v (abs (- pt2-y pt1-y)))))
    
30.              (setq ptn-x2 (+ pt2-x (* n-h (abs (- pt2-x pt1-x)))))
    
31.              (setq ptn-y2 (+ pt2-y (* n-v (abs (- pt2-y pt1-y)))))
    
32.              (setq ptn1 (list ptn-x1 ptn-y1))
    
33.              (setq ptn2 (list ptn-x2 ptn-y2))
    
34.              (princ ptn1)
    
35.              (princ "\n")
    
36.              (princ ptn2)
    
37.              (princ "\n")
    
38.              (command ".plot" "w" ptn1 ptn2 "")
    
39.              (setq n-h (1+ n-h))
    
40.            )
    
41.            (setq n-v (1+ n-v))
    
42.          )
    
43.          (command ".undo" "end")
    
44.        )
    
45. 
    

<br /> ;;;打印阵列图形．<br /> ;;;R14下测试通过.<br /> <br />        (defun c:parr14 ()<br />          (setvar "cmdecho" 0)<br />          (princ "\n请确定打印配置已设置好.退出请按ESC.\n")<br />          (command ".undo" "begin")<br />          (setq page-v (getint "竖向打印页数(1):"))<br />          (if (not page-v)<br />            (setq page-v 1)<br />          )<br />          (setq page-h (getint "横向打印页数(1):"))<br />          (if (not page-h)<br />            (setq page-h 1)<br />          )<br />          (setq pt1 (getpoint "\n开始页第一个角点:"))<br />          (setq pt1-x (car pt1))<br />          (setq pt1-y (cadr pt1))<br />          (setq pt2 (getcorner pt1 "\n开始页第二个角点:"))<br />          (setq pt2-x (car pt2))<br />          (setq pt2-y (cadr pt2))<br />          (setq n-v 0)<br />          (repeat page-v<br />            (setq n-h 0)                        <br />            (repeat page-h<br />              (setq ptn-x1 (+ pt1-x (* n-h (abs (- pt2-x pt1-x)))))<br />              (setq ptn-y1 (+ pt1-y (* n-v (abs (- pt2-y pt1-y)))))<br />              (setq ptn-x2 (+ pt2-x (* n-h (abs (- pt2-x pt1-x)))))<br />              (setq ptn-y2 (+ pt2-y (* n-v (abs (- pt2-y pt1-y)))))<br />              (setq ptn1 (list ptn-x1 ptn-y1))<br />              (setq ptn2 (list ptn-x2 ptn-y2))<br />              (princ ptn1)<br />              (princ "\n")<br />              (princ ptn2)<br />              (princ "\n")<br />              (command ".plot" "w" ptn1 ptn2 "")<br />              (setq n-h (1+ n-h))<br />            )<br />            (setq n-v (1+ n-v))<br />          )<br />          (command ".undo" "end")<br />        )<br /> <br />

NCDZHWZWGD

在此先谢谢2楼主, 该文件是否与R14内的打印对话框相匹配?

pd8321

谢谢