[Serge_BN]

Маркер или выноска, которая имеет следующий формат

Код:

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

маркер: однострочный_текст
;
однострочный_текст:префикс дефис инфиксы постфикс
;
префикс: текст
;
дефис: пусто
  | пробел
  | '-'
  | '.'
;
инфиксы: пусто
  | инфикс разделитель
  | инфикс разделитель инфиксы
;
инфикс: целое
;
разделитель: '.'
  | '-'
  | '/'
;
постфикс: целое
;

При этом постфикс начинается с 0 и при каждой последующей вставке увеличивается на 1
при смене префикса либо инфикса постфикс сбрасывается в 0.
Вначале выполнения команды задаются все ~фиксы, количество инфиксов, т.е. желательно, просто ввести К-1.1.0, либо ткнуть в существующий маркер, команда должна его распознать и от него продолжить далее. По умолчанию, например (U-1.1.0).
Соответственно должна быть предусмотрена возможность изменения префикса, инфикса при выполнении команды.
Так же должна быть возможность задать произвольный постфикс.

[Profan]

Хоть бы пример привел, а то сплошная фикса.

[Serge_BN]

Сообщение от Profan Хоть бы пример привел, а то сплошная фикса.

U-1.1.0, U-1.1.1, U-1.1.2 ...U-1.1.100, U-1.2.0, U-1.2.1...
R-1, R-2, R-3....
K-1.1.1.0, K-1.1.1.1, K-1.1.1.2.....
C 1, C 2, C 3....
DD1, DD2, DD3...

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

Попробуй поиск по форуму (слово "автонум*") - может, и найдешь решение.

[E-degtyarev]

Вот набросал наспех.

Код:

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

(defun C:mar ()
  (defun poz_rus ()
    (setq stroka (strcat telo1 post1))
    (setq dlina (strlen stroka))
    (while (setq st (getpoint "\nУкажите точку начала выноски : "))
      (setq st1 st)
      (setq en (getpoint st "\nСледующая точка выноски : "))
      (setq en1 en)
      (command "_Circle" st 0.25)
      (command "_Line" st en "")
      (setq st en)
      (setq sm (getpoint st "\nУкажите сторону отрисовки полочки : "))
      (if (<= (car st) (car sm))
	(progn
	  (setq sm (polar st 0.0 (* dlina 4)))
	  (command "_Line"
		   st
		   sm
		   ""
	  )
	  (command "_Text"
		   (list (car st) (+ (cadr st) 1.5))
		   5.0
		   0.0
		   stroka
	  )
	)
	(progn
	  (setq sm (polar st pi (* dlina 4)))
	  (command "_Line"
		   st
		   sm
		   ""
	  )
	  (command "_Text"
		   (list (- (car st) (* dlina 4)) (+ (cadr st) 1.5))
		   5.0
		   0.0
		   stroka
	  )
	)
      )
      (setq post_1 (+ 1 post_1))
      (setq post1 (itoa post_1))
      (setq stroka (strcat telo1 post1))
    )
  )
  (defun prisvoen ()
    (setq telo1 (get_tile "telo"))
    (setq post1 (get_tile "post"))
    (setq post_1 (atoi post1))
  )
  (defun poz (/ dcl_id)
    (setq dcl_id (load_dialog "marker.dcl"))
    (new_dialog "poz" dcl_id)
    (set_tile "telo" telo1)
    (set_tile "post" post1)
    (action_tile "MyOK" "(prisvoen)(done_dialog)")
    (action_tile "cancel" "(done_dialog)")
    (start_dialog)
    (unload_dialog dcl_id)
  )
  (if (= telo1 nil)
    (setq telo1 "U.U.U")
  )
  (if (= post1 nil)
    (setq post1 "1")
  )
  (poz)
  (poz_rus)
)

Код:

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

poz : dialog {
 	label = "МАРКЕР";
 	:row {
 		:edit_box {
 		label = "Тело";
		 key = "telo";
 		}
 		:edit_box {
 		label = "Постфикс";
		 key = "post";
 		}
 }
 : row {
       : button {
	        label = "Выполнить";
		key = "MyOK";
       }
       cancel_button;
 }
}

[Serge_BN]

Спасибо всем, кто откликнулся.
Позволю себе несколько уточнить задачу.
Начнем с примера
U-1.1.0
здесь U это префикс и он может быть любым, т.е. должна быть возможность задать его в виде набора символов (U, DD, AA, etc);
- черточка это дефис, он тоже может быть любым из набора символов '-', '.',' ', либо его может и не быть вовсе;
первая единица - это инфикс - просто целое число, которое задается;
точка за первой единицей - это разделитель из набора символов '.', '-', '/', ' ', последнее это пробел, присутствует в выражении обязательно. Разелитель и дефис в одном выражении могут быть разными, а могут и совпадать, поэтому это разные синтаксические конструкции;
вторая единица - это тоже инфикс;
точка за ним это разделитель;
инфиксов может быть произвольное количество либо вообще может и не быть;
0 - это постфикс или суффикс, к нему должна применятся операция инкремент, т.е. его значение увеличивается каждый раз на 1 начиная с некоторого заданного значения.

В первом свое посте я привел синтаксическую нотацию данного маркера. Это просто описание синтаксиса данного регулярного выражения. Никаких пояснений я не привел в надежде на то, что программисты понимают без дополнительных разъяснений что это такое.
Так вот задачу можно перефразировать следующим образом.
1. Необходимо создать генератор регулярного выражения с указанным синтаксисом.
2. Создать парсер, который будет разбирать поданное ему на вход регулярное выражение и, если оно соответствует указанному синтаксису, то принимать его выделяя из него синтаксические конструкции - префикс, инфикс, постфикс и разделители, создавая при этом список значений и принимая его за образец для генерации последующих выражений.
Это необходимо для того, что бы при использовании данной команды мне не надо было каждый раз вводить все параметры регулярного выражения, а я мог бы просто ткнуть в существующее регулярное выражение, которое послужит образцом либо задать образец прямо в командной строке, например ВВ1-2. Тем самым избавляясь от необходимости создавать диалоги, иметь кучу опций и прочие неудобства.
Кроме того, имея такой парсер можно будет создать команду, которая будет анализировать весь текст, выбирать из него те выражения, которые будут соответствовать данному регулярному выражению, подсчитывать число типов вхождений по префиксу, заполнять спецификацию, да и еще много чего можно придумать. И при этом можно обходиться без блоков, без атрибутов. А если нужны дополнительные данные для заполнения, к примеру спецификации, всегда можно создать обычный текстовый файл, в котором будут хрвнится эти данные и выбирать их от туда по ключу, значением которого выступает префикс регулярного выражения.

[E-degtyarev]

Прочитав пост №6, захотелось напиться. Никогда не думал, что я такой тупой.Так Вам маркер или базу данных?

[Serge_BN]

Мне нужен только маркер. Но этот маркер должен быть в состоянии сгенерировать и разобрать регулярное выражение указанного типа.
У меня создается такое впечатление, что необходимо еще растоковать что такое регулярное выражение, хотя, все же я надеюсь на то, что господа программисты, обитающие на этом форуме, все же знают что такое регулярное выражение и что такое синтаксис регулярного выражения и как он записывается. Ну и можно обратиться к вики http://ru.wikipedia.org/wiki/%D0%A0%...BD%D0%B8%D1%8F
На С или С++ такого рода программа делается со скоростью с которой вы можете набивать текст и никаких трудностей не предствляет. В использовании лиспа у меня очень малый опыт, поэтому я и обратился сюда. И мне нужна программа на лиспе именно в такой постановке - обработка регулярного выражения указанного типа.

[E-degtyarev]

Извините, здесь к сожалению не все профессиональные программисты.
Я, например, инженер-механик, работаю конструктором, программироыванием балуюсь по долгу службы. Если Вы профессиональный программист, Вам должно быть легко освоить еще один язык. Классический Lisp достаточно прост для понимания.
А разбираться с парсерами грабберами и регулярными выражениями мне
уже не по годам.
С уважением, E-degtyarev.

[Serge_BN]

А разбираться с парсерами грабберами и регулярными выражениями мне уже не по годам.

Способность мыслить это неотъемлемая способность и она не теряется с возрастом. Ее, правда, можно на время отключать, например пивом, но я думаю, мы не об этом . Спасибо за поддержку.

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

По-моему, именно из-за неопределенности префикса и разделителя нарисовывается некоторая проблема: к примеру, текст 11.1.1 - его как разбирать? Может, я просто не задал префикс? Или он равен "1"?
По идее надо вводить какие-то ограничения. Или я ошибаюсь?

[Serge_BN]

Да, я не расписал достаточно подробно префикс.
Префикс это текст.
А текст это буква за которой следуют буквы.
В этом случае разночтений не возникнет потому как
за префиксом следует дефис, это либо '-', либо '.', либо ничего, либо пробел. И даже в случае "ничего" следующим символом будет цифра (и еще цифры). И если за ней следует точка или другой разделитель, то это инфикс, которого может быть несколько. Если разделителя нет, то это однозначно постфикс.

Тотже синтаксис, но другими словами и более сжато
[a-zA-Z]+[-|\.|' ']?([0-9]+[\.|-])*[0-9]+
где ? это один из указанных символов, которого может и не быть
+ это один или более
* это 0 или более
под данный синтаксис попадают выражения
DD-1, DD-2, DD1, DD2
A-1.1.2, А-1.2.5
К1.2, К1.3
Е-1.12.41.1000.100
и т.д
DD, A, K, E это префиксы. И префикс по условию присутствует всегда.
Привожу исправленный синтаксис.

Код:

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

маркер: однострочный_текст
;
однострочный_текст:префикс дефис инфиксы постфикс
;
префикс: буквы
;
буквы: буква
  | буква буквы
;
буква: а-яА-я | а-zА-Z
;
дефис: пусто
  | пробел
  | '-'
  | '.'
;
инфиксы: пусто
  | инфикс разделитель
  | инфикс разделитель инфиксы
;
инфикс: целое
;
разделитель: '.'
  | '-'
  | '/'
;
постфикс: целое
;

[CB]

Код:

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

(defun test (str / prefix defis infix postfix)
 (setq prefix ""
       defis ""
       infix ""
       postfix ""
 ) ;_  setq
  ;префикс
 (while (wcmatch (substr str 1 1) "@")
  (setq prefix (strcat prefix (substr str 1 1))
        str    (substr str 2)
  ) ;_  setq
 ) ;_  while
  ;дефис
 (if (wcmatch (substr str 1 1) "-,`., ")
  (setq defis (substr str 1 1)
        str   (substr str 2)
  ) ;_  setq
 ) ;_  if
  ;инфикс c постфиксом
 (while
  (progn (while (wcmatch (substr str 1 1) "#")
          (setq postfix (strcat postfix (substr str 1 1))
                str     (substr str 2)
          ) ;_  setq
         ) ;_  while
         (if (wcmatch (substr str 1 1) "-,`.,`/")
          (setq infix   (strcat infix postfix (substr str 1 1))
                postfix ""
                str     (substr str 2)
          ) ;_  setq
         ) ;_  if
  ) ;_  progn
 ) ;_  while
 (mapcar 'cons
         (list "префикс"     "дефис"
               "инфикс"      "постфикс"
               "остаток"
              ) ;_  list
 ;_  list
 ;_  list
         (if (= str "")
          (list prefix defis infix postfix)
          (list prefix defis infix postfix str)
         ) ;_  if
 ) ;_  mapcar
) ;_  defun

Использование

Код:

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

(test "Е-1.12.41.1000.100")
-> (("префикс" . "Е") ("дефис" . "-") ("инфикс" . "1.12.41.1000.") ("постфикс" . "100"))
(test "Е-1.12.41.1000.100A")
->(("префикс" . "Е") ("дефис" . "-") ("инфикс" . "1.12.41.1000.") ("постфикс" . "100") ("остаток" . "A"))
(test "DD2")
->(("префикс" . "DD") ("дефис" . "") ("инфикс" . "") ("постфикс" . "2"))

[Serge_BN]

О, это чудо! Это работает! И даже, еще получаем остаток.
Просто замечательно.
По ходу дела у меня есть вопросы. Функция wsmatch принимает в качестве параметра некое выражение. В хелпе я не нашел правила и синтаксис этих выражений. В частности символы @, #, где можно найти подробнее об этом? Почему написано '. и '/ я догадываюсь, но, опять-таки, где это можно прочитать?
И следующее, если вас не затруднит, обратная задача.
Сгенерировать по заданному шаблону выражение с инкрементом постфикса. Пожалуйста.

[CB]

Вооще-то в хэлпе всё по функции wcmatch есть, но можешь еще почитать и здесь.

Код:

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

;разбираем регулярное выражение
(setq lst (test "А-1.2.10"))
;инкрементируем постфикс
(setq
 lst (subst
      (cons
       "постфикс"
       (rtos
        (1+ (atoi (cdr (assoc "постфикс" lst))))
        2
        0
       ) ;_  rtos
      ) ;_  cons
      (assoc "постфикс" lst)
      lst
     ) ;_  subst
) ;_  setq
;собираем регулярное выражение
(apply 'strcat (mapcar 'cdr lst))

[Serge_BN]

Спасибо за дополнительную инфу.
Пытаюсь понять как это работает и заодно начинаю осознавать, что лисп обладает очень большой мощьностью при минимальном количестве выразительных средств.
Интересно, как бы можно было создать на нем некий шаблон конечного автомата со стеком для обработки контекстно свободных грамматик? Но это так, пока теория.
Я впишу в код свои комменты. Если что не правильно, поправьте, плз.

Код:

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

;разбираем регулярное выражение
(setq lst (test "А-1.2.10"))
;инкрементируем постфикс
(setq
 lst (subst
      (cons
       "постфикс"
       (rtos
        (1+ (atoi (cdr (assoc "постфикс" lst))))
;asscos возвращает из lst список ассоциированный с "постфикс"
;cdr берет из него остаток, т.е. строку со значением постфикса
;atoi преобразовывает строку в число
;1+ увеличивает на 1 это число
        2
        0
       ) ;_  rtos
;rtos преобразовывает число в строку
      ) ;_  cons
;cons создает новый список ("постфикс" . "число")
      (assoc "постфикс" lst)
;здесь еще раз assoc ??? :(
      lst
     ) ;_  subst
;subst заменяет в списке lst список "постфикс" на новый "список "постфикс"
) ;_  setq
;собираем регулярное выражение
(apply 'strcat (mapcar 'cdr lst))

А вот как работает сборка, я что-то не очень понимаю. Смысл, наверное, таков,что cdr возвращает хвосты, содержащие значения элементов шаблона и потом strcat из этих значений собирает строку.
Не понятно вот что, зачем нужны операции ' и как работает mapcar в паре с apply.

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

Замечание. Протестировал функцию (test "21A-1.2.10") и пр. с намеренными "неправильными" выражениями. Обнаружил побочный эффект. 21A-1.2.10 попало в остаток??? и естественно инкремент не может быть применен. Т.е. получается, что все выражения попадают под эту грамматику. Это не правильно. Функция, все-таки должна вернуть либо nil либо пустой список (что удобнее и правильнее??) в случае, если тестируемое выражение не удовлетворяет шаблону регулярного выражения.

[CB]

;cons создает новый список ("постфикс" . "число") (assoc "постфикс" lst) ;здесь еще раз assoc ???

Фукнкция subst имеет следующий синтаксис : (subst newitem olditem lst)
Здесь

Код:

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

(cons
   "постфикс"
     (rtos
       (1+ (atoi (cdr (assoc "постфикс" lst))))
        2
        0
      ) ;_  rtos
 )

- newitem (новый подсписок)

Код:

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

(assoc "постфикс" lst)

- olditem (заменяемый подсписок в списке lst)

зачем нужны операции '

' это сокращенная запись функции quote. В данном случае cdr интерпретирунтся как ФУНКЦИЯ, хотя могла бы быть и переменной. Разные формы записи данного выражения:

Код:

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

(mapcar 'cdr lst)
(mapcar (quote cdr) lst)
(mapcar (function cdr) lst)
(mapcar '(lambda (x) (cdr x)) lst)
(mapcar (function (lambda (x) (cdr x))) lst)

Как работает apply почитай в хелпе - (apply 'function lst), т.е. она выполняет function, аргументы которой заданы списком:

Код:

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

 
(strcat "a" "b" "c")
(apply 'strcat '("a" "b" "c")) 
(apply (function strcat) '("a" "b" "c"))
(apply (function strcat) (list "a" "b" "c"))

Так вот (mapcar 'cdr lst) и есть аргументы для ф-ции strcat.

Протестировал функцию (test "21A-1.2.10") и пр. с намеренными "неправильными" выражениями...

Код:

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

 
(setq lst (test "21A-1.2.10"))
-> (("префикс" . "") ("дефис" . "") ("инфикс" . "") ("постфикс" . "21") ("остаток" . "A-1.2.10"))

Я намеренно делал результирующий список в такой форме, потому что проанализировать его на "неправильность" не представляет никаких трудностей - в "правильном" списке ОБЯЗАТЕЛЬНО не должен быть "префикс" и "постфикс" равным ("") и отсутствовать "остаток". Естественно этот анализ должен проводится в программе, которая запускает функцию test.
Возвращает Т для "правильного" списка:

Код:

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

 
(and (/= (cdr (assoc "префикс" lst)) "")
     (/= (cdr (assoc "постфикс" lst)) "")
     (not (assoc "остаток" lst))
)

[FONT=Verdana]вызывается команда, например mmark (make marker), она запрашивает образец, который можно ввести в командной строке либо указать мышкой в существующий на чертеже, после чего команда запрашивает точку вставки сформированного маркера, потом следующую точку и т.д. пока не будет нажата клавиша Esc. либо правая кнопка мыши[/FONT]

Как я понимаю новый сформированный маркер и последующие должены вставляться с инкрементом постфикса?

[Serge_BN]

Спасибо.

Как я понимаю новый сформированный маркер и последующие должены вставляться с инкрементом постфикса?

Да, именно так.

[CB]

вызывается команда, например mmark (make marker), она запрашивает образец, который можно ввести в командной строке либо указать мышкой в существующий на чертеже, после чего команда запрашивает точку вставки сформированного маркера, потом следующую точку и т.д. пока не будет нажата клавиша Esc. либо правая кнопка мыши

Переход от ввода с командной строки на выбор образца - ПКМ, выход из цикла - ESC. Пока не получилось нормально обработать такую ситуацию: вводим образец из камандной строки, на чертеже нет ни одного объекта - не вставив образец в чертеж пытаемся выйти из команды по Esc -> не выходит из цикла. В этой ситуации нужно хотя бы один образец вставить в чертеж. Может есть и еще что-либо - сильно не тестировал...
PS: Естественно функция test, сделанная раньше, должна быть загружена.

Код:

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

(defun c:mmark (/ obj l lst pt str b)
 (if
  (progn
   (setq
    l (list (cons 1 (getstring "\nВведите образец: "))
            '(0 . "TEXT")
            (cons 40 (getvar "TEXTSIZE"))
      ) ;_  list
   ) ;_  setq
   (if (/= (cdar l) "")
    (setq lst (test (cdar l))
          obj t
    ) ;_  setq
    (progn (setq obj (car (entsel "\nВыберите образец: ")))
           (if obj
            (setq obj (entget obj)
                  l   (mapcar '(lambda (x) (assoc x obj)) '(1 0 7 8 62 40))
                  obj nil
                  lst (test (cdar l))
            ) ;_  setq
           ) ;_  if
    ) ;_  progn
   ) ;_  if
  ) ;_  progn
  (if (and (/= (cdr (assoc "префикс" lst)) "")
           (/= (cdr (assoc "постфикс" lst)) "")
           (not (assoc "остаток" lst))
      ) ;_  and
   (progn
    (setq pt (cadr (grread 5)))
    (while (if b
            (setq b (entnext b))
            (or (setq b (entlast)) t)
           ) ;_  if
     (if (not obj)
      (setq lst
            (subst
             (cons
              "постфикс"
              (rtos (1+ (atoi (cdr (assoc "постфикс" lst))))
                    2
                    0
              ) ;_  rtos
             ) ;_  cons
             (assoc "постфикс" lst)
             lst
            ) ;_  subst
      ) ;_  setq
      (setq obj nil)
     ) ;_  if
     (setq str (apply 'strcat (mapcar 'cdr lst)))
     (vl-cmdf
      "_cutclip"
      (entmakex
       (append (cdr l)
               (list (cons 1 str) (cons 10 pt))
       ) ;_  append
      ) ;_  entmakex
      ""
      "_pasteclip"
      pause
     ) ;_  vl-cmdf
     (setq pt (getvar "lastpoint"))
    ) ;_  while
   ) ;_  progn
   (princ "\nОбразец не соответствует синтаксису")
  ) ;_  if
  (princ "\nОбразец не выбран")
 ) ;_  if
 (princ)
) ;_  defun

[Serge_BN]

Команду протестировал. Работает нормально и по Esc выходит в пустом чертеже. Огромное спасибо. Получилось то, что надо. Уже применяю в работе.

Некоторые строки мне не понятны

Код:

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

(setq
    l (list (cons 1 (getstring "\nВведите образец: "))
;Я так понимаю, что сдесь предлагается ввести образец маркера, но для чего нужны следующие строки?
            '(0 . "TEXT")
            (cons 40 (getvar "TEXTSIZE"))
      ) ;_  list
   ) ;_  setq

И далее вот это:

Код:

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

;запрашиваем образец маркера
    (progn (setq obj (car (entsel "\nВыберите образец: ")))
;зачем car?
           (if obj
            (setq obj (entget obj) ;что здесь получаем из obj?
; и далее какой-то танец с лямбдой?
                  l   (mapcar '(lambda (x) (assoc x obj)) '(1 0 7 8 40))
                  obj nil
                  lst (test (cdar l))
            ) ;_  setq
           ) ;_  if
    ) ;_  progn

Все остальное, вроде понятно. Так я и сам скоро что-либо напишу.
А из этого что-либо мне видится следующее.
Сейчас имеется функция test, я бы обозвал ее, все-таки mparse, потому как она выполняет именно разбор выражения. Далее, есть небольшой довесок к ней, который определяет принадлежит ли данное выражение указанной грамматике. Этот довесок можно оформить в виде функции mtest, котороя будет принимать список от mparse и возвращать Т если выражение соответствует грамматике М (маркер). Таким образом применяя эти две функции к множеству всех выражений мы можем получить подмножество всех маркеров в данном чертеже.
И есть, надо только оформить в виде функции, генератор регулярного вражения удовлетворяющего грамматике М, обзавем ее mgen (marker generator).
Но само по себе множество всех маркеров не очень интересно. Хотелось бы иметь функцию mfind, которая была бы способна находить среди множества всех маркеров маркер удовлетворяющий заданному условию. Например, найти все маркеры с прeфиксом R, или BTH. Префикс можно задать списком (R), (К, ВТН, ВТМ) и т.п. Кроме того, можно было бы критерием поиска задать поиск маркеров с заданными префиксом и инфиксом, ну и для полноты можно задать префикс, инфикс и потфикс, что бы найти конкретный маркер.
Возможно задать не полный префикс или инфикс, например (префикс ВТН инфикс 2.*) или (префикс ВТ*)(инфикс 2.*)
Найденные маркеры можно размещать в списке, который будет пуст, если ничего не найдено.
Имея такой список можно довольно легко подсчитать количество вхождений всех маркеров заданного типа, например количество R, C, D.
Там где есть поиск, может быть и замена.
Заменить префикс, заменить инфикс для указанного префикса.
Ну и конечно функция delete.
На основе этого можно создать довольно мощный инструмент для работы с текстовыми данными в чертеже, и областью применения которого могут быть чертежи из разделов СС, автоматизации, ЭО и т.п.
Эх как меня занесло далеко.
Но, вообще, меня интересуют сейчас возможности лисп по обработке контекстно свободных грамматик. Потому как регулярные выражения обладают наименьшей мощностью из всех типов грамматик, хотя и довольно часто применяются на практике. Но для реализации КС-грамматики необходим автомат со стеком. Как, интересно, обстоят дела в лиспе со стеком? Как его тут можно реализовать? Да и автомат как реализовать мне не ясно? Но это уже от недостаточного знания лиспа. Блн, последний абзац надо воспринимать как свободные блуждания в туманной области.
Ну что же. Первый цикл завершен успешно. Приступим к следующему. К реализации намеченных выше функций.
Дополнение.
Для полноты поиска надо еще сделать поиск первого маркера и поиск последнего маркера.
Причем P1.1.5>P1.1.2, P1.3.1>P1.2.100, т.е. при сравнении учитывать инфиксы поразрядно, а потом сравнивать постфикс.
Попробую сконструировать функцию mfind_last. Как всегда m - приставка, означающая функцию для работы с маркерами, find_last - наити последний (с наибольшим номером) маркер

Код:

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

(defun mfind_last ( template / )
;выбрать все текстовые примитивы
  (setq sstxt (ssget "X" '((0 . "TEXT"))))
  ;оставить в наборе только те, которые подходят по template (шблон)
  
  ;упорядочить набор по убыванию
  ;первый элемент в наборе и будет последним (наибольшим) в последовательности
)

Шаблоном может быть выражение, например "DD", "BTH", "BTM1.2.", "BTM2." .
Точка в шаблоне говорит о том что это инфикс а не постфикс.
Тогда функция mfind_last будет выглядеть так

Код:

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

(defun mfind_last ( template / )
  ;выбрать все текстовые примитивы
  (setq mlist (ssget "X" '((0. "TEXT"))))
  ;оставить в списке mlist только маркеры попадающие по шаблон
  (mf template mlist)
  ;упорядочить набор по убыванию
  (mto_order_seq mlist)
  ;первый элемент в наборе и будет последним (наибольшим) в последовательности
)
(defun mf (mlist template / ) ;фильтр для отбора
  ;сформировать отфильтрованный список
  ;здесь как-то применить mparse и mtest для формирования нового отфильтрованного списка
  ;плюс правила отбора
  ;если после префикса в шаблоне * или ничего (пример, DD, DD*), то выбираем все маркеры с данным префиксом
  ;если задан префикс и инфикс (пример BTH-1.*), то поступаем аналогично, но с учетом инфикса. Здесь работает простой текстовый фильтр на основе функции wcmatch.
)
(defun mto_order_seq( mlist / ) ;mlist - список маркеров
  ;упорядочить список маркеров по убыванию
  ;правила для операции >
  ;(= префикс template_prefix) and
  ;(>= infix template_infix) and
  ;(> postfix template_postfix) 
  ;что типа вот так будет выглядеть
  ;(and (and (= префикс template_prefix) (>= infix template_infix) (> postfix template_postfix))) - T
)

Вот такая, приблизительно, конструкция получается.
Далее.
На основе фильтра mf можно создать функцию mcount для подсчета количества элементов по шаблону, например (mcount "DD"), (mcount "BTH"), (mcount "RJ*"), (mcount "BTM1.2.*) - все BTM в первом подъезде на втором этаже или от ЩА2, кто как там обозначает.

Код:

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

(defun mcount (template / )
  ;выбрать все маркеры
  ;отфильтровать их по шаблону
  ;подсчитать количество элементов в списке, это и будет искомое число элементов
)

Везде пишу заготовки или основные конструкции функций. На качественную реализацию не хватает знаний и опыта. Поэтому, плз, помогите, кто чем может.

На основе функции mfind_last можно создать функцию madd.template, которая будет находить последний (с наибольшим номером) элемент и генерировать новый маркер (функция mgen). Тем самым будет гарантировано, что разные элементы имеют разные маркеры.
У функции mgen должен быть параметр
- 0 - не изменять постфикс;
- 1 (или +) - инкремент постфикса;
- 2 (или -) - декремент постфикса.
- по умолчанию действует 1 (или +), т.е. инкремент.

Блоки.
Маркер может быть привязан к атрибуту блока. При вставке блока будет вызываться mgen, генерируя новый маркер.
Ну обработка блоков с маркерами и прочими атрибутами это уже отдельная песня. Ее споем чуть по позже.

Сейчас надо определить функции замены и удаления маркера.

Код:

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

(defun mreplace ( template sample / ) ;заменить шаблон на образец
  ;для каждого найденного маркера произвести замену
  ;пример, BTH поменять на BTM, U-1.2. заменить нa U-2.2
)
(defun msreplace ( "/template/sample/g" )
  ;другая форма функции замены. Параметр задается в виде строки
  ;где / разделитель, g - опция глобальной замены, если она отсутствует
  ; то замена производится только один раз для первого найденного маркера.

)
(defun mdelete (template / )
  ;удалить найденный маркер
)