Требуется лисп: вставка в exel

Добрый день! Требуется лисп для решения следующей задачи:нажимаю команду лиспа; выбираю в AutoCade последовательно ( к примеру, 4 значения текста: 100, 101,102,103 и 3 проставленных размера:10,20,30), нажимаю enter. и лисп мне их вставляет в exel (или просто копирует в память в нужной форме и я просто наживаю вставить) и получается: запись в строке и каждое значение в отдельной ячейке: 100,101,102,103,10,20,30?!
Может есть у кого что-то подобное или кто-нибудь сделает?! Заранее благодарен!

 

Можно попробовать вот такую вот программку.

https://apps.autodesk.com/ACD/ru/De...autodesk.com:dwgtoexceldemo_windows32and64:ru

 

Спасибо, но не подходит по следующим причинам: Программа не видит проставленные линейные размеры; при использовании каждый раз открывается новое окно Exel и значения вставляются в Exel в расположение схожим в чертеже, а требуется просто вставить в строчку!

 

То же была необходимость не раз создавать таблицу из элементов автокада. Я делал через извлечение данных. Но там такая муторная и долгая процедура.... Вот бы облегчить и упростить.... ткнул, выбрал нужный обретут и он в таблице. Или бы выбрал оптом по поиску и все сразу в таблицу.

 

Угу)

 

Второе приближение.
Пока есть ограничение - данные не заносятся в колонки идущие после Z.
Разархивировать архив в одну папку, запустить двойным щелчком dwg, загрузить программу и следовать запросам программы. Выбирать нужно по одному, бо только в этом случае выбранные значения попадут в Excel в нужной последовательности.
Перед работой программы файл Excel должен быть закрыт. Иногда файл закрыт, но программа выдает сообщение с требованием закрыть файлы. Это происходит, когда Excel запущен в памяти, как процесс, хотя визуально вроде бы Excel нигде не наблюдается.
В этом случае нажать окей и продолжить работу.
Перезапуск программы, набрать 11 и нажать пробел или Enter.
Точность вывода размеров задается в автокаде Формат->Единицы чертежа->Точность.

 

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

 

Только выбирая индивидуально текст или размер можно гарантированно соблюсти порядок вывода в Excel. В принципе, при выборе например рамкой, можно программно применить сортировку, но нужно четко знать закономерности.
Для размеров можно реализовать следующее. Если текстовая строка пустая, то выводится величина размера. Если не пустая, то выводится текстовая строка.

 

Можно и так.

 

Спасибо большое за работу! Не могли бы Вы ответить на несколько вопросов:
- Все файлы ( рабочий файл dwg, exel файл и файл vlx) должны находиться всегда в одной папке?
- Данные всегда будут записываться в файл Proba01.xls?
- Как правильно использовать vlx приложение (дело в том, что я только работал c приложениями lsp: тут я просто автоподгрузку делал и при необходимости вызывал нужную команду, здесь же при автоподгрузке файла мне каждый раз при открытии Autocada, выходит команда использования данного приложения)? Есть ли тут тоже команда для использования в нужный момент приложения?
- Можно поправить, чтоб было 2 знака после запятой (я бы сам возможно разобрался и поправил, но тут я даже не понял через что открыть приложение чтоб посмотреть код)?

 

В посте #6 выложена вторая версия программы. Добавлена возможность вывода начиная с произвольной ячейки.
Если размер правлен вручную, то будет выводится исправленное значение (текстовая строка)

- Да, пока Proba01.xls, но могу заменить на *.xlsx
- Разницы в использовании vlx, fas, lsp нет никакой.
Перезапуск программы, набрать 11 и нажать пробел или Enter.
Точность вывода размеров в Excel задается в автокаде Формат->Единицы чертежа->Точность.
Программы лучше всего вешать на кнопки.

 

Все файлы ( рабочий файл dwg, exel файл и файл vlx) должны находиться всегда в одной папке?
Точность вывода размеров в Excel задается в автокаде Формат->Единицы чертежа->Точность (в данном случае точность применяется ко всему чертежу, т.е. ко всем размерам, что порой не требуется) но в данном случае так все сойдет.
Пробуя сейчас AcadToExcel01 и AcadToExcel02, при использовании приложения в экслель лин. размеры вставляются форматом как Число (напр, 03март). Причем используя ваш dwg файл, все ок, копирую в папку свой dwg получается такая вот фигня. Как это решить?
И еще у меня в профилях высоты (текст) проставлены через точку (123.10) и соответственно в эксель он также вставляет. Можно как-нибудь решить эту проблему (чтоб получилось через запятую) в экселе или в автокаде?

 

Выложи свой Excel файл.
Добавлю в программу при выводе в Excel замену точки на запятую.

 

Excel файл ваш, я ничего не менял)

 

Третья версия программы, добавил замену точки на запятую при выводе в Excel.
Замена точки на запятую у меня в єкселе придает ячейкам фомат текстовый, что не есть хорошо, бо
невозможно форматировать количество знаков после разделителя средствами экселя.

 

Все работает здорово! Спасибо огромное! Единственное, что можно переименовать эксель файл например, 11.xlsx (по названию команды)!
Р.S: А так я заполняю примерно вот такие исполнительные. Куда вставляю данные из профиля: Номер пикетажа (текст), 2-4 числа (текст) и 2-3 размера (линейный размер). И соответственно получается 1 столбец - вставляю название пикета, 2,5,8,11 столбец - число (текст), 14, 17,20 - лин. размер. Если можно было чтоб вставлять еще в 1 столбец название пикетажа, и чтоб во 2-ой столбец вставлялось число и далее чтоб 5,8,11,14,17,20 (+3), то было бы вообще огонь, но это не принципиально. И так вам спасибо за работу!

 

xxxNaruto, лучше всего если Вы выложите dwg и к нему заполненную excel-табличку с подробным описанием, что брать из dwg и в какую ячейку помещать. В принципе это должно было бы быть в вашем первом посте.

 

Вот пример заполнения одного профиля! Номерами подписано от куда и я беру данные (автокад) и куда конкретно вставляю (эксель)!

 

xxxNaruto, пробуй четвертую версию заточенную под ведомость.

 

Все здорово! Спасибо! Единственное, что можно добавить (чтоб программа была более универсальной), чтоб текст можно было отдельно копировать (если требуется скопировать с чертежа только текст) и отдельно можно было копировать размеры (если требуется скопировать с чертежа только размер)! А так для конкретной задачи, все огонь!