[mironov0279]

Добрый вечер, может кто подскажет код выделения отрезков одинаковой длины по числу. Другими словами указано число допустим 6000, запускаешь команду выделяешь это число и выделяются в указанном диапазоне все отрезки длинной 6000. Пробовал сам написать с использованием кода выделения примитивов по длине, так и не смог разобраться где команда сравнивающая длину выделенного отрезка и диапазона отрезков. Заранее благодарю (при армировании очень необходимая вещь если много разных типов арматуры)

[===AAA===]

где команда сравнивающая длину выделенного отрезка и диапазона отрезков

Не уверен, что имелось ввиду именно это, но судя по вопросу, речь идёт об:

(if (= Длина-Текущего-Отрезка Сравниваемое-число-оно-же-Диапазон)
(progn ... Делаем, если совпало ...)
(progn ... Делаем, если НЕ совпало ...)
)

Или загвоздка в чем-то другом?

[mironov0279]

Сообщение от ===AAA=== (if (= Длина-Текущего-Отрезка Сравниваемое-число-оно-же-Диапазон) (progn ... Делаем, если совпало ...) (progn ... Делаем, если НЕ совпало ...) )

Да только как находится длина отрезка, сравнивается с числовым диапазоном и после происходит выделение если совпало.

[===AAA===]

Тогда вопрос меняет суть с "нужно разобраться вот с этим моментом"
на "нужно написать готовую программу"?

И раз

Пробовал сам написать с использованием кода выделения примитивов по длине

,
показывайте свой код. Поглядим, где затык.

[mironov0279]

Да именно пробовал (но программирование на языке Lisp не знаю от слова совсем, пытаюсь изучить но с грехом пополам) могу конечно выслать код но только для смеха (так как он не рабочий), пытался переписать чужой скрипт.
(defun fast_select()
(vl-load-com)
(lambda(ent)(if (and ent(not (vl-catch-all-error-p ent))))
((lambda(obj ed))
((lambda(prew_nbr curr_nbr))
((lambda(nbr)_
(sssetfirst nil nbr)
(if prew_nbr
((lambda(lst ss))
(foreach item lst
(if (ssmemb item curr_nbr))
(ssadd item ss)))))))))
ss
((lambda(len mark eps check_type type_obj))
(if (wcmatch type_obj "*LINE"))
((lambda(ss))
(foreach item (vl-remove-if '(lambda(x)
(if (= (eval mark) =)
(not (equal (_get-length x) len eps)))
(not ((eval mark) (_get-length x) len))))
(mapcar 'cadr)
(ssnamex (ssget "_X" (list (cons 0 (if (= (eval mark) =)
(if check_typetype_obj"*LINE")
(if eps type_obj "*LINE"))))))))
(vl-catch-all-apply 'entsel)
(list "\nВыберете объект: ")
(princ))
); end fast_select

[===AAA===]

У, ё...
Это искусственный интеллект (ну очень уж искусственный) развлекался что ли?

[mironov0279]

Спасибо за не двухсмысленный намек что надо изучать язык и самому написать, или использовать стандартные операции без применения LISP.

----- добавлено через ~25 мин. -----
Только зачем все это, сразу и написали - нет желания разбираться или заказывай готовый или не спрашивай. Я же сразу написал что нужен код может кто поможет, а не писал что есть полурабочий код где нужно немного орфографию поправить.

[Admin]

Сообщение от mironov0279 Я же сразу написал что нужен код может кто поможет, а не писал что есть полурабочий код где нужно немного орфографию поправить.

В таком случае разделом ошиблись.
Вам сюда https://forum.dwg.ru/forumdisplay.php?f=33