[Nazarova]

Помогите с такой загвоздкой...На чертеже порядка тясячи текстовых объектов с типичным содержанием. Допустим 0,07-0,05. Необходимо во всех записях избавиться от того что пишется после тире (включая его) т.е. получить в результате 0,07. Ранее избавлялись от одинакового текста либо вручную, либо через поиск заменяя на пробел. Но сейчас содержимое абсолютно разное и путем подбора, с шагом или как угодно..ну очень муторно. Да и чертежей таких полно. Допусти еще нужно внитри этого же чертежа избавиться от всех данных содержащие значение с %, допустим 52%, 80% и т.д. Аналогично мучаемся вручную... Думаю кто то давно нашел способ это упростить..но у нас этим заняться не кому..сидели и работали ручками...Терпение на пределе. Помогите

[Alan]

Попробуйте от программы от Lee Mac
например, http://www.lee-mac.com/bfind.html

[G-RAV]

Код:

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

 (defun test (/ adoc)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  ) ;_ end_vla-startundomark
  (vl-catch-all-apply
    (function
      (lambda ()
	(mapcar
	  (function
	    (lambda (sl / i s)
	      (if (setq	i (vl-string-search
			    "-"
			    (setq s (cdr (assoc 1 (entget sl))))
			  ) ;_ end_vl-string-search
		  ) ;_ end_setq
		(entmod
		  (append (vl-remove (assoc 1 (entget sl)) (entget sl))
			  (list (cons 1 (substr s 1 i)))
		  ) ;_ end_append
		) ;_ end_entmod
	      ) ;_ end_if
	    ) ;_ end_lambda
	  ) ;_ end_function
	  (vl-remove-if
	    'listp
	    (mapcar 'cadr (ssnamex (ssget '((0 . "text")))))
	  ) ;_ end_vl-remove-if
	) ;_ end_mapcar
      ) ;_ end_lambda
    ) ;_ end_function
  ) ;_ end_vl-catch-all-apply
  (vla-EndUndoMark adoc)
  (princ)
) ;_ end_defun

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

[CTPAHHNK]

А типа справку почитать?

Поиск и замена текста Процедуры Поиск и замену текста легко выполнить с помощью команды НАЙТИ. Для поиска и замены текста можно использовать команду НАЙТИ. Заменяется только содержание текста; форматирование символов и свойства текста не изменяются. При поиске текста в 3D среде видовой экран временно перейдет в режим 2D, чтобы текст не перекрывался имеющимися в чертеже 3D объектами. Команда НАЙТИ позволяет использовать при поиске символы-шаблоны. Символ Определение # (Решетка) Соответствует любой одиночной цифре @ (Коммерческое "при") Соответствует любой одиночной букве . (Точка) Соответствует любому символу, кроме букв и цифр * (Звездочка) Соответствует любой последовательности символов. Может использоваться в любой позиции строки ? (Знак вопроса) Соответствует любому одиночному символу; например, ?BC соответствует ABC, 3BC и т.п. ~ (Тильда) Соответствует всем строкам, кроме отвечающих следующему после тильды шаблону; например, ~*AB* соответствует всем строкам, не содержащим последовательности AB [ ] Соответствует любому из символов в скобках; например, [AB]C соответствует AC и BC [~] Соответствует любому из символов, кроме заключенных в скобки; например, [~AB]C соответствует XC, но не соответствует BC [-] Задает диапазон для одиночного символа; например, [A-G]C соответствует AC, BC и так далее до GC, но не соответствует HC ' (Апостроф) Следующий за ним специальный символ трактуется как обычный; например, '~AB соответствует ~AB

P.S. Не забыть поставить галочку у "Подстановочные знаки"

[ProPeller]

Сообщение от CTPAHHNK А типа справку почитать? P.S. Не забыть поставить галочку у "Подстановочные знаки"

А типа чем ему типа эта справка типа поможет?

Сообщение от G-RAV Сильно не ругайте... написал только для данного(частного) случая и только в целях самообразования... если из профи кто оценит, может даст критику, буду только рад...

Я бы порекомендовал заменить:

Код:

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

 (entmod
 (append (vl-remove (assoc 1 (entget sl)) (entget sl))
	 (list (cons 1 (substr s 1 i)))
 )
)

На

Код:

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

 (entmod
 (subst	(cons 1 (substr s 1 i))
	(assoc 1 (entget sl))
	(entget sl)
 )
)

Так же vl-catch-all-apply лучше применить не к mapcar, а к каждому элементу списка внутри mapcar, иначе при получении ошибки при обработке элементов списка, оставшаяся его часть останется необработанной. Да и mapcar здесь не нужен, проще будет через foreach.

[Владимир_М]

Сообщение от ProPeller А типа чем ему типа эта справка типа поможет?

Ну и Справка (т. е. типа найти-заменить) типа помогает (для задач от ТС).

[ProPeller]

Сообщение от Владимир_М Ну и Справка (т. е. типа найти-заменить) типа помогает (для задач от ТС).

Ну выберет он, допустим, какие-то текстовые примитивы по содержимому, а дальше-то что?

[Владимир_М]

Сообщение от ProPeller Ну выберет он, допустим, какие-то текстовые примитивы по содержимому, а дальше-то что?

Выберет нужный кусок в текстовом примитиве, который надо стереть (или текстовый полностью тот, который с %) и заменит его на " ".
Проверил экспериментально.

Для второй части: поиск соответственно ##% и замена на тот же пробел.

[Post]

Правка-найти-заменить

[Puroshev]

Нашел у себя и доработал
Удаляет текст после "-" и текст с %

Код:

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

 ;************************************************************
 ; Поиск текста в чертеже
 ;************************************************************
(defun C:PSW (/ A A2 A3 B I K N OB SS TIP )
    (prompt "\nПоиск текста в чертеже PSW - 2000 (c). е-mail [email protected]")
 ;************************************************************
    (prompt "\nВыберите текст :")
    (setq SS (ssget))
    (setq N (sslength SS))
    (setq I 0)
 ;************************************
    (repeat N
        (setq OB   (ssname SS I))
        (setq A2   (entget (ssname SS I)))
        (setq TIP  (cdr (assoc 0 (entget (ssname SS I)))))
              (setq I    (+ 1 I))
 ;************************************
        (if (= TIP "TEXT")
            (progn
                (setq A (cdr (assoc 1 A2))) ; строка текста
	      ;************************************************
	        (setq k (vl-string-search "-"  A))
	        (if (/= k nil)
		  (progn
		    (setq B (Substr A 1 k ))
                    (setq A3 (cons 1 B)) 
                    (setq A2 (subst  A3 (assoc 1 A2) A2))
                    (entmod A2)
		 ))
	      ;************************************************
	        (setq k (vl-string-search "%"  A))
	        (if (/= k nil) (entdel Ob))
	      ;************************************************
	      
            )
        ) ; end if
    ) ; Repeat

 (princ)
) ;defun

[Post]

Как-то писал, что скоро будем лиспы писать, которые точки близко близко расставляют и получается отрезок вместо того, чтобы программу изучить.
Чем базовый функционал Автокада не устраивает?

[Puroshev]

Уважаемый Post. Я понимаю, что можно найти текст используя подстановочные символы, а как быть с заменой? Если подскажите буду весьма признателен.
Программку писал в 2000 году , тогда команды найти-заменить не было.

[Post]

На пробел заменит и всё

[Puroshev]

На пробел заменит и всё __________________ С уважением!!!

Уважаемый Post.
Девушке надо найти 1.82-1.28, оставить только 1.82.
В строке поиска пишу *-*, а на что менять.

[Post]

а в восьмом сообщении уже написали.
Просто ставишь в окошке "Заменить на" пробел и все

----- добавлено через ~1 мин. -----
Лучше не звездочки ставить, а решетку - соответствует цифре, а то мало ли где в тексте тире или минус встречается - снесет все.

[Post]

На всякий случай:

[Puroshev]

Post, cпасибo. Все понятно.