ddjlw 发表于 2015-6-25 12:12:08

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

(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 发表于 2015-6-25 13:33:22

本帖最后由 edata 于 2015-6-25 14:50 编辑

两个错误
(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)
(setq jd_tx 0);初始化角度在while之外
(while (<= jd_tx (* 2 pi))
   

    (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
    );颜色4，和背景分开，不然显示不了
    (setq jd_tx (+ jd_tx (/ pi 8.0)));角度值递增，每次增加(/ pi 8.0)
    )
    (end_image)
)

前生 发表于 2015-6-25 23:49:04

尘缘一生 发表于 2020-8-18 08:11:41

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

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

电赛加油 发表于 2020-8-22 11:18:33

多谢大神分享，学习一下！
页: [1]
查看完整版本: 用vector_image画一个近似圆，无限循环。