用vector_image画一个近似圆，无限循环。

ddjlw

(defun sub_xh ()
   (setq rx (dimx_tile "txzh_image"))
  (setq ry (dimy_tile "txzh_image"))
  (setq pu (list (/ rx 2) (/ ry 2)))  
  (setq bj_jl (* (+ rx ry) 0.1))
  (start_image "txzh_image")
  (fill_image 0 0 rx ry -2)
  (while (<= jd_tx (* 2 pi))
    (setq jd_tx 0)

    (setq jd_tx1 (+ jd_tx (/ pi 8)))
(setq p1x (fix (car (polar pu jd_tx bj_jl))))
(setq p1y (fix (cadr (polar pu jd_tx bj_jl))))
(setq p2x (fix (car (polar pu jd_tx1 bj_jl))))
(setq p2y (fix (cadr (polar pu jd_tx1 bj_jl))))

    (vector_image
     p1x p1y p2x p2y
      -4
    )
    (setq jd_tx (+ jd_tx jd_tx))
    )
    (end_image)
  )
希望 各位老师不吝赐教帮我修改下。

edata

两个错误

1. (defun sub_xh ()
   
2.    (setq rx (dimx_tile "txzh_image"))
   
3.   (setq ry (dimy_tile "txzh_image"))
   
4.   (setq pu (list (/ rx 2) (/ ry 2)))  
   
5.   (setq bj_jl (* (+ rx ry) 0.1))
   
6.   (start_image "txzh_image")
   
7.   (fill_image 0 0 rx ry -2)
   
8.   (setq jd_tx 0);初始化角度在while之外
   
9.   (while (<= jd_tx (* 2 pi))
   
10.    
    
11. 
    
12.     (setq jd_tx1 (+ jd_tx (/ pi 8)))
    
13. (setq p1x (fix (car (polar pu jd_tx bj_jl))))
    
14. (setq p1y (fix (cadr (polar pu jd_tx bj_jl))))
    
15. (setq p2x (fix (car (polar pu jd_tx1 bj_jl))))
    
16. (setq p2y (fix (cadr (polar pu jd_tx1 bj_jl))))
    
17. 
    
18.     (vector_image
    
19.      p1x p1y p2x p2y
    
20.       4
    
21.     );颜色4，和背景分开，不然显示不了
    
22.     (setq jd_tx (+ jd_tx (/ pi 8.0)));角度值递增，每次增加(/ pi 8.0)
    
23.     )
    
24.     (end_image)
    
25.   )

(defun sub_xh ()<br />    (setq rx (dimx_tile "txzh_image"))<br />   (setq ry (dimy_tile "txzh_image"))<br />   (setq pu (list (/ rx 2) (/ ry 2)))  <br />   (setq bj_jl (* (+ rx ry) 0.1))<br />   (start_image "txzh_image")<br />   (fill_image 0 0 rx ry -2)<br />   (setq jd_tx 0);初始化角度在while之外<br />   (while (<= jd_tx (* 2 pi))<br />     <br /> <br />     (setq jd_tx1 (+ jd_tx (/ pi 8)))<br /> (setq p1x (fix (car (polar pu jd_tx bj_jl))))<br /> (setq p1y (fix (cadr (polar pu jd_tx bj_jl))))<br /> (setq p2x (fix (car (polar pu jd_tx1 bj_jl))))<br /> (setq p2y (fix (cadr (polar pu jd_tx1 bj_jl))))<br /> <br />     (vector_image<br />      p1x p1y p2x p2y<br />       4<br />     );颜色4，和背景分开，不然显示不了<br />     (setq jd_tx (+ jd_tx (/ pi 8.0)));角度值递增，每次增加(/ pi 8.0)<br />     )<br />     (end_image)<br />   )

前生

尘缘一生

edata 发表于 2015-6-25 13:33
两个错误

能否补全全部？DCL控件部分，形成可执行的。

电赛加油

  多谢大神分享，学习一下！