[800x600]

Нужен лисп который работал бы следующим образом:
Включаем вид сверху и чертим (в плане) серию отрезков/полилиний, предварительно указав уклон (в промиллях). Отрезки/полилинии должны получится трехмерные, т.е. иметь уклон по оси Z

Такой лисп я нашел в интернете, но он не работает. Пишет "Неверная точка. ; ошибка: Функция прервана.". (у меня ACAD 2011x64)
Ниже привожу код. Прошу подсказать где тут ошибка. Или может у кого, то есть альтернативный вариант


уклон сохраняется в глобальной переменной *RUNA_DDLSLOPE*, если задаете уклон с + то следущая точка будет выше предыдущей

Код:

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

;;;Построение линии по начальной точке и уклону заданому в промилях
(defun c:ddl (/ END_ELEV END_POINT SLOPE ST_ELEV ST_POINT)
;|
; Global variables: (*RUNA_DDLSLOPE*)
|;
  (if (not *runa_ddlslope*) (setq *runa_ddlslope* 5))
(setq slope (GETREAL
          (STRCAT "Specify slope in promille or <"
             (rtos *runa_ddlslope* 2) " ?>: ")))
  (if (null slope)
    (setq slope *runa_ddlslope*)
    (setq *runa_ddlslope* slope))
  (setq st_point (getpoint "DDL Specify first point: "))
  (if (null st_point)
    (setq st_point (GETVAR "LASTPOINT")))
  (setq st_elev (last st_point))
  (setq st_elev (GETREAL
          (STRCAT "\nStart elevation <"
             (rtos st_elev 2) ">: ")))
  (if (null st_elev)
    (setq st_elev (last st_point)))
  (setq end_point (getpoint st_point "Specify end point of line: "))
  (if (null end_point)
    (princ "Cannot build a zero length line.")
    (progn
      (setq end_elev
        (+ st_elev
      (* slope 0.001
      (setq dist_in_plane
      (distance
      (cdr (reverse st_point))
      (cdr (reverse end_point)))))))
      (command "_.line"
          ".xy"
          "none"
          st_point
          st_elev
          ".xy"
          "none"
          end_point
          end_elev
          "")
      (princ (STRCAT "\nEnd elevation: "
           (rtos end_elev 2)
           "   Distance in plane: "
           (rtos dist_in_plane 2)))
      );progn
    );if
  (princ)
); end defun

[nolte]

800x600, у Вас чудно получается. В чем проблема тогда.

[800x600]

Сообщение от nolte 800x600, у Вас чудно получается. В чем проблема тогда.

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