[gesper]

Добрый день,

Lisp не изучал досканально, только общие принципы его работы знаю и кое что корректировал из скачаных скриптов.
Поэтому интерисует вопрос, если ли в открытом доступе скрипты по созданию из txt файла таблиц в dwg с нужным нам форматированием? Или может кто то поможет его разработать для развития функционала следующей программы:

Есть наработка, программа расчет прохода кабелей через трубы, лотки, короба. Делает расчет возможности прохода кабелей, хранит такие расчеты в виде файлика, создает кабельный журнал на основе имеющихся у нее данных и создает статистику по кабелям и арматуре. Программа бесплатная, и разработана под собственные нужны изначально, чтобы не тратить время на повторяющиеся операции.
Описание ее и скиншоты здесь https://sites.google.com/site/engass...i-cable-laying, скачивать лучше прикрепленную к посту, версия новее.
Программа может создавать таблицы в AutoCAD через Ole соединение, но из за поздней связки это тормознуто немного. Хочу попробывать вариант, чтобы программа сохраняла временный файл, и запускала Lisp для дальнейшей работы и создания кабельного журнала в чертеже, но нужен человек знающий лисп хорошо.

[Олег (jr.)]

Задача не совсем сложная, но очень кропотливая в доставании данных
заголовка таблицы из верхнего колонтитула,
можно обойти этот момент создав заранее заголовочную часть таблиц
в возможных вариантах и потом считывать ряды данных из Ворда и
добавлять в эту / эти таблицы ниже
Такой метод сгодится?

~'o'~

[gesper]

Все проще должно быть, по моему. Шапку действительно лучше будет сделать отдельно, а вот из Word не нужно, нужно просто прочитать масив с строками "Столбец1","столбец2","столбецN" из текстового файла простейшего, и загнать его по ячейкам создаваемой таблицы, которой присвоется нужный нам стиль таблиц.

ПО -> Temp.txt -> Lisp -> DWG.

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

[Олег (jr.)]

Таблицы строятся быстро, нужно только загасить регенерацию таблицы в начале
процесса а в конце восстановить

~'o'~

[Олег (jr.)]

Сообщение от gesper ПО -> Temp.txt -> Lisp -> DWG.

Не нашел ни одного текстового файла в прикрепленном проекте,
не ясно какие разделители и тд, залей один для примера

~'o'~

[gesper]

Я же способностей по обработке текста у лиспа не знаю, вот и искал помощи. Как и с кем сделать доработку программы. Можно сделать как в CSV таблицах, значения разделенные запятыми, а можно чтобы заполнялся массив, если я правильно понимаю lisp. На старой работе ребята создавали lisp программку, которая запускаясь рисовала схему электрическую на основе второго файла(его на основе расчета в excel автоматически создавали), пример его прикреплю. Если так удобнее, чем вариант с CSV форматированием, то скажи в как должен выглядить файл внутри, чтобы только небыло ограничейний в строках и столбцах будущей таблицы. Сегодня постараюсь внедрить в программу создание CSV файла.

[Олег (jr.)]

И что должно получиться на основе приложенного текстового файла в результате
Одна общая таблица? или несколько?

~'o'~

[gesper]

Файл f1 это программа, функции, которые чертят, а f2.lsp это были данные для этих функций. Из блоков составлялась схема электрическая и из части где написано

(setq qL1 (list "2,5" "1,6" "0,7" "2" "1" "0,8" "0,8" "0,8" "0" "0" "0" "0" "0")) (setq qL2 (list "2,5" "3" "0,6" "2" "0,8" "0,8" "0,8" "0,5" "0" "0" "0" "0" "0")) (setq qL3 (list "2" "1,6" "0,3" "1,1" "0,3" "0,8" "0,8" "0,036" "0" "0" "0" "0" "0")) (setq qL (list "10,2" "11" "6,936"))

рисовалась таблица распределения нагрузки по тремфазам питания. Только она рисовалась из Мтекста и прямоугольничков.

Вот я и хочу, чтобы был тоже файл с функцией, который при необходимости пользователи сами подправят, если что то захотят и файл с данными, который формируется поей программой. Остается только запустить выполнение функции в автокаде, это можно организовать либо кнопкой на панели автокада, либо попробывать дать команду из моей программы. ЗАчем это все надо? Чтобы убрать отрисовку таблицы из программы, поскольку она там жестко зашивается и ее нельзя отредактировать и доработать пользователю. Лисп поддерживает не только автокад но и прочие платформы работающие с dwg. Если скорость выполнения будет приемлимая, то все должно хорошо работать.

--------------------------------

Так сделал создание текстовых файлов из отчета по кабельному журналу.

Запускаем программу, жмем "Импорт расчета" и из папки "Samples" импортируем файл "Расчет для склада нефтепродуктов.xml"
Появятся расчеты труб в программе. Заходим в Кабельный журнал (меню Проект - Кабельный журнал), там на панели есть кнопка отчета.
Появляется окно генератора отчетов для кабельного журнала(его еще не успел привести в приличный вид, если что ) Обнови и нажми "Сохранить во временный *.csv файл"
После этого в папке "temp" будут два файла tabletmpdata.csv и tabletmpdata.lsp с которыми уже надо работать.
Хотелось бы, чтобы в папке acad_lispmods был файлик, который на основе данных в предыдущих все чертит нам таблички. Не обязательно кабльные журналы, просто таблички по данным, чтобы выводить какие нибудь выноски, а не только журнал кабелей.

[Олег (jr.)]

Я уезжаю на 3 дня, пиши в личку, наверно смогу помочь,
но я работаю медленно,