[mmax]

Много лестниц надо начертить.
Подкиньте пожалуйста какой нибудь LISP для решения этой проблемы.
Тоесть программку рисующую набор прямоугольников. Самому разрабатывать некогда.
Обещаю не нарушать авторские права.

[DEM]

Обычно для копирования в любом направлении с заданным шагом на требуемое расстояние использую вот этот код

Код:

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

(defun C:scopi (/ pt1 pt2 sh ss r1
	      )
  (setq pt1 (getpoint "\nНачальная точка: "))
  (setq pt2 (getpoint pt1 "\nКонечная точка: "))
  (setq sh (getdist "\nВведите шаг: "))
  (setq L1 (distance pt1 pt2))
  (setq ss (fix (+ 1 (/ L1 sh))))
  (setq r1 (/ (* 180 (angle pt1 pt2)) pi))
  (ssget )  
  (command "_ucs" "_z" r1)
  (command "_-array" "_P" "" "П" "1" ss sh)
  (command "_ucs" "_p") 
  (princ)
)