我转我转我转转转

torcky

程序做什么，谁run谁知道！ (defun c:w1 ()
(princ "\n")
(repeat 30 ;控制次数
(princ "*****-- -- -- --*****")
(mydelay )
(princ "\r")
(princ "*****\\\\ \\\\ \\\\ \\\\*****")
(mydelay )
(princ "\r")
(princ "*****|| || || ||*****")
(mydelay )
(princ "\r")
(princ "*****// // // //*****")
(mydelay )
(princ "\r")
)
(princ "\r")
(princ " ")
(princ)
)
(defun mydelay(/ i j sum crtl)
(setq crtl 20) ;控制快慢
(setq i 0)
(setq sum 0)
(while (< i crtl)
(setq i(1+ i))
(setq j 0)
(while(< j 1000)
(setq j(1+ j))
(setq sum (+ sum j))
)
)
)

xyp1964

;;;这样更直接和简洁明了！ (defun c:test ()
(repeat 20 ;控制次数
(_dy)
(princ "\r*****---- ---- ---- ----*****")
(_dy)
(princ "\r*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****")
(_dy)
(princ "\r*****|||| |||| |||| ||||*****")
(_dy)
(princ "\r*****//// //// //// ////*****")
)
(princ)
)
(defun _dy ()
(command "delay" "80") ;控制快慢
)

wengsg

上面的程序能不能把这些＂*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****"在运行时加入不同的颜色变化，那就更好了．

它山之石

这样就有点用途了。

xyp1964

可以在图面五光十色地转了：

2. (load"xyp_lib")
3. (defun c:test()
4.    (jzhz)
5.    (mkla"test"1)
6.    (setq pt(getpoint"\n点 : "))
7.    (while T
8.        (command "text" "j" "MC" pt "500" "0" "*****---- ---- ---- ----*****")
9.        (setq s1 (entlast))
10.        (command"zoom""e")
11.        (_dy)
12.        (sub_upd s1 1 "*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****")
13.        (sub_upd s1 62 2)
14.        (_dy)
15.        (sub_upd s1 1 "*****|||| |||| |||| ||||*****")
16.        (sub_upd s1 62 3)
17.        (_dy)
18.        (sub_upd s1 1 "*****//// //// //// ////*****")
19.        (sub_upd s1 62 4)
20.        (_dy)
21.        (sub_upd s1 1 "*****---- ---- ---- ----*****")
22.        (sub_upd s1 62 5)
23.        (_dy)
24.        (sub_upd s1 1 "*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****")
25.        (sub_upd s1 62 6)
26.        (_dy)
27.        (sub_upd s1 1 "*****|||| |||| |||| ||||*****")
28.        (sub_upd s1 62 7)
29.        (_dy)
30.        (sub_upd s1 1 "*****//// //// //// ////*****")
31.        (sub_upd s1 62 8)
32.        (_dy)
33.        (sub_upd s1 1 "*****---- ---- ---- ----*****")
34.        (sub_upd s1 62 9)
35.        (_dy)
36.        (entdel s1)
37.                )
38.    )
39. (defun _dy ()
40.    (command "delay" "20")   ;控制快慢
41. )

(load"xyp_lib") (defun c:test()    (jzhz)    (mkla"test"1)    (setq pt(getpoint"\n点 : "))    (while T        (command "text" "j" "MC" pt "500" "0" "*****---- ---- ---- ----*****")        (setq s1 (entlast))        (command"zoom""e")        (_dy)        (sub_upd s1 1 "*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****")        (sub_upd s1 62 2)        (_dy)        (sub_upd s1 1 "*****|||| |||| |||| ||||*****")        (sub_upd s1 62 3)        (_dy)        (sub_upd s1 1 "*****//// //// //// ////*****")        (sub_upd s1 62 4)        (_dy)        (sub_upd s1 1 "*****---- ---- ---- ----*****")        (sub_upd s1 62 5)        (_dy)        (sub_upd s1 1 "*****\\\\\\\\ \\\\\\\\ \\\\\\\\ \\\\\\\\*****")        (sub_upd s1 62 6)        (_dy)        (sub_upd s1 1 "*****|||| |||| |||| ||||*****")        (sub_upd s1 62 7)        (_dy)        (sub_upd s1 1 "*****//// //// //// ////*****")        (sub_upd s1 62 8)        (_dy)        (sub_upd s1 1 "*****---- ---- ---- ----*****")        (sub_upd s1 62 9)        (_dy)        (entdel s1)                )    ) (defun _dy ()    (command "delay" "20")   ;控制快慢 )

wengsg

你的xyp_lib.fas        原码可否共享，以便指导学习！

wengsg

我在CAD2005里运行了,怎么没用呢?

花锦绣

工作都麻木了，CAD也能娱乐。


下次我也整一个。