[Srgwell]

Т.е.
1. указать мышкой поле (источник)
2. enter подтверждение
3. указать мышкой поле (целевое)
4. enter подтверждение
Результат: содержимое перешло копированием без затрагивания форматирования.
Очень хочется узнать как это сделать. Пока своими знаниями этого я сделать не могу. Может кто скажет. Функция очень полезная. В инете ничего не нашел.

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

А простое копирование объекта не подойдет?

[ASLYS]

держи, вроде недавно тема была

[Alexeipost]

Я вот такое нашёл

Код:

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

 (defun c:CFLD (/ ename_get t_str ID)
  ;;; Copy field
  (vl-load-com)
  (setq	ID (vla-get-objectid
	     (vlax-ename->vla-object
	       (car (nentsel "\nоткуда брать содержимое"))
	     )
	   )
  )
  (setq ename_get (entget (car (nentsel "\nкуда писать"))))
  (setq	t_str (strcat "%<\\AcObjProp Object(%<\\_ObjId "
		      (itoa ID)
		      ">%).TextString>%"
	      )
  )


  (setq ename_get (subst (cons 1 t_str)
			 (assoc 1 ename_get)
			 ename_get
		  )
  )
  (entmod ename_get)
  (entupd (cdr (assoc -1 ename_get)))
  (command "_updatefield" (cdr (assoc -1 ename_get)) "" "_regenall")
  (princ)
);defun

Для ускорения работы можно отключить регенерацию (удалить "_regenall" из кода) и регенерировать в самом конце.

[Залётный]

Сообщение от ASLYS держи, вроде недавно тема была

Может недавно, но я пользуюсь этим лиспом с ноября 2005 года. Пару недель назад обнаружилась проблема - multiline атрибуты. До этого ими не пользовался. Возможно ли исправить код, что бы и они стали работать?
--------------------------------

Приношу извинения за беспокойство.
Ответ найден:
http://www.caduser.ru/forum/index.ph...1894&PAGEN_1=2