[YuraVel]

Возможно профи откликнутся и подскажут...

Как преобразовать несколько обновляемых полей в соответственный текст одним махом?

[Хмурый]

_explode не помогает?

[YuraVel]

Сообщение от Хмурый _explode не помогает?

Он то конечно помагает, но хочется что-бы таблицы остались таблицами, а MText остался MText-ом, нужен другой вариант...

[Эдуард]

По первой прикидке так:
Заменяет field и field в блоках на соответствующий текст.
Код можно оптимизировать выведя повторяющийся в отдельную функцию.

Код:

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

(vl-load-com)
(defun C:field-to-text ()
  (if
    (and
      (setq txt-nabor (ssget '((0 . "mtext,insert"))))
      (setq txt-nabor (mapcar 'vlax-ename->vla-object
			      (vl-remove-if
				'listp
				(mapcar	'cadr
					(ssnamex txt-nabor)
				)
			      )
		      )
      )
    )

     (mapcar
       '(lambda	(x / dict)
	  (cond
	    (
	     (and
	       (= (vla-get-objectname x) "AcDbMText")
	       (= (vla-get-HasExtensionDictionary x) :vlax-true)
	     )
	     (vlax-for item (setq dict (vla-GetExtensionDictionary x))
	       (if
		 (= (vla-get-name item) "ACAD_FIELD")
		  (progn
		    (vla-remove dict "ACAD_FIELD")
		    (vla-put-textstring
		      x
		      (vl-string-trim "%<>" (vla-get-textstring x))
		    )
		  )
	       )
	     )
	    )
	    (
	     (= (vla-get-objectname x) "AcDbBlockReference")
	     (vlax-for item2 (vla-item (vla-get-blocks
					 (vla-get-ActiveDocument
					   (vlax-get-acad-object)
					 )
				       )
				       (vla-get-name x)
			     )
	       (if
		 (and
		   (= (vla-get-objectname item2) "AcDbMText")
		   (= (vla-get-HasExtensionDictionary item2) :vlax-true)
		 )
		  (vlax-for item3
			    (setq dict (vla-GetExtensionDictionary item2))

		    (if
		      (= (vla-get-name item3) "ACAD_FIELD")
		       (progn
			 (vla-remove dict "ACAD_FIELD")
			 (vla-put-textstring
			   item2
			   (vl-string-trim
			     "%<>"
			     (vla-get-textstring item2)
			   )
			 )
		       )
		    )
		  )
	       )
	     )
	    )
	  )
	)
       txt-nabor
     )
  )
  (princ)
)

[Лентяй]

Идея понятна. только написано уж больно "в лоб", причем с kpblc'овским смешением стилей. По-моему, так будет элегантнее:

Код:

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

 (defun conv (x / dict)
  (if (and (= (vla-get-objectname x) "AcDbMText")
           (= (vla-get-HasExtensionDictionary x) :vlax-true))
    (setq dict (vla-GetExtensionDictionary x))
    (vlax-for item dict
      (if (= (vla-get-name item) "ACAD_FIELD")
        (progn (vla-remove dict "ACAD_FIELD")
          (vla-put-textstring x (vl-string-trim "%<>" (vla-get-textstring x)))))))
);defun
;
(defun C:field-to-text ( / adoc bks ass)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (mapcar '(lambda (x y) (set x (vlax-get-property adoc y))) '(ass bks) 
    '(ActiveSelectionset Blocks)) 
  (if (> (vla-get-count ass) 0) (vla-clear ass))
  (vla-SelectOnScreen ass)
  (if (>= (vla-get-count ass) 1)
    (vlax-for x ass
      (cond ((= (vla-get-objectname x) "AcDbBlockReference")
             (vlax-for it (vla-item bks (vla-get-name x)) (conv it)));block
            ((= (vla-get-objectname x) "AcDbMText")
             (conv x))));vlax-for
  (princ) 
);end

[Эдуард]

>Лентяй.
Не считаю смешение стилей чем-то криминальным. Чем удобно - тем и
пользуюсь. Данный стиль никак не связан с Алексеем(Крысом).

Может жить и Ваш вариант , однако.

1.В функции field-to-text перед (princ) пропущена закрывающая скобка.
2.В функции conv перед (setq dict (vla-GetExtensionDictionary x))
пропущен progn.

[Эдуард]

Кроме того, если расширить действие функции в части "убийства"
field в примитиве acad_table , то необходимо найти связь этого
примитива с блоком *T в котором и находятся данные Field's.
Через ActiveX это достаточно неудобно , а в entget данные об имени блока лежат на поверхности (в DXF 2).
И как тогда не смешивать стили?

[Лентяй]

Сообщение от Эдуард >Лентяй. Не считаю смешение стилей чем-то криминальным.

А вот это - сугубо вопрос вкуса и стиля.

Чем удобно - тем и пользуюсь. Данный стиль никак не связан с Алексеем(Крысом).

Не считаю удобством неизбежные скачки entname -> vla-object и обратно. Для программ kpblc'а это весьма характерно.

Может жить и Ваш вариант , однако. 1.В функции field-to-text перед (princ) пропущена закрывающая скобка. 2.В функции conv перед (setq dict (vla-GetExtensionDictionary x)) пропущен progn.

А вот за это - спаибо. Конструктивная критика всегда категорически приветствуется. [sm2200]

Через ActiveX это достаточно неудобно , а в entget данные об имени блока лежат на поверхности (в DXF 2).

С каких пор вытащить имя блока средствами ActiveX стало проблемой?

[YuraVel]

Незнаю как оно у Вас работает возможно я что-то не тосделал.

Я создал кнопку в Custmize, в Macros вписал выше выложенные коды (кнопки две) и ни одна не работает, после запуска кода Лентяя, даже после поправок, почемуто вызывает меню Custmize, я его долко пытаюсь закрыть (эдак раз 5), а если АвтоКАД только открыл и запускаю програму тогда открывается справка смотри ниже скопировал из текстового окна:


Открывается файл формата AutoCAD 2004.
Выполняется регенерация листов.
Выполняется регенерация модели.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

Утилиты меню AutoCAD загружены.
Команда:
Команда:
Команда: _(defun Команда LISP недоступна.

Команда: conv Неизвестная команда "CONV". Для вызова справки нажмите F1.

Команда: (x / dict) ; ошибка: no function definition: X

Команда:
_HELP
Команда: СПРАВКА
Команда: СПРАВКА
Команда: (if (and (= (vla-get-objectname x) "AcDbMText")
((_> (= (vla-get-HasExtensionDictionary x) :vlax-true))
(_> (progn (setq dict (vla-GetExtensionDictionary x))
((_> (vlax-for item dict
(((_> (if (= (vla-get-name item) "ACAD_FIELD")
((((_> (progn (vla-remove dict "ACAD_FIELD")
(((((_> (vla-put-textstring x (vl-string-trim "%<>"
(vla-get-textstring x)))))))
(_> )
; ошибка: неверный тип аргумента: VLA-OBJECT nil

Команда: defun Неизвестная команда "DEFUN". Для вызова справки нажмите F1.

Команда:
СПРАВКА
Команда:
СПРАВКА
Команда: СПРАВКА
Команда:
СПРАВКА
Команда: (defun C:field-to-text ( / adoc bks ass)
(_> (vl-load-com)
(_> (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(_> (mapcar '(lambda (x y) (set x (vlax-get-property adoc y))) '(ass bks)
((_> '(ActiveSelectionset Blocks))
(_> (if (> (vla-get-count ass) 0) (vla-clear ass))
(_> (vla-SelectOnScreen ass)
(_> (if (>= (vla-get-count ass) 1)
((_> (vlax-for x ass
(((_> (cond ((= (vla-get-objectname x) "AcDbBlockReference")
(((((_> (vlax-for it (vla-item bks (vla-get-name x)) (conv it)))
((((_> block
((((_> ((= (vla-get-objectname x) "AcDbMText")
(((((_> (conv x))))
((_> vlax-for)
(_> (princ)
(_> )
; ошибка: синтаксическая ошибка

Команда: end
Неизвестная команда "END". Для вызова справки нажмите F1.

Команда:
Команда:
Команда: _ai_selall Выбор объектов...готово.

Команда: *Прервано*

[YuraVel]

С кодом Эдуарда тоже самое

Объясните, пожалуйста уж очень хочется пользоватся

[Peter]

Ребята подскажите что сделать чтоб фон Fields появился. Вставляю поле , а фона нет. Где это настраивается , спасибо.

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

FIELDDISPLAY :

Type: Integer Saved in: Registry Initial value: 1 Controls whether fields are displayed with a gray background. The background is not plotted. 0 Fields are displayed with no background 1 Fields are displayed with a gray background

[Peter]

Sorry за беспокойство. Про сис. переменные я забыл. Спасибо.

[Krieger]

Сообщение от YuraVel Я создал кнопку в Custmize, в Macros вписал выше выложенные коды (кнопки две) и ни одна не работает, после запуска кода Лентяя, даже после поправок, почемуто вызывает меню Custmize, я его долко пытаюсь закрыть (эдак раз 5), а если АвтоКАД только открыл и запускаю програму тогда открывается справка смотри ниже скопировал из текстового окна:

Неправильно сделал. Это не макрос, а программа.
Прогу надо скопировать в блокнот, сохранить с расширением lsp и поместить его в автозагрузку. А макрос на кнопку сделать такой

Код:

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

^C^Cfield-to-text

[Kraggash]

Господа! А не появилось ли по данной теме что-нить нового за прошедшие года? Автодеск сам эту команду так и не сделал до сих пор?
З.Ы. И да, оба лиспа таки не фурычат. Лисп Эдуарда запускается, просит выбрать объекты, но объекты выбрать не удается. Лисп Лентяя выдает ошибку при запуске ( и с progn'ом, и без). Досадно.
З.З.Ы. Я понимаю, что прошло 4,5 года.

[VVA]

Родственная тема
Как все поля чертежа сразу преобразовать в текст?

[slayeroker]

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

[Deniska_che]

и получить в каждой строчке по несколько однострочных текстов. не есть удобно