977просмотров
5 марта 2026 г.
🎬 ВидеоScore: 1.1K
😎 ➕ ⛎ ➕ ⛎ #AutoCAD, #vba, #word 👤 Всем привет!
Некоторое время назад в чате был задан вопрос о том, как автоматически обновлять в Word снимки/скриншоты фрагментов чертежей из AutoCAD по заданным координатам. 🙄 🖼 Привожу вам мое решение 😏: AutoCAD_SAVE_PNG.dvb - файл VBA-проекта для AutoCAD для экспорта листов в формате PNG. Word_add_change_png.bas - файл VBA-модуля для Word для загрузки картинки и обновление картинок PNG.
✂️✂️✂️ Для AutoCAD 😎
🔴загружаем AutoCAD_SAVE_PNG.dvb: 🔵используем команду _appload; 🔵 создайте кнопку с кодом: ^C^C-vbarun PlotAllLayoutsWithPlotFileName; 🔵 либо заместо кнопки используете lisp-браузер и файл LSB;
🔴в свойстве DWG чертежа в поле "Заметки" указываем путь к папке, куда будут сохраняться PNG файлы;
🔴требуемые фрагменты чертежа через видовые экраны выводим на листы;
🔴листам назначаем принтер PublishToWeb PNG.pc3 для экспорта изображений в формате PNG с оптимальными настройками;
🔴выполняем макрос PlotAllLayoutsWithPlotFileName. ✂️✂️✂️
После выполнения макроса в указанной папке будут сохранены PNG-изображения.
✂️✂️✂️ Для Word ⛎
🔴загружаем Word_add_change_png.bas: 🔵Alt+F11 открываем VBA-редактор; 🔵в дереве файлов находим проект Normal; 🔵жмем ПКМ и импортируем наш файл bas через Import File...;
🔴для загрузки картинки используем макрос InsertPictureWithPath;
🔴для обновления картинок используем макрос UpdatePicturesFromFolder;
🔴при необходимости для макросов создаем кнопки. ↗️ Теперь вы можете автоматически обновлять PNG-изображения в Word! 🥳
Картинки сохраняют расположение и пропорции, которые были заданы вручную. 🛸 Скачать файлы ====================
📖 Оглавление канала 🙃 Авторские разработки 📰 Чат для общения