[Ильяшенко]

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

[Grinzaid]

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

[meat]

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

[Post]

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

[meat]

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

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

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

[Om81]

Сообщение от 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]

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

[OlegM]

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

[Startrek]

Poprobuy HYPERLINK

[zamtmn]

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

[DEM]

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

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

[zamtmn]

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

[ksv]

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

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

[OlegM]

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

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

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

[zamtmn]

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

[OlegM]

СПАСИБО

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

Сообщение от 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]

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

[DEM]

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

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

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

Код:

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

(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