[Nitrogenium]

Собственно, вопрос ясен из заголовка - надо создать набор из примитивов TEXT или MTEXT, содержащего такой текст:
"ПК "любое количество цифр"+"две цифры,точка,две цифры, используя ssget
Например вот такой текст:
ПК 2+50.00
ПК 45+58.45
ПК 120+84.65
Написал вот так: (ssget "_C" po1 po2 (list (cons 0 "*TEXT") (cons 8 "Layer002") (cons 1 "ПК *#+##'.##")))
Но тут используется *, которая заменяет любые символы, а мне надо любое количество цифр.
po1 и po2 - это координаты точек

[hwd]

Сообщение от Nitrogenium Правда хотелось бы уточнить - реально ли написать, чтобы количество цифр перед плюсом было вообще любым

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

содержащего такой текст: "ПК "любое количество цифр"+"две цифры,точка,две цифры

В терминах регулярных выражений обозначенное тобой правило выглядит так (на вскидку, т.к. с регексами давно не работал):
"^ПК [0-9]+\+[0-9]{2}\.[0-9]{2}$"

[Sad Dog]

"^ПК [0-9]+\+[0-9]{2}\.[0-9]{2}$"

И как эту радость запихнуть в ssget?

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

Ха, да никак. Это регулярное выражение из .NET (мне так кажется)

[hwd]

Сообщение от Sad Dog И как эту радость запихнуть в ssget?

Её не нужно запихивать в ssget. С помощью "этой радости"(с) можно, для начала проверить, соответствует ли рассматриваемая строка требованиям, которые к ней предъявляет автор топика. Если соответствует - брать её в обработку.

Сообщение от Кулик Алексей aka kpblc Ха, да никак. Это регулярное выражение из .NET (мне так кажется)

Неправильно тебе кажется. Регулярные выражения не привязаны к конкретной платформе. Справка. Насчёт "да никак" - не соглашусь, т.к. можно на том же .Net написать Lisp-функцию, которая выполнит нужное действие, используя регулярное выражение. Это не сложно.

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

hwd, обрати внимание - в топике рассматривается только AutoLISP и его возможности.

[hwd]

Сообщение от Кулик Алексей aka kpblc hwd, обрати внимание - в топике рассматривается только AutoLISP и его возможности.

т.е. отметается даже VisualLisp? И Lisp-функция принципиально должна быть написана на AutoLisp?
Я подумал, что для автора не важно, на чём написана Lisp-функция (на Lisp/C++/C# или др.) - важно, чтобы её можно было использовать в Lisp-коде...

[Дима_]

ИХМО - эта радость имеет смысл ТОЛЬКО в содержащим .Net модули проекте под автокад (ну или естественно целиком на нем написанном). Ради одного регеска "прикручивать" версионно зависимую dll я большим удобством назвать не могу - интерфейс с ней больше кода займет чем сама функция фильтрации.

[hwd]

Сообщение от Дима_ интерфейс с ней

Если не сложно - переведи это на русский, а то у меня возникло смутное подозрение, что ты не в курсе что такое "интерфейс"...

[Sad Dog]

Удалено.

см. пост № 33

[Nitrogenium]

Я подумал, что для автора не важно, на чём написана Lisp-функция (на Lisp/C++/C# или др.) - важно, чтобы её можно было использовать в Lisp-коде...

Вообще да, только я обычно перед тем, чтобы что-то вставить в свой код это анализирую
А вот чисто средствами AutoLisp и VisualLisp это возможно? То есть чтоб был 1 файл *.lsp

[Дима_]

Сообщение от hwd Если не сложно - переведи это на русский, а то у меня возникло смутное подозрение, что ты не в курсе что такое "интерфейс" (в разрезе программирования)...

Значение слова интерфейс не ограничивается понятиями объектно-ориентированного программрования. По русски - отфильровать набор по данному параметру займет 5-7 строк лисп кода. Если фильтровать через net регексы - то как мимнимум - dll надо загрузить и точно так-же вставить в функцию фильтрующию набор (3-4 строки с учетом что у нас появилась функция обработки регексов). Теперь вопрос - какой великий смысл в подключении версионно зависимой net библиотеки (килобайт на 500 минимум) + еще ее надо написать (что даже без учета шаблонных подключений библиотек займет по моим пркидкам (здесь могу ошибаться - но думаю не сильно)) строчек 10-30 (в зависимости от заложенного функционала и языка программирвания) "чистого" кода.
p.s. полемику о полезности регксов разводить не надо - говорим про конкртный случай.
з.з.ы. - блин - похоже буква Е на этом ноуте совсем "заплыла".

[hwd]

Сообщение от Дима_ ИХМО - эта радость имеет смысл ТОЛЬКО в содержащим .Net модули проекте под автокад (ну или естественно целиком на нем написанном). Ради одного регеска "прикручивать" версионно зависимую dll я большим удобством назвать не могу - интерфейс с ней больше кода займет чем сама функция фильтрации. Значение слова интерфейс не ограничивается понятиями объектно-ориентированного программрования. По русски - отфильровать набор по данному параметру займет 5-7 строк лисп кода. Если фильтровать через net регексы - то как мимнимум - dll надо загрузить и точно так-же вставить в функцию фильтрующию набор (3-4 строки с учетом что у нас появилась функция обработки регексов). Теперь вопрос - какой великий смысл в подключении версионно зависимой net библиотеки (килобайт на 500 минимум) + еще ее надо написать (что даже без учета шаблонных подключений библиотек займет по моим пркидкам (здесь могу ошибаться - но думаю не сильно)) строчек 10-30 (в зависимости от заложенного функционала и языка программирвания) "чистого" кода. p.s. полемику о полезности регксов разводить не надо - говорим про конкртный случай. з.з.ы. - блин - похоже буква Е на этом ноуте совсем "заплыла".

ИМХО - ради того, чтобы в AutoLisp/VisualLisp появилась возможность использовать регулярные выражения, как раз таки не жалко подключить дополнительную библиотеку, потому как это очень мощный и гибкий инструмент в умелых руках. Уверен, что со мной согласятся те, кто знает, что такое регулярное выражение, каковы его возможности и как с ним работать.

Дима_ , насколько мне помнится, тут уже "блистал" на тему "понимания", что это такое, поэтому его мнение на этот счёт можно игнорировать.

[Sad Dog]

реально ли написать, чтобы количество цифр перед плюсом было вообще любым

Вот решение.

Код:

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

 (setq ss (ssget "_X" (list (cons 0 "*TEXT") (cons 8 "Layer002")
               (cons -4 "<AND")
                   (cons 1 "ПК *#+##`.##")
                   (cons -4 "<NOT") (cons 1 "ПК *@*+##`.##") (cons -4 "NOT>")
                   (cons -4 "<NOT") (cons 1 "ПК *.*+##`.##") (cons -4 "NOT>")
               (cons -4 "AND>"))))

p.s.

ради того, чтобы в AutoLisp/VisualLisp появилась возможность использовать регулярные выражения...

В AutoLisp/VisualLisp есть возможность использовать выражения, очень похожие на регулярные - это функция wcmatch.
Но самое полезное, что wild-card patterns (те же, что и в функции wcmatch) можно использовать непосредственно в функции ssget, осуществляя фильтрацию примитивов при создании наборов. Имеющихся возможностей, как правило, вполне достаточно.

[Дима_]

Сообщение от hwd Дима_ , насколько мне помнится, тут уже "блистал" на тему "понимания", что это такое, поэтому его мнение на этот счёт можно игнорировать.

Мне совсем не нравится тон и манера Вашего общения, то что Вы не умеете слушать (читать) других и являетесь счастливым обладателем завышенной самооценки - еще не дает Вам права определять какое мнение заслуживает внимание других пользователей - с этим неплохо здесь справляются други люди с наделенными на то полномочиями - пока больше всех "не игнорируете" мое мнение именно Вы. Я принимаю ко вниманию только аргументированные мнения - коих с Вашей стороны я пока в этой теме не увидел.

[hwd]

Сообщение от Дима_ Мне совсем не нравится тон и манера Вашего общения, то что Вы не умеете слушать (читать) других и являетесь счастливым обладателем завышенной самооценки - еще не дает Вам права определять какое мнение заслуживает внимание других пользователей - с этим неплохо здесь справляются други люди с наделенными на то полномочиями - пока больше всех "не игнорируете" мое мнение именно Вы. Я принимаю ко вниманию только аргументированные мнения - коих с Вашей стороны я пока в этой теме не увидел.

Вспылил я немного... Если обидел - извиняюсь. Спорить с вами по поводу регексов и "аргументированных мнений" (с) желания нет - всё равно каждый останется при своём.
Умолкаю.

[Disney]

Sad Dog

Но тем не менее, мне просто интересно

Сообщение от Nitrogenium Например вот такой текст: ПК 2+50.00 ПК 45+58.45 ПК 120+84.65 Написал вот так: (ssget "_C" po1 po2 (list (cons 0 "*TEXT") (cons 8 "Layer002") (cons 1 "ПК *#+##`.##"))) Но тут используется *, которая заменяет любые символы, а мне надо любое количество цифр.

А что, в чертеже реально может встретиться текст, содержащий между ПК и +##`.## любые символы не являющиеся цифрами?
например: ПК тра-ля-ля+00.00 или ПК хрень какая-то+00.00

[Nitrogenium]

А что, в чертеже реально может встретиться текст, содержащий между ПК и +##`.## любые символы не являющиеся цифрами? например: ПК тра-ля-ля+00.00 или ПК хрень какая-то+00.00

пишу прогу для подсчета объемов по поперечным профилям. Расстояние от начала пикетажа определяется из пикета. Определяется так:
ПК 3+12.45 -----> 300+12.45 м = 312.45 м
Иначе говоря, чтобы пользователь не смог сделать неверный выбор и в набор не попало то, что далее не может считаться, в результате чего работа программы прерывается с ошибкой

[Александр Ривилис]

Сообщение от Nitrogenium Иначе говоря, чтобы пользователь не смог сделать неверный выбор и в набор не попало то, что далее не может считаться, в результате чего работа программы прерывается с ошибкой

Так может проще проанализировать текст на корректность после того как отобраны тексты по шаблону?!

[Nitrogenium]

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

[Disney]

Сообщение от Nitrogenium пишу прогу для подсчета объемов по поперечным профилям. Расстояние от начала пикетажа определяется из пикета

Сообщение от Nitrogenium если можно исключить неверный выбор сразу, почему бы так и не сделать?

А пикеты кто подписывает? пользователь вручную?
Т.е. пикеты: Пк 3+12.45, ПК 3_+12.45, ПК 3+12,45, ПК 3+12.4_ будут считаться не верными, и не войдут в набор, и поперечник по ним не посчитается, и тогда уже объём будет не верным.