Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

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

Тема в разделе "Autocad", создана пользователем xxxNaruto, 10 мар 2016.

  1. xxxNaruto

    Форумчанин

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

    Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    5.681
    Симпатии:
    4.236
    Адрес:
    Украина, г.Калуш
    #2
  3. xxxNaruto

    Форумчанин

    Регистрация:
    18 дек 2013
    Сообщения:
    56
    Симпатии:
    1
    Спасибо, но не подходит по следующим причинам: Программа не видит проставленные линейные размеры; при использовании каждый раз открывается новое окно Exel и значения вставляются в Exel в расположение схожим в чертеже, а требуется просто вставить в строчку!
     
    #3
  4. max7

    Форумчанин

    Регистрация:
    3 июн 2008
    Сообщения:
    8.109
    Симпатии:
    3.160
    Адрес:
    Пермь
    То же была необходимость не раз создавать таблицу из элементов автокада. Я делал через извлечение данных. Но там такая муторная и долгая процедура.... Вот бы облегчить и упростить.... ткнул, выбрал нужный обретут и он в таблице. Или бы выбрал оптом по поиску и все сразу в таблицу.
     
    #4
  5. xxxNaruto

    Форумчанин

    Регистрация:
    18 дек 2013
    Сообщения:
    56
    Симпатии:
    1
    Угу)
     
    #5
  6. ivsem

    Форумчанин

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

    Вложения:

    #6
    Последнее редактирование: 14 мар 2016
    max7 нравится это.
  7. FOXXX591

    Форумчанин

    Регистрация:
    19 окт 2012
    Сообщения:
    3.303
    Симпатии:
    2.623
    Адрес:
    г.Смоленск
    ivsem, а можно немного переделать приложение, чтобы числа в эксель отображались в той последовательности как и в автокаде слева направо и в строке с величиной размера отображалась величина текстовой строки размера, т.к иногда приходится менять ее вручную.
     
    #7
  8. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Только выбирая индивидуально текст или размер можно гарантированно соблюсти порядок вывода в Excel. В принципе, при выборе например рамкой, можно программно применить сортировку, но нужно четко знать закономерности.
    Для размеров можно реализовать следующее. Если текстовая строка пустая, то выводится величина размера. Если не пустая, то выводится текстовая строка.
     
    #8
  9. FOXXX591

    Форумчанин

    Регистрация:
    19 окт 2012
    Сообщения:
    3.303
    Симпатии:
    2.623
    Адрес:
    г.Смоленск
    Можно и так.
     
    #9
  10. xxxNaruto

    Форумчанин

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

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    В посте #6 выложена вторая версия программы. Добавлена возможность вывода начиная с произвольной ячейки.
    Если размер правлен вручную, то будет выводится исправленное значение (текстовая строка)

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

    Форумчанин

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

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Выложи свой Excel файл.
    Добавлю в программу при выводе в Excel замену точки на запятую.
     
    #13
  14. xxxNaruto

    Форумчанин

    Регистрация:
    18 дек 2013
    Сообщения:
    56
    Симпатии:
    1
    Excel файл ваш, я ничего не менял)
     
    #14
  15. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Третья версия программы, добавил замену точки на запятую при выводе в Excel.
    Замена точки на запятую у меня в єкселе придает ячейкам фомат текстовый, что не есть хорошо, бо
    невозможно форматировать количество знаков после разделителя средствами экселя.
     

    Вложения:

    #15
    max7 нравится это.
  16. xxxNaruto

    Форумчанин

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

    Вложения:

    #16
  17. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    xxxNaruto, лучше всего если Вы выложите dwg и к нему заполненную excel-табличку с подробным описанием, что брать из dwg и в какую ячейку помещать. В принципе это должно было бы быть в вашем первом посте.
     
    #17
  18. xxxNaruto

    Форумчанин

    Регистрация:
    18 дек 2013
    Сообщения:
    56
    Симпатии:
    1
    Вот пример заполнения одного профиля! Номерами подписано от куда и я беру данные (автокад) и куда конкретно вставляю (эксель)!
     

    Вложения:

    #18
  19. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    xxxNaruto, пробуй четвертую версию заточенную под ведомость.
     

    Вложения:

    #19
    xxxNaruto и max7 нравится это.
  20. xxxNaruto

    Форумчанин

    Регистрация:
    18 дек 2013
    Сообщения:
    56
    Симпатии:
    1
    Все здорово! Спасибо! Единственное, что можно добавить (чтоб программа была более универсальной), чтоб текст можно было отдельно копировать (если требуется скопировать с чертежа только текст) и отдельно можно было копировать размеры (если требуется скопировать с чертежа только размер)! А так для конкретной задачи, все огонь!
     
    #20

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление