[TechNick]

Добрый день. Такой вопросик очень нужно решить.
На чертеже существует около тысячи однострочных текстов с подписями марок дорожного ограждения видов:
1. 11ДО-ММ.2(564)У2
2. 11ДО-ММ.2(256)У3
3. 11ДО-ММ.2(64)У4
4. 11ДО-ММ.2(98)У5

Где текст в скобках указывает протяженность и везде разный. Надо преобразовать к такому виду соответственно:
1. 11ДО/190-0.75(0.15)-3.0-0.9(564)
2. 11ДО/250-0.75(0.15)-2.0-0.9(256)
3. 11ДО/300-0.75(0.15)-4.0-0.9(64)
4. 11ДО/350-0.75(0.15)-4.0-1.25(98)
Как это сделать наиболее быстро ума не приложу. Помогите кто знает

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

В поиск !

[Nike]

Программа замены фрагментов текста:

Код:

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

;-============-; 
    ;- Text  Find -; 
    ;-    *~*     -; 
    ;  Written by -; 
    ; Mark Mercier ; 
    ;   05-06-09   ; 
    ;-============-; 

(defun tfind2fun (inputF inputR caseSn / goto goWhile strinF strinR selSet selTxt searep case count error) 
    ; 01 Create selection set. GOTO 02 if success, or GOTO 08 if fail 
    ; 02 Check passed input. If both nil, GOTO 03. If first string and second nil, GOTO 06. If both strings, GOTO 07. Otherwise, return error and GOTO 08 
    ; 03 Display menus and obtain data from user. If Search, GOTO 04. If Replace, GOTO 05 
    ; 04 Search option selected. Prompt user for single search term. GOTO 06 
    ; 05 Replace option selected. Prompt user for search term and replace term. GOTO 07 
    ; 06 One string has been passed. Assume automatic search. GOTO FINISH 
    ; 07 Two strings have been passed. Assume automatic replace. GOTO FINISH 
    ; 08 FINISH. Return errors or messages if needed. 
  (vl-load-com) 
  (setq goTo 1) 
  (setq goWhile 1) 
  (setq count 0) 
  (if (not (mlml (list caseSn) (list 0 1))) 
    (progn (setq goWhile nil) (princ "\nCase selection not recognized.")) 
  ) ;_ end of if 
  (if (= caseSn 0) 
    (setq case "N") 
    (setq case "Y") 
  ) ;_ end of if 
  (while goWhile 
    (cond 
      ((= goTo 1) 
       (if (setq selSet (extTxtPt (ssget "X"))) 
         (setq goTo 2) 
         (setq error "\nSelection set not found." 
               goTo  8 
         ) ;_ end of setq 
       ) ;_ end of if 
      ) 
      ((= goTo 2) 
    ; Check input, pass to whatever. 
       (cond 
         ((and (= inputF nil) (= inputR nil)) 
          (setq goTo 3) 
         ) 
         ((and (= (type inputF) 'STR) (= inputR nil)) 
          (setq strinF inputF) 
          (setq goTo 6) 
         ) 
         ((and (= (type inputF) 'STR) (= (type inputR) 'STR)) 
          (setq strinF inputF) 
          (setq strinR inputR) 
          (setq goTo 7) 
         ) 
         (t 
          (setq error "\nPassed arguments are not accepted.") 
          (setq goTo 8) 
         ) 
       ) ;_ end of cond 
      ) 
      ((= goTo 3) 
    ; Obtain desired option from user 
       (while (not 
                (mlml (list (setq searep (strcase (getstring nil "\nSelect option [Find/Replace/Quit/Case]: ")))) 
                      (list "F" "FIND" "R" "REPLACE" "Q" "QUIT" "C" "CASE") 
                ) ;_ end of mlml 
              ) ;_ end of not 
       ) ;_ end of while 
       (cond 
         ((mlml (list searep) (list "F" "FIND")) 
          (setq goTo 4) 
         ) 
         ((mlml (list searep) (list "R" "REPLACE")) 
          (setq goTo 5) 
         ) 
         ((mlml (list searep) (list "Q" "QUIT")) 
          (setq goTo 8) 
         ) 
         ((mlml (list searep) (list "C" "CASE")) 
          (while (not (mlml (list (setq case (strcase (getstring nil "\nCase sensitive? [Yes/No]: ")))) 
                            (list "Y" "YES" "N" "NO") 
                      ) ;_ end of mlml 
                 ) ;_ end of not 
          ) ;_ end of while 
         ) 
       ) ;_ end of cond 
      ) 
      ((= goTo 4) 
    ; Obtain search string from user, set to strinF 
       (while (eq "" (setq strinF (getstring t "\nEnter search term: ")))) 
       (setq goTo 6) 
      ) 
      ((= goTo 5) 
    ; Obtain search string and replace string from user, set to strinF and strinR respectively 
       (while (eq "" (setq strinF (getstring t "\nEnter find term: ")))) 
       (while (eq "" (setq strinR (getstring t "\nEnter replace term: ")))) 
       (setq goTo 7) 
      ) 
      ((= goTo 6) 
    ; Search drawing for strinF 
       (cond 
         ((mlml (list case) (list "Y" "YES")) 
    ; Compare using (vl-string-search strinF input), view selection 
    ; use "while" to get all search occurances 
          (foreach selVar selSet 
            (if (vl-string-search strinF (nth 0 selVar)) 
              (progn 
                (setq count (1+ count)) 
                (if (/= (getvar "ctab") (caddr selVar)) 
                  (command "ctab" (caddr selVar)) 
                ) ;_ end of if 
                (command "zoom" "c" (trans (cadr selVar) 0 1) (* 32 (nth 3 selVar))) 
                (getstring "\nPress 'Enter' to continue: ") 
              ) ;_ end of progn 
            ) ;_ end of if 
          ) ;_ end of foreach 
         ) 
         ((mlml (list case) (list "N" "NO")) 
    ; Compare using (vl-string-search (strcase strinF) (strcase input)), view selection 
    ; use "while" to get all search occurances 
          (foreach selVar selSet 
            (if (vl-string-search (strcase strinF) (strcase (nth 0 selVar))) 
              (progn 
                (setq count (1+ count)) 
                (if (/= (getvar "ctab") (caddr selVar)) 
                  (command "ctab" (caddr selVar)) 
                ) ;_ end of if 
                (command "zoom" "c" (trans (cadr selVar) 0 1) (* 32 (nth 3 selVar))) 
                (getstring "\nPress 'Enter' to continue: ") 
              ) ;_ end of progn 
            ) ;_ end of if 
          ) ;_ end of foreach 
         ) 
       ) ;_ end of cond 
       (if (= count 0) 
         (setq error "\nNo matches found.") 
         (setq error (strcat (itoa count) " matches found.")) 
       ) ;_ end of if 
       (setq goTo 8) 
      ) 
      ((= goTo 7) 
    ; Replace strinF with strinR 
       (cond 
         ((mlml (list case) (list "Y" "YES")) 
    ; Compare using (vl-search-string strinF input), modify using (vl-string-subst) within a while loop 
          (foreach selVar selSet 
            (setq selTxt (nth 0 selVar)) 
            (setq seaLoc 0) 
            (while (setq seaLoc (vl-string-search strinF selTxt seaLoc)) 
              (setq selTxt (vl-string-subst strinR strinF selTxt seaLoc)) 
              (setq seaLoc (+ seaLoc (strlen strinR))) 
              (setq count (1+ count)) 
            ) ;_ end of while 
            (vla-put-textstring (vlax-ename->vla-object (nth 4 selVar)) selTxt) 
          ) ;_ end of foreach 
         ) 
         ((mlml (list case) (list "N" "NO")) 
    ; Compare using (vl-string-search (strcase strinF) (strcase input)), modify using (vl-string-subst) within a while loop 
          (foreach selVar selSet 
            (setq selTxt (nth 0 selVar)) 
            (setq seaLoc 0) 
            (while (setq seaLoc (vl-string-search (strcase strinF) (strcase selTxt) seaLoc)) 
              (setq selTxt (strcat (substr selTxt 1 seaLoc) strinR (substr selTxt (+ 1 seaLoc (strlen strinF))))) 
              (setq seaLoc (+ seaLoc (strlen strinR))) 
              (setq count (1+ count)) 
            ) ;_ end of while 
            (vla-put-textstring (vlax-ename->vla-object (nth 4 selVar)) selTxt) 
          ) ;_ end of foreach 
         ) 
       ) ;_ end of cond 
       (if (= count 0) 
         (setq error "\nNo occurances found.") 
         (setq error (strcat (itoa count) " occurances modified.")) 
       ) ;_ end of if 
       (setq goTo 8) 
      ) 
      ((= goTo 8) 
       (if error 
         (princ error) 
       ) ;_ end of if 
       (setq goWhile nil) 
      ) 
    ) ;_ end of cond 
  ) ;_ end of while 
  (princ) 
) ;_ end of defun 

(defun mlml (inSMLChar inSMLStri / returnVarMS toCheck chkWith) 
  (setq returnVarMS nil) 
  (if (and (= (type inSMLChar) 'list) 
           (= (type inSMLStri) 'list) 
      ) ;_ end of and 
    (progn 
      (foreach toCheck inSMLStri 
        (foreach chkWith inSMLChar 
          (if (eq toCheck chkWith) 
            (setq returnVarMS t) 
          ) ;_ end of if 
        ) ;_ end of foreach 
      ) ;_ end of foreach 
    ) ;/progn 
  ) ;_ end of if 
  returnVarMS 
)   ; Checks a list to see if a member of that list is the same as a member of another list. Returns T or nil 

(defun extTxtPt (ssList / subVar getEnt entTyp entTxt entPnt entLay entHgt grp66 entAtt getEntAtt entAttTyp uniLst) 
  (setq uniLst nil) 
  (setq subVar 0) 
  (if ssList 
    (repeat (sslength ssList) 
      (setq getEnt (entget (cadr (car (ssnamex ssList subVar))))) 
      (setq entTyp (cdr (assoc 0 getEnt))) 
      (cond 
        ((or (= entTyp "TEXT") (= entTyp "MTEXT")) 
         (setq entTxt (cdr (assoc 1 getEnt))) 
         (setq entPnt (cdr (assoc 10 getEnt))) 
         (setq entHgt (cdr (assoc 40 getEnt))) 
         (setq entLay (cdr (assoc 410 getEnt))) 
         (setq entNam (cdr (assoc -1 getEnt))) 

         (setq uniLst (append uniLst (list (list entTxt entPnt entLay entHgt entNam)))) 
        ) 
        ((= entTyp "INSERT") 
         (setq grp66 (assoc 66 getEnt)) 
         (if grp66 
           (progn 
             (setq entAtt (entnext (cdr (assoc -1 getEnt)))) 
             (setq getEntAtt (entget entAtt)) 
             (setq entAttTyp (cdr (assoc 0 getEntAtt))) 
           ) ;_ end of progn 
         ) ;_ end of if 
         (while (= entAttTyp "ATTRIB") 
           (setq entTxt (cdr (assoc 1 getEntAtt))) 
           (setq entPnt (cdr (assoc 10 getEntAtt))) 
           (setq entHgt (cdr (assoc 40 getEntAtt))) 
           (setq entLay (cdr (assoc 410 getEntAtt))) 
           (setq entNam (cdr (assoc -1 getEntAtt))) 

           (setq uniLst (append uniLst (list (list entTxt entPnt entLay entHgt entNam)))) 

    ; Get next entity. 
           (setq entAtt (entnext (cdr (assoc -1 getEntAtt)))) 

    ; Get ent and ent type 
           (setq getEntAtt (entget entAtt)) 
           (setq entAttTyp (cdr (assoc 0 getEntAtt))) 
         ) ;_ end of while 
        ) 
        (t 
        ) 
      ) ;_ end of cond 
      (setq subVar (1+ subVar)) 
    ) ;_ end of repeat 
  ) ;_ end of if 
  uniLst 
)   ; Return list of all text-based objects (Text, MText, Attribute) in the current drawing

Работает так:

Код:

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

(tfind2fun "старый текст" "новый текст" 1)

где ключик <1> - с учетом регистра, а если <2> - без учета регистра, Создавай по каждому фрагменту команду замены, например:

Код:

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

(tfind2fun "11ДО-ММ.2(564)У2" "11ДО/190-0.75(0.15)-3.0-0.9(564)" 1)
(tfind2fun "11ДО-ММ.2(256)У3" "11ДО/250-0.75(0.15)-2.0-0.9(256)" 1)

и вперед!

[Do$]

Что-то есть у меня подозрение, что автор хотел немного другого:
у него есть:

Сообщение от TechNick 1. 11ДО-ММ.2(564)У2 2. 11ДО-ММ.2(256)У3 3. 11ДО-ММ.2(64)У4 4. 11ДО-ММ.2(98)У5

Надо чтобы
1) "У#" в конце удалилось
2) "-ММ.2" заменилось на:

• "/190-0.75(0.15)-3.0-0.9" если У2 в конце
• "/250-0.75(0.15)-2.0-0.9" если У3 в конце
• "/300-0.75(0.15)-4.0-0.9" если У4 в конце
• "/350-0.75(0.15)-4.0-1.25" если У5 в конце

TechNick, так?

[TechNick]

Да именно так. У# не нужны, а вот числа в скобках нужно оставить так как их гигантское колличество вариантов в чертеже, заменив только середину строки

[Do$]

Программу нужно искать или писать. На 98% уверен, что стандартными средствами не решить.
Предлагаю поискать в темах внизу (похожие темы), если ничего не найдется - описать как можно подробнее, как предполагается использовать программу, выложить файл-пример (если возможно).
Ключевые вопросы примерно такие:

• Каким образом выбирать текст? (Варианты: вручную по одному/рамкой/предварительным _qselect и т.п., автоматически - по слою/цвету/размеру/содержанию и т.п.)
• Замена производится только в однострочном тексте или еще в многострочном, в атрибутах блока и т.п.?
• Что будет являться индикацией удачного завершения работы программы? (Варианты: весь измененный текст выделяется цветом/переносится в новый слой с оригинальным именем/ничего не происходит/выводится сообщение "столько-то текстов было изменено"...)

Чем больше информации - тем больше шансов получить то, что нужно

[Nike]

тогда так, без всяких программ

Для У2:

1. Выбрать все тексты, содержащие фрагмент "У2" (по маске):

Сервис/Быстрый выбор (_qselect)
- Применить: ко всему чертежу
- Тип объектов: текст
- Свойство: Содержимое
- Оператор: * Поиск с глобальными символами
- Значение: *У2
ОК

2. Поиск и замена "-ММ.2" на "/190-0.75(0.15)-3.0-0.9"; "У2" на "" в выделенных текстах:

Правка/Найти (_find)
- Найти: "-ММ.2"
- Заменить: "/190-0.75(0.15)-3.0-0.9"
- Область поиска: Выбранные объекты
Заменить все
(не закрывая окно поиска)
- Найти: "У2"
- Заменить: ""
- Область поиска: Выбранные объекты
Заменить все

Повторить п1,2 для У3,У4,У5

[Do$]

Действительно работает!
Подозревал, что _find это умеет, оказалось, что нужно только в настройках покопаться

[Nike]

А я с удивлением обнаружил, что в _qselect можно делать выбор по маске

[TechNick]

Сообщение от Nike тогда так, без всяких программ Для У2: 1. Выбрать все тексты, содержащие фрагмент "У2" (по маске): Сервис/Быстрый выбор (_qselect) - Применить: ко всему чертежу - Тип объектов: текст - Свойство: Содержимое - Оператор: * Поиск с глобальными символами - Значение: *У2 ОК 2. Поиск и замена "-ММ.2" на "/190-0.75(0.15)-3.0-0.9"; "У2" на "" в выделенных текстах: Правка/Найти (_find) - Найти: "-ММ.2" - Заменить: "/190-0.75(0.15)-3.0-0.9" - Область поиска: Выбранные объекты Заменить все (не закрывая окно поиска) - Найти: "У2" - Заменить: "" - Область поиска: Выбранные объекты Заменить все Повторить п1,2 для У3,У4,У5

Супер. Спасибо.
Как-то не догадался использовать одновременно функцию быстрый выбор и поиск. Возьмём на вооружение. Ещё раз благодарю

[Nike]

Сообщение от TechNick Супер. Спасибо. Как-то не догадался использовать одновременно функцию быстрый выбор и поиск. Возьмём на вооружение. Ещё раз благодарю

Один инженер - хорошо, а два - лучше!

[Миксер]

Доброго времени суток.
Подскажите ,а можно как нибуть в автокаде найти интервал чисел скажем от 3 до 9 ?

[E-degtyarev]

Миксер, ИМХО вопрос не очень понятен.

[Миксер]

Вот у меня в автокаде набор разных чисел....от 1 до 200 и не по одному числу , а мне нужны все от 3до 12 для их редактирования.Можно сделать их быстрый поиск (выделение этого интервала)?

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

А "числа" - это что? Атрибуты? Блоки? Однострочные тексты? Многострочные тексты? Элементы выносок? Значения ячеек таблицы или нескольких таблиц? Многострочные тексты без форматирования? Многострочные тексты с принудительным форматированием?

[Миксер]

Каждая цыфра- однострочный текст

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

попробуй так:

[Миксер]

не получается, если я правильно понял....не выделяет вообще ничего из набора цыфр

[Nike]

Сообщение от Кулик Алексей aka kpblc попробуй так: Миниатюры

По-моему, эта фигня с цифрами не работает, только с буквами

[Миксер]

Работает...спасибо ...а можете объяснить ,что значит написанное в строке value? ...Так как порой мне приходится выделять скажем цыфры от 100 до 150

[Do$]

Работает, но придется делать по отдельности: сперва [3-9], потом ставить галочку "добавить в существующий набор" и 1[0-2]
Update: Обманул, все прекрасно работает и вместе

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

Сообщение от Nike По-моему, эта фигня с цифрами не работает, только с буквами

Нда? Только что проверил.
P.S. Вы там ничего не пропустили? Например, запятую?

[Nike]

Сообщение от Кулик Алексей aka kpblc Нда? Только что проверил. P.S. Вы там ничего не пропустили? Например, запятую?

Действительно, работает
вроде запятую не пропустили. Цифры наверна пропустили

[Миксер]

Ответьте пожалуйста, как задать ...чтобы автокад нашёл интервал скажем от 113 до 200?
я не уловил откуда взялись такие цыфры в строке value

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

смотри справку по лисповой функции wcmatch

[Миксер]

Спасибо огромное, Вы мне очень помогли.

[zayyaz]

цифры (дробные) - однострочный текст, все на одном слое...

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

[Sirius2w]

Помогите пожалуйста
у меня акад 2007 лицензионный, при использовании стандартной команды "поиск/замена" пытаюсь отредактировать значения атрибутов блоков, но команда их полностью игнорирует, может есть какое-то решение? Поиском пользовался - ничего не нашел по этому вопросу

[Хмурый]

Sirius2w, а в настройки команды заглядывал?

[Sirius2w]

Сообщение от Хмурый Sirius2w, а в настройки команды заглядывал?

В самую первую очередь, до того как задать вопрос

[Хмурый]

А вручную атрибуты редактируются?

[Sirius2w]

Да, но только по одному - долго их редактировать у меня их сотни

[Хмурый]

ПОИСК находит блоки с нужными атрибутами, но замена не работает?

[Sirius2w]

Быстрый поиск вообще не находит атрибутов
если в быстром поиске указать "вхождения блока" в списке для выбора параметра поиска нет "атрибут"
через правку=поиск как на твоем скрине - атрибуты не находит вообще

[Хмурый]

Sirius2w, а в этом файле версии 2007 поиск проведи.

[Sirius2w]

Спасибо, все работает в 2010 ))) а в 2007 чет через раз :-( незнаю почему ну всеравно спасибо за помощь

[Vova]

Сообщение от TechNick На чертеже существует около тысячи однострочных текстов с подписями марок дорожного ограждения видов:

А кроме этих слов что-нибудь еще есть на чертеже? Мне кажется, даже на А1 столько букв не поместиться....

[oleg_marshinov]

Nike, спасибо, весь инет облазил, вместе с экселем убойная просто прога для перемаркировки

[zenon]

а эта задача решаема?
есть текст 8*-14-6??-4
нужно заменить на 8N-14-6QW-4
как Acad заставить воспринимать символы * и ? именно так, а не как управляющие символы??

[Do$]

Перед ними попробуй поставить обратный апостроф.

[Хмурый]

zenon, снять галку

[zenon]

Хмурый, это конечно хорошо, но в 2008 сего нет.
Do$, спасибо сработало

[engngr]

У меня беда немного другая.
Есть блоки с атрибутами. Нужно к началу каждого атрибута массово добавить одинаковый текст; текущие значения атрибутов начинаются с цифр, 1-2-3-значные, некоторые разделены точками и/или дефисом. Стандартными средствами, я так понимаю, это не делается?

[Nike]

engngr
выкладывай пример

[engngr]

Например.
Имеем значения атрибута "1", "27" и т.д., требуется превратить "1", "27" в "К1-1", "К1-27".
exmpl.dwg

[Nike]

Стандартными скорее всего никак.
А вот этот нумератор запросто сможет

[geerakl]

нужно в чертежах поменять все даты: допустим - "02.06.09" , "22.05.07" .... на "27.07.10" . Существуют ли какие нибуть пиременные знаки ? например заменить "**.**.**" на "27.07.10"

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

Попробуй менять [0-9][0-9].[0-9][0-9].[0-9][0-9] на 27.07.10. В 2008 прокатило.

[geerakl]

Таки да работает, спасибо.

[Frigate]

Здравствуйте!

Вопрос по каманде "поиск/замена".

В АКАД 2006 все работало супер - ищешь в чертеже уплминание, напр., "Задв1.1", поиск находит такой текст, потом "Зуммировать" - и можноизменить масштаб чертежа, чтобы найти, в каком именно месте чертежа находится искомый текст "Задв1.1". То есть в 2006 диалоговое окно "Поиск и замена" не было модальным (не исчезало, но позволяло щелкать по чертежу). В АКАД 2009 окно "Поиск и замена" являетс модальным, как я понимаю. Или у меня что-то не так с настройками???
Надеюсь, понятно изложил )))
А вообще, если есть такая программка по поиску текста, чтобы и зуммировала объект поиска и давала потом посмотреть его расположение на чертеже - буду рад ссылке на нее ;-)

[Хмурый]

Frigate, сервис пак на AutoCAD следует установить.

[Frigate]

Хмурый ,

как я понимаю, паки ставятся только на официальную версию с лицензией, да? ;-) Или может не только? Тогда подскажи где такой достать Не хочется еще и АКАД2006 себе ставить, чтобы вылавливать в чертежах нужный текст... Ну или программирование еще остается, как вариант...

[Хмурый]

Frigate, все сервис паки находятся на официальном сайте Autodesk

[Astartes]

Приветствую.
Вопрос по замене текста в мультивыносках.
К примеру есть пять позиций на чертеже 1,2,3,4,5. Потом добавляются еще две позиции, и они должны встать после позиции 2, т.е. позиции 3,4,5 должны превратится в 5,6,7 соответственно.
Возможно ли такое?
Акад 2011

В теме была ссылка на нумератор, но он не работает с мультивыносками.
К тому же там выбор объектов нужно проводить вручную(хотя с этим пока не рабирался)

[Хмурый]

возможно. следует делать последовательно.
команда _find и начиать поиск и замену с верхней позиции (5 заменить на 7, 4- на 6, 3-на 5). Текст искать только в размерах

[Astartes]

Хмурый, Ну это же я простой пример привел из 5 позиций. ))
Мне надо именно что бы как в упомянутом выше нумераторе.
Т.е. я через qselect выделяю позиции с 3 по 5 [3-5] и далее с помощью чего то (лиспа) увеличиваю их значения на 2.

[Хмурый]

Astartes, попроси AlexV подработать код нумератора для изменения мультивыносок

[Astartes]

Хмурый, Ну я отписал вопрос автору нумератора, если не ответит то попрошу Алекса.

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

[AlexV]

Сообщение от Astartes Хмурый, Ну я отписал вопрос автору нумератора, если не ответит то попрошу Алекса. Автор нумератора сказал что у него нет времени. Если у кого будет время и желание доработайте пожалуйста. Или на основе этого нумератора другой лисп сделать. Нужно к числам в мультивыноске прибавлять и отнимать любое число, и чтобы выбор можно было делать через qselect. Спасибо.

Особо с кодом не разбирался, просто вставил обработку мультивыносок.. По крайней мере по замене/суффиксам/префиксам вроде работает.. Остальные возможности не смотрел..

К тому же там выбор объектов нужно проводить вручную(хотя с этим пока не рабирался)

Дописывать еще фильтры выбора чтоль по значениям? Да ну его.. Выбирай объекты через qselect, потом применяй к ним какую-либо команду (_move например) и сбрасывай. Потом запускай макрос и на запрос выбора объектов в ком. строке пиши "_p" (ну или "т" в русском автокаде)

[Astartes]

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

[Pavel23]

Всем привет, кто откликнется, темка старая однако...
Пользовался лиспом tfind2fun, работает отлично, но есть один баг, прога сносит многострочные атрибуты, оставляет только первую строку.
Редактировал чертеж старенький, основные надписи - блоки с многострочными атрибутами, почикал все.
Ни кто не знает, как с этим феноменом бороться???

[Vova]

Сообщение от Pavel23 Редактировал чертеж старенький, основные надписи - блоки с многострочными атрибутами,

Кажется, м. атрибуты появились в 2008....
Хотя да, действительно старенький, 4 автокада назад
По существу-надо-бы связаться с автором проги, потому что другой программист не бyдет исправлять, пока есть надежда найти автора

[Pavel23]

A кто у нас автор, в тексте проги нашел только Mark Mercier, и где его искать...

[r6311]

Сообщение от engngr Например. Имеем значения атрибута "1", "27" и т.д., требуется превратить "1", "27" в "К1-1", "К1-27". Вложение 30805

Тут кто-то на форуме писал, что по сути требуется к определённому виду записи добавить что либо. У меня была подобная ситуация когда к более чем тысячи отметок требовалось дописать в конце ноль, замечание нормоконтроля))
Конечно для поиска решения данной проблемы я потратил времени больше чем если бы правил всё в ручную, но а как иначе то))
В общем требовалось найти все отметки вроде 150,02 и прочих, и заменить её на 150,020.
Стандартными средствами autocad сделать этого не получилось, но нашёл выход, и довольно быстро всё это делается.
Быстрым выбором выделил все мультивыноски (именно там были отметки прописаны), остальное удалил, чтобы не мешалось. Далее сохранил чертёж в dxf формат (dxf это если кто не знает просто текстовый документ и его можно открыть в блокноте или ворде). Как раз в ворде я его и открыл, и вот его средствами произвёл замену. Сохранил и готово))

При замене в ворде в поле "Найти" писал: 1??,??
а в поле "Заменить на": ^&0

^& - означает искомый текст, 0 - злополучный ноль, который надо дописать

[Astartes]

AlexV, Нужна ваша помощь. Перестал работать нумератор подправленный вами вот здесь (http://forum.dwg.ru/showpost.php?p=651998&postcount=59)
Я перешел на Акад 2012 64 бита, виндовс 7. Вот какое сообщение выскакивает, когда я пытаюсь запустить команду (см. приложение).
Не знаете в чем может быть дело?

[AlexV]

Сообщение от Astartes AlexV, Нужна ваша помощь. Перестал работать нумератор подправленный вами вот здесь (http://forum.dwg.ru/showpost.php?p=651998&postcount=59) Я перешел на Акад 2012 64 бита, виндовс 7. Вот какое сообщение выскакивает, когда я пытаюсь запустить команду (см. приложение). Не знаете в чем может быть дело?

Ну, в А2013 64b подправил, вроде работает, по крайней мере форма вылазит, и тексты обрабатываются. Насчет 2012 64b не уверен..

[Astartes]

AlexV, Да, к сожалению в 2012 64 не работает. Ругается уже в другом месте. Неужели 2013 и 2012 так сильно отличаются.

[AlexV]

Сообщение от Astartes AlexV, Да, к сожалению в 2012 64 не работает. Ругается уже в другом месте. Неужели 2013 и 2012 так сильно отличаются.

Ну, VBA и в том и в том уже пятое колесо "то лапы ломит, то хвост отваливается".. У меня А2012 64 битный есть, но вба на нем не стоит, - че то по личным самоощущщениям, добавляет он в этой версии изрядное количество косяков, глюков и тормозов (по крайней мере, на моей машине)..
...А ругаетси, наверное, у тебя потому, что я в 2013 сохранил файл. Попробуй в редакторе VBA в референсах подключить Autocad 2012 Type Library

[Astartes]

AlexV, Обратно, огромная благодарность тебе. Все заработало.

Вопрос по поводу косяков. Я правильно понял, что при установке Vba-enabler для автокада, он весьма вероятно добавляет в работу автокада косяков даже, если не пользуешься Vba?

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

Не уверен, что ссылка прокатит, поэтому цитирую:

Сообщение от BDima После обновления компа столкнулся с проблемой - катастрофически долго думает после команды сохранить. Решается удалением программы VBA enabler. Но без VBA туговато приходится - многим командам, на нем написанным не нашел замены. На рабочем компе Autocad той же версии, тока 32х битный - проблем нет, хотя и железо там уже староватое - тот же файл сохраняет вполне приемлемо по времени. Пробовал на 2011 и 2013 версиях - одинаково неприятно. Кто-нибудь сталкивался с такой проблемой? ЗЫ В процессе работы никаких нареканий не возникает, даже автосохранение проходит хоть и не так быстро, но вполне терпимо, а вот главная кнопка вводит CAD в ступор.

Сообщение от kpblc Если ОС 64 бита, то такое вполне предсказуемо: VBA до сих пор работает в 32-разрядном варианте. Вроде как Autodesk собирается обновить VBA, но каков будет результат - неизвестно. В любом случае такое можно ждать не раньше 2014 версии... P.S. А что за программы-то? Может, их как-то можно переписать, например, на VB.NET? Благо подобные уроки вроде как лежали на официальном сайте... P.P.S. Блин, когда ж я-то перейду на .NET?? --- Добавлено: во, нашел: http://www.autodesk.ru/adsk/servlet/...36&id=18077292

Сообщение от BDima как то странно - VBA взят с оф сайта и неужели у всех такой же косяк. Собственно не программы, а простые команды типа fieltotext, нумератор и еще куча всякой нужной мелочи. Может конечно для них и есть альтернатива, да просто весь рабочий процесс уже отлажен - а тут такая неприятность. Честно говоря далек я от творчества написания лиспов и всяческих языков программирования - тупо пользую чужие разработки, отвечающие моим требованиям. За ссылку спасибо - желание все же присутствует вникнуть в глубины и овладеть тайнами, да времени не хватает, а может лень.

Сообщение от kpblc А если попробовать оставить VBA Enabler, но при этом не подгружать ни один dvb-проект, а также выгрузить дополнительные меню - тогда тоже тормоза?

Сообщение от BDima Ага, действительно, пока ничего из .dvb не загружено - работает нормально. А если совсем удалить VBA enabler - еще быстрее. То есть думаете выход один - отказаться от использования VBA?

Сообщение от kpblc DVB-модуль можно выгрузить так же, как он и загружался: _.appload -> найти в списке имя модуля -> Unload / Выгрузить. В LISP есть функция vla-unloaddvb <Имя выгружаемого dvb-модуля> В VBA: ThisDrawing.Application.UnloadDVB <Имя выгружаемого dvb-модуля> В .NET, кажется, тоже что-то подобное было. Но тут не уверен.

[AlexV]

Сообщение от Astartes AlexV, Обратно, огромная благодарность тебе. Все заработало. Вопрос по поводу косяков. Я правильно понял, что при установке Vba-enabler для автокада, он весьма вероятно добавляет в работу автокада косяков даже, если не пользуешься Vba?

Именно так. Не знаю, у всех ли так, а у меня - на 64b системе, если установлен vba, - со временем начинается глюк с системными окнами автокада ("сохранить" в частности) - при вызове команды акад виснет на несколько минут.

[SteelBrother]

Вроде как в теме этот линк не видел:
http://lee-mac.com/bfind.html
может кому пригодится, давно пользуюсь, очень удобное приложение на лиспе.

[Astartes]

Приветствую.
Есть мультивыноска с текстом и символом. Точнее с цифрой и символом, к примеру 3*, 9*.
Мне нужно найти все мультивыноски со звездочками.
Набираю в команде find - #'* (решетка, апостроф, звезда). Но не находит ничего.
Я ведь правильно задаю критерий запроса. Решетка, это одиночная цифра, апостроф отменяет "роль" звезды как спецсимвола и делает его обычным символом. Или не так.
Пробовал ставить разные галочки в расширенных настойках поиска, но все равно ничего не находит.
Автокад 2013 русский.

[sertor]

Astartes, а если _find (найти) ->*

[pan]

Сообщение от Astartes Набираю в команде find - #'* (решетка, апостроф, звезда). Но не находит ничего.

У тебя не апостроф. Вот апостроф `

[Astartes]

sertor, Тогда он найдет вообще все мультивыноски где есть хоть какие то символы.

pan, Спасибо. Все работает.

[jon73]

Добрый день! КТО НИБУДЬ сталкивался с задачей суперсложности? на планах есть номера экспликаций в многостр тексте (пр. 001, 002, и т.д. ) отдельно есть таблица в экселе где каждому номеру эксликации помещения присвоены напротив значения воздухообменов (пр. 001- 750м3/ч; 002 - 10м3/ч) . ВОЗМОЖНО ли средствами автокада выполнить автозамену оптом выделив все тексты экспликаций и чтобы вместо них (или рядом) нарисовались тексты второго столбца соответственно , НО в текущих местах где стоит текст экспликаций на планах.??? Простите за мои фантазии... лень - двигатель прогресса!

таблицу экселя можно перевести в автокадовскую табл. путем вставки "объек автокада"

[Bull]

Если конкретно про данный пример, то ничего сложного. _find ищет и заменяет везде. Даже настраивается. Заменить "001" на "001-750куб.м." не проблема. А если надо, чтобы при этом читалось значение из экселя, думаю, это невозможно. Если только умельцы тут хитрый лиспик не сделают. Но это надо в "программирование" писать.

[jon73]

А если таких помещений 500 шт мне 500 раз вводить команду поиск и замена?

[Bull]

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

[jon73]

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

[Bull]

Тогда тебе точно надо открыть тему в "программирование". Если это вообще реализуемо.

[jon73]

Частично решил свою проблему.... оказывается можно в меню экспресс извлекать все атрибуты всех блоков в таблицу в ТХТ, затем эту таблицу можно в экселе подзаменить а затем вновь экспортировать в автокад!!! во как !!! только надо теперь научится многострочный текст разбросанный по плану преобразовать в множество блоков , ну и научится в этом файле ТХТ делать нужную замену... уже радует что выход есть! надо было чтобы архитекторы экспликацию делали в блоках с атрибутом

[maratovich]

Сообщение от jon73 уже радует что выход есть

Мда... уж... через одно место к гландам. Не судьба было исходники приложить чтобы сразу понятно было что делать ?

[Bull]

Сообщение от jon73 затем эту таблицу можно в экселе подзаменить

Вы думаете, там проще автоматом 500 типов переименовать?

[jon73]

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

----- добавлено через ~1 мин. -----
Осталась одна проблема как эти многострочные отдельно стоящие тексты преобразовать в атрибуты блоков....

[dr-vart]

Господа, как прописать в строке замены искомый текст. Нужно к искомому тексту добавить символ. Искомый текст это 4 цифры в разной последовательности.

[Bull]

Сообщение от dr-vart Искомый текст это 4 цифры в разной последовательности.

Конкретные цифры в разной последовательности одним махом никак. Только последовательно... Да и неконкретные тоже вроде никак. Воспринимается только конкретный символ ASCII или произвольный (*) без разделения на цифры и буквы

[dr-vart]

Дело в том, что найти эти 4-х значные цифры получается "одним махом", а вот заменить их на теже цифры + "К".... неужели нет спец. символа обозначающего искомый текст..

----- добавлено через ~2 мин. -----
одна поправка! Цифры конкретные только в том, что они от 1 до 9 )). Вобщем это 4-х значные числа и #### их прекрасно находит

[Bull]

Блин, я и забыл, что "#" это цифры. А вот заменить штатными средствами никак. Но тут на форуме несколько лиспов для нумерации и добавления символов были. Поищи.

[RAD24]

Здравствуйте! Подскажите пожалуйста. У меня есть множество мтекстов (текстов) пример "Г1 110Пэ" , "Г1 63Пэ" Как заменить цвет части текста? Нужно что бы буквы "Г1" и "Пэ" были синими а цифры "110", "63" были черные. Возможно ли это?

[kp+]

В старых версиях (до 2009, кажется) можно было, причем штатными средствами. Начиная с 2010 эта возможность выпилена
Обсуждалось тут
В современных версиях - только средствами самописных приложений (в поиск) или Toolpack'а (в нем команда DSTP_MTFNDREP)

[pik]

Доброго времени суток!
У меня вопрос по поиску и замене текста 1. В мультивыносках, 2. просто однострочный или многострочный текст.
Вопрос следующего характера. Есть текст, например в мультивыноске, сверху полки слово "Пример" под полкой такое же слово "Пример" как заменить второе слово? Поиск и замена меняет оба слова.
Либо есть однострочный текст со словом "Пример", но где то он выделен зеленым цветом и его необходимо поменять на другое слово. Поиск и замена меняет полностью весь текст со словом "Пример". Можно как-то решить данный вопрос?
Спасибо!

[CaMoCAD]

Сообщение от pik Есть текст, например в мультивыноске, сверху полки слово "Пример" под полкой такое же слово "Пример" как заменить второе слово? ... Либо есть однострочный текст со словом "Пример", но где то он выделен зеленым цветом и его необходимо поменять на другое слово. Поиск и замена меняет полностью весь текст со словом "Пример"

Никаких "например" тут быть не может. Четко определитесь с критериями. Поиск может отличить выноску от Мтекста, нужно лишь снять галку. Как отличить нижнюю строчку от верхней - не знаю. Поменять только зеленый текст можно предварительно выделив его быстровыбором и установив в поиске опцию не "по всему файлу", а "только из выбранного".

[kp+]

Сообщение от CaMoCAD Как отличить нижнюю строчку от верхней - не знаю

Первая строка "Пример\p". Вторая: "\pПример". Но .... см #92

[pik]

Сообщение от kp+ Первая строка "Пример\p". Вторая: "\pПример". Но .... см #92

Не ищет он с параметром \p я уже пытался.

Сообщение от CaMoCAD Никаких "например" тут быть не может. Четко определитесь с критериями.

С каким критерием? В выноске текст (например сверху "Диаметр трубы DN 20 "\p"Диаметр трубы DN 20 " надо поменять на "Диаметр трубы DN 20 "\p"Палка копалка длинная 100 см") сверху и снизу надо поменять тот что снизу. Или я что-то не понимаю?

[kp+]

Сообщение от pik Не ищет он с параметром \p я уже пытался.

Повторюсь: возможность поиска кодов форматирования и других непечатаемых символов штатными средствами выпилена начиная с версии 2010.
Решение:
1) написать свое приложение;
2) найти готовое самописное приложение поиском по форуму;
3) найти Toolpack, там команда DSTP_MTFNDREP

[pik]

Сообщение от kp+ Повторюсь: возможность поиска кодов форматирования и других непечатаемых символов штатными средствами выпилена начиная с версии 2010. Решение: 1) написать свое приложение; 2) найти готовое самописное приложение поиском по форуму; 3) найти Toolpack, там команда DSTP_MTFNDREP

Спасибо! Сейчас будем искать согласно Вашим указаниям!

[CaMoCAD]

Сообщение от pik С каким критерием? В выноске текст (например сверху "Диаметр трубы DN 20 "\p"Диаметр трубы DN 20 " надо поменять на "Диаметр трубы DN 20 "\p"Палка копалка длинная 100 см") сверху и снизу надо поменять тот что снизу. Или я что-то не понимаю?

Нет, это у меня в голове опилки. И такие длинные предложения меня только расстраивают. Попробуйте прочитать сами.
С каким критерием, - решать Вам. Для выносок - один способ, для зеленых текстов - другой. Универсального способа нет.

[erikbond]

Доброго времени суток. У меня есть Project Studio. Также имеется на чертеже очень очень много выносок, их тип объекта "Обозначение элемента", имеется там один нужный мне параметр: "Текст нижний" и там написано %%c20 А500, то есть диаметр 20 А500, вопрос: возможно ли какими нибудь чудесными методами, добавить ко всем этим А500, букву "С" дабы получить А500С. Пробовал _find, он не находит текст в таком типе объекта. Может есть какой-то иначе метод?

[AlexV]

Сообщение от erikbond Доброго времени суток. У меня есть Project Studio. Также имеется на чертеже очень очень много выносок, их тип объекта "Обозначение элемента", имеется там один нужный мне параметр: "Текст нижний" и там написано %%c20 А500, то есть диаметр 20 А500, вопрос: возможно ли какими нибудь чудесными методами, добавить ко всем этим А500, букву "С" дабы получить А500С. Пробовал _find, он не находит текст в таком типе объекта. Может есть какой-то иначе метод?

_find не работает с "не автокадовскими" объектами. Поэтому надо использовать инструменты приложения, в котором эти объекты создавались, либо разбивать объекты на примитивы. В СПДС CS есть spfind, в проджекте небось тоже чего-нибудь аналогичное есть. Хотя, насколько я помню, там выноски могут быть параметрические и связанные с объектами..

[erikbond]

Сообщение от AlexV там выноски могут быть параметрические и связанные с объектами..

Это да, они связаны с объектом, там два типа, один "Маркировка" (которую таскать по всему чертежу можно), а другой как раз мой "Обозначение элемента". Ладно, будем думать и искать кнопки.

[DaiverCAD]

Ребят, подскажите пожалуйста как можно сделать замену, а точнее добавить в существующий текст нужные значения. Вообщем имеем много цифр в одно строчном формате ( 1, 2, 3,....155) нужно к каждой цифре добавить индекс например получить K1,K2....и т.д.
Пробовал через найти и заменить. В поле найти вписывал * (или *.*), в поле заменить K* (или K.*)
Но чет ничего не вышло или не находит- пишет ничего не найдено. Либо меняет конкретно на "K*"
Подскажите как правильно задать маску для поиска и замены.
Автокад полный 2013.

[Bull]

DaiverCAD, плохо искал. Тут уже лиспы выкладывали такие.

[DaiverCAD]

Сообщение от Bull Тут уже лиспы выкладывали такие

Надеялся что можно обойтись стандартными средствами автокада (найти/заменить). Лисп так лисп, найду конечно.

[trir]

Как не хватает RegEx

[DaiverCAD]

Сообщение от trir Как не хватает RegEx

Вроде бы намеки на что то подобное есть в автокаде, но у меня не получилось применить.
http://exchange.autodesk.com/autocad...5a7b7-7aa4.htm
Вроде бы раздел автокада по ссылке.

[mihamster]

есть лисп который добавляет префикс и суффикс к выбранному тексту.
но он работает только со стандартными акадовскими text mtext..
если текст записывается просто в отдельной характеристикой, то лисп просто поменять под эту характеристику.

Код:

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

(defun c:dobavit-v-txt (/ prefiks-txt sufiks-txt spisok harkt-primitiva i)
 (initget 1)
 (setq prefiks-txt (getstring T "префикс: "))
 (initget 1)
 (setq sufiks-txt (getstring T "суффикс: "))
 (princ)
 (setq spisok (ssget '((0 . "*text"))))
 (setq i 0)
 (while (< i (sslength spisok))
 (setq harkt-primitiva (entget (ssname spisok i)))
 (setq soderzhimoe (cons 1 (strcat prefiks-txt (cdr (assoc 1 harkt-primitiva)) sufiks-txt)))
 (setq harkt-primitiva (subst soderzhimoe (assoc 1 harkt-primitiva) harkt-primitiva))
 (entmod harkt-primitiva)
 (setq i (1+ i))
 )
 (princ)
)

[pentaone]

Не подскажите как можно осуществить поиск и замену текста в мультивыносках?
Стандартная команда ПОИСК (_find) отказывается искать

[Хмурый]

Сообщение от pentaone Не подскажите как можно осуществить поиск и замену текста в мультивыносках? Стандартная команда ПОИСК (_find) отказывается искать

А соответствующая галочка стоит в настройках поиска?

[pentaone]

Да, стоит. Специально на нее внимание обратил, правда написано текст размера или выноски, а о мультивыноски не слова

----- добавлено через ~4 мин. -----
Хотя промониторив данную тему нашел сообщения о том, что командой ПОИСК все таки можно выполнить поиск и замену текста в мультивыноске, но у меня почему то отказывается искать(

[Хмурый]

Сообщение от pentaone Да, стоит. Специально на нее внимание обратил, правда написано текст размера или выноски, а о мультивыноски не слова ----- добавлено через ~4 мин. ----- Хотя промониторив данную тему нашел сообщения о том, что командой ПОИСК все таки можно выполнить поиск и замену текста в мультивыноске, но у меня почему то отказывается искать(

фрагмент файла с выносками приложи

[sertor]

Сообщение от pentaone о том, что командой ПОИСК

Так, к слову... Нет такой команды в рус. версии. Есть НАЙТИ

[pentaone]

Сообщение от Хмурый фрагмент файла с выносками приложи

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

----- добавлено через 22 сек. -----

Сообщение от sertor Так, к слову... Нет такой команды в рус. версии. Есть НАЙТИ

Точно

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

Поскольку ошибка в одном файле, советую проверить его на ошибки или через _.wblock создать его копию.

[Хмурый]

Сообщение от pentaone Файл рабочий, поэтому не представляется возможности его выложить.

не прошу-же весь файл, а только фрагмент. "Сохранить как", лишнее удалить (всё , кроме выносок), _purge и выкладывай
PS а "найти" или "поиск" неважно, как обозвать. и так и так, бывало, от версии к версии

[allar8]

Стандартная команда поиска в Аutocad не может искать вхождения полей в чертеже - пробовал по коду поля искать - не ищет, ну и по значению поля тоже не ищет. Можно как-нибудь решить данную проблему?

[sertor]

allar8, попробуйте командой Фильтр. У меня работает (по Значению текста).

[allar8]

Сообщение от sertor allar8, попробуйте командой Фильтр. У меня работает (по Значению текста).

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

[sertor]

allar8

[allar8]

Сообщение от sertor allar8

Да вроде работает, но выбирает только МТЕКСТ, однострочный почему-то не выбирает

[allar8]

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

[Gmk17]

Тормозит не поиск, а последующая регенерация. Смотрим командную строку:

Код:

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

Команда: _find Выполняется регенерация модели.

А скорость регенерации зависит только от аппаратного ускорения и от версии Автокада (например 2014 примерно в два раза быстрее чем 2012).
Можно выполнять поиск/замену, находясь в пустом листе (без видовых экранов). Тогда ничего не будет тормозить

Сообщение от allar8 но уставновка СПДС "портит" автокадовские файлы - т.е. на машинах без СПДС такие файлы открываются некорректно.

С чего вы взяли, что СПДС чего-то портит? Если не добавлять СПДС-объекты, то ничего в файле не изменится.
И вообще, единственное, что нужно для корректного открытия файлов с СПДС-объектами - это шрифт CS_Gost2304.shx, который уже должен быть у всех, имхо.
Опять же, СПДС GraphiCS Enabler никто не отменял.

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

Сообщение от Gmk17 А скорость регенерации зависит только от аппаратного ускорения и от версии Автокада (например 2014 примерно в два раза быстрее чем 2012).

По-моему, еще и REGENMODE может добавить / убавить тормозов.

Сообщение от Gmk17 Если не добавлять СПДС-объекты, то ничего в файле не изменится.

Не совсем так: во-первых, приложение регистрируется. Во-вторых, часть неграфических прокси все-таки добавляется (можешь проверить, создав пустой файл с СПДС, и потом открыв этот файл в абсолютно чистом ACAD). В-третих, часть настроек тоже меняется (насколько я помню, текстовые / размерные стили, еще что-то). Но это при использовании "полноценного" СПДС GraphiCS. Что будет при работе с Enabler'ом - не знаю, не сталкивался.

[allar8]

Сообщение от Gmk17 Опять же, СПДС GraphiCS Enabler никто не отменял.

Это конечно хорошо, но когда заказчикам отдаешь автокадовский файл, то в этом случае ему еще и инструкцию и дистрибутив или сслылку на СПДС GraphiCS Enabler нужно отправлять. На мой взгляд для заказчика это будет слишком сложно. Вобщем я не сторонник СПДС GraphiCS. А так конечно спасибо за ответы.

----- добавлено через ~5 мин. -----

Сообщение от Кулик Алексей aka kpblc По-моему, еще и REGENMODE может добавить / убавить тормозов.

Попробовал 0 поставить - не помогло.
В общем как я понимаю проблему с тормозами выхода из диалогового окна поиска не решить без СПДС GraphiCS?

[Gmk17]

Сообщение от Кулик Алексей aka kpblc Не совсем так: во-первых, приложение регистрируется. Во-вторых, часть неграфических прокси все-таки добавляется (можешь проверить, создав пустой файл с СПДС, и потом открыв этот файл в абсолютно чистом ACAD). В-третих, часть настроек тоже меняется (насколько я помню, текстовые / размерные стили, еще что-то). Но это при использовании "полноценного" СПДС GraphiCS. Что будет при работе с Enabler'ом - не знаю, не сталкивался.

Согласен. Но это всё никак не "портит" существующие файлы и они не могут потом некорректно открываться на компе без СПДС.
Автоматическое создание и активацию стилей СПДС можно легко отключить. Enabler вообще безвреден.

Всё это из серии - "...ты просто не умеешь их готовить".

----- добавлено через ~3 мин. -----

Сообщение от allar8 В общем как я понимаю проблему с тормозами выхода из диалогового окна поиска не решить без СПДС GraphiCS?

Решена: 16 Gb оперативы, Core i7, SSD-винт

----- добавлено через ~6 мин. -----

Сообщение от allar8 На мой взгляд для заказчика это будет слишком сложно.

А Автокад для него не сложно? Отдавай PDF.
Еще раз - если ты не создал ни одного СПДС-объекта, то не нужен заказчику Enabler/

Я надеюсь ты ему не DWG отдаёшь, а формируешь комплект?

[allar8]

Сообщение от Gmk17 Можно выполнять поиск/замену, находясь в пустом листе (без видовых экранов). Тогда ничего не будет тормозить

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

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

Сообщение от Gmk17 Всё это из серии - "...ты просто не умеешь их готовить".

Кто бы спорил, но не я

[allar8]

Сообщение от Gmk17 Решена: 16 Gb оперативы, Core i7, SSD-винт

Вот это именно то что мне и нужно

----- добавлено через ~3 мин. -----

Сообщение от Gmk17 А Автокад для него не сложно? Отдавай PDF. Еще раз - если ты не создал ни одного СПДС-объекта, то не нужен заказчику Enabler/ Я надеюсь ты ему не DWG отдаёшь, а формируешь комплект?

Да я для примера привел - иногда и в ТЗ требуют кстати в Акаде. А вообще даже в пределах одной организации каждому объяснять про Enabler? вобщем повторюсь был у нас плачевный опыт уже с СПДС GraphiCS

[Gmk17]

Сообщение от allar8 А вообще даже в пределах одной организации каждому объяснять про Enabler?

Не надо ничего никому объяснять. Админ тихо всем поставил и всё работает само.

Сообщение от allar8 был у нас плачевный опыт уже с СПДС GraphiCS

ну возвращайтесь на кульманы, чё... Логика та же.

[allar8]

Сообщение от Gmk17 Решена: 16 Gb оперативы, Core i7, SSD-винт

Да кстати СПДС GraphiCS как то без этого обходится. Там походу отключена регенерация на поиске или там вообще другой принцип?

[Gmk17]

Так я же сразу сказал, что не в самом поиске дело, а в регенерации после него.

[allar8]

Сообщение от Gmk17 Не надо ничего никому объяснять. Админ тихо всем поставил и всё работает само.

Сообщение от Gmk17 ну возвращайтесь на кульманы, чё... Логика та же.

Спорить с Вами не буду. Но если заставите нашего админа, что то подобное сделать хотя бы на двух компах, можете считать что вы просто герой. В общем я Вас понял - спасибо за ценные советы.

[AntonFox]

Доброго времени суток, уважаемые!
Вопрос не совсем в тему, но рядом...

Автокад 2008. Открываем «Найти…» (заглавие окна «найти и заменить, а в меню почему-то только Найти, возможно локализация кривая) вбиваем нужный текст и делаем поиск по чертежу.
Находим нужный текст и все автоматом зуммируется.
Закрываем окно и … зум возвращается в первоначальное положение – хз где найденный текст…

Открываем снова окно, снова ищем и опять тыкая в найденное зуммируется нужное место до тех пор пока окно поиска не закрыто.

В 2007 есть кнопка ЗУММИРОВАТЬ – она как раз показывает нужное место и после закрытия окна поиска остается в том же положении.

В более новых версиях все как в 2008, но справа от результатов поиска есть кнопки добавления в выделение найденного.
http://sapr-journal.ru/tips-tricks/k...nit-v-autocad/ - вот тут это хорошо видно.
В 2008 этих кнопок нет. Снизу только Найти, Заменить, Заменить все, отмена и Справка. А сбоку от результатов нет ничего.

Так вот вопрос – как в 2008 сделать так, что бы найденное зуммировалось и оставалось в таком положении после закрытия окна поиска?
Есть спецификация на форматках А3 в акадовском файле (около 200стр) - без поиска найти там нужное очень трудно.
Может есть какая переменная? Или в настройках где-то галочку надо поставить?

[sertor]

Сообщение от AntonFox Так вот вопрос – как в 2008 сделать так, что бы найденное зуммировалось и оставалось в таком положении после закрытия окна поиска? Есть спецификация на форматках А3 в акадовском файле (около 200стр) - без поиска найти там нужное очень трудно.

Обсуждался этот вопрос, давненько правда. Решением оказалась установка SP-2.

[flareon]

Здравствуйте! В посте #24 был задан вопрос о поиске трехзначных цифр в диапазоне, ответ ну никак в голове не поместился(((....Как забить в быстрый поиск диапазон двузначных понял, а вот с этими...блин...Помогите пожалуйста! Спасибо!

[Syrex]

И вот у меня появилась похожая задача: из нумерации по пакетам сделали сквозную, ссылки на чертежи поменялись, а их очень и очень много
Программа Lee Mac-а http://www.lee-mac.com/bfind.html и из 3 поста https://forum.dwg.ru/showpost.php?p=474324&postcount=3 не плохи, но не совсем подходят, т.к. изменяют полностью весь файл, что неприемлемо, а мне надо только определенные части которые я бы выбрал, и производить замену в определенной последовательности, может я не нашел возможность и к сожалению функцией Find & Replace (_Find) с командной строки нет возможности управлять, всегда вылазит окно.
(почему то из 3 поста не заработала, нашел пост автора и взял оттуда http://www.cadtutor.net/forum/showth...lace-LISP-Ever...)
вот пример какие изменения надо сделать (корректная последовательность) :
20.2 >>> 24
20.1 >>> 23
.......
(19) >>> (22)
(18) >>> (21)
(17) >>> (20)
и т.п.
для текста со скобочками, (уникальный текст) написал следующего типа макрос но он работает отчасти корректно

Код:

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

 (defun c:ListFind03()
(tfindfun "20.2" "24" 1)
(tfindfun "20.1" "23" 1)
(tfindfun "(20.2)" "(24)" 1)
(tfindfun "(20.1)" "(23)" 1)
(tfindfun "(19)" "(22)" 1)
(tfindfun "(18)" "(21)" 1)
и т.п.
)

но почему то замена происходит не у всех цифр см. скриншоты первый до
и второй после действия макроса
меняется только последняя цифра сам виноват синтаксис нарушил
Возникает несколько вопросов что я делаю не так?
Какие изменения внести в Lisp что бы он работал только с выделением?
Возможно мне стоит решить задачу какими то иными способами?
Способ решения через _Find я знаю
Прошу помощи в решении данных вопросов. Заранее спасибо!

[Сергей812]

Вообще то с таким количеством ссылок проще было бы через подшивку и поля сделать, имхо.

[Syrex]

Сергей812 что такое в лиспе "подшивка и поля?" в автокаде уже давно не работаю забывать стал.
Offtop: если охота поболтать: "Проще" - в данном случае это теория, а у меня суровая действительность.

[Сергей812]

А причем тут лисп, это ветка про сам акад вообще-то? Посмотрите, что такое подшивка в инете. Потом на чертеже - где ссылки на номера листов - там вставляются поля->подшивка->раскрывается список листов и выбирается номер листов. Теперь достаточно перетащить листы в подшивке при необходимости, перенумеровать их и обновить чертеж(и). И поля будут указывать именно на текущий номер листа и во всех местах чертежа - это стандартный механизм не помню с какого еще акада. Просто это делать изначально надо было так - это к вопросу о:

Сообщение от Syrex Возможно мне стоит решить задачу какими то иными способами?

[Syrex]

Offtop:

Сообщение от Сергей812 А причем тут лисп, это ветка про сам акад вообще-то?

а я именно про автокад спрашиваю и о лисп-программах узнал именно в этой теме
Offtop: Про _Field почитал в справке

Сообщение от Сергей812 это к вопросу о:

"разговор глухого со слепым"? Поясню раз не очевидно, этот вопрос был о том как решить конкретную задачу иначе, того пути который я избрал, использовать какие то другие средства автокада, а не о том как надо, что то, где то, когда то надо БЫЛО сделать.

Сообщение от Сергей812 Просто это делать изначально надо было так

просто но не сделано
Offtop: Сергей812 вам пообщаться охота, показать что вы знаете, как это поможет? Давайте объясню, чертежи не мои, делал не знаю кто, но явно разные люди может организации, я давно уже стал далек от детального проектирования и автокада, но меня попросили помочь, работаю с тем что есть, замечаний у меня очень много но рефлексия тут неуместна, прохожу лиспом или _find и потом ручками

[allar8]

Подскажите, как найти все тексты в файле содержащими только символ #. Стандартным поиском и фильтром не получается т.к. автокад данный символ воспринимает как маску и выбирает все тексты
А не фильтром вроде получилось
Не это мне показалось - фильтр еще дофига лишнего понавыбирал.

Дык как жи все таки сделать

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

Сообщение от allar8 как найти все тексты в файле содержащими только символ #

Попробуй такую маску:

Код:

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

*`#*

[allar8]

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

Спасибо помогло

[skkkk]

Offtop: allar8, это случайно не порушенные поля?

[allar8]

Сообщение от skkkk Offtop: allar8, это случайно не порушенные поля?

Совершенно верно)

[skkkk]

Offtop: Рекомендую заглянуть в эту тему: LISP. Как определить ошибочные поля (####) в AutoCAD?

[allar8]

Сообщение от skkkk Рекомендую заглянуть в эту тему: LISP. Как определить ошибочные поля (####) в AutoCAD?

Даже это есть. Че сказать молодцы!!! Спасибо

[allar8]

Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

[zenon]

Сообщение от allar8 Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

попробуй через панель Свойства вставить в Содержимое код поля

[allar8]

Сообщение от zenon попробуй через панель Свойства вставить в Содержимое код поля

Согласен, но там разные тексты т.е. ссылки имею разные начала текста
И эта тема быстро прокатывает только с однострочниками. Если мтекст, блин, акад в каждый заходит зачем то(())
Но самое главное, то что ссылки в разных текстах

[kp+]

Сообщение от allar8 через панель Свойства вставить в Содержимое код поля... эта тема быстро прокатывает только с однострочниками. Если мтекст, блин, акад в каждый заходит зачем то(())

Попробуйте этот код:

Код:

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

(defun kp_text_populate (/ a a1 a_st)
  (setq a_st (getstring T "ЧТО:\n"))
  (if a_st
    (while (= 1 1)
	  (while
	   (not (and
	    (setq a (nentsel (strcat "(" a_st ") - Куда:\n")))
	    (setq a1 (vlax-ename->vla-object (car a)))
	    (vlax-property-available-p a1 'textstring)
	   ))
	  )
	  (vla-put-textstring a1 a_st)
    )
  )
)

Он, правда, не работает с множеством объектов сразу, надо прощелкать мышью все нужные (так было задумано), но если что - нетрудно слегка модифицировать

Для операции поиска и замены на код поля можете использовать BFIND (поиск по форуму в помощь). Только соблюдайте осторожность, снимите "опасные" галочки типа "обработать все файлы в папке"

[allar8]

Сообщение от kp+ Он, правда, не работает с множеством объектов сразу, надо прощелкать мышью все нужные (так было задумано), но если что - нетрудно слегка модифицировать

Спасибо - поковыряюсь, если получится)) - я ведь только учусь лиспить то)))

[kp+]

как использовать готовый код - написано в FAQ.

[allar8]

Сообщение от kp+ как использовать готовый код - написано

Да не - использовать то конечно могу, и уж давно. Поковыряюсь - в смысле модифицировать)

----- добавлено через ~8 мин. -----

Сообщение от allar8 Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

Хотя нашел конечно еще решение, но все равно с поиском заменой было бы ваще супер.
С помощью префиксов и суфиксов в программе number.dvb. Она коды полей воспринимает.

[kp+]

Сообщение от allar8 Хотя нашел конечно еще решение, но все равно с поиском заменой было бы ваще супер.

только что попробовал BFIND. Отлично сработало. По мне, единственный минус - нельзя ограничить область поиска и замены выбранными объектами, только весь чертеж, но Вам вроде бы этого и надо.

[allar8]

Сообщение от kp+ только что попробовал BFIND. Отлично сработало. По мне, единственный минус - нельзя ограничить область поиска и замены выбранными объектами, только весь чертеж, но Вам вроде бы этого и надо.

ну да. Только я им тож пробовал - он блин мне все поля перепутал. Ща еще раз попробую

[kp+]

Сообщение от allar8 он блин мне все поля перепутал

ну так им надо пользоваться осторожно, как оружием массового поражения. Вы какую замену задали? Например "л. 3" на "л. <код поля листа 3 из подшивки>"? А он нагадил еще и в л. 13, л. 23, л. 33? Ну так надо было сначала заменить л. 33, потом 23, потом 13 и в последнюю очередь 3. Он же не живой, по-людски не объяснишь.

[allar8]

Сообщение от allar8 Ща еще раз попробую

Попробовал) - хорошо что на копии файла)
В обчем знаете наверно засаду - как путается автокад с одинаковыми цифрами в полях и просто в совершенно других местах. Вот тут это проявилось в полной мере)))

----- добавлено через 30 сек. -----

Сообщение от kp+ ну так им надо пользоваться осторожно, как оружием массового поражения

))) точно оружие массового поражения)))

[kp+]

Сообщение от allar8 В обчем знаете наверно засаду - как путается автокад с одинаковыми цифрами в полях и просто в совершенно других местах. Вот тут это проявилось в полной мере)))

Дальше надо видеть реальный пример Вашего файла (без совершенно секретной информации, только то, что по теме) и пример маски для замены, которую Вы задали BFIND'у. Есть подозрение, что вопрос легко решается, только с нужного конца зайти.

[allar8]

Сообщение от kp+ Дальше надо видеть пример файла и пример маски для замены. Есть подозрение, что вопрос легко решается, только с нужного конца зайти.

Может и легко - но признаться мучает этот вопрос меня давно))).
а по поводу

Сообщение от kp+ (defun kp_text_populate (/ a a1 a_st) (setq a_st (getstring T "ЧТО:\n")) (if a_st (while (= 1 1) (while (not (and (setq a (nentsel (strcat "(" a_st ") - Куда:\n"))) (setq a1 (vlax-ename->vla-object (car a))) (vlax-property-available-p a1 'textstring) )) ) (vla-put-textstring a1 a_st) ) ) )

Результат чет странный - просто в ком строке выводится слово "ЧТО:"

----- добавлено через ~3 мин. -----

Сообщение от allar8 Результат чет странный - просто в ком строке выводится слово "ЧТО:"

Разобралси), спасибо!

[kp+]

ну правильно, Вас спрашивают, ЧТО (какой текст) надо тиражировать и КУДА (в какие объекты) его вставлять. Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же

Сообщение от allar8 Может и легко - но признаться мучает этот вопрос меня давно))).

Ну так где предмет для дальнейшего обсуждения?

[allar8]

Сообщение от kp+ Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же

Да не я уж знаком был с этим - просто решил ишо раз попробовать, - говорю же - на копии)))

----- добавлено через ~4 мин. -----

Сообщение от kp+ ну правильно, Вас спрашивают, ЧТО (какой текст) надо тиражировать и КУДА (в какие объекты) его вставлять. Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же

В обчем на данном этапе пока мне показалось очень полезная. Еще раз спасибо! Как говорится на безрыбье и рак рыба)

[kp+]

Сообщение от allar8 В обчем на данном этапе пока мне показалось очень полезная. Еще раз спасибо! Как говорится на безрыбье и рак рыба)

т.к. на вопрос из #160 и второй части #162 ответа нет, то на этой мажорной ноте можно пока остановиться

[allar8]

Сообщение от kp+ т.к. на вопрос из #160 и второй части #162 ответа нет, то на этой мажорной ноте можно пока остановиться

Да запросто - 5 мин). Только мы ведь с вами и без примера понимаем о чем речь то)
В этом примере интересует замена любого поля из подшивки. Свойства подшивки изменил без автокада. терь надо бы и в файле двг)

[kp+]

Сообщение от allar8 Только мы ведь с вами и без примера понимаем о чем речь то

Понимаю, да не совсем. В конце концов, зачем мне ломать голову, на какой именно ситуации мог бы воспроизводиться описанный Вами глюк? Экстрасенсы лечат по фотографии, но по описаниям даже они не лечат

[allar8]

Сообщение от kp+ Понимаю, да не совсем. В конце концов, зачем мне ломать голову, на какой именно ситуации мог бы воспроизводиться описанный Вами глюк? Экстрасенсы лечат по фотографии, но по описаниям даже они не лечат

Приложил - если поможете буду бескрайне благодарен. Заранее спасибо!

[kp+]

это неудачный результат. А где исходник без полей, не загаженный BFIND'ом? Я ж не вижу Ваш комплект и могу подумать, что ссылки на листы такие и должны быть.
И какую именно маску замены Вы задали BFIND'у?

[allar8]

Сообщение от kp+ это неудачный результат. А где исходник, перегаженный BFIND'ом? Я ж не вижу Ваш комплект и могу подумать, что ссылки на листы такие и должны быть. И какую именно маску замены Вы задали BFIND'у?

В BFIND в строке поиска вставил код поля из подшивки
вот этот
%<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗО_Пункт примечания изменения внутри шкафа \f "%tc1">%

в строке замены вот это
%<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗШ_Пункт примечания изменения внутри шкафа \f "%tc1">%

т.е. посути то нужно заменить в коде полей ДЗО на ДЗШ, чтоб восстановить связь с подшивкой - которую я редактировал

Часть в примере уже руками заменил



----- добавлено через ~5 мин. -----

Сообщение от kp+ А где исходник без полей, не загаженный BFIND'ом

А файл пример.dwg и был исходником не загаженный бфайндом

а вот убитый бфайндом вариант

[kp+]

Без подшивки в пределах досягаемости поля выглядят иначе: %<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g0BED62BA-6C9A-4718-AA11-1BDF3C7C0F62").Number \f "%tc1">%
вместо %<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗО_Пункт примечания изменения внутри шкафа \f "%tc1">%
Короче, нужен образец подшивки - файла DST


Впрочем, уже не нужен
у BFIND ограничение на длину текста для поиска и замены, похоже 256 симв.
Длиннющие коды полей подшивки вставляются в области ввода не полностью. Короче, BFIND в первозданном виде для ТАКОЙ замены не поможет

[allar8]

5 мин

----- добавлено через ~4 мин. -----

Сообщение от kp+ Впрочем, уже не нужен у BFIND ограничение на длину текста для поиска и замены, похоже 256 симв.

Ясно, ок

[allar8]

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

[Сергей812]

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

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

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

Сообщение от Сергей812 скорее уж пройтись во всем текстам и где стоит несуществующий стиль - задать нужный, например.

Два самых простых метода - либо настроить стиль, либо использовать _.checkstandards. А так - попробуй перед символом вопроса поставить обратный слеш (\) или обратный же апостроф (`). Я не помню, что в окне поиска экранирует маски.

[AlexCondor]

КМК, в поиске по знаку вопроса такой текст не найти, ведь он (знак) говорит только о том что в текущем стиле нет описания такого-то символа, и он не может быть отображен. Нужно искать символ под этим знаком вопроса.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Два самых простых метода - либо настроить стиль

Но тогда ведь станет просто множество одинаковых стилей, на которые ссылаются те или иные текстовые объекты... Хотя замена стиля не гарантирует читаемость текста, собственно

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

Сообщение от Сергей812 Хотя замена стиля не гарантирует читаемость текста, собственно

Это точно. Особенно учитывая возможность принудительного форматирования. Ну что ж, ТС могу поздравить с радостным вступлением в ряды пострадавших от неприменения _.etransmit

[allar8]

Сообщение от AlexCondor КМК, в поиске по знаку вопроса такой текст не найти, ведь он (знак) говорит только о том что в текущем стиле нет описания такого-то символа, и он не может быть отображен. Нужно искать символ под этим знаком вопроса.

Видимо так(
Т.е. критерий не прокатил
но Так то настоящий знак вопроса действительно можно найти вот так '?)
Спасибо Кулику Алексею
Offtop: А про свою тему с кракозябрами пойду в другую тему поспрошаю)

[superkot007]

Вопрос вроде простой, но что-то туплю... Как заменить "0" на "-" (без кавычек), если в файле есть другие нули в составе текстов например, "0,2"?

[kp+]

Сообщение от superkot007 Как заменить "0" на "-" (без кавычек)

Если надо обработать только те тексты, в которых только нули и больше ничего, нужно включить галочку "слово целиком" в стандартном окне поиска и замены.
Если надо что-то другое - уточните, приложите пример в духе "есть - должно быть".

[yuriii]

Сообщение от Nike Программа замены фрагментов текста: Код: [Выделить все] ;-============-; ;- Text Find -; ;- *~* -; ; Written by -; ; Mark Mercier ; ; 05-06-09 ; ;-============-; (defun tfind2fun (inputF inputR caseSn / goto goWhile strinF strinR selSet selTxt searep case count error) ; 01 Create selection set. GOTO 02 if success, or GOTO 08 if fail ; 02 Check passed input. If both nil, GOTO 03. If first string and second nil, GOTO 06. If both strings, GOTO 07. Otherwise, return error and GOTO 08 ; 03 Display menus and obtain data from user. If Search, GOTO 04. If Replace, GOTO 05 ; 04 Search option selected. Prompt user for single search term. GOTO 06 ; 05 Replace option selected. Prompt user for search term and replace term. GOTO 07 ; 06 One string has been passed. Assume automatic search. GOTO FINISH ; 07 Two strings have been passed. Assume automatic replace. GOTO FINISH ; 08 FINISH. Return errors or messages if needed. (vl-load-com) (setq goTo 1) (setq goWhile 1) (setq count 0) (if (not (mlml (list caseSn) (list 0 1))) (progn (setq goWhile nil) (princ "\nCase selection not recognized.")) ) ;_ end of if (if (= caseSn 0) (setq case "N") (setq case "Y") ) ;_ end of if (while goWhile (cond ((= goTo 1) (if (setq selSet (extTxtPt (ssget "X"))) (setq goTo 2) (setq error "\nSelection set not found." goTo 8 ) ;_ end of setq ) ;_ end of if ) ((= goTo 2) ; Check input, pass to whatever. (cond ((and (= inputF nil) (= inputR nil)) (setq goTo 3) ) ((and (= (type inputF) 'STR) (= inputR nil)) (setq strinF inputF) (setq goTo 6) ) ((and (= (type inputF) 'STR) (= (type inputR) 'STR)) (setq strinF inputF) (setq strinR inputR) (setq goTo 7) ) (t (setq error "\nPassed arguments are not accepted.") (setq goTo 8) ) ) ;_ end of cond ) ((= goTo 3) ; Obtain desired option from user (while (not (mlml (list (setq searep (strcase (getstring nil "\nSelect option [Find/Replace/Quit/Case]: ")))) (list "F" "FIND" "R" "REPLACE" "Q" "QUIT" "C" "CASE") ) ;_ end of mlml ) ;_ end of not ) ;_ end of while (cond ((mlml (list searep) (list "F" "FIND")) (setq goTo 4) ) ((mlml (list searep) (list "R" "REPLACE")) (setq goTo 5) ) ((mlml (list searep) (list "Q" "QUIT")) (setq goTo 8) ) ((mlml (list searep) (list "C" "CASE")) (while (not (mlml (list (setq case (strcase (getstring nil "\nCase sensitive? [Yes/No]: ")))) (list "Y" "YES" "N" "NO") ) ;_ end of mlml ) ;_ end of not ) ;_ end of while ) ) ;_ end of cond ) ((= goTo 4) ; Obtain search string from user, set to strinF (while (eq "" (setq strinF (getstring t "\nEnter search term: ")))) (setq goTo 6) ) ((= goTo 5) ; Obtain search string and replace string from user, set to strinF and strinR respectively (while (eq "" (setq strinF (getstring t "\nEnter find term: ")))) (while (eq "" (setq strinR (getstring t "\nEnter replace term: ")))) (setq goTo 7) ) ((= goTo 6) ; Search drawing for strinF (cond ((mlml (list case) (list "Y" "YES")) ; Compare using (vl-string-search strinF input), view selection ; use "while" to get all search occurances (foreach selVar selSet (if (vl-string-search strinF (nth 0 selVar)) (progn (setq count (1+ count)) (if (/= (getvar "ctab") (caddr selVar)) (command "ctab" (caddr selVar)) ) ;_ end of if (command "zoom" "c" (trans (cadr selVar) 0 1) (* 32 (nth 3 selVar))) (getstring "\nPress 'Enter' to continue: ") ) ;_ end of progn ) ;_ end of if ) ;_ end of foreach ) ((mlml (list case) (list "N" "NO")) ; Compare using (vl-string-search (strcase strinF) (strcase input)), view selection ; use "while" to get all search occurances (foreach selVar selSet (if (vl-string-search (strcase strinF) (strcase (nth 0 selVar))) (progn (setq count (1+ count)) (if (/= (getvar "ctab") (caddr selVar)) (command "ctab" (caddr selVar)) ) ;_ end of if (command "zoom" "c" (trans (cadr selVar) 0 1) (* 32 (nth 3 selVar))) (getstring "\nPress 'Enter' to continue: ") ) ;_ end of progn ) ;_ end of if ) ;_ end of foreach ) ) ;_ end of cond (if (= count 0) (setq error "\nNo matches found.") (setq error (strcat (itoa count) " matches found.")) ) ;_ end of if (setq goTo 8) ) ((= goTo 7) ; Replace strinF with strinR (cond ((mlml (list case) (list "Y" "YES")) ; Compare using (vl-search-string strinF input), modify using (vl-string-subst) within a while loop (foreach selVar selSet (setq selTxt (nth 0 selVar)) (setq seaLoc 0) (while (setq seaLoc (vl-string-search strinF selTxt seaLoc)) (setq selTxt (vl-string-subst strinR strinF selTxt seaLoc)) (setq seaLoc (+ seaLoc (strlen strinR))) (setq count (1+ count)) ) ;_ end of while (vla-put-textstring (vlax-ename->vla-object (nth 4 selVar)) selTxt) ) ;_ end of foreach ) ((mlml (list case) (list "N" "NO")) ; Compare using (vl-string-search (strcase strinF) (strcase input)), modify using (vl-string-subst) within a while loop (foreach selVar selSet (setq selTxt (nth 0 selVar)) (setq seaLoc 0) (while (setq seaLoc (vl-string-search (strcase strinF) (strcase selTxt) seaLoc)) (setq selTxt (strcat (substr selTxt 1 seaLoc) strinR (substr selTxt (+ 1 seaLoc (strlen strinF))))) (setq seaLoc (+ seaLoc (strlen strinR))) (setq count (1+ count)) ) ;_ end of while (vla-put-textstring (vlax-ename->vla-object (nth 4 selVar)) selTxt) ) ;_ end of foreach ) ) ;_ end of cond (if (= count 0) (setq error "\nNo occurances found.") (setq error (strcat (itoa count) " occurances modified.")) ) ;_ end of if (setq goTo 8) ) ((= goTo 8) (if error (princ error) ) ;_ end of if (setq goWhile nil) ) ) ;_ end of cond ) ;_ end of while (princ) ) ;_ end of defun (defun mlml (inSMLChar inSMLStri / returnVarMS toCheck chkWith) (setq returnVarMS nil) (if (and (= (type inSMLChar) 'list) (= (type inSMLStri) 'list) ) ;_ end of and (progn (foreach toCheck inSMLStri (foreach chkWith inSMLChar (if (eq toCheck chkWith) (setq returnVarMS t) ) ;_ end of if ) ;_ end of foreach ) ;_ end of foreach ) ;/progn ) ;_ end of if returnVarMS ) ; Checks a list to see if a member of that list is the same as a member of another list. Returns T or nil (defun extTxtPt (ssList / subVar getEnt entTyp entTxt entPnt entLay entHgt grp66 entAtt getEntAtt entAttTyp uniLst) (setq uniLst nil) (setq subVar 0) (if ssList (repeat (sslength ssList) (setq getEnt (entget (cadr (car (ssnamex ssList subVar))))) (setq entTyp (cdr (assoc 0 getEnt))) (cond ((or (= entTyp "TEXT") (= entTyp "MTEXT")) (setq entTxt (cdr (assoc 1 getEnt))) (setq entPnt (cdr (assoc 10 getEnt))) (setq entHgt (cdr (assoc 40 getEnt))) (setq entLay (cdr (assoc 410 getEnt))) (setq entNam (cdr (assoc -1 getEnt))) (setq uniLst (append uniLst (list (list entTxt entPnt entLay entHgt entNam)))) ) ((= entTyp "INSERT") (setq grp66 (assoc 66 getEnt)) (if grp66 (progn (setq entAtt (entnext (cdr (assoc -1 getEnt)))) (setq getEntAtt (entget entAtt)) (setq entAttTyp (cdr (assoc 0 getEntAtt))) ) ;_ end of progn ) ;_ end of if (while (= entAttTyp "ATTRIB") (setq entTxt (cdr (assoc 1 getEntAtt))) (setq entPnt (cdr (assoc 10 getEntAtt))) (setq entHgt (cdr (assoc 40 getEntAtt))) (setq entLay (cdr (assoc 410 getEntAtt))) (setq entNam (cdr (assoc -1 getEntAtt))) (setq uniLst (append uniLst (list (list entTxt entPnt entLay entHgt entNam)))) ; Get next entity. (setq entAtt (entnext (cdr (assoc -1 getEntAtt)))) ; Get ent and ent type (setq getEntAtt (entget entAtt)) (setq entAttTyp (cdr (assoc 0 getEntAtt))) ) ;_ end of while ) (t ) ) ;_ end of cond (setq subVar (1+ subVar)) ) ;_ end of repeat ) ;_ end of if uniLst ) ; Return list of all text-based objects (Text, MText, Attribute) in the current drawing Работает так: Код: [Выделить все] (tfind2fun "старый текст" "новый текст" 1) где ключик <1> - с учетом регистра, а если <2> - без учета регистра, Создавай по каждому фрагменту команду замены, например: Код: [Выделить все] (tfind2fun "11ДО-ММ.2(564)У2" "11ДО/190-0.75(0.15)-3.0-0.9(564)" 1) (tfind2fun "11ДО-ММ.2(256)У3" "11ДО/250-0.75(0.15)-2.0-0.9(256)" 1) и вперед!

Интересное решение, вопрос куда требуется прописать команду

Код:

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

(tfind2fun "старый текст" "новый текст" 1)

замены текста, и можно например прописать сразу группу, которые требуется автозаменить штук 600 например?

[baksconstructor]

Сообщение от yuriii требуется автозаменить штук 600 например?

Попробуйте, может поможет - АвтоЗаменаCAD
Мы её для перевода текстов используем, там и прямая замена есть, но пока не использовали.

[yuriii]

Сообщение от baksconstructor Попробуйте, может поможет - АвтоЗаменаCAD Мы её для перевода текстов используем, там и прямая замена есть, но пока не использовали.

Спасибо, но уже нашел бесплатный вариант bfinder от Le Mac

[superkot007]

Сообщение от kp+ Если надо что-то другое - уточните, приложите пример в духе "есть - должно быть".

Именно "что-то другое")
В общем, на чертежах есть однострочные тексты. Должно быть так: если попадается "0" (без кавычек), то его нужно заменить на "-", а если, например, "0.3", то НЕ ДОЛЖНА быть замена на "-.3".
Попробовал через быстрый выбор - работает замена, странно... Осталось теперь завязать это на lisp, для автоматизации замены в сотне файлов...
Через BFIND от Lee Mac не получается...

[apepluto]

а нет ли у кого похожего кода, только для Мтекстов внутри блоков? Данный код работает только для Мтекса и Текста

[Хмурый]

поиск текста внутри блока
https://forum.dwg.ru/showthread.php?t=91627
может, поможет

[apepluto]

Сообщение от Хмурый поиск текста внутри блока https://forum.dwg.ru/showthread.php?t=91627 может, поможет

уже встречал такое решение, но программа эта ничего не находит вообще

[zenon]

Сообщение от apepluto уже встречал такое решение, но программа эта ничего не находит вообще

А в блоке точно есть то, что надо найти?

[apepluto]

Сообщение от zenon А в блоке точно есть то, что надо найти?

Если я правильно понимаю, она должна уметь искать Мтекст внутри блоков. У меня именно так, но действий никаких программа не совершает.

[Хмурый]

apepluto, какая программа? Вот эта?
https://lee-mac.com/bfind.html
PS фрагмент файла-бы...

[apepluto]

Сообщение от Хмурый apepluto, какая программа? Вот эта? https://lee-mac.com/bfind.html PS фрагмент файла-бы...

Да. Рабочий файл прикрепил