[1200]

добрый день. в институте задали написать программу под Autocad - брезенхема в виде наклонной линии. может кто нть помочь сделать? я в Autocade мягко говоря не бум-бум. весь нэт перерыл и ничего не нашел...

[hwd]

т.е. в институте ставят задачу "найти в гугле", а не "сделать самостоятельно"?
Под "помочь" подразумевается "написать за меня"?

[TararykovDG]

Сообщение от hwd т.е. в институте ставят задачу "найти в гугле", а не "сделать самостоятельно"? Под "помочь" подразумевается "написать за меня"?

hwd, а мне больше вот это порадовало

Сообщение от 1200 весь нэт перерыл и ничего не нашел...

Особенно если учесть вот это Алгоритм Брезенхэма

[hwd]

Сообщение от TararykovDG hwd, а мне больше вот это порадовало Особенно если учесть вот это Алгоритм Брезенхэма

Полагаю, что автор имел в виду мол он не нашел в инете готового решения написанного на autolisp, а самостоятельно написать эти несчастные пару формул топикстартеру очень не хочется (это же придётся книжку по лиспу почитать пару часов)... Вот и просит сделать это за него, а он в институте выдаст это за свой результат и будет хорошим специалистом.

[gomer]

Сообщение от 1200 добрый день. в институте задали написать программу под Autocad - брезенхема в виде наклонной линии.

Сообщение от hwd т.е. в институте ставят задачу "найти в гугле", а не "сделать самостоятельно"? Под "помочь" подразумевается "написать за меня"?

Сообщение от TararykovDG Особенно если учесть вот это Алгоритм Брезенхэма

Уважаемые гуру, видимо, просто из вежливости не пояснили, что преподаватель намекнул тебе на необходимость подготовки к службе в армии...

[TararykovDG]

1200, написал специально не лисповым стилем, а просто перевел (можно сказать дословно) пример реализации данного алгоритма на C++ из указанном мной в #3 посте ссылки на AutoLisp

Код:

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

 
; Примеры вызова: 
; (Bresenham_line '(0.0 0.0) '(10.0 30.0) 1)
; или так
; (Bresenham_line (getpoint "\nУкажите первую точку: ") (getpoint "\nУкажите вторую точку: ") 1)
(defun Bresenham_line(pnt1 pnt2 eps / x1 y1 x2 y2 delta_x delta_y sign_x sign_y error error2)
  (setq x1 (car pnt1)
        y1 (cadr pnt1)
        x2 (car pnt2)
        y2 (cadr pnt2)
        delta_x (abs (- x2 x1))
        delta_y (abs (- y2 y1))
        sign_x (if (< x1 x2) 1 -1)
        sign_y (if (< y1 y2) 1 -1)
        error (- delta_x delta_y)
        )
  (while (or (not (equal x1 x2 eps))
             (not (equal y1 y2 eps))
             )
    (entmake (list '(0 . "CIRCLE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(100 . "AcDbCircle") (cons 10 (list x1 y1)) '(40 . 0.5))) ; - я рисую для наглядности окружности
    ;(entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(100 . "AcDbPoint") (cons 10 (list x1 y1)))) ; можно нарисовать точки
    (setq error2 (* error 2))
    (if (> error2 (* -1 delta_y))
      (setq error (- error delta_y)
            x1 (+ x1 sign_x)
            )
      )
    (if (< error2 delta_x)
      (setq error (+ error delta_x)
            y1 (+ y1 sign_y)
            )
      )
    )
  )

[Сергей Дубина]

Для исключения алгоритма Брезенхэма из оборота необходимо изобретение векторного монитора. Векторной системе - векторный монитор
З.Ы.
Встречал *.dwg файла размером около 10 метров, растрового происхождения (все бывшие пикселы состоят из солидов). Причем соседние пикселы объединены в один солид по горизонтали.

[1200]

TararykovDG, спасибо большое!

[Дима_]

Сообщение от TararykovDG 1200, написал специально не лисповым стилем

Эх поздно заметил - нужно было как раз по лисповски написать - путь-бы потом объяснял преподу - что ЭТО такое.

[1200]

нужно было как раз по лисповски написать

это да... поможете переделать?

[gomer]

1200, если не секрет... Какой стаж педагогической работы у вашего преподавателя? Думаю лет 40 точно есть

[1200]

да поменьше будет... а какое отношение это имеет к заданию?

[gomer]

Сообщение от 1200 а какое отношение это имеет к заданию?

Вы хоть понимаете какое применение у алгоритма Брезенхема?

[1200]

ну примерно да

[gomer]

а причем здесь лисп и автокад объяснить сможете?

[1200]

разумеется

[gomer]

можно полюбопытствовать?

[1200]

gomer, лисп - язык программирования, в данном случае под автокад, если это имелось ввиду...
народ, кто нть поможет тот код под лисп переделать?

[hwd]

Сообщение от 1200 gomer, лисп - язык программирования, в данном случае под автокад

Ну вот, теперь gomer будет знать, что такое лисп, а то ведь не знал до тебя

Сообщение от 1200 народ, кто нть поможет тот код под лисп переделать напишет за меня тот код на лисп?

А что, TararykovDG не на лиспе код за тебя написал помог тебе написать?

[gomer]

1200, мне понято, что вам не понятно ничего... объясните мне, темному человеку, практическую ценность применения алгоритма Брезенхема в среде Автокад