Вопрос знатокам AutoCAD 2006

Вопрос знатокам AutoCAD 2006 · 24.03.2006, 15:45

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

Grinzaid · 24.03.2006, 21:03

Лишь общая идея:
сопрячь ячейки через эксель - я сопрягал ещё в 2000 акаде, правда только один файл акада с одним файлом экселя. Может получится и раздвоенная связь: один эксель => два акада.

meat · Регистрация: 25.03.2006

Можно ли как-нибудь файл сохраненный в 2006 перевести чтоб читался в 14-том??а то в институте не могу показать ни одного файла((((

Post · 26.03.2006, 14:00

meat
Когда будешь сохранять файл укажи в окошке files of type тип нужного тебе файла акада.

meat · 26.03.2006, 14:29

Там можно сохранять только в :
Рисунок AutoCad 2004(*dwg)
Стандарты оформления AutoCad (*dws)
Шаблон рисунка AutoCad (*dwt)
AutoCad 2004 (*dxf)
AutoCad 2000/LT2000(*dxf)
AutoCad R12/LT2 DXF (*dxf)

И ни один из них не открывается 14-тым автокадом

Может есть какое-нибудь дополнение или конвертер???

Om81 · 26.03.2006, 22:45

Цитата:

Сообщение от meat

Там можно сохранять только в :
Рисунок AutoCad 2004(*dwg)
Стандарты оформления AutoCad (*dws)
Шаблон рисунка AutoCad (*dwt)
AutoCad 2004 (*dxf)
AutoCad 2000/LT2000(*dxf)
AutoCad R12/LT2 DXF (*dxf)

И ни один из них не открывается 14-тым автокадом

Может есть какое-нибудь дополнение или конвертер???

http://dwg.ru/forum/viewtopic.php?t=6831

Grinzaid · 26.03.2006, 23:05

А почему сюда вторглась тема сохранения файла? Ильяшенко ведь совсем другое спрашивал.

OlegM · 25.05.2006, 20:36

Замучил меня один вопрос:
Есть определенная область c кучей text (разные числовые значения), как в этих числовых значениях разом добавить 0? А, то замучился перебивать.
:?:

Startrek · 25.05.2006, 20:55

Poprobuy HYPERLINK

zamtmn · 25.05.2006, 20:59

to OlegM
Toolpac у тебя есть? если есть, то воспользуйся DSTP_ANNOPRESUF

DEM · 25.05.2006, 21:45 **Привет**

Цитата:

Сообщение от OlegM

Замучил меня один вопрос:
Есть определенная область c кучей text (разные числовые значения), как в этих числовых значениях разом добавить 0? А, то замучился перебивать.
:?:

Да тут вопрос больше относится к ЛИСПУ
Тут недавно обсуждался вопрос по повду подчеркивания.
Та програмку чуть подправить и можно будет подставлять 0
Нужен алгоритм наверное действий программы

zamtmn · 25.05.2006, 22:06

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

ksv · Регистрация: 13.04.2006

Цитата:

Сообщение от Ильяшенко

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

Можно вот что. В окошке Field нажимаешь кнопку Cell и выбираешь ячейку в любой таблице, имеющейся в файле, на других листах в т.ч., вкладки листов будут активными. Полученный адрес ячейки таблицы, типа Table(2130393240).D9, можешь также использовать в формулах Field в тексте. С подшивками я никогда не работал.

OlegM · 25.05.2006, 22:32

Мда, ни че не понял:
HYPERLINK – гиперссылка, и при чем она, и с чем ее едят?

Toolpac есть, пятый. Но DSTP_ANNOPRESUF не нашел. Какой нужен?

Прошу, разжуйте.
:shock:

zamtmn · 25.05.2006, 22:52

DSTP_ANNOPRESUF из 9го. В пятом ее небыло, но была команда для добавления к тексту (не мтексту) префикса\суффикса, название непомню, смотри чтонибудь типа toolpac\text\(prefix/suffix) в меню

OlegM · 26.05.2006, 09:40

СПАСИБО

Кулик Алексей aka kpblc · 26.05.2006, 09:48

Цитата:

Сообщение от OlegM

Замучил меня один вопрос:
Есть определенная область c кучей text (разные числовые значения), как в этих числовых значениях разом добавить 0?

Поскольку тексты, как я понимаю, однострочные:
- добавление "в конец текста":

Код:

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

(defun c:txt_add0 (/ adoc selset)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (setq selset (ssget "_:L" '((0 . "TEXT"))))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
      (vla-put-textstring
	(vlax-ename->vla-object item)
	(strcat (vla-get-textstring (vlax-ename->vla-object item)) "0")
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

- добавление "в начало" текста:

Код:

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

(defun c:txt_0add (/ adoc selset)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (setq selset (ssget "_:L" '((0 . "TEXT"))))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
      (vla-put-textstring
	(vlax-ename->vla-object item)
	(strcat "0" (vla-get-textstring (vlax-ename->vla-object item)))
	) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Работу не проверял.

asys · 26.05.2006, 10:25

а выбрать все тексты и в свойствах в графе "значение" написать что надо для всех разом - не пойдет?

DEM · 26.05.2006, 10:33 **Привет**

так ему 0 надо было дописать а не изменить значения разом

Кулик Алексей aka kpblc · 26.05.2006, 11:04

Господи, ну если надо для всех выбранных текстов поставить одно значение, замените строку

Код:

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

(vla-put-textstring
   (vlax-ename->vla-object item)
   (strcat (vla-get-textstring (vlax-ename->vla-object item)) "0")
   ) ;_ end of vla-put-TextString

на

Код:

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

(vla-put-textstring
   (vlax-ename->vla-object item)
   "То, чего тут должно быть, и да будет так!\"И сказал Бог \"Да будет свет!\" На что Чак Норрис ответил: \"Скажи \"пожалуйста\""
   ) ;_ end of vla-put-TextString

OlegM · 26.05.2006, 11:12

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

OlegM · 31.05.2006, 16:33

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

asys · 31.05.2006, 16:59

Цитата:

Сообщение от OlegM

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

разбомбить

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

Кулик Алексей aka kpblc · 31.05.2006, 17:39

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

OlegM · 31.05.2006, 20:11

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

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

Кулик Алексей aka kpblc · 01.06.2006, 08:36

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

OlegM · 01.06.2006, 09:00

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

Кулик Алексей aka kpblc · 01.06.2006, 09:20

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

Код:

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

(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 · 01.06.2006, 10:29

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

Кулик Алексей aka kpblc · 01.06.2006, 10:55

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

Код:

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

(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 · 07.07.2006, 16:01

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

@sms · 12.07.2006, 00:18 **actions**

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

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

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

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

24.03.2006, 15:45		#1
Вопрос знатокам AutoCAD 2006 Ильяшенко Gbnth Регистрация: 24.03.2006 Сообщений: 1 Возможно ли в ячейку таблицы сделать ссылку на ячейку таблицы в другом чертеже: Например: у меня есть "таблица кабельных соединений" и есть "спецификация". Хотелось бы чтобы в спецификачию шло сумарное значение кабеля. Все чертежи объеденены в подшивку. Пробовал оперировать вставкой поля, но не нашел нужного.
Просмотров: 9638

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск