[777Lich777]

КОД:

Код:

[Выделить все]

 (defun koh(x0 x1 y0 y1 level) 
(if (= level 1) 
((setq p1 (list x0 y0)) 
(setq p2 (list x1 y1)) 
(command "_line" p1 p2 "")) 
) 

(setq L (sqrt (+ (* (- x1 x0) (- x1 x0)) (* (- y1 y0) (- y1 y0))))) 
(setq h (/ L (* 2 (sqrt 3)))) 
(setq sina (/ (- y1 y0) L)) 
(setq cosa (/ (- x1 x0) L)) 
(setq xx1 (+ x0 (/ (- x1 x0) 3))) 
(setq xx2 (+ (/ (+ x0 x1) 2)(* h sina))) 
(setq xx3 (+ x0 (/ (* (- x1 x0) 2) 3))) 
(setq yy1 (+ y0 (/ (- y1 y0) 3))) 
(setq yy2 (+ (/ (+ y0 y1) 2)(* h cosa))) 
(setq yy3 (+ y0 (/ (* (- y1 y0) 2) 3))) 


(koh x0 xx1 y0 yy1 (- level 1)) 
(koh xx1 xx2 yy1 yy2 (- level 1)) 
(koh xx2 xx3 yy2 yy3 (- level 1)) 
(koh xx3 x1 yy3 y1 (- level 1)) 
) 

вызываю из командной строки автокада (koh 0 300 0 100 4)
Должен рисоваться фрактал коха, но рисуется одна линия и все. Думаю что в автолиспе рекурсия как-то по другому вызывается, но в интернете толкового ни чего не нашел.

[Кулик Алексей aka kpblc]

Не вникая в код - привязки сняты?

[Дима_]

+ строка 3-5 ошибка там скорее всего (progn...) подразумевался + переменные не локализированны+ последовательные setq пишутся в одной функции + они здесь вобще не нужны (последние утверждение обычно вызывает много споров, но по предыдущим - без вариантов).

[VVA]

Думаю, что Алексей прав.
777Lich777,
Попробуй (command "_line" p1 p2 "")) заменить на

Код:

[Выделить все]

 (command "_line" "_none" p1 "_none" p2 ""))

Сообщение от 777Lich777 но в интернете толкового ни чего не нашел.

Здесь почитай
Фракталы:
Fractals

Draw Fractal tree and SpiroGraph flower

[Кулик Алексей aka kpblc]

По-быстрому:

Код:

[Выделить все]

 (defun koh (start end level / tmp d a)
  (cond
    ((= level 1)
     (entmakex (list (cons 0 "LINE") (cons 10 start) (cons 11 end)))
     )
    (t
     (foreach item (list
                     (list start
                           (setq tmp (polar start (setq a (angle start end)) (setq d (/ (distance start end) 3.))))
                           ) ;_ end of list
                     (list tmp (setq tmp (polar tmp (+ a (/ pi 3.)) d)))
                     (list tmp (setq tmp (polar tmp (- a (/ pi 3.)) d)))
                     (list tmp end)
                     ) ;_ end of list
       (koh (car item) (cadr item) (1- level))
       ) ;_ end of foreach
     )
    ) ;_ end of cond
  (princ)
  ) ;_ end of defun

---
Добавлено: вызов

Код:

[Выделить все]

 (koh (getpoint "\nStart : ")(getpoint "\nEnd : ") 5)