[МИНЗДРАВ]

Как получить возможность в Acade копировать содержание текста - одним кликом?
Например: на схеме расположения балок стоит множество текстов - "Б1", "Б2" и "Б3". А мне требуется, тыкнув идин раз на каждый из них, получить к примеру Б5.
Реально?

[Дима_]

Если ты объяснишь как из Б1, Б2, Б3 - Б5 получается вопрос решить будет легче.

[МИНЗДРАВ]

Из них, получить - Б5.
Так понятней?

[Дима_]

Нет

[kukuikar]

Выдели все тексты руками и руками же через свойства...

[VVA]

Попробуй TTC - Text to Text Copy. Кстати, посмотри нумераторы, может понравятся.

[dextron3]

VVA,

Код:

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

(defun C:T_T ( / new_text ss ss1 e flag_sel_new flag_sel_old)
  (while (null flag_sel_new)
    (setvar "ERRNO" 0)
    (setq ss (car (nentsel "\nВыберите новый текст (ENTER-завершение): ")))
    (cond
      ;; Нажато ENTER — выход
      ((and (null ss) (= (getvar "ERRNO") 52)) (setq flag_sel_new T))
      ((null ss)
        (princ "\nНичего не выбрано! Повторите.")
        (vlr-beep-reaction)
      )
      (t
        (cond
         ;; Выбран текст — выходим из цикла
         ((setq new_text (cdr (assoc 1 (entget ss)))) (setq flag_sel_new T))
         (T
           (princ "\nВыбран не текст! Повторите.")
           (vlr-beep-reaction)
         )
        )
      )
    )
  ) ;; endof (while
  (if new_text (progn ;; А текст ли выбран?
    (princ (strcat "\nНовый текст: <" new_text ">"))
    (redraw ss 3)
    (while (null flag_sel_old)
      (setvar "ERRNO" 0)
      (setq ss1 (nentsel "\nВыберите старый текст (ENTER-завершение): "))
      (cond
        ((or (null ss1) (= (getvar "ERRNO") 7))
          (princ "\nНичего не выбрано! Повторите.")
          (vlr-beep-reaction)
        )
        (T
          (setq e (entget (car ss1)))
          (cond
           ((assoc 1 e)
             (entmod (subst (cons 1 new_text) (assoc 1 e) e))
             ;; Если это блок — нужно его обновить,
             ;; если не блок, то обновляем только сам примитив
             (cond
              ((cadddr ss1) (entupd (car (cadddr ss1))))
              (T  (entupd (car ss1)))
             )
             (setq flag_sel_old T)
           )
           (T
            (princ "\nВыбран не текст! Повторите.")
            (vlr-beep-reaction)
           )
          )
        )
      ) ;; (cond
    )
    (redraw ss 4)
  )) ;; (if (progn
  (princ)
)

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

Пример лиспа:
1. Выберите базовый текст
2. Выберите область текстов для прописки базового текста
(или точечными выделениями с активной заменой)
3. Конец

Этот лисп как раз и послужит

[МИНЗДРАВ]

Блин, ещё проблема.
Не знаете, как AutoCaD LT заставить все команды выполнять?
(лицензионный, мать его)

[VVA]

Модифицировал команду TTC из #6
Можно поштучно указывать здля замены Тексты, Размеры, Ячейки таблицы Автокада, Аттрибуты блока, или "промахнуться" и рамкой указать область для замены. Там будут искаться Тексты и Мтексты

Код:

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

;;;Text To Text copy
(defun c:ttc (/ actDoc vlaObj sObj sText curObj oldForm
        oType oldMode conFlag errFlag *error*)
  (vl-load-com)
      (setq actDoc(vla-get-ActiveDocument
        (vlax-get-acad-object)))
      (vla-StartUndoMark actDoc)
  (defun TTC_Paste(pasteStr / nslLst vlaObj hitPt
                   hitRes Row Column lst ss)
    (setq errFlag nil)
  (setvar "ERRNO" 0)
  (setq Lst(nentsel "\nPaste text or first point of corner <Enter-exit> >>"))
  (if (and (null Lst)
    (= (getvar "errno") 7)
    )
    (progn
    (setq hitPt (getcorner  (setq vlaObj (cadr(GRREAD nil 1))) "\nOther point: "))
    (setq ss (ssget "_C" vlaObj hitPt '((0 . "*TEXT"))))
    (setq Lst (mapcar '(lambda(x)(cons x '((0 0 0))))
   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     )
   )
    )
    (setq Lst (list Lst))
    )
(foreach nsllst Lst
    (if nsllst ;(setq nslLst(nentsel "\nPaste text >"))
      (progn
  (cond
    (
     (and
       (= 4(length nslLst))
       (= "DIMENSION"(cdr(assoc 0(entget(car(last nslLst))))))
       ); end and
     (setq vlaObj
      (vlax-ename->vla-object
        (cdr(assoc -1(entget(car(last nslLst)))))))
     (if
       (vl-catch-all-error-p
         (vl-catch-all-apply
     'vla-put-TextOverride(list vlaObj pasteStr)))
         (progn
         (princ "\n Can't paste. Object may be on locked layer. ")
         (setq errFlag T)
         ); end progn
       ); end if
     ); end condition #1
    (
     (and
       (= 4(length nslLst))
       (= "ACAD_TABLE"(cdr(assoc 0(entget(car(last nslLst))))))
       ); end and
     (setq vlaObj
      (vlax-ename->vla-object
        (cdr(assoc -1(entget(car(last nslLst))))))
     hitPt(vlax-3D-Point(trans(cadr nslLst)1 0))
     hitRes(vla-HitTest vlaObj hitPt
        (vlax-3D-Point '(0.0 0.0 1.0)) 'Row 'Column)
           ); end setq
     (if(= :vlax-true hitRes)
     (progn
         (if
     (vl-catch-all-error-p
       (vl-catch-all-apply
         'vla-SetText(list vlaObj Row Column pasteStr)))
     (progn
       (princ "\n Can't paste. Object may be on locked layer. ")
       (setq errFlag T)
       ); end progn
     ); end if
         ); end progn
       ); end if
     ); end condition # 2
    (
     (and
       (= 4(length nslLst))
       (= "INSERT"(cdr(assoc 0(entget(car(last nslLst))))))
       ); end and
     (princ "\nCan't paste to block's DText or MText. Select Attribute ")
     (setq errFlag T)
     ); end condition #3
    (
     (and
       (= 2(length nslLst))
         (member(cdr(assoc 0(entget(car nslLst))))
           '("TEXT" "MTEXT" "ATTRIB" "ATTDEF"))
       ); end and
     (setq vlaObj
      (vlax-ename->vla-object(car nslLst)))
        (if
     (vl-catch-all-error-p
       (vl-catch-all-apply
         'vla-put-TextString(list vlaObj pasteStr)))
    (progn
       (princ "\nError. Can't pase text. ")
      (setq errFlag T)
      ); end progn
     ); end if
     ); end condition #4
    (T
     (princ "\nCan't paste. Invalid object. ")
     (setq errFlag T)
     ); end condition #5
    ); end cond
             T
      ); end progn
            nil
           ); end if
  )
    ); end of TTC_Paste

    (defun TTC_MText_Clear(Mtext / Text Str)
    (setq Text "")
    (while(/= Mtext "")
      (cond
  ((wcmatch
     (strcase
       (setq Str
        (substr Mtext 1 2)))
                     "\\[\\{}`~]")
   (setq Mtext(substr Mtext 3)
         Text(strcat Text Str)
   ); end setq
  ); end condition #1
  ((wcmatch(substr Mtext 1 1) "[{}]")
    (setq Mtext
     (substr Mtext 2))
  ); end condition #2
  (
   (and
   (wcmatch
     (strcase
       (substr Mtext 1 2)) "\\P")
   (/=(substr Mtext 3 1) " ")
    ); end and
         (setq Mtext (substr Mtext 3)
               Text (strcat Text " ")
         ); end setq
   ); end condition #3
  ((wcmatch
     (strcase
       (substr Mtext 1 2)) "\\[LOP]")
    (setq Mtext(substr Mtext 3))
  ); end condition #4
  ((wcmatch
     (strcase
       (substr Mtext 1 2)) "\\[ACFHQTW]")
    (setq Mtext
     (substr Mtext
       (+ 2
          (vl-string-search ";" Mtext))))
  ); end condition #5
  ((wcmatch
     (strcase (substr Mtext 1 2)) "\\S")
    (setq Str(substr Mtext 3 (- (vl-string-search ";" Mtext) 2))
          Text(strcat Text (vl-string-translate "#^\\" " " Str))
          Mtext(substr Mtext (+ 4 (strlen Str)))
   ); end setq
   (print Str)
  ); end condition #6
  (T
   (setq Text(strcat Text(substr Mtext 1 1))
         Mtext (substr Mtext 2)
   )
  ); end condition #7
      ); end cond
    ); end while
  Text
); end of TTC_MText_Clear

  (defun TTC_Copy (/ sObj sText tType actDoc)
   (if
    (and
     (setq sObj(car(nentsel "\nCopy text... ")))
     (member(setq tType(cdr(assoc 0(entget sObj))))
      '("TEXT" "MTEXT" "ATTRIB" "ATTDEF"))
     ); end and
    (progn
      (setq actDoc(vla-get-ActiveDocument
        (vlax-get-Acad-object))
      sText(vla-get-TextString
       (vlax-ename->vla-object sObj))
      ); end setq
      (if(= tType "MTEXT")
  (setq sText(TTC_MText_Clear sText))
  ); end if
      ); end progn
    ); end if
    sText
    ); end of TTC_Copy
  (defun CCT_Str_Echo(paseStr / comStr)
    (if(< 20(strlen paseStr))
      (setq comStr
       (strcat
         (substr paseStr 1 17)"..."))
      (setq comStr paseStr)
      ); end if
    (princ
      (strcat "\nText = \"" comStr "\""))
    (princ)
    ); end of CCT_Str_Echo
    (defun *error*(msg)
    (vla-EndUndoMark
      (vla-get-ActiveDocument
        (vlax-get-acad-object)))
    (princ "\nQuit TTC")
    (princ)
    ); end of *error*
    (if(not ttc:Mode)(setq ttc:Mode "Multiple"))
    (initget "Multiple Pair-wise")
    (setq oldMode ttc:Mode
    ttc:Mode
     (getkword
       (strcat "\nSpecify mode [Multiple/Pair-wise] <" ttc:Mode ">: "))
    conFlag T
    paseStr ""
     ); end setq
    (if(null ttc:Mode)(setq ttc:Mode oldMode))
    (if(= ttc:Mode "Multiple")
      (progn
  (if(and(setq paseStr(TTC_Copy))conFlag)
    (progn
    (CCT_Str_Echo paseStr)
    (while(setq conFlag(TTC_Paste paseStr))T
      ); end while
    ); end progn
    ); end if
  ); end progn
      (progn
  (while
    (and conFlag paseStr)
    (setq paseStr(TTC_Copy))
    (if(and paseStr conFlag)
      (progn
    (CCT_Str_Echo paseStr)
    (setq errFlag T)
    (while errFlag
    (setq conFlag(TTC_Paste paseStr))
         );end while
       ); end progn
      ); end if
    ); end while
  ); end progn
      ); end if
   (vla-EndUndoMark actDoc)
   (princ "\nQuit TTC")
  (princ)
  ); end c:ttc
(princ "\n\t TTC - Text to Text copy. Copy text from DIMENSION, TEXT, MTEXT, ATTRIB, ATTDEF, ACAD_TABLE to one")

>МИНЗДРАВ
По ссылке в моей подписи прочитай примечание в начале статьи

[dextron3]

VVA, от меня спасибо

Применение:
1. Исправление чертежей, к примеру Б1, на Б2 выборочно
2. Корректировка текстов из заготовок
3. Приведенный лис из поста #7 можно выбросить

[Hans667]

а вот тема похожая подымалась.пост #15

[skkkk]

VVA, можно ли сделать на функцию TTC кнопку с макросом, чтоб она сразу выбирала Multiple/Pair-wise? Спасибо

[dextron3]

(if (= ttc nil) ( Load (findfile "Lisp/ttc.lsp"))) ttc;m;

Lisp/ttc.lsp это путь в support где у тебя лежит лисп

[VVA]

>dextron3 Почти правильно. Проверка переменной TTC на nil не даст тебе информации, загружена или нет команда C:TTC. Проверка должна быть такой (if(null C:TTC) ... . Твоя конструкция (if (= ttc nil) ... просто будет каждый раз подгружать файл ttc.lsp. Ну и соответственно кнопочка, пути оставлены как у dextron3
^C^C(if(null C:TTC)(Load (findfile "Lisp/ttc.lsp")));ttc;m;
Вариант с расположением файла в папке, прописанной в путях доступа
^C^C(if(null C:TTC)(Load "ttc.lsp"));ttc;m;
Про пути доступа смотреть рисунок и читать из раздела "Организация библиотеки лисп файлов"

[dextron3]

VVA, это только для этого лиспа или для всех?

[VVA]

Это для всех. Для лиспа (defun ttc ()<что-то делаем>) и (defun C:ttc ()<что-то делаем>) это две разные функции, которые можно вызвать из командной строки так (ttc) и так (C:TTC). Просто у функций, начинающихся с префикса C: есть некоторые особенности:

• им нельзя передавать аргументы
• вызвать функцию можно из командной строки, набрав ее имя без префикса C:, т.е. она становится командой Автокада

Разницу можешь увидеть, набрав в командной строке !ttc и !C:TTC при загруженном файле ttc.lsp.
Ну и к слову для остальных: здесь ( LISP. Копирование текста из/в DText, MText, Таблиц, Размеров, Атрибутов, определения Атрибутов) выложен вариант с возможностью переключения Layout при копировании текстов.

[skkkk]

Помогите пожалуйста разобраться с постом #9. При копировании мтекста, который содержит степень (верхний индекс, например 2), вместо степени в конечный мтекст вставляется 2^. И хотелось бы в него добавить функцию замены цвета конечного мтекста, по аналогии с лиспом для вычисления суммы длин линий со вставкой в мтекст из http://dwg.ru/f/showthread.php?t=842...D%E8%FF&page=6, пост #118.

там изменен фрагмент

Код:

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

(if (vl-catch-all-error-p
      (vl-catch-all-apply
	'(lambda()
	   (vla-put-TextString vlaObj pasteStr)
	   (vla-put-Color vlaObj 3)  ;3-номер цвета
	   )
	)
      )

Нашел в #9 этот фрагмент, изменил согласно лиспу по ссылке, проверил скобки - не работает, вообще копировать перестает
Заранее спасибо

[skkkk]

Накопал на этом сайте в программах лиспик по этой теме. Очень достойный, надо заметить.

Программа копирует содержание текста из/в dtext/mtext/dimensions. можно скопировать любой текст в любой размер. Из размера можно скопировать текст, если содержимое размерного текста изменено вручную. Порядок работы: выбираете последовательно один или несколько текстовых примитивов или объектов содержащих текст (текст объединяется в одну строку разделенную пробелами), затем нажимаете enter или пробел и выбираете текст, в который нужно скопировать эту строку. Обновление геометрии выноски при копировании текста в текст выноски.

.
Он тут: http://dwg.ru/dnl/198
Умеет копировать, корректно отображая индексы

[crosandr]

Сообщение от VVA Модифицировал команду TTC из #6 Можно поштучно указывать здля замены Тексты, Размеры, Ячейки таблицы Автокада, Аттрибуты блока, или "промахнуться" и рамкой указать область для замены. Там будут искаться Тексты и Мтексты

Немного расширил для объектов СПДС
А атрибуты динамических блоков возможно добавить будет?

[perpetule]

Лисп из #9 перестал работать с ячейками таблицы, хелп ми плииз! Проект горит, пробовал различные варианты и с caduser в том числе, автокад 2014 лицензия SP1.

P.S.
Извиняюсь - все работает выбор не цифры в автокадовской таблице , а линии края ячейки, ранее насколько помню работало указанием цифры.
На всякий случай оставлю точно рабочий вариант.