彩色方块小程序，纯属娱乐。

l282027798

没什么卵用，纯属娱乐，适合新手学习。

lisperado

看图示色调展现得很自然！

oldnewlearn

挺漂亮，也许有用处。

JHX948954875

厉害厉害

hhh454

渐变色，挺好看的

lisperado

(setq n (atoi (getstring "Çëêäèëμ￥Öáêyá¿(2»òa쫸ß￡¬μçÄÔ»áÕ¨)"))
      l (atoi (getstring "Çëêäèëμ￥¸ö·½¿é3¤¶è"))
      s (+ (atoi (getstring "Çëêäèë·½¿é¼ä¾à")) l)
      p (getpoint "Ñ¡Ôñ2åèëμã"))

英文版出现乱码，可否将原文（中文）让我参考？
（虽然猜测是行数，但只有原文才可了解ascii,utf-8或unicode？

由于乱码我只是想试是否有其它办法还原回中文?

wdjy808

生成的图形是三维的吗

胖大海

吃彩虹长大的楼主

l282027798

lisperado 发表于 2018-11-24 17:06
(setq n (atoi (getstring "Çëêäèëμ￥Öáêyá¿(2»òaì«&#18 ...

(defun cube(p l col)
    (command "box" p "c" l)
    (command "change" (entlast) "" "p" "c" "t" col "")
)
(setq n (atoi (getstring "请输入单轴数量(不要太高，电脑会炸)")) l (atoi (getstring "请输入单个方块长度")) s (+ (atoi (getstring "请输入方块间距")) l) p (getpoint "选择插入点"))
(setq i 0 j 0 k 0)
(while (< i n)
    (setq j 0)
    (while (< j n)
        (setq k 0)
        (while (< k n)
            (setq col (strcat (itoa (/ (* i 255) (- n 1))) "," (itoa (/ (* j 255) (- n 1))) "," (itoa (/ (* k 255) (- n 1))) ))
            (setq pp (list (+ (car p) (* i s)) (+ (car p) (* j s)) (+ (car p) (* k s)) ) )
            (cube pp l col)
            (princ "\n")
            (princ col)
            (princ (list i j k))
            
            (setq k (+ k 1))
        )
        (setq j (+ j 1))
    )
    (setq i (+ i 1))
)