[推荐]：AutoCAD, VisualLISP与分形几何学

liver

命令: ; 错误: 参数类型错误: 二维/三维点: nil
而且无论如何该程序没有完成:(


书上对这种分形的解释如下:

1. 給予一線
2. 產生一肘(elbow)，與原線形成等腰三角形
3. 對新產生的二邊，反覆執行步驟1-2。

图片示意:

liver

see

LUCAS

这个如何

2. 
   
3. (setvar "CMDECHO" 0)
   
4. (setvar "BLIPMODE" 0)
   
5. (setvar "OSMODE" 0)
   
6. (defun dtr(z)
   
7.    (* pi (/ z 180.))
   
8. )
   
9. (defun c_curve (l a ml)
   
10.    (cond ((< l ml) (command "line" p1 (setq p1 (polar p1 a l)) ""))
    
11.          (T (c_curve (/ l (sqrt 2.0)) (+ a (/ pi 4.0)) ml)
    
12.             (c_curve (/ l (sqrt 2.0)) (- a (/ pi 4.0)) ml))
    
13.    )
    
14. )
    
15. (defun C:RECUC-2 ()
    
16.    (setq l (getreal "请输入字的长度 = "));100
    
17.    (setq a (dtr (getreal "请输入字的角度 = ")));90
    
18.    (setq ml (getreal "请指定字的长度增量 = "));2
    
19.    (setq p1 (getpoint "请指定字的位置: "))
    
20.    (c_curve l a ml)
    
21. )
    

<br /> (setvar "CMDECHO" 0)<br /> (setvar "BLIPMODE" 0)<br /> (setvar "OSMODE" 0)<br /> (defun dtr(z)<br />    (* pi (/ z 180.))<br /> )<br /> (defun c_curve (l a ml)<br />    (cond ((< l ml) (command "line" p1 (setq p1 (polar p1 a l)) ""))<br />          (T (c_curve (/ l (sqrt 2.0)) (+ a (/ pi 4.0)) ml)<br />             (c_curve (/ l (sqrt 2.0)) (- a (/ pi 4.0)) ml))<br />    )<br /> )<br /> (defun C:RECUC-2 ()<br />    (setq l (getreal "请输入字的长度 = "));100<br />    (setq a (dtr (getreal "请输入字的角度 = ")));90<br />    (setq ml (getreal "请指定字的长度增量 = "));2<br />    (setq p1 (getpoint "请指定字的位置: "))<br />    (c_curve l a ml)<br /> )<br />

carrot1983

最初由 e2002 发布
[B][code]
(defun c:cc (/ cshape pt1 pt2 ang oldvar)

  (defun cshape        (p1 p2 ang)
    (if        (> (distance p1 p2) 10.0)
      (progn
        (setq p3 (polar        p1
                        (+ ang (angle p1 p2))
                        (* (distance p1 p2)... [/B]

这个好厉害。。。。。
不知道怎么输入才会最漂亮啊？？？？
好好玩的样子。。。。。
不过，输不好就会进入死循环。。不知道怎么输入才会最漂亮啊？？？？[/COLOR]