[PaSokaS]

Написать программу, которая считала бы, скока на чертеже есть линий одинаковой длины и перекинула бы их в слой, выбранный пользователем.
Прошу откликнутся всех, кто смог бы помоч в написании программы...
ЗЫ зарание благодарю :roll:

[Лентяй]

Fantomas

Причем здесь DOS и WINDOWS

Сугубо как иллюстрация удобства и понятности.

Кстати у тебя в программе не решена задача как она была поставлена: Цитата: Написать программу, которая считала бы, скока на чертеже есть линий одинаковой длины и перекинула бы их в слой, выбранный пользователем

Здрассьте, приехали! А о чем же говорит

(princ (strcat "\n "(itoa n) " Lines of " (rtos l) " Moved on Layer " lnm))

Правда, слой формируется сам. а не выбирается из существующих. За это - пардонте-с. А вот все остальное - очень даже выбполнено.
1. Составляется общий список всех линий.
2. Произвольно выбирается линия сравнения - (ln0).
3. Все линии, имеющие ту же длину, переносятся но новый слой. При этом они пересчитываются.
Agaspher

Нафига? Откуда-ж им взяться?

Об чем спич? Кому "им"?

Странный подход - выбрать всё, а потом фильтровать, когда можно отфильтровать при выборе.

Не вижу разницы, ибо что в лоб, что по лбу. Впрочем, сие есть вопрос вкуса, о коих. как известно, не спорят.

Код: [Выделить все] (setq lnm (strcat "Length_" (rtos (vlax-get-property obj 'length))) layrep (if (setq tmp (assoc lnm layrep)) (subst (cons lnm (1+ (cdr tmp))) tmp layrep) (cons (cons lnm 1) layrep) ) )

У меня такое впечатление, что ваш layrep пересчитывает слои, а не линии.

[Alaspher]

> Лентяй
Ник не коверкай!

Об чем спич? Кому "им"?

Код: [Выделить все] [...] (setq cmd (getvar "CMDECHO")) ;запоминаем значение переменной, управляющей выводом промежуточных результатов в командную стороку [...]

Вот я и спрашиваю:

Код:

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

;;;*PL: Нафига? Откуда-ж им взяться?

промежуточным результатам?

Странный подход - выбрать всё, а потом фильтровать, когда можно отфильтровать при выборе. Не вижу разницы, ибо что в лоб, что по лбу. Впрочем, сие есть вопрос вкуса, о коих. как известно, не спорят.

Разница в оптимальности кода. Это - не "в спор", это - указание на недостаток. Не более того.

У меня такое впечатление, что ваш layrep пересчитывает слои, а не линии.

В layrep (layers report) попадает количество примитивов (линий) ассоциировано с тем слоем, в который они перемещаются, для формирования отчёта:

Код:

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

(foreach i layrep (princ (strcat "\n " (itoa (cdr i)) " Lines moved on layer " (car i))))

[{Smirnoff}]

>Лентяй

Здрассьте, приехали! А о чем же говорит

О том что примитивы имеющие ОДИНАКОВУЮ ДЛИННУ, должны переносится В ОДИН СЛОЙ, притом УКАЗАННЫЙ ПОЛЬЗОВАТЕЛЕМ.

По остальным прениям ничего в данный момент сказать не могу поскольку выпил три литра пива и печать данного текста мне дается с трудом...