[Ильяшенко]

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

[OlegM]

Спасибо всем, проблема прекрасно решилась DSTP_ANNOPRESUF.

[OlegM]

Суть проблемы с MTEXT:
Куча MTEXTов с одним внутренним шрифтом, как можно разом поменять этот шрифт, не редактируя каждый в отдельности например на ГОСТ

[asys]

Сообщение от OlegM Суть проблемы с MTEXT: Куча MTEXTов с одним внутренним шрифтом, как можно разом поменять этот шрифт, не редактируя каждый в отдельности например на ГОСТ

разбомбить Если мтексту присвоен один стиль, а внитри буквам текста другой - то при бомблении будет тот стиль который всему мтексту присвоили :wink:

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

Обратно можно переработать, дав команду txt2mtxt из Express Tools. Можно и не так, конечно, а попробовать лиспом заменить все вхождения строк типа {\\f<>; на новое значение. Но это не сегодня четко.

[OlegM]

Asys
Бомбить – все разлетается по длине.

kpblc
txt2mtxt-conversion failed
С Лиспом ни когда не связывался.

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

Я говорил про "обратную конвертацию" однострочного текста в многострочный. Честно говоря, мне было бы проще снести форматирование вообще у многострочников и назначать стили как надо. Или надо просто менять один шрифт на другой? Если да, то надо бы глянуть на "то, что есть" и "то, что должно получиться". Тогда можно будет думать.
Сопутствующие вопросы - а если назначений шрифтов в одном многострочнике несколько? А если один и тот же шрифт назначается 2 или более раз внутри одного многострочника?

[OlegM]

Нужно у всех MTextов поменять внутренний шифр на другой (один) ГОСТовский.
Вот образец.
[ATTACH]1149138025.rar[/ATTACH]

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

Попробуй такое (собрано "на коленке", в частности, когда идет запрос заменяемого фонта, вводи с учетом регистра):

Код:

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

(defun c:reformat (/ adoc selset newfont existfont _kpblc-string-subst)
  (defun _kpblc-string-subst (string old-substr new-substr)
    (if	(vl-string-search old-substr string)
      (_kpblc-string-subst
	(vl-string-subst new-substr old-substr string)
	old-substr
	new-substr
	) ;_ end of _kpblc-string-subst
      string
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq selset (ssget '((0 . "MTEXT"))))
	   (setq existfont (getstring t "\nЗаменяемое имя шрифта <Выход > : "))
	   (setq newfont (getstring t "\nНовое имя шрифа <Выход > : "))
	   ) ;_ end of and
    (foreach ent (mapcar 'vlax-ename->vla-object
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
			 ) ;_ end of mapcar
      (vla-put-textstring
	ent
	(_kpblc-string-subst
	  (vla-get-textstring ent)
	  (strcat "\f" existfont "|")
	  (strcat "\f" newfont "|")
	  ) ;_ end of _kpblc-string-subst
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[OlegM]

Спрашивает заменяемое имя шрифта и новое. Ввожу.
Что-то не работает.
Можно без за меняемого? Просто на что.

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

Хм... Так все правильно - шрифт меняется, а угол наклона - нет. Он же не выставлялся. Варианты:
- замена фонта (жестко определенного на не менее жестко определенный):

Код:

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

(defun c:reformat (/ adoc selset newfont existfont _kpblc-string-subst)
  (defun _kpblc-string-subst (string old-substr new-substr)
    (if	(vl-string-search old-substr string)
      (_kpblc-string-subst
	(vl-string-subst new-substr old-substr string)
	old-substr
	new-substr
	) ;_ end of _kpblc-string-subst
      string
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq selset (ssget '((0 . "MTEXT"))))
	   (setq existfont "ГОСТ тип А")
	   (setq newfont "ГОСТ тип А наклонный")
	   ) ;_ end of and
    (foreach ent (mapcar 'vlax-ename->vla-object
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
			 ) ;_ end of mapcar
      (vla-put-textstring
	ent
	(_kpblc-string-subst
	  (vla-get-textstring ent)
	  (strcat "\f" existfont "|")
	  (strcat "\f" newfont "|")
	  ) ;_ end of _kpblc-string-subst
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

- установка курсива:

Код:

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

(defun c:reformat (/ adoc selset _kpblc-string-subst)
  (defun _kpblc-string-subst (string old-substr new-substr)
    (if	(vl-string-search old-substr string)
      (_kpblc-string-subst
	(vl-string-subst new-substr old-substr string)
	old-substr
	new-substr
	) ;_ end of _kpblc-string-subst
      string
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq selset (ssget '((0 . "MTEXT"))))
	   ) ;_ end of and
    (foreach ent (mapcar 'vlax-ename->vla-object
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
			 ) ;_ end of mapcar
      (vla-put-textstring
	ent
	(_kpblc-string-subst
	  (vla-get-textstring ent)
	  "|i0|"
	  "|i1|"
	  ) ;_ end of _kpblc-string-subst
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

- и то, и другое:

Код:

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

(defun c:reformat (/ adoc selset newfont existfont _kpblc-string-subst)
  (defun _kpblc-string-subst (string old-substr new-substr)
    (if	(vl-string-search old-substr string)
      (_kpblc-string-subst
	(vl-string-subst new-substr old-substr string)
	old-substr
	new-substr
	) ;_ end of _kpblc-string-subst
      string
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq selset (ssget '((0 . "MTEXT"))))
	   (setq existfont "ГОСТ тип А")
	   (setq newfont "ГОСТ тип А наклонный")
	   ) ;_ end of and
    (foreach ent (mapcar 'vlax-ename->vla-object
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
			 ) ;_ end of mapcar
      (vla-put-textstring
	ent
	(_kpblc-string-subst
	  (_kpblc-string-subst
	    (vla-get-textstring ent)
	    (strcat "\f" existfont "|")
	    (strcat "\f" newfont "|")
	    ) ;_ end of _kpblc-string-subst
	  "|i0|"
	  "|i1|"
	  ) ;_ end of _kpblc-string-subst
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[OlegM]

Вот решил попробовать сделать заготовку расчетной схемы в AUTOCAD. Но, сложность такова. Допустим, открываете AUTOCAD, и перед вами + перекрестие, рисуете линии, и нужно перейти на другую отметку, заходите в 3М виды, ставим колонны. Далее интересней необходимо рисовать перекрытие, а вот как попасть например на отметку +3м, т.е. работать в ней, как в 2d, я не знаю. У кого ни будь есть предложения?

[@sms]

можно ли как то осуществить однообразные действия к разным файлам автокада

например как работают actions в фотошопе! записал последовательность действий и применяк к файлам!

вот интересует такой же вопрос по акаду

допустим у меня есть поэтажные планы 1-22 так вот мне надо во всех добавить в ядро допустим пару цифр или изменить, а открывать и править каждый раз неудобно.
хотелось бы иметь команду вида,
1.запись макроса----делаем изменения по привязки к осям------сохранение макроса
2.открываем файл--- применяем макрос----данные применены---сохраняем файл и продолжаем далее.