tag:blogger.com,1999:blog-4788530367793810077.post9203604854009451113..comments2023-08-15T12:50:43.753+03:00Comments on Записки ОВиК инженера: Как рисовать выноски и заполнять атрибуты блоков из Excel в AutoCAD при помощи VBAzvyagaaahttp://www.blogger.com/profile/00139018466782576023noreply@blogger.comBlogger14125tag:blogger.com,1999:blog-4788530367793810077.post-3243378197966918932023-08-15T12:50:43.753+03:002023-08-15T12:50:43.753+03:00Здравствуйте! А можно повторные ссылки на файлы в ...Здравствуйте! А можно повторные ссылки на файлы в upd 3 кинуть? Эти не открываются. Даниилhttps://www.blogger.com/profile/17591435926848084699noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-86717130677476632132017-02-15T16:27:31.659+03:002017-02-15T16:27:31.659+03:00выдает сообщение can't find project or library...выдает сообщение can't find project or libraryAnonymoushttps://www.blogger.com/profile/16608719699935838842noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-35344459771590593212015-10-22T15:56:59.478+03:002015-10-22T15:56:59.478+03:00Dim blockObj As Object
Dim vMin As Variant
Dim vMa...Dim blockObj As Object<br />Dim vMin As Variant<br />Dim vMax As Variant<br />Dim entHandle As String<br /><br />AppActivate ("AutoCAD")<br />entHandle = ActiveCell.Offset(0, 1).Value<br />Set blockObj = acadDoc.HandleToObject(entHandle)<br />blockObj.GetBoundingBox vMin, vMax<br />acadDoc.Application.ZoomWindow vMin, vMax<br />-----<br />Насчет AppActivate ("AutoCAD"), наверно, не самое удачное решение, потому как это слово может быть и в других заголовках окна. Но можно написать "Autodesk AutoCAD" или "AutoCAD 2014" в зависимости от того, какая у вас сейчас версия.Викторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-91543118631271753122015-10-22T15:52:46.821+03:002015-10-22T15:52:46.821+03:00Ну обновление в моем файле и так всем скопом орган...Ну обновление в моем файле и так всем скопом организовано. Какие строки выделил - такие и обновились. А поиск - да. Мощная идея. Виктор, выложи свой кусок кода по поиску.zvyagaaahttps://www.blogger.com/profile/00139018466782576023noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-23921928595846630482015-10-22T15:48:01.856+03:002015-10-22T15:48:01.856+03:00При желании можно добавить поиск этого блока на че...При желании можно добавить поиск этого блока на чертеже и обновление сразу всех скопом.Викторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-13788157450388937592015-10-22T15:46:37.341+03:002015-10-22T15:46:37.341+03:00Огромное спасибо за помощь, разобрался, всё получи...Огромное спасибо за помощь, разобрался, всё получилось, блок обновляется. Anonymoushttps://www.blogger.com/profile/02928788038866895326noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-37380101829469594832015-10-22T15:15:11.602+03:002015-10-22T15:15:11.602+03:00Я эти файлы только сегодня заметил, скачал, сижу р...Я эти файлы только сегодня заметил, скачал, сижу разбираюсь. Мануал по работе с макросами не запускается.Anonymoushttps://www.blogger.com/profile/02928788038866895326noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-20537681849906289662015-10-22T14:04:53.819+03:002015-10-22T14:04:53.819+03:00Владимир, чтобы было проще разобраться - я выложил...Владимир, чтобы было проще разобраться - я выложил в конце статьи свои файлы рабочие. Может так будет проще Вам разобраться как обновлять блоки на чертеже?zvyagaaahttps://www.blogger.com/profile/00139018466782576023noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-37765628486636746262015-10-22T13:23:41.097+03:002015-10-22T13:23:41.097+03:00Прошу прощения везде должно быть одинаково:
Active...Прошу прощения везде должно быть одинаково:<br />ActiveCell.Offset(0, 3).Value = entHandleВикторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-11461734745160686712015-10-22T13:22:53.241+03:002015-10-22T13:22:53.241+03:00Бесполезно регенерить в автокаде, т.к. при вставке...Бесполезно регенерить в автокаде, т.к. при вставке данные просто копируются. Для связки надо рядом с ячейкой вставить хэндл получившегося объекта из Автокада.<br />Вот в этой строке вы вставляете в соседнюю ячейку хэндл полученного объекта:<br />Dim entHandle As String<br />entHandle = AML.Handle<br />ActiveCell.Offset(0, 1).Value = entHandle<br />----<br />Offset(0, 3) - это смещение на три ячейки вправо от активной.<br />----<br />Для обновления в автокаде нужен следующий код:<br />entHandle = ActiveCell.Offset(0, 3).Value <br />Set blockObj = acadDoc.HandleToObject(entHandle)<br />---<br />Это все описано в этой же статье.Викторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-41820207582219980312015-10-22T13:15:05.183+03:002015-10-22T13:15:05.183+03:00В автокаде пытался регенерировать всё, потом увиде...В автокаде пытался регенерировать всё, потом увидел что можно обновить по хэндлу но как это выполнить не знаю. Anonymoushttps://www.blogger.com/profile/02928788038866895326noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-21938923619334581992015-10-21T17:00:38.126+03:002015-10-21T17:00:38.126+03:00А как вы делаете обновление? А как вы делаете обновление? Викторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-59321956433545708792015-10-21T16:31:13.514+03:002015-10-21T16:31:13.514+03:00При изменении значений в ячейках Excel не получает...При изменении значений в ячейках Excel не получается обновить данные в автокаде, как выполнить обновление?Anonymoushttps://www.blogger.com/profile/02928788038866895326noreply@blogger.comtag:blogger.com,1999:blog-4788530367793810077.post-74401293121082920862015-06-16T17:59:34.939+03:002015-06-16T17:59:34.939+03:00Крутотенюшка. Не знал, что так можно.
А можно инте...Крутотенюшка. Не знал, что так можно.<br />А можно интересно обновлять уже существующие блоки/выноски. Например, подписана на плане завеса У1. А из Excel ей обновить характеристику при изменении.Викторhttps://www.blogger.com/profile/09206262341738483147noreply@blogger.com