[Ubivec81]

Доброго времени суток!
Пытаясь немного изучить lisp пробую сделать построение продольного профиля по известному пикету и существующей отметке земли.[

Код:

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

 (setq dlina1 (getreal "\n Введите пикет начала кювета - ")
         dlina2 (getreal "\n Введите пикет конца кювета - ")
   )
(setq N -1)
(while (< N (- dlina2 dlina1)
       )  
         (setq piket (getreal "\n Введите пикет - ")
               otmetka (getreal "\n Введите отметку существующей земли - ")
               point1 (list (* 10 piket) 0)
               point2 (list (* 10 piket)  otmetka)
         )

         (command "_line" point1 point2 "")
         (setq N (+ N 1)))
(command "_zoom" "В")

Подскажите можно ли все точки по которым рисуются линии каким либо образом запомнить для того чтобы провести линию земли по верхним точкам и использовать их для дальнейшего проектирования?

[TararykovDG]

Код:

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

 
 (setq dlina1 (getreal "\n Введите пикет начала кювета - ")
         dlina2 (getreal "\n Введите пикет конца кювета - ")
       lst_point1 nil
       lst_point2 nil
   )
(setq N -1)
(while (< N (- dlina2 dlina1)
       )  
         (setq piket (getreal "\n Введите пикет - ")
               otmetka (getreal "\n Введите отметку существующей земли - ")
               point1 (list (* 10 piket) 0)
               lst_point1 (cons point1 lst_point1) ; запоминаем нижние точки
               point2 (list (* 10 piket)  otmetka)
               lst_point2 (cons point2 lst_point2) ; запоминаем верхние точки
         )

         (command "_line" point1 point2 "")
         (setq N (+ N 1)))
(apply 'vl-cmdf (append (list "_pline") (reverse lst_point2) (list ""))) ; строим линию земли
(command "_zoom" "В")

[Witsoon]

И что это и все решение

[Лиспер]

http://forum.dwg.ru/showthread.php?t=22894 , часть надцатая
В качестве первой прикидки:

Код:

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

(defun test (/ dlina1 dlina2 n piket otmetka point1 point2 lst)
  (setq dlina1 (getreal "\n Введите пикет начала кювета - ")
        dlina2 (getreal "\n Введите пикет конца кювета - ")
        ) ;_ end of setq
  (setq n -1)
  (while (< n
            (- dlina2 dlina1)
            ) ;_ end of <
    (setq piket   (getreal "\n Введите пикет - ")
          otmetka (getreal "\n Введите отметку существующей земли - ")
          point1  (list (* 10 piket) 0)
          point2  (list (* 10 piket) otmetka)
          lst     (cons point 2 (cons point1 lst))
          ) ;_ end of setq

    (command "_line" "_none" point1 "_none" point2 "")
    (setq n (+ n 1))
    ) ;_ end of while
  (command "_zoom" "В")
  (reverse lst)
  ) ;_ end of defun

[TararykovDG]

Сообщение от Witsoon И что это и все решение

Witsoon, это вопрос ко мне или кUbivec81? Если ко мне, то я отвечал на вопрос автора

Подскажите можно ли все точки по которым рисуются линии каким либо образом запомнить для того чтобы провести линию земли по верхним точкам и использовать их для дальнейшего проектирования?

[Ubivec81]

Спасибо всем за помощь!!!
Сложно начинать что то если до этого ничего не пробовал потому буду хорошенько разбираться с вашими ответами. Только сразу хочу задать еще один вопрос: этот код создает какой то список со всеми расчитанными точками из введенных данных? если да то при наличии например 10 пикетов как мне обратится к какой либо точке в любой части программы?