适合小白练手的效果(LISP源码)

biya

----源码下载回复可见----

biya

gaolei_gaolei 发表于 2025-3-25 19:39
看看大佬的代码

代码特基础，不然小白看得头痛，此代码也是群里有个在问怎么报错不能用，我顺手修复BUG并升级了效果发过来新手研究研究

xyp1964

1. (defun c:tt ()
   
2.   (mapcar 'set
   
3.           '(x0 y0 i nx ny dx dy co)
   
4.           '(0 0 0 50 50 15 15 0)
   
5.   )
   
6.   (while (<= i (* ny nx))
   
7.     (setq i     (1+ i)
   
8.           co    (+ 1 co)
   
9.           i_oth (rem i ny)
   
10.     )
    
11.     (if (= co 255)
    
12.       (setq co 1)
    
13.     )
    
14.     (if (= i_oth 1)
    
15.       (setq y0 (+ y0 dx)
    
16.             x0 0
    
17.       )
    
18.       (setq x0 (+ x0 dy))
    
19.     )
    
20.     (setvar 'cecolor (itoa co))
    
21.     (command "donut" 0 14 (list y0 x0) "")
    
22.     (if (= (rem i 50) 0)
    
23.       (vla-Update (vlax-ename->vla-object (entlast)))
    
24.     )
    
25.     (if (and (> i ny) (= (rem i ny) 1))
    
26.       (command "zoom" "e")
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

(defun c:tt ()<br />   (mapcar 'set<br />           '(x0 y0 i nx ny dx dy co)<br />           '(0 0 0 50 50 15 15 0)<br />   )<br />   (while (<= i (* ny nx))<br />     (setq i     (1+ i)<br />           co    (+ 1 co)<br />           i_oth (rem i ny)<br />     )<br />     (if (= co 255)<br />       (setq co 1)<br />     )<br />     (if (= i_oth 1)<br />       (setq y0 (+ y0 dx)<br />             x0 0<br />       )<br />       (setq x0 (+ x0 dy))<br />     )<br />     (setvar 'cecolor (itoa co))<br />     (command "donut" 0 14 (list y0 x0) "")<br />     (if (= (rem i 50) 0)<br />       (vla-Update (vlax-ename->vla-object (entlast)))<br />     )<br />     (if (and (> i ny) (= (rem i ny) 1))<br />       (command "zoom" "e")<br />     )<br />   )<br />   (princ)<br /> )

掏马王

准备学习学习，谢谢分享

qwsss31

版主起飞~~~

xujie1234

我来报个名

winabcd

看看是啥好东西

Magneta

666666666666

xxyyzzlg

看看是啥好东西

香远益清

看样子高深莫测啊。

kexiya123

看看效果和疗效