[编程申请]：求助,一个画Pline线,并自动移屏的函数

小狼

我要要一个画Plien线的函数，最好不用Pline命令，并且在话到屏幕边缘时，能自动将最近画的点位移至屏幕中间。
希望能有高手帮我写一个

playboy

2. (DEFUN C:PP  (/ oldEcho FirstPt ptlst NextPt)
   
3.   (setq oldEcho (getvar "CMDECHO"))
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq FirstPt (GETPOINT "\nFirst point: "))
   
6.   (setq ptlst (list FirstPt))
   
7.   (while FirstPt
   
8.     (setq NextPt (getpoint FirstPt "\nNext point: "))
   
9.     (if NextPt
   
10.       (progn
    
11. (command "zoom" "c" NextPt "")
    
12. (setq ptlst (cons NextPt ptlst))
    
13. (GrVecs (getvlist ptlst))
    
14. )
    
15.       )
    
16.     (setq FirstPt NextPt)
    
17.     )
    
18.   (if (> (length ptlst) 1)
    
19.     (progn
    
20.       (command "pline")
    
21.       (foreach pt  ptlst
    
22. (command pt))
    
23.       (command "")
    
24.       )
    
25.     )
    
26.   (setvar "CMDECHO" oldEcho)
    
27.   (princ)
    
28.   )
    
29. ;;;;;--------------------------
    
30. (defun getvlist  (lst / RetLst idx)
    
31.   (setq idx 0)
    
32.   (repeat (1- (length lst))
    
33.     (setq RetLst
    
34.     (append
    
35.       RetLst
    
36.       (list (list (car (nth idx lst)) (cadr (nth idx lst))))
    
37.       (list (list (car (nth (1+ idx) lst))
    
38.     (cadr (nth (1+ idx) lst))))))
    
39.     (setq idx (1+ idx))
    
40.     )
    
41.   RetLst
    
42.   )

(DEFUN C:PP  (/ oldEcho FirstPt ptlst NextPt)<br />   (setq oldEcho (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setq FirstPt (GETPOINT "\nFirst point: "))<br />   (setq ptlst (list FirstPt))<br />   (while FirstPt<br />     (setq NextPt (getpoint FirstPt "\nNext point: "))<br />     (if NextPt<br />       (progn<br /> (command "zoom" "c" NextPt "")<br /> (setq ptlst (cons NextPt ptlst))<br /> (GrVecs (getvlist ptlst))<br /> )<br />       )<br />     (setq FirstPt NextPt)<br />     )<br />   (if (> (length ptlst) 1)<br />     (progn<br />       (command "pline")<br />       (foreach pt  ptlst<br /> (command pt))<br />       (command "")<br />       )<br />     )<br />   (setvar "CMDECHO" oldEcho)<br />   (princ)<br />   )<br /> ;;;;;--------------------------<br /> (defun getvlist  (lst / RetLst idx)<br />   (setq idx 0)<br />   (repeat (1- (length lst))<br />     (setq RetLst<br />     (append<br />       RetLst<br />       (list (list (car (nth idx lst)) (cadr (nth idx lst))))<br />       (list (list (car (nth (1+ idx) lst))<br />     (cadr (nth (1+ idx) lst))))))<br />     (setq idx (1+ idx))<br />     )<br />   RetLst<br />   )