[alex_msu]

Здравствуйте, помогите пожалуйста. Я написал код операций который сильно упрощает мою работу:
1. Он преобразует сплайн в полилинию.
2. Проставляет точки на полилинии с определенным шагом (для этого и приходится преобразовывать т.к. на сплайн команда не срабатывает)
3. Потом экспортирую координаты всех точек

НО! При этом на 1 или 2 шаге мне нужно присвоить определенные значения координаты Z линии (чтобы все точки при экспорте имели нужные мне значения z).
Как это сделать??

(можно, конечно, делать все пошагово, но линий много и хотелось бы чтобы при составлении макроса была команда, которая выдавала запрос на присвоение координаты Z линии)...

Спасибо за помощь.

[PsixVK]

а можна еще понаглеть? )
вот бы еще те лини в которых не поменялся уровень тоже другим цветом подсвечивало )))
припустим был уровень ноль и остался ноль )
хотя в ситуации когда рельеф колеблется в отметках около нуля будет подсвечивать ну эта ситуация будет только в нескольких местах на планете ).....

[kp+]

Обрабатываются ВСЕ линии выбранного слоя. Если не обрабатываются - значит, прога не смогла их распознать Объясните точнее, какие линии каким цветом хотите подсветить?

[PsixVK]

есть горизонтали "разорванные" (в смысле расстояние между вершинами разорванных полили больше нуля) и без подписей их уровень остается прежним был 0,00 и остался 0,00
это уже мелочи то что осталось можно в ручную очень быстро доделать
это просто капризы )))

[kp+]

Сообщение от PsixVK есть горизонтали "разорванные" (в смысле расстояние между вершинами разорванных полили больше нуля) и без подписей их уровень остается прежним был 0,00 и остался 0,00 это уже мелочи то что осталось можно в ручную очень быстро доделать это просто капризы )))

И самое главное - быстрее. _Qselect рулит

[PsixVK]

Сообщение от kp+ И самое главное - быстрее. _Qselect рулит

глючит уже ) точно
про него то я почемуто забыл напрочь
сначала была мысля делать выд сбоку а потом выделять то что на нужном уровне менять цвет .............
а быстрый выбор вылетел с головы )

Offtop: когда планируете быть в Киеве?

[kp+]

Offtop: Нескоро

[Alex II]

Добрый вечер

А может быть есть у кого-то возможность модифицировать данный лисп таким образом, чтоб координату Z задавать не с клавиатуры, а кликать на текст, который содержит эту самую координату? И после того, как полилиния меняет Z координату она становится красного цвета

Большое спасибо

Сообщение от VVA Пример Код: [Выделить все] (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) ) ) )

[Кулик Алексей aka kpblc]

Она и у тебя есть - вместо getreal получи указатель на примитив (например, через (car (nentsel)) ), забери строку, при необходимости сними форматирование, преобразовывай ее в число - вот и все.

[Alex II]

Да, согласен с этим Дело в том, что я совсем не знаток лиспа, поэтому и не смог модифицировать. Если вдруг у кого-то будет такая возможность, буду очень благодарен

[VVA]

Сообщение от Alex II а кликать на текст, который содержит эту самую координату?

Тект - это примитив текст? дтекст? атрибут блока?

[Alex II]

Сообщение от VVA Тект - это примитив текст? дтекст? атрибут блока?

Да, все верно, это примитив текст (или мтекст)