曾经想写的“花”程序，现在实现了，比以前设想的更漂亮！

革天明

这个东西我们小时候肯定用圆规画过吧？！曾经想使用LISP来绘制，刚开始却画不出来，现在可以了，而且花瓣颜色还不一样哦，有兴趣的话可以尝试一下如何做到颜色随机？

以下是代码，本来想写一些注释给新手看，但我一看就那个几个函数，没有特别好的思路，就不写了，不明白函数的看帮助吧，也可以提出来，我可以解答。
(defun c:hua (/ p0 r p1 p2 p3 p4 p5 p6 os_mode)
  ;;用于给各点赋值，p0是中心点 r是圆的半径
  (setq p0 (getpoint "\n请输入中心点")
r  (getdist p0 "\n请输入半径")
p1 (polar p0 (* pi (/ 1 6.0)) r)
p2 (polar p0 (* pi (/ 3 6.0)) r)
p3 (polar p0 (* pi (/ 5 6.0)) r)
p4 (polar p0 (* pi (/ 7 6.0)) r)
p5 (polar p0 (* pi (/ 9 6.0)) r)
p6 (polar p0 (* pi (/ 11 6.0)) r)
  )
  (setq os_mode(getvar "osmode"))
  (setvar "osmode" 0)
  ;;画外圆
  (command "circle" p0 r)
  ;;不再使用repeat函数来执行
  (foreach n (list (list p1 p0 p3 "1")
     (list p2 p0 p4 "2")
     (list p3 p0 p5 "3")
     (list p4 p0 p6 "4")
     (list p5 p0 p1 "5")
     (list p6 p0 p2 "6")
      )
    (command "arc" (car n) (cadr n) (caddr n))
    (command "CHANGE" (entlast) "" "PROPERTIES" "C" (nth 3 n) "")
  )
  (setvar "osmode" os_mode)
)

革天明

LISP中如何做到随机？有没有相关函数，没有的话就使用CPU的时钟时间来做一个伪随机数吧。

xshrimp

我来个动态,随机变色的...


源码下载

qq229918602

xshrimp 发表于 2012-6-1 16:32
我来个动态,随机变色的...

强悍。。。

sqqr

实用意义不大

yjr111

2. (defun c:drawflower()
   
3.   (setq pointcenter(getpoint))
   
4.   (setq n 1 oldp pointcenter ss (ssadd))
   
5.   (while(and(setq grcode(grread t 12))(= (car grcode) 5))
   
6.     (if (<= n 254)(setq n (+ n 1))(setq n 1))
   
7.     (if (and (/= oldp pointcenter)(/= oldp (cadr grcode)))
   
8.      (command "erase" ss "")
   
9.      )
   
10.       (entmake (list '(0 . "CIRCLE") (cons 10 pointcenter)
    
11.                      (cons 40 (setq r(distance pointcenter (cadr grcode))))
    
12.                      (cons 62 n)
    
13.                      )
    
14.                )
    
15.        (setq e1 (entlast))
    
16.        (ssadd e1 ss)
    
17.        (if (> r 0)
    
18.         (progn
    
19.        (command "arc" (polar pointcenter (/ pi 6) r )pointcenter(polar pointcenter (* 5(/ pi 6)) r))
    
20.        (command "arc" (polar pointcenter (/ pi 6) r )pointcenter(polar pointcenter (* 9(/ pi 6)) r))
    
21.        (command "arc" (polar pointcenter (* 3(/ pi 6))r)pointcenter(polar pointcenter (* 7(/ pi 6)) r))
    
22.        (command "arc" (polar pointcenter (* 3(/ pi 6)) r )pointcenter(polar pointcenter (* 11(/ pi 6)) r))
    
23.        (command "arc" (polar pointcenter (* 5(/ pi 6)) r )pointcenter(polar pointcenter (* 9(/ pi 6)) r))
    
24.        (command "arc" (polar pointcenter (* 7(/ pi 6)) r )pointcenter(polar pointcenter (* 11(/ pi 6)) r))
    
25.         )
    
26.        )
    
27.        (while(setq e1 (entnext e1))
    
28.        (ssadd e1 ss)
    
29.        (vla-put-color (vlax-ename->vla-object e1)(if (<= n 205)(setq n (+ n 50))(setq n (- n 32))))
    
30.         )
    
31.        (setq oldp (cadr grcode))
    
32.        )
    
33.    (princ)
    
34.    )

(defun c:drawflower()<br />   (setq pointcenter(getpoint))<br />   (setq n 1 oldp pointcenter ss (ssadd))<br />   (while(and(setq grcode(grread t 12))(= (car grcode) 5))<br />     (if (<= n 254)(setq n (+ n 1))(setq n 1))<br />     (if (and (/= oldp pointcenter)(/= oldp (cadr grcode)))<br />      (command "erase" ss "")<br />      )<br />       (entmake (list '(0 . "CIRCLE") (cons 10 pointcenter)<br />                      (cons 40 (setq r(distance pointcenter (cadr grcode))))<br />                      (cons 62 n)<br />                      )<br />                )<br />        (setq e1 (entlast))<br />        (ssadd e1 ss)<br />        (if (> r 0)<br />         (progn<br />        (command "arc" (polar pointcenter (/ pi 6) r )pointcenter(polar pointcenter (* 5(/ pi 6)) r))<br />        (command "arc" (polar pointcenter (/ pi 6) r )pointcenter(polar pointcenter (* 9(/ pi 6)) r))<br />        (command "arc" (polar pointcenter (* 3(/ pi 6))r)pointcenter(polar pointcenter (* 7(/ pi 6)) r))<br />        (command "arc" (polar pointcenter (* 3(/ pi 6)) r )pointcenter(polar pointcenter (* 11(/ pi 6)) r))<br />        (command "arc" (polar pointcenter (* 5(/ pi 6)) r )pointcenter(polar pointcenter (* 9(/ pi 6)) r))<br />        (command "arc" (polar pointcenter (* 7(/ pi 6)) r )pointcenter(polar pointcenter (* 11(/ pi 6)) r))<br />         )<br />        )<br />        (while(setq e1 (entnext e1))<br />        (ssadd e1 ss)<br />        (vla-put-color (vlax-ename->vla-object e1)(if (<= n 205)(setq n (+ n 50))(setq n (- n 32))))<br />         )<br />        (setq oldp (cadr grcode))<br />        )<br />    (princ)<br />    )

yjr111

自己的一点思路，等下下载xshrimp的比较一下，看看差距在哪里
下载后看了一下：
1、yjr111的程序编写方法属于初级思路，但思路清晰，没有难点
2、xshrimp的程序专业、考虑周全，不过一般初学者估计不多看几遍是理解不了的
结论：有空继续学习

YAOSHIWEI

高手,学习一下啊

652758365

yjr111和xshrimp都很好，          代码越少越有技术含量......

hejiazhao

实用性不是太大