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.....

dbx511 发表于 2012-4-23 22:18:46

不知道是不是非常神奇的工具？
页: 1 2 3 4 5 [6] 7 8 9 10 11 12 13
查看完整版本: 动态云线程序？