[Composter]

хочу поделиться своим опытом с форумчанами.если у меня есть псевдотаблица-это таблица выполнена с помощью отдельных линий и отдельного текста(а не единый объект таблица).и нужно ее перенести в ексель.самый простой способ это конечно сделать с помощью спдс нажатием одно кнопки, но к сожалению практически нигде на моих рабчих местах не был установлен спдс и не было возможности его установить.вот последовательность моих действий.
1.если таблица состоит из мультитекста и линий.для удобство пользования разношу столбцы пошире.с помощью растягивания или через свойства устанавливаю ширину текста в 3-4 раза больше чем исходная(что бы наверняка).потом выделяю весь текст таблицы,задаю ему стиль стандартный(обычно он автоматически создается акадом при создании нового файла) и взрываю его.стиль стандартный применяю потому что при некоторых стилях при взрыве текста если есть пробелы то в место одной строки будет несколько отдельных.
2.далее у нас только однострочный текст.в екпрессе есть такая команда convert text to mtxt,выбираю эту команду,щелкаю правой кнопкой мыши,убираю галочку(снятие галочки проделывается 1 раз,при дальнейшей работе с файлом акад запоминает эту настройку).выделяю первый столбец таблицы,завершаю команду.и так выполняю эту команду для каждого столбца отдельно.
3.мы имеем мтексты в виде стоблцов.далее захожу в каждый мтекст путем двойного щелчка,далее выделяю все ctrl+a, копирую ctrl+с,и вставляю это в ctrl+v в ексель.и так с каждым столбцом-мтекстом.
имея сноровку в этом деле данная операция выполняется меньше чем за минуту.

[Хмурый]

1. печать таблицы в *.pdf
2. преобразование *.pdf в *.xls при помощи Solid PDF Converter

[VVA]

3. PL_export-to-excel Функция экспорта данных из таблиц «нарисованных» примитивами, из Autocad в Excel, версия: 0.95

[Composter]

ну вариант ,предложенный пользователем Хмурый сразу отметается, потому как на работе не получится установить платный софт,а usb порты закрыты.а вот вариант,предложенный VVA очень даже приемлем.

[Composter]

попробовал варант предложенный VVA .при использовании лиспа выдавалась ошибка
ошибка: Ошибка Automation.
Нельзя установить свойство NumberFormat класса Range
пришлось удалить из лиспа часть

Код:

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

   
(if (= (type (setq form (pl:is-real-form val))) 'str)
    (vlax-put-property
      tmp
      'numberformat
      (vlax-make-variant (strcat "# ##0" form) 8)
    ) ;_ распознавание форматов
  ) ;_ end of if

тогда все заработало

[VVA]

http://forum.dwg.ru/showthread.php?p=761865#post761865