[求助]：请netbee 斑竹，介绍一下动态预览

shisj

看到netbee 斑竹提供的画轴线程序有动态预览功能，很是羡慕，请教翼下netbee 斑竹，用lisp（不用其他软件）能实现该功能吗？能不能介绍一下其中的原理，让我们也学习一下？

aaddff

期待中……

netbee

来看看轴线绘制中的这个子程序：

2. (defun Do_Draw_img (/ ll l1 l2 l3 l4 kjsum jssum cor axisld)
   
3.   (save_list)
   
4.   (setq axisld (strcat Netbee_Lisp_Dir "RectAxis"))
   
5.   (if (or (/= Sum_KJ 0.0)
   
6.            (/= Sum_JS 0.0)
   
7.       ) ;_ 结束and
   
8.     (progn
   
9.       (setq ll (list
   
10.                  (Do_resolve UpKJ_list)
    
11.                  (Do_resolve LowKJ_list)
    
12.                  (Do_resolve LeftJS_list)
    
13.                  (Do_resolve RightJS_list)
    
14.                ) ;_ 结束list
    
15.             ll (Do_Get_Ptlist ll '(0 0) Sum_KJ Sum_JS 0)
    
16.       ) ;_ 结束setq
    
17.       (SETQ kjsum Sum_KJ
    
18.             jssum Sum_JS
    
19.       ) ;_ 结束setq
    
20. 
    
21.       (cond ((= Sum_KJ 0.0)(setq kjsum jssum))
    
22.             ((= Sum_JS 0.0)(setq jssum kjsum)))
    
23.       ;;这里开始动态绘制
    
24. 　(start_image "ImagePreview")
    
25.       (fill_image 0 0 img_x img_y -2)
    
26. [color=red]
    
27.       ;;WinXY->DclAB函数仅是将直线、圆、弧等等的图元分解为一些直线数据返回，当然这些直线数据已经是图象框中的坐标数据表。
    
28. 　　;;然后反复循环地调用(apply 'vector_image a)即可！[/color]
    
29.       (foreach a (WinXY->DclAB
    
30.                    (append '(nil "0") '((-2000 -2000))(list(list (+ kjsum 2000)(+ jssum 2000 ))))
    
31.                    "ImagePreview"
    
32.                  ) ;_ 结束WinXY->DclAB
    
33.         (apply 'vector_image a)
    
34.       ) ;_ 结束foreach
    
35.       (setq cor 0)
    
36.       (foreach b ll
    
37.         (setq cor (1+ cor))
    
38.         (if b
    
39.           (foreach a
    
40.                      (WinXY->DclAB
    
41.                        (append
    
42.                          (list T (itoa cor))
    
43.                          b
    
44.                        ) ;_ 结束append
    
45.                        "ImagePreview"
    
46.                      ) ;_ 结束WinXY->DclAB
    
47.             (apply 'vector_image a)
    
48.           ) ;_ 结束foreach
    
49.         ) ;_ 结束if
    
50.       ) ;_ 结束foreach
    
51.       (foreach a
    
52.                  (WinXY->DclAB
    
53.                    (append
    
54.                      '(T "7")
    
55.                      (list (list 0 0) 0)
    
56.                    ) ;_ 结束append
    
57.                    "ImagePreview"
    
58.                  ) ;_ 结束WinXY->DclAB
    
59.         (apply 'vector_image a)
    
60.       ) ;_ 结束foreach
    
61.       (end_image)
    
62.     ) ;_ 结束progn
    
63.     (progn
    
64.       (start_image "ImagePreview")
    
65.       (fill_image 0 0 img_x img_y -2)
    
66.       (slide_image 0 -50 img_x img_y axisld)
    
67.        (end_image)
    
68.       )
    
69.   ) ;_ 结束if
    
70. ) ;_ 结束defun
    

(defun Do_Draw_img (/ ll l1 l2 l3 l4 kjsum jssum cor axisld)<br />   (save_list)<br />   (setq axisld (strcat Netbee_Lisp_Dir "RectAxis"))<br />   (if (or (/= Sum_KJ 0.0)<br />            (/= Sum_JS 0.0)<br />       ) ;_ 结束and<br />     (progn<br />       (setq ll (list<br />                  (Do_resolve UpKJ_list)<br />                  (Do_resolve LowKJ_list)<br />                  (Do_resolve LeftJS_list)<br />                  (Do_resolve RightJS_list)<br />                ) ;_ 结束list<br />             ll (Do_Get_Ptlist ll '(0 0) Sum_KJ Sum_JS 0)<br />       ) ;_ 结束setq<br />       (SETQ kjsum Sum_KJ<br />             jssum Sum_JS<br />       ) ;_ 结束setq<br /> <br />       (cond ((= Sum_KJ 0.0)(setq kjsum jssum))<br />             ((= Sum_JS 0.0)(setq jssum kjsum)))<br />       ;;这里开始动态绘制<br /> 　(start_image "ImagePreview")<br />       (fill_image 0 0 img_x img_y -2)<br /> [color=red]<br />       ;;WinXY->DclAB函数仅是将直线、圆、弧等等的图元分解为一些直线数据返回，当然这些直线数据已经是图象框中的坐标数据表。<br /> 　　;;然后反复循环地调用(apply 'vector_image a)即可！[/color]<br />       (foreach a (WinXY->DclAB<br />                    (append '(nil "0") '((-2000 -2000))(list(list (+ kjsum 2000)(+ jssum 2000 ))))<br />                    "ImagePreview"<br />                  ) ;_ 结束WinXY->DclAB<br />         (apply 'vector_image a)<br />       ) ;_ 结束foreach<br />       (setq cor 0)<br />       (foreach b ll<br />         (setq cor (1+ cor))<br />         (if b<br />           (foreach a<br />                      (WinXY->DclAB<br />                        (append<br />                          (list T (itoa cor))<br />                          b<br />                        ) ;_ 结束append<br />                        "ImagePreview"<br />                      ) ;_ 结束WinXY->DclAB<br />             (apply 'vector_image a)<br />           ) ;_ 结束foreach<br />         ) ;_ 结束if<br />       ) ;_ 结束foreach<br />       (foreach a<br />                  (WinXY->DclAB<br />                    (append<br />                      '(T "7")<br />                      (list (list 0 0) 0)<br />                    ) ;_ 结束append<br />                    "ImagePreview"<br />                  ) ;_ 结束WinXY->DclAB<br />         (apply 'vector_image a)<br />       ) ;_ 结束foreach<br />       (end_image)<br />     ) ;_ 结束progn<br />     (progn<br />       (start_image "ImagePreview")<br />       (fill_image 0 0 img_x img_y -2)<br />       (slide_image 0 -50 img_x img_y axisld)<br />        (end_image)<br />       )<br />   ) ;_ 结束if<br /> ) ;_ 结束defun<br />

呵呵，其实说明白后很简单的。＾＿＾
使用foreach来反复地画呀画，画呀画，画到手酸为止，可惜计算机它不知累啊。所以就可以用这种笨办法！这个办法真的很笨！

shisj

谢谢netbee 斑竹，虽然我不一定看得懂（太菜了），总算明白了一点原理。

JOSDENNIS

三樓你的(save_list)涵數是什麼來的？

netbee

是一个保存数据的子程序，在轴线绘制主程序中有的。