Создание набора с помощью ssget из примитива *TEXT, содержащего любое количество цифр

Nitrogenium · 15.02.2011, 10:16

Собственно, вопрос ясен из заголовка - надо создать набор из примитивов 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 - это координаты точек

Дима_ · 15.02.2011, 10:38

Самое простое - "если любое количество цифр" в разумных пределах - то использовать "<OR "OR>" c перебором решеток (скажем от # до #####) - ну или фильтровать постфактум.

Nitrogenium · 15.02.2011, 10:42

фильтровать постфактум? Это как?

Дима_ · 15.02.2011, 10:53

Пишешь функциию на входе набор, условия отбора; на выходе отфильтрованный набор (я бы наборам предпочел списки - но можно и с наборами - если требуется).

Nitrogenium · 15.02.2011, 11:11

Что-то я не очень понял
(ssget "_C" po1 po2 (list (cons 0 "*TEXT") (cons 8 "Layer002") (cons -4 "<OR") (cons 1 "ПК #+##'.##") (cons 1 "ПК ##+##'.##") (cons 1 "ПК #+##'.##") (cons 1 "ПК ###+##'.##") (cons 1 "ПК ####+##'.##") (cons 1 "ПК #####+##'.##") (cons -4 "OR>"))) А вот это может прокатит?

Дима_ · 15.02.2011, 11:30

А почему нет - это собственно 1 вариант из #2.

Nitrogenium · 15.02.2011, 11:36

да вроде все верно, но не особо работает даже просто это:
(list (cons 0 "*TEXT") (cons 8 "Layer002") (cons 1 "ПК #+##'.##"))
cons-ов больше 2-х можно ставить?
Может надо AND использовать?

Лиспер · 15.02.2011, 11:38

А зачем так жестко-то?

Код:

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

(ssget '((0 . "*TEXT") (8 . "Layer002") (1 . "ПК #+##'.##,ПК ##+##'.##,ПК ###+##'.##,ПК ####+##'.##,ПК #####+##'.##")))

Так не проще? Offtop: А если гарантируется, что после ПК абсолютно точно идет пробел и сколько-то цифр, то тогда еще проще получится

Код:

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

(ssget '((0 . "*TEXT") (8 . "Layer002") (1 . "ПК *+##'.##")))

Nitrogenium · 15.02.2011, 11:49

А через cons нельзя разве?

Лиспер · 15.02.2011, 11:52

Можно. Но каков смысл, если критерии заранее известны?

Nitrogenium · 15.02.2011, 12:49

(ssget "_C" po1 po2 (list (cons -4 "<OR") (cons 0 "*TEXT") (cons 8 "Layer002") (cons 1 "ПК #+##'.##") (cons -4 "OR>")))
Вот это создает набор, но создает неверно, то есть ПК е3+45.15 скажем в набор войдет =(((((!

VVA · 15.02.2011, 13:02

ПК е3+45.15 -> (cons 1 "ПК ?#+##'.##")

Лиспер · 15.02.2011, 13:08

А почему в #11 используется OR?

Nitrogenium · 15.02.2011, 13:13

Уж все что можно перебрал - ничего не подходит: набор не создается
...либо фильтр не работает

TararykovDG · 15.02.2011, 13:15

Цитата:

Уж все что можно перебрал - ничего не подходит: набор не создается
...либо фильтр не работает

Выкладывай чертеж где не создается

Do$ · 15.02.2011, 13:19

Цитата:

Сообщение от Nitrogenium

(ssget "_C" po1 po2 (list (cons -4 "<OR") (cons 0 "*TEXT") (cons 8 "Layer002") (cons 1 "ПК #+##'.##") (cons -4 "OR>")))

на русский язык это выражение можно перевести так:
создать набор объектов, попавших в секущую рамку, определяемую точками po1 и po2, при этом объект набора должен быть или текстом или на слое "Layer002" или в его dxf-коде 1 должна содержаться строка, отвечающая шаблону "ПК #+##'.##"

Nitrogenium · 15.02.2011, 13:23

Вот файл - особенного ничего не представляет - создан в целях отладки

Цитата:

на русский язык это выражение можно перевести так:
создать набор объектов, попавших в секущую рамку, определяемую точками po1 и po2, при этом объект набора должен быть или текстом или на слое "Layer002" или в его dxf-коде 1 должна содержаться строка, отвечающая шаблону "ПК #+##'.##"

Да, при попытке прописать AND отказывается создавать набор
Выяснилось, что апостраф '. работать не хочет, а просто . работает
Все - разобрался: должен использоваться `, а не '

TararykovDG · 15.02.2011, 14:16

Ну вот на вашем чертеже так все работает

Код:

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

 
(setq nbr (ssget "_X" (list (cons 0 "*TEXT") (cons -4 "<OR") (cons 1 "ПК #+##`.##") (cons 1 "ПК ##+##`.##") (cons 1 "ПК ###+##`.##") (cons 1 "ПК ####+##`.##") (cons 1 "ПК #####+##`.##") (cons -4 "OR>"))))

По-моему Вы в предыдущих примерах использовали символ " ' " (апостроф), в конструкции (cons 1 "ПК #+##'.##"), а нужно " ` " (обратный апостроф) поэтому и не работало

P.S не успел автор сам разобрался

Nitrogenium · 15.02.2011, 15:48

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

Дима_ · 15.02.2011, 17:02

Цитата:

Сообщение от Nitrogenium

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

ИХМО только вторым метод в #2.

hwd · 15.02.2011, 17:19

Цитата:

Сообщение от Nitrogenium

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

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

Цитата:

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

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

Sad Dog · 15.02.2011, 19:40

Цитата:

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

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

Кулик Алексей aka kpblc · 15.02.2011, 19:42

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

hwd · 15.02.2011, 21:15

Цитата:

Сообщение от Sad Dog

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

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

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

Неправильно тебе кажется.

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

Кулик Алексей aka kpblc · 15.02.2011, 21:18

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

hwd · 15.02.2011, 21:26

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

т.е. отметается даже VisualLisp?

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

Дима_ · 15.02.2011, 21:28

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

hwd · 15.02.2011, 21:33

Цитата:

Сообщение от Дима_

интерфейс с ней

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

Sad Dog · 15.02.2011, 21:33

Удалено.

см. пост № 33

Nitrogenium · 15.02.2011, 21:34

Цитата:

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

Вообще да, только я обычно перед тем, чтобы что-то вставить в свой код это анализирую

А вот чисто средствами AutoLisp и VisualLisp это возможно? То есть чтоб был 1 файл *.lsp

Дима_ · 15.02.2011, 21:54

Цитата:

Сообщение от hwd

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

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

hwd · 15.02.2011, 22:02

Цитата:

Сообщение от Дима_

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

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

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

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

Sad Dog · 15.02.2011, 22:23

Цитата:

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

Вот решение.

Код:

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

 (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, осуществляя фильтрацию примитивов при создании наборов. Имеющихся возможностей, как правило, вполне достаточно.

Дима_ · 15.02.2011, 22:51

Цитата:

Сообщение от hwd

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

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

hwd · 15.02.2011, 23:00

Цитата:

Сообщение от Дима_

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

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

Disney · 16.02.2011, 05:41

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 · 16.02.2011, 08:42

Цитата:

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

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

Александр Ривилис · 16.02.2011, 09:00

Цитата:

Сообщение от Nitrogenium

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

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

Nitrogenium · 16.02.2011, 09:15

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

Disney · 16.02.2011, 09:34

Цитата:

Сообщение от Nitrogenium

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

Цитата:

Сообщение от Nitrogenium

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

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

Nitrogenium · 16.02.2011, 09:40

Да, именно так - надо чтобы все пикеты были оформлены одинаково. Часто они уже подписаны

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
создание набора с помощью activeX	Composter	Программирование	3	15.05.2009 00:11

15.02.2011, 10:16		#1
*Создание набора с помощью ssget из примитива TEXT, содержащего любое количество цифр** Nitrogenium инженер Санкт-Петербург Регистрация: 02.03.2010 Сообщений: 69 Собственно, вопрос ясен из заголовка - надо создать набор из примитивов 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 - это координаты точек
Просмотров: 7976