动态云线程序？

fupingtang · 发表于 2012-4-22 22:56:56

看看版主的程序

Mr丨丶King · 发表于 2012-4-23 00:38:30

板凳视察板凳视察....

xyh · 发表于 2012-4-23 10:18:43

收藏了

仲文玉 · 发表于 2012-4-23 12:50:54

看看G版的程序

jxjaxa · 发表于 2012-4-23 13:04:34

看看看看看我要看看

gufeng · 发表于 2012-4-23 13:05:03

偷偷看一眼

sz721 · 发表于 2012-4-23 14:27:34

本帖最后由 sz721 于 2012-4-23 14:52 编辑

(defun c:DTY ( / _GenerateFunctionPoints fun p1 gr )
(setq fun sin)
(defun _GenerateFunctionPoints ( p1 p2 / d a1 a2 i j )
(setq d (distance p1 p2) a1 (angle p1 p2) a2 (+ a1 (/ pi 2.)) i 0 p3 (polar p1 a2 (fun 0.)))
(while (<= (setq x (* 0.1 (setq i (1+ i)))) d)
(grdraw p3 (setq p3 (polar (polar p1 a1 x) a2 (fun x))) 3)
)
)
(if (setq p1 (getpoint "\n请指定第一点: "))
(while (= 5 (car (setq gr (grread 't 13 0)))) (redraw)
(_GenerateFunctionPoints p1 (cadr gr))
)
)
(princ)
)

flowerson · 发表于 2012-4-23 16:34:26

好提议！我还没够水平啊。

illcyt · 发表于 2012-4-23 16:42:20

是不是一件开发成功了

urdiafa · 发表于 2012-4-23 20:11:32

学习,thank a lot.....

账号		自动登录	找回密码
密码			注册