Методы и свойства приложения MS Excel

С помощью реестра определим, под каким именем следует в COM-технологии обращаться к приложению MS Excel 2003 (рис. 10.3).

Рис. 10.3. Определение имени MS Excel 2003 в реестре

Имя этого приложения Excel.Application.11. Последняя установленная на компьютере версия MS Excel 2007 имеет имя Excel.Application.12. Если пользоваться строкой Excel.Application, то операционная система сама выбирает последнюю из установленных версий.

Запустите из командной строки следующую команду:

(vlax-dump-object (vlax-get-or-create-object "Excel.Application") T)

В текстовом окне будет выдан длинный перечень свойств и методов объекта Excel. В список свойств включены и дочерние свойства объекта. В списке методов указывается максимально допустимое количество аргументов этих методов.

Предположим, что данные для таблицы спецификации, которую мы должны начертить в рисунке AutoCAD, размещены в файле d:\r16\readex11.xls (рис. 10.4). Из рисунка видно, что данные располагаются на листе "Спецификация" книги Excel. Кроме этого листа в книге содержатся другие листы: Проекты, Расходы, Материалы. Поэтому программа должна открыть книгу и перелистать листы.

В листе "Спецификация" для облегчения программирования введены дополнительные данные, которые уточняют характеристики будущей таблицы деталей, создаваемой в чертеже AutoCAD. В первой строке в ячейке А1 дано количество деталей, т.е. строк таблицы без учета заголовка. В ячейке В1 указано количество столбцов таблицы (5). Вторая строка содержит размеры столбцов по ширине в мм (30, 70, 30, 40, 40). Третья строка уточняет тип данных, которые располагаются в соответствующем столбце (int - целое, real - вещественное, srt - текст). При выводе чисел будем выравнивать их вправо и писать один знак после точки. Четвертая строка содержит названия колонок таблицы. Все текстовые данные, в том числе заголовки колонок, будем выравнивать влево.

Аргументами программы установим следующие данные:

· имя xls-файла (d:\r16\readex.xls);

· название листа в файле (Спецификация);

· высота строк таблицы (5 мм);

· высота букв в таблице (3 мм).

Рис. 10.4. Окно просмотра книги MS Excel

Текст основной LISP-функции

Ниже приведена программа связи AutoCAD - MS Excel.

;===================================================; Программа COM-связи AutoCAD - Microsoft Excel 2003;===================================================; Вычерчивание таблицы по данным из книги Excel; Используются текущий слой, текущий цвет и создаваемый стиль таблиц;; Аргументы:; tb_xls - имя файла книги Excel;; sheetname - имя листа;; hcell - высота ячейки таблицы;; hlet - высота букв текста таблицы;; show - признак показа Excel во время работы (T или nil);; Глобальные переменные:; g_oex - VLA-объект приложения Excel;; g_wkbs - VLA-объект семейства Workbooks;; g_awb - VLA-объект активной книги;; g_shs - VLA-объект семейства Sheets;; g_mainsh - VLA-объект нужного листа книги;; g_cell - VLA-объект ячейки.;; Примеры обращения к программе:; (readex11_com "d:\\r 16\\readex11.xls" "Спецификация" 8.0 5.0 T); (readex11_com "d:\\r 16\\readex11.xls" "Спецификация" 5.0 3.0 nil);(defun readex11_com (tb_xls sheetname hcell hlet show / nlines ncolumns   table_items i j row pt0 widths types headers val msp tbl old_echo); Подгрузка библиотек, обеспечивающих работу с ActiveX(vl-load-com); Отключение эхо-вывода(setq old_echo (getvar "CMDECHO"))(setvar "CMDECHO" 0);; Установление связи c Excel(ex11_set_connect show); Указательсемейства Workbooks(setq g_wkbs (vlax-get-property g_oex "Workbooks")); Открытие файла (книги) и получение указателя книги(setq g_awb (vlax-invoke-method g_wkbs "Open" tb_xls)); Проверка открытия файла(if (not g_awb) (progn (alert (strcat "Не обнаружен файл " tb_xls)) (ex_break_connect) (exit))); Чтение списка листов; не обязательно активизировать нужный(setq g_shs (vlax-get-property g_awb "Worksheets")); Указатель на лист с нужным именем (vlax-for s g_shs (if (= sheetname (vlax-get-property s "Name"))(setq g_mainsh s)))(if (not g_mainsh) (progn (alert (strcat "Необнаруженлист " sheetname))(ex_break_connect) (exit)));; Чтение количества строк в будущей таблице спецификации; (из ячейки A1 листа Excel), без учета строки заголовков(setq g_cell (vlax-variant-value (vlax-invoke-method g_mainsh "Evaluate" "A1")))(setq nlines (fix (vlax-variant-value (vlax-get-property g_cell "Value"))))(vlax-release-object g_cell); Чтение количества столбцов в будущей таблице спецификации; (из ячейки B1 листа Excel)(setq g_cell (vlax-variant-value (vlax-invoke-method g_mainsh "Evaluate" "B1")))(setq ncolumns (fix (vlax-variant-value (vlax-get-property g_cell "Value"))))(vlax-release-object g_cell);; Получение списка элементов таблицы (ряды 2,3,4,... Excel); Ряд 2 - ширины столбцов в мм; Ряд 3 - заголовки столбцов(setq table_items nil j 1)(repeat (+ nlines 3) (setq row nil j (1+ j) i -1) (repeat ncolumns (setq i (1+ i)) (setq g_cell (vlax-variant-value   (vlax-invoke-method     g_mainsh     "Evaluate"     (strcat (chr (+ i (ascii "A"))) (itoa j))  ))) (setq row (append   row   (list     (vlax-variant-value       (vlax-get-property g_cell "Value")    )  ))) (vlax-release-object g_cell));repeat ncolumns (setq table_items (append table_items (list row))));repeat nlines;; Закрытие и выгрузка Excel(ex_break_connect);; Запрос точки левого верхнего угла таблицы(setq pt0 nil)(while (null pt0)(setq pt0 (getpoint "\nТочка левого верхнего угла таблицы: ")));while;; Список ширин колонок и список типов данных(setq widths (nth 0 table_items) types (nth 1 table_items));(setq msp (vla-get-ModelSpace (vla-get-activeDocument (vlax-get-acad-object)))); Создание стандартной таблицы с колонками равной ширины(setq tbl (vla-AddTable msp (vlax-3d-point pt0) (+ 2 nlines) ncolumns hcell (car widths))); Корректировка ширин столбцов(setq i -1)(repeat ncolumns (setq i (1+ i)) (vla-SetColumnWidth tbl i (nth i widths))); Заголовоктаблицы; Высотабукв(vla-SetTextHeight tbl acTitleRow hlet); Текст(vla-SetText tbl 0 0 "Спецификация");; Заголовки колонок; Высота букв(vla-SetTextHeight tbl acHeaderRow hlet)(setq headers (nth 2 table_items) i -1)(repeat ncolumns (setq i (1+ i)) (vla-SetText tbl 1 i (nth i headers)));;; Вписываниеэлементовтаблицы; Высотабукв(vla-SetTextHeight tbl acDataRow hlet)(setq j 2)(repeat nlines (setq j (1+ j) i -1) (repeat ncolumns (setq i (1+ i) val (nth i (nth j table_items))) (if (= "str" (nth i types)) (progn   (vla-SetText tbl (1- j) i val)  ; Выравниваниевячейке   (vla-SetCellAlignment tbl (1- j) i acBottomLeft)) (progn   (vla-SetText tbl (1- j) i (rtos val 2 1))  ; Выравниваниевячейке   (vla-SetCellAlignment tbl (1- j) i acBottomRight))));repeat ncolumns);repeat nlines;; Восстановлениережимаэхо-вывода(setvar "CMDECHO" old_echo);(redraw)(princ))

Листинг 10.2. Функция readex11_com

Примеры обращения к программе показаны в комментарии. В обращении нужно указать фактические аргументы основной функции.