[SilvioManuel]

Как создать набор из текстовых объектов по части содержимого? Возникла необходимость перенести на отдельный слой значения архивных номеров, кот. описаны так: (арх.N )

[АлексЮстасу]

Quick Select-->Text-->Contents, включить опцию *Wildcard Match, ввести в строку Value (арх.N)* или *арх.N*

[Лиспер]

Либо использовать быстрый выбор, либо программку:

Код:

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

 (vl-load-com)

(defun c:chtlayer (/ adoc mask caps layer)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (= (type
           (setq
             mask (vl-catch-all-apply
                    (function
                      (lambda ()
                        (getstring t
                                   "\nВведите маску текста <Отмена> : "
                                   ) ;_ end of getstring
                        ) ;_ end of lambda
                      ) ;_ end of function
                    ) ;_ end of vl-catch-all-apply
             ) ;_ end of setq
           ) ;_ end of type
         'str
         ) ;_ end of =
      (/= mask "")
      (=
        (type
          (setq
            caps (vl-catch-all-apply
                   (function
                     (lambda ()
                       (initget "Да Нет Yes No _ Y N Y N")
                       (cond
                         ((getkword
                            "\nУчитывать регистр [Да/Нет] <Нет> : "
                            ) ;_ end of GETKWORD
                          )
                         (t "N")
                         ) ;_ end of cond
                       ) ;_ end of lambda
                     ) ;_ end of function
                   ) ;_ end of vl-catch-all-apply
            ) ;_ end of setq
          ) ;_ end of type
        'str
        ) ;_ end of =
      (= (type (setq layer
                      (vl-catch-all-apply
                        (function
                          (lambda ()
                            (getstring
                              t
                              "\nИмя слоя, на который надо поместить тексты <Отмена> : "
                              ) ;_ end of getstring
                            ) ;_ end of lambda
                          ) ;_ end of function
                        ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'str
         ) ;_ end of =
      (/= layer "")
      ) ;_ end of and
     (progn
       (if (= caps "Y")
         (setq mask (strcase mask))
         ) ;_ end of if
       (foreach item
                ((lambda (/ tab item selset)
                   (repeat (setq tab  nil
                                 item (sslength (setq selset (ssget "_X"
                                                                    (list '(0 . "TEXT")
                                                                          (cons 1 mask)
                                                                          ) ;_ end of list
                                                                    ) ;_ end of ssget
                                                      ) ;_ end of setq
                                                ) ;_ end of sslength
                                 ) ;_ end setq
                     (setq
                       tab (cons (ssname selset (setq item (1- item)))
                                 tab
                                 ) ;_ end of cons
                       ) ;_ end of setq
                     ) ;_ end of repeat
                   ) ;_ end of lambda
                 )
         (vl-catch-all-apply
           (function
             (lambda ()
               (entmod (subst (cons 8 layer)
                              (assoc 8 (entget item))
                              (entget item)
                              ) ;_ end of subst
                       ) ;_ end of entmod
               (entupd item)
               ) ;_ end of lambda
             ) ;_ end of function
           ) ;_ end of vl-catch-all-apply
         ) ;_ end of foreach
       ) ;_ end of progn
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(princ "\nPress chtlayer to start command")
(princ)

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

То, что касается оформления, перенесено в http://forum.dwg.ru/showthread.php?t=9952

[SilvioManuel]

Сообщение от Лиспер Либо использовать быстрый выбор, либо программку:

мне не нужен выбор букв (арх.). Мне нужен выбор (арх.) со всеми приписанными номерами. У меня русифицированная версия автокада и я перепробовал все значения выбора по опции (Соntents или Содержимое) - не выходит. Я загрузил ваш лисп, ввёл команду и она мне что-то предлагает. Не подскажите как дальше действовать? Вводить символ ">" и писать значение? Да, и возможно ли более краткое описание функции для ввода?

[Лиспер]

Маска текста: арх.*
То есть обязательны символы "арх." и потом любое количество любых символов.
Учитывать регистр - решать пользователю. Если ответить "Да", то будут выбираться тексты и "арх.", и "Арх.", и "аРх."
Ну а имя слоя надо вколачивать руками. Если слой не существует, он будет создан.

[SilvioManuel]

когда я вбиваю после символов (_> значение (арх. и ептег, то он добавляет ещё одну скобку к этим трём символам. Я что-то не так сделал?

[Лиспер]

Если есть символы "(_ >", значит, скопировано не все: нарушено согласование скобок.

[SilvioManuel]

Т.е. не всё скопированно что выложенно или то может быть ещё выложенно? Ctrl+A,Ctrl+C,Ctrl+V - это правильно? Всё равно эти символы выходят. Тот код который выложен корректен?

[Лиспер]

SilvioManuel, посмотри видео http://forum.dwg.ru/showpost.php?p=6...postcount=2554 - там все нормально показано.
Плюс статья Как использовать лисп, опубликованный на форуме

[SilvioManuel]

может я неправильно команду ввожу?(defun c:chtlayer (/ adoc mask caps layer). или не тот блокнот ипользую? А тип операцинной системы имеет значение? у меня ХР

[Лиспер]

Если лисп уже загружен, то в ком.строку достаточно ввести chtlayer - и команда будет запущена на выполнение

[SilvioManuel]

всё заработало. Спасибо. Видно впервый раз я неполностью скопировал, когда ввёл команду chtlayer он выдал что незнает её. Сейчас проблема в том что я ввожу маску "(арх.", затем подтверждаю регистр, потом вбиваю название слоя и ... ничего не происходит. Может подредактировать код чтобы он просто выделял ввесь текст с содержанием(арх. а там я его сам закину в слой

[privodnik]

лисп запускается, предлагает ввести маску, регистр да\нет, запрашивает имя слоя...но при попытке выполнения выдает:"; ошибка: неверный тип аргумента: lselsetp nil"

[Лиспер]

Файлик хотелось бы глянуть и критерии выполнения. Мне лениво как-то выдумывать...

[Disney]

Ещё раз посмотри внимательно "Быстрый выбор"

[privodnik]

Сообщение от Disney Ещё раз посмотри внимательно "Быстрый выбор"

ага, с текстом понятно...
а еще мне надо найти мультивыноски с определенной частью текста, это как-то возможно? а то что-то не выходит...

[Disney]

privodnik, у мультивыносок есть точно такое же свойство "содержимое"
[IMG]http://s39.***********/i086/1101/6b/4ac7f852dea3.jpg[/IMG]
, правда если в качестве содержимого выбрать блок
[IMG]http://s41.***********/i094/1101/f5/d95a43d5288c.jpg[/IMG]
, который в свою очередь может содержать текст или атрибут, то через быстрый выбор, по содержимому его уже не найдёшь

[privodnik]

вот ведь, блин, я ж так и пробовал-не получалось)
а ща все пашет! СПС за разъяснения!