[编程申请]：lisp高手请进,哪位能解决这个问题

mochaolong

这是一个相当于南方矢量化软件上"线型跟踪"命令中的手动跟踪.



      问题是这样的:

               在描地形图的时候用到样条曲线和多段线,首先指定起点,然后沿着光栅图像描线,从中要不停单击左键指定下一点,不停的按住鼠标中间键将屏幕未显示的部分拖移到中间、如此循环直到描完一根复杂的曲线。

      能否在指定下一点后将刚才指定的点自动移动的屏幕中间，相当于“zoom  c "将刚才指定的点自动缩放到中间。这样的话就只需指定下一点了。

          可是用LISP在执行SPLIE与PLINE时不能同时用“ZOOM”或同时执行多个命令。

那有什么办法实现这功能，或者是同时执行画线时自动移动屏幕。

  同时执行多个命令

                                       谢谢大家
*-*b blue[/COLOR]

snoopychen

:)
在网上找了一下，有个功能类似的函数，可以大致使用一下，
不过还不是很好，在spline的时候不能及时反映曲线，这个问题涉及到在pline里面调用'zoom，应该可以写的更好的。

来源:google 的autolisp讨论区
http://groups.google.com/group/a ... 17#cb9427d8ad609042

2. 
   
3. ;;;[url]http://groups.google.com/group/autodesk.autocad.customization/browse_thread/thread/2c7be821154011fb/cb9427d8ad609042?lnk=gst&q=pline+%27zoom&rnum=17#cb9427d8ad609042[/url]
   
4. ;;;  Jason Wilder            
   
5. 
   
6. (defun c:pll( / p1 p2 pset lset)
   
7.   (setq lset (ssadd))
   
8.   (setq p1 (getpoint "\nStart point: "))
   
9.   (setq pset (list p1))
   
10.   (setq p2 (getpoint p1 "\nNext point: "))
    
11.   (setq pset (cons p2 pset))
    
12.   (command "_line" p1 p2 "")
    
13.   (ssadd (entlast) lset)
    
14.   (command "_pan" p2 p1)
    
15.   (while (/= p2 NIL)
    
16.     (setq p1 p2)
    
17.     (setq p2 (getpoint p1 "\nNext Point: "))
    
18.     (if p2 (setq pset (cons p2 pset)))
    
19.     (command "_line" p1 p2 "")
    
20.     (ssadd (entlast) lset)
    
21.     (command "_pan" p2 p1)
    
22.   );while
    
23.   (command ".erase" lset "")
    
24.   (command ".pline")
    
25.   (foreach pt pset
    
26.     (command pt)
    
27.   )
    
28.   (command "")
    
29. )
    
30. 
    
31. 
    
32. (defun c:sll( / p1 p2 pset lset)
    
33.   (setq lset (ssadd))
    
34.   (setq p1 (getpoint "\nStart point: "))
    
35.   (setq pset (list p1))
    
36.   (setq p2 (getpoint p1 "\nNext point: "))
    
37.   (setq pset (cons p2 pset))
    
38.   (command "_line" p1 p2 "")
    
39.   (ssadd (entlast) lset)
    
40.   (command "_pan" p2 p1)
    
41.   (while (/= p2 NIL)
    
42.     (setq p1 p2)
    
43.     (setq p2 (getpoint p1 "\nNext Point: "))
    
44.     (if p2 (setq pset (cons p2 pset)))
    
45.     (command "_line" p1 p2 "")
    
46.     (ssadd (entlast) lset)
    
47.     (command "_pan" p2 p1)
    
48.   );while
    
49.   (command ".erase" lset "")
    
50.   (command ".spline")
    
51.   (foreach pt pset
    
52.     (command pt)
    
53.   )
    
54.   (command "")
    
55.     (command pause pause "")
    
56. );defun  
    

<br /> ;;;[url]http://groups.google.com/group/autodesk.autocad.customization/browse_thread/thread/2c7be821154011fb/cb9427d8ad609042?lnk=gst&q=pline+%27zoom&rnum=17#cb9427d8ad609042[/url]<br /> ;;;  Jason Wilder             <br /> <br /> (defun c:pll( / p1 p2 pset lset)<br />   (setq lset (ssadd))<br />   (setq p1 (getpoint "\nStart point: "))<br />   (setq pset (list p1))<br />   (setq p2 (getpoint p1 "\nNext point: "))<br />   (setq pset (cons p2 pset))<br />   (command "_line" p1 p2 "")<br />   (ssadd (entlast) lset)<br />   (command "_pan" p2 p1)<br />   (while (/= p2 NIL)<br />     (setq p1 p2)<br />     (setq p2 (getpoint p1 "\nNext Point: "))<br />     (if p2 (setq pset (cons p2 pset)))<br />     (command "_line" p1 p2 "")<br />     (ssadd (entlast) lset)<br />     (command "_pan" p2 p1)<br />   );while<br />   (command ".erase" lset "")<br />   (command ".pline")<br />   (foreach pt pset<br />     (command pt)<br />   )<br />   (command "")<br /> )<br /> <br /> <br /> (defun c:sll( / p1 p2 pset lset)<br />   (setq lset (ssadd))<br />   (setq p1 (getpoint "\nStart point: "))<br />   (setq pset (list p1))<br />   (setq p2 (getpoint p1 "\nNext point: "))<br />   (setq pset (cons p2 pset))<br />   (command "_line" p1 p2 "")<br />   (ssadd (entlast) lset)<br />   (command "_pan" p2 p1)<br />   (while (/= p2 NIL)<br />     (setq p1 p2)<br />     (setq p2 (getpoint p1 "\nNext Point: "))<br />     (if p2 (setq pset (cons p2 pset)))<br />     (command "_line" p1 p2 "")<br />     (ssadd (entlast) lset)<br />     (command "_pan" p2 p1)<br />   );while<br />   (command ".erase" lset "")<br />   (command ".spline")<br />   (foreach pt pset<br />     (command pt)<br />   )<br />   (command "")<br />     (command pause pause "")<br /> );defun  <br />

它山之石

利用GRREAD自动移屏
左键点下就画线
鼠标移动到边就移屏

一个思路
程序没有

mochaolong

二楼的兄弟,你好历害哦!
非常感谢你的代码*-*4 *-*1 *-*b *-*b *-*5

zhlouv

牛人啊