[Composter]

попытался сделать лисп который бы собирал текст из отдельно стоящих текстов и соединял в 1 .вот лисп. после 2 тыканья мышкой цикл почему то прерывается . объясните как правильно нужно сделать

;слияние текста
(defun c:Zod3 ()
(setq z "" zn "" x nil y nil)
(setq x (car(entsel)))
(setq zn (cdr(assoc 1 (entget x))))
(setq z zn)
(while (null y)
(setq y (car(entsel)))
(setq zn (cdr(assoc 1 (entget y))))
(setq z (strcat z " " zn))
);end while
(entmod (subst (cons 1 z) (assoc 1 (entget x)) (entget x)))
);end defun

[Makson]

например так
(defun c:Zod3 ()
(setq z "" zn "" x nil y 1)
(setq x (car(entsel)))
(setq zn (cdr(assoc 1 (entget x))))
(setq z zn)
(while (/= y nil)
(setq y (car(entsel)))
(if (/= y nil)(setq zn (cdr(assoc 1 (entget y)))))
(if (/= y nil)(setq z (strcat z " " zn)))
);end while
(entmod (subst (cons 1 z) (assoc 1 (entget x)) (entget x)))
);end defun

[Makswell]

Как вариант:

Код:

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

(defun c:Zod3 (/ z zn x y flag)
  (if (setq x (entsel))
    (progn
      (setq z (cdr (assoc 1 (entget (car x)))))
      (while (setq y (entsel))
	(setq zn   (cdr (assoc 1 (entget (car y))))
	      z	   (strcat z " " zn)
	      flag t
	)
      )
      (if flag
	(entmod (subst (cons 1 z) (assoc 1 (entget (car x))) (entget (car x))))
      )
    )
  )
  (princ)
)

[Composter]

всем спасибо ,оба варианта отлично работают.

[CB]

Можно так:

Код:

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

(defun c:Zod3 (/ x x_txt y y_txt)
  (if (setq x (car (entsel "\nИсходный текст")))
    (progn
      (setq x_txt (cdr (assoc 1 (entget x))))
      (setq y (car (entsel "\nТекст для слияния...")))
      (while y
        (setq y_txt (cdr (assoc 1 (entget y))))
        (entmod (subst (cons 1 (strcat x_txt y_txt))
                       (assoc 1 (entget x))
                       (entget x)
                ) ;_ end of subst
        ) ;_ end of entmod
        (setq x_txt (cdr (assoc 1 (entget x))))
        (setq y (car (entsel "\nТекст для слияния...")))
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Composter]

последний вариант вобще здоровский. а как сделать что бы не прерывался лисп при щелкании на пустом месте?

[Profan]

Последняя программа поинтереснее будет.
Изменить бы название темы на:
Как собрать несколько отдельных текстов в один текст?

[ShaggyDoc]

Сообщение от Composter последний вариант вобще здоровский. а как сделать что бы не прерывался лисп при щелкании на пустом месте?

Например использовать вместо штатной entsel вот такую функцию:

Код:

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

(defun _ru-get-entsel-no-error (message / ent)
  ;; (_ru-get-entsel-no-error "Выбери объект, но не промахнись!")
  (setvar "errno" 0)
  (while
    (and
      (not (setq ent (entsel (strcat "\n" message))))
      (equal 7 (getvar "errno"))
    ) 
     (setvar "errno" 0)
  ) 
  (cond
    ((equal (getvar "errno") 52)
     nil
    )
    (t
     (list (car ent) (trans (cadr ent) 1 0))
    )
  ) 
)

Вообще-то её надо обернуть более высокоуровневой фукцией для обработки других ситуаций, но для простого применения и так пойдет.

[Krieger]

Сообщение от Composter а как сделать что бы не прерывался лисп при щелкании на пустом месте?

Код:

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

;|Функция Kr_entsel
*** Автор Морозов С.В. aka Krieger ***
Еденичный выбор объекта, замена функции entsel
Возвращает entity name выбранного примитива или nil, точку указки запоминает в переменной LASTPOINT
Параметры:
promt - предложение выбрать объект (string)
filter - фильтр объектов для выбора вида '("LINE" "LWPOLYLINE")
entlist - список примитивов которые не надо выбирать (либо список entity name, либо PICKSET)

Примеры:
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") nil)
(Kr_entsel "\nВыберите объекты" nil nil)
(setq aa nil) (Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (while (setq a (car (entsel))) (setq aa (append aa (list a)))))
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (ssget))

|;

(defun Kr_entsel (promt filter entlist / key n newentlist ent_point promt)
  
  (setq key T n 0 newentlist nil)
  (if (eq (type entlist) 'PICKSET)
    (progn
        (while (setq a (ssname entlist n)) (setq newentlist (append newentlist (list a)) n (1+ n)))
        (setq entlist newentlist)
    );progn
   );if
    (while key
        (if (or (setq ent_point (entsel promt)) (= (getvar "ERRNO") 7))
          (if (or (eq (type ent_point) 'LIST) (not ent_point))
          (if ent_point
            (if (member (setq ent (car ent_point)) entlist)
              (princ "\nПримитив уже выбран")
              (if filter
                  (if (not (member (cdr (assoc 0 (entget ent))) filter))
                (progn (setq str "\nНе верный выбор, выберите: ")
                  (princ (substr (setq str (foreach n filter (setq str (strcat str n ", ")))) 1 (- (strlen str) 2)))
                );progn
                (setq key nil)
                  );if
                (setq key nil)
            );if
            );if
            (setq key T)
          );if
            (setq key nil)
        );if
      (setq key nil)
          );if
     );while
  (if (eq (type ent_point) 'LIST)
    (progn (setvar "LASTPOINT" (cadr ent_point)) ent)
    ent_point
  );if
);defun

[VVA]

Сообщение от Composter последний вариант вобще здоровский. а как сделать что бы не прерывался лисп при щелкании на пустом месте?

В общем все эти примеры сводятся к анализу типа выбранного объекта (чего нет в Zod3) и анализу переменной ERRNO. (если промахнешься выбором код будет 7, если нажмешь клавишу ввод - 52)
*** Добавлено Проверка типа

Код:

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

(defun c:Zod3 (/ x x_txt y y_txt)
  (if (setq x (car (entsel "\nИсходный текст :")))
    (progn
      (setvar "errno" 0)
      (setq x_txt (cdr (assoc 1 (entget x))))
      (while (not (equal (getvar "errno") 52))
        (setq y (car (entsel "\rТекст для слияния...")))
        (if (and y (wcmatch (cdr (assoc 0 (entget y))) "*TEXT"))
          (progn
            (setq y_txt (cdr (assoc 1 (entget y))))
            (entmod (subst (cons 1 (strcat x_txt y_txt))
                           (assoc 1 (entget x))
                           (entget x)
                    ) ;_ end of subst
            ) ;_ end of entmod
            (setq x_txt (cdr (assoc 1 (entget x))))
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
  )

[CB]

Почти тоже, что и VVA...

Код:

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

(defun c:Zod3 (/ x x_txt y y_txt)
  (if (setq x (car (entsel "\nИсходный текст :")))
    (progn
      (setvar "errno" 0)
      (setq x_txt (cdr (assoc 1 (entget x))))
      (while (not (equal (getvar "errno") 52))
        (setq y (car (entsel "\rТекст для слияния...")))
        (if y
          (progn
            (setq y_txt (cdr (assoc 1 (entget y))))
            (entmod (subst (cons 1 (strcat x_txt y_txt))
                           (assoc 1 (entget x))
                           (entget x)
                    ) ;_ end of subst
            ) ;_ end of entmod
            (setq x_txt (cdr (assoc 1 (entget x))))
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Composter]

быстро тема разрослась.а как можно извлечь содержимое текста из атрибута блока ?

[Composter]

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

Код:

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

(defun c:Zod3 ()

(if (setq x1 (nentsel "\nИсходный текст"))
	(progn
		(setq x (car x1))
		(setvar "errno" 0)
      		(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
         	(while (not (equal (getvar "errno") 52))
        		(setq y (car (nentsel "\nТекст для слияния...")))
				(if (and 
					y
					(not(equal x y))
					(vlax-property-available-p (vlax-ename->vla-object y) 'textstring)
				     )
				(progn
					(setq y_txt (vla-get-textstring(vlax-ename->vla-object y)))
					(entdel y)
        				(vla-put-textstring(vlax-ename->vla-object x)(strcat x_txt " " y_txt))
        				(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
					(if (= (length x1) 4) (entupd (car(cadddr x1))))
				);_ end of progn
			);_ end of if
		) ;_ end of while
	) ;_ end of progn
) ;_ end of if
(princ)
) ;_ end of defun

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

1. Забыл про возможность блокирования слоя примитива-получателя.
2. Не отслеживается возможность указания текстового примитива внешней ссылки.
3. Не отслеживается вариант указания не текста.
4. Для снятия форматирования многострочного текста см. http://forum.dwg.ru/showthread.php?t=24790

[Composter]

прошу объяснить пункты моих недоработок.
1.доработаю.
2.текст из внешних ссылок вроде тягает.
3.на счет не текста вроде проверка есть в строке
(vlax-property-available-p (vlax-ename->vla-object y) 'textstring)
за 4 пункт спасибо.

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

2. Я говорил не про то, чтобы "тягать" - тут-то как раз все нормально. Но я в качестве объекта слияния (то есть получателя) могу указать текст, лежащий внутри внешней ссылки - мне такое не запрещено
3. А про проверку объекта x1 (и следом про получение из него строки) забыл

[Composter]

на счет объектов внешних ссылок все нормально получается.по крайней мере у меня ,я использовал в качестве внешней ссылки dwg файл.
3 пункт доработал.а вот с 1 неполучается до конца.подскажи.
я вначале узнаю является ли слой объекта заблокированым,если да то разблокирую и запоминаю значение до разблокирования.а в конце лиспа хочу обратно слой объекта заблокировать.но я так понимаю что после окончания while он работать не хочет,как ето осуществить?и еще вопрос если примитив можно обновить через entupd, то со слоем это не прокатывает,можно ли так сделать что когда отключается блокирование слоя это было видно визуально?

Код:

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

(defun c:Zod3()

(if (and (setq x1 (nentsel "\nИсходный текст"))
	(vlax-property-available-p (vlax-ename->vla-object(car x1)) 'textstring)
    )
	(progn
		
		(setq x (car x1))
		(setvar "errno" 0)
      		(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
		(setq la_x (tblobjname "layer" (cdr(assoc 8(entget(car x1))))))
		(setq old_block (assoc 70 (entget la_x)))
		(if (= (cdr(assoc 70 (entget la_x))) 4)
				(entmod(subst '(70 . 0)(assoc 70 (entget la_x)) (entget la_x))) 
		)

         	(while (not (equal (getvar "errno") 52))
        		(setq y (car (nentsel "\nТекст для слияния...")))
				(if (and 
					y
					(not(equal x y))
					(vlax-property-available-p (vlax-ename->vla-object y) 'textstring)
				     )
				(progn
					(setq y_txt (vla-get-textstring(vlax-ename->vla-object y)))
					(entdel y)
        				(vla-put-textstring(vlax-ename->vla-object x)(strcat x_txt " " y_txt))
        				(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
					(if (= (length x1) 4) (entupd (car(cadddr x1))))
				);_ end of progn
			);_ end of if
		) ;_ end of while
	) ;_ end of progn
) ;_ end of if
(entmod(subst old_block (assoc 70 (entget la_x)) (entget la_x)))
(princ)
) ;_ end of defun

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

В качестве объекта у укажи текст, который лежит внутри внешней ссылки. Сохрани файл. Выйди из него. Снова открой. Проверь - внеслись ли изменения. У меня в версиях от 2005 до 2008 включительно изменения не сохранялись (что более чем ожидаемо).
Насчет блокирования слоя... Запомни состояние слоя объекта-получателя, сними блокировку; меняешь как сделано; восстанавливаешь состояние слоя. Достаточно просто.

[Composter]

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

[VVA]

По п.3 имеется ввиду

Код:

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

(if (setq x1 (nentsel "\nИсходный текст"))

здесь проверки нет.
По поводу проверки блокирови слоя можно анализировать, доступен ли объект по записи, т.е

Код:

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

(if (vlax-write-enabled-p (vlax-ename->vla-object(car(entsel "\nВыберите объект"))))
  (alert "Нормально")
  (alert "Блокирован слой")
  )

*** Добавлено

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

Лучше запретить выбор текста-приемника внешней ссылки

*** Добавлено2
1. Можно анализировать имя блока-родителя, если в имени есть символ "|" - значит это XREF,
2. Можно отсекать XREF snvalid'ом (имя стиля будет тоже с "|")

Код:

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

(if (and (setq x1 (nentsel "\nИсходный текст"))
	 (setq vla-obj (vlax-ename->vla-object(car x1)))
	(vlax-write-enabled-p vla-obj)  ;_Слой не блокирован 
	(vlax-property-available-p vla-obj  'textstring) ;_Текст
	 (snvalid (vla-get-StyleName vla-obj))           ;_Не внешняя ссылка
    )
  ....

[Composter]

я все таки за грубую силу.и мне больше нравится вариант с временной разблокировкой слоя.
И хотелось бы узнать как сохранять изменения в xref.

[VVA]

И хотелось бы узнать как сохранять изменения в xref.

Так же как и при работе ручками:
- открыть файл внешней ссылки
- найти тот же самый текст
- внести изменения
- сохранить
- обновить ссылку
Если хочется копать в этом направлении, ищи по слову ObjectDBX

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

И готовься к приличным проблемам. Однозначно идентифицировать модифицируемый объект удается далеко не всегда. По крайней мере мне не всегда удавалось.

[Composter]

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

Код:

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

(defun c:Zod3 (/ flag x1 x x_txt la_x old_lock y y_txt)

(while (null flag)
	(if (and (setq x1 (nentsel "\nИсходный текст"))
		(vlax-property-available-p (vlax-ename->vla-object(car x1)) 'textstring)
  	    ) ;_ end of and
		(progn
			(setq 	x (car x1)
				flag T
				x_txt (vla-get-textstring(vlax-ename->vla-object x))
				la_x (tblobjname "layer" (cdr(assoc 8(entget(car x1)))))
				old_lock (assoc 70 (entget la_x))
			) ;_ end of setq
			(if (= (cdr(assoc 70 (entget la_x))) 4)
				(entmod(subst '(70 . 0)(assoc 70 (entget la_x)) (entget la_x))) 
			) ;_ end of if
		) ;_ end of progn
	) ;_ end of if
) ;_ end of while

(setvar "errno" 0)
(while (not (equal (getvar "errno") 52))
	
	(setq y (car (nentsel "\nТекст для слияния...")))
	(if (and 
		y
		(not(equal x y))
		(vlax-property-available-p (vlax-ename->vla-object y) 'textstring)
	     )
		(progn
			(setq y_txt (vla-get-textstring(vlax-ename->vla-object y)))
			(entdel y)
       			(vla-put-textstring(vlax-ename->vla-object x)(strcat x_txt " " y_txt))
       			(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
			(if (= (length x1) 4) (entupd (car(cadddr x1))))
		);_ end of progn
	);_ end of if
) ;_ end of while
	

(entmod(subst old_lock (assoc 70 (entget la_x)) (entget la_x)))
(entupd (car x1))
(princ)
) ;_ end of defun

пара вопросов по xref.правильный ли алгоритм действий.вначале проверяю не защищен ли файл внешней ссылки от записи,открываю если нет защиты,потом по 5 dxf паре нахожу нужный мне текст,заменяю,и сохраняю.подскажите как можно открыть файл с помощью лиспа, желательно в фоновом режиме.

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

Метка объекта в данном случае не является 100% гарантией получения этого объекта.
Объясняется достаточно просто: метка (хендл) объекта уникальна только в файле, которому принадлежит объект. Допустим, в файле Рис1.dwg некий объект получает метку "12FC6". Рис1.dwg вставляется внешней ссылкой в Рис2.dwg, где уже есть объект с меткой "12FC6". Чего получится в результате? Два объекта с одинаковой меткой? Или все же какие-то объекты получат новые, временные хендлы?

[Composter]

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

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

см.группу 0

[Composter]

я же не зря упомянул атрибут блока потому что метка (0 . "ATTRIB") одинакова как для однострочного атрибута так и для многосторчного.но в многосторчном не отображаются сиволы форматирования ,а в от в односторчном вылазят.
и еще вопрос, а нет аналога команды refedit в лиспе?

[Composter]

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

Код:

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

;слияние текста
(defun c:Zod3 (/ flag x1 x x_txt la_x old_lock y y_txt x_txt_s y_txt_m)
(setq actdoc (vla-get-activedocument(vlax-get-acad-object)))
(vla-startUndoMark actdoc)
(setq 	my_error	*error*
	*error*		Zoderror
)

(while (null flag)
	(if (and (setq x1 (nentsel "\nИсходный текст"))
		(vlax-property-available-p (vlax-ename->vla-object(car x1)) 'textstring)
  	    ) ;_ end of and
	     (if (= (vl-catch-all-apply 'vla-get-isxref (list(vl-catch-all-apply 'vla-item (list(vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))) (vl-catch-all-apply 'vla-get-EffectiveName (list(vl-catch-all-apply 'vlax-ename->vla-object (list(last(last x1)))))))))) :vlax-true)
		(progn		
			(alert "Выбрана внешняя ссылка. Выберете текст, не лежащий во внешней ссылке.")
			(setq flag nil)
		)
		(progn
			(setq 	x (car x1)
				flag T
				x_txt (vla-get-textstring(vlax-ename->vla-object x))
				la_x (tblobjname "layer" (cdr(assoc 8(entget(car x1)))))
			) ;_ end of setq
			(cond 
				(	(member (cdr(assoc 0(entget x))) '("TEXT"))															(setq x_txt_s T)	)
				(	(and (member (cdr(assoc 0(entget x))) '("ATTRIB" "ATTDEF")) (= (vl-catch-all-apply 'vla-get-MTextAttribute(list(vlax-ename->vla-object x))) :vlax-false))	(setq x_txt_s T)	)
			) ;_ end of cond
			(if (= (cdr(assoc 70 (entget la_x))) 4)
				(progn
					(setq old_lock (assoc 70 (entget la_x))
					) ;_ end of setq
					(entmod(subst '(70 . 0)(assoc 70 (entget la_x)) (entget la_x)))
				) ;_ end of progn
			) ;_ end of if
		) ;_ end of progn
	      ) ;_ end of if
	) ;_ end of if
) ;_ end of while

(setvar "errno" 0)
(while (not (equal (getvar "errno") 52))
	
	(setq y (car (nentsel "\nТекст для слияния...")))
	(if (and 
		y
		(not(equal x y))
		(vlax-property-available-p (vlax-ename->vla-object y) 'textstring)
	     )
		(progn
			(setq y_txt (vla-get-textstring(vlax-ename->vla-object y)))
			(cond 
				(	(member (cdr(assoc 0(entget y))) '("MTEXT" "MULTILEADER"))													(setq y_txt_m T)	)
				(	(and (member (cdr(assoc 0(entget y))) '("ATTRIB" "ATTDEF"))(= (vl-catch-all-apply 'vla-get-MTextAttribute(list(vlax-ename->vla-object y)))) :vlax-true)		(setq y_txt_m T)	)
			) ;_ end of cond
			(entdel y)
			(if (and x_txt_s y_txt_m)
			    (setq y_txt (mip_MTEXT_Unformat y_txt))
			) ;_ end of if
       			(vla-put-textstring(vlax-ename->vla-object x)(strcat x_txt " " y_txt))
       			(setq x_txt (vla-get-textstring(vlax-ename->vla-object x)))
			;(if y_txt_m (setq y_txt_m nil))
			(cond
				(	(= (length x1) 2)	(entupd (car x1))		)
				(	(= (length x1) 4)	(entupd (last(last x1)))	)
			) ;_ end of cond
		) ;_ end of progn
	) ;_ end of if
) ;_ end of while
	
(if old_lock
	(progn
		(entmod(subst old_lock (assoc 70 (entget la_x)) (entget la_x)))
		(cond
			(	(= (length x1) 2)	(entupd (car x1))		)
			(	(= (length x1) 4)	(entupd (last(last x1)))	)
		) ;_ end of cond
	) ;_ end of progn
) ;_ end of if
(vla-EndUndoMark actdoc)
(setq *error* my_error)
(princ)
) ;_ end of defun


;функция mip_MTEXT_Unformat взята http://forum.dwg.ru/showthread.php?t=24790
(defun mip_MTEXT_Unformat ( Mtext / text Str )
  (setq MM Mtext)
  (setq Text "")
   (while (/= Mtext "")
        (cond
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}]")
            (setq Mtext (substr Mtext 3) Text   (strcat Text Str)))
          ((wcmatch (substr Mtext 1 1) "[{}]")(setq Mtext (substr Mtext 2)))
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[LO`~]")
	   (setq Mtext (substr Mtext 3)))
          ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]")
            (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext)))))
	  ((wcmatch (strcase (substr mtext 1 4)) "\\PQ[CRJD],\\PXQ")  ;;;Add by KPblC
	   (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
	   )
          ((wcmatch (strcase (substr Mtext 1 2)) "\\P")
            (if (or
		   (zerop (strlen Text))
		   (= " " (substr Text (strlen Text)))
		   (= " " (substr Mtext 3 1)))
               (setq Mtext (substr Mtext 3))
               (setq Mtext (substr Mtext 3) Text (strcat Text " "))))
	  ((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)))))
	  (t (setq Text (strcat Text (substr Mtext 1 1)) Mtext (substr Mtext 2)))))
  Text
) ;_ end of defun mip_MTEXT_Unformat



(defun Zoderror (msg)
(vl-cmdf)
(vla-EndUndoMark actdoc)
(setq *error* my_error)
(vl-cmdf "Undo" "" )
) ;_ end of defun