biya 发表于 2025-3-25 18:28:10

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

本帖最后由 biya 于 2025-3-25 19:52 编辑

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



**** Hidden Message *****



biya 发表于 2025-3-25 19:43:28

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

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

xyp1964 发表于 4 天前

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

掏马王 发表于 6 天前

准备学习学习，谢谢分享

qwsss31 发表于 6 天前

版主起飞~~~

xujie1234 发表于 7 天前

我来报个名

winabcd 发表于 2025-4-22 16:49:59

看看是啥好东西

Magneta 发表于 2025-4-22 16:30:55

666666666666

xxyyzzlg 发表于 2025-4-22 15:56:27

看看是啥好东西

香远益清 发表于 2025-4-22 11:35:06

看样子高深莫测啊。

kexiya123 发表于 2025-4-22 10:39:24

看看效果和疗效:lol
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 适合小白练手的效果(LISP源码)