[vitolkin]

Всем Здравствуйте! Кто может помочь/подсказать с изменением программы лиспа?
Попробую объяснить суть вопроса:есть куча полилиний в автокаде с координатой Z=0, так же есть сами координаты Z в текстовом файле,как эти координаты правильно скопировать в файл программы,чтобы потом просто поочередно выделять нужные полилинии,а они автомотически уже перемещались на значения z,которые в лиспе?
Примерный алгоритм:
запуск программы-команда "выбрать полилинию"-автоматическое перемещение по оси z на 1(с информационным сообщением о перемещении на 1 по z)
повтор команды "выбрать полилинию"-автоматическое перемещение по z на 2
повтор команды "выбрать полилинию"-автоматическое перемещение по z на 3 и так далее,пока не закончатся отметки Z
Есть следующая программа, но в ней приходится постоянно выбирать полилинию и самому задавать перемещение по Z, что делает процесс очень долгим...

Код:

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

 (defun C:PLZ ()
(and
  (setq pl (car(entsel "\nВыбери полилинию: ")))
  (eq "LWPOLYLINE" (cdr(assoc 0 (entget pl))))
  (progn
    (vl-load-com)
    (initget 1)
    (setq Z (getreal "\nВведи координату Z: "))
    (vla-put-elevation (vlax-ename->vla-object pl) Z)
    )
  )
)

Буду очень благодарен за помощь!

[Дима_]

Я могу подсказать - если Вы спросите что Вам нужно ПОДСКАЗАТЬ. Если под помочь подразумевается написать за Вас - то хотя-бы посмотрите, в подобных темах, как "правильно" излагать задачу.

[ытя]

Код:

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

 
(defun C:PLZ (/ z i zi pl)
  (vl-load-com)
  (setq	z (list 100 200 300 400 500)
	i 0
  )
  (while (setq zi (nth i z))
    (if	(and (setq pl (car (entsel "\nВыбери полилинию: ")))
	     (eq "LWPOLYLINE" (cdr (assoc 0 (entget pl))))
	)
      (progn
	(vla-put-elevation (vlax-ename->vla-object pl) zi)
	(princ (strcat "z" (itoa i) "=" (rtos zi) "\n"))
	(setq i (1+ i))
      )
    )
  )
)

[vitolkin]

ытя, спасибо Вам огромное! Именно то,что нужно!