RRoman

240 р. за год - это даром, извините 20 р. в месяц. Согласен, но деньги не мои.

Полностью согласен. Но тут такая тема - экономить на нужном и выкидывать деньги на полную чушь, например купить новый принтак за 200 тыр, вместо ремонта старого за 60... Достало. с 10-го апреля выхожу на новое место.

У этого софта есть один минус - он платный. А тут была задача задешманить.

Выкладываю очередную версию, видимо, последнюю, т.к. собираюсь менять место работы. Кто-то другой пусть допиливает/переписывает. Сырцы в свободном доступе. Написано, конечно, ужасно, но работает, зараза. Может вставить блок в чертеж из готового dwg файла, вытянуть описание блока, пронумеровать все добавленные блоки и построить по ним спецификацию. klen.zip

Спасибо за советы и подсказки!

Исправлен вылет при вставке уже имеющегося блока klen.zip

DLL у меня будет лежать в сетевой папке - вне локалки работа не предполагается. Автозагрузку в нанокад буду прописывать через конфиг, а конфиг раздавать пользователям через групповую политику. Проблем с обновлениями не должно быть. Я планировал формировать спецификацию по команде, непосредственно в excel и не хранить ее нигде в чертеже. Именно так сейчас у нас дело и обстоит. Вообще, проектировщиками наших проектировщиков тяжело назвать - они скорее дизайнеры - накидывают оборудование в помещение. А инженерку и архитектуру куда-то на аутсорс сплавляют.

У группы одинаковых блоков один номер. В старом модуле он присваивается в момент вставки блока. Насколько я понял, в чертеже есть база со всеми блоками. Планирую нумеровать блоки не при вставке, а по отдельной команде. Вопрос решился сам собой )

Подскажите, как на ваш взгляд оптимальнее поступить со "спецификацией", т.е. со списком оборудования, передаваемым в excel? 1. Пытаться запихнуть всю инфу по блоку в его свойства, а потом считывать оттуда 2. Писать в свойства только UID объекта, а потом выдергивать всю инфу из БД Пока склоняюсь ко второму варианту он мне видится проще и быстрее реализуемым. И второе - как нумеровать блоки? Чего-то тут у меня вообще ступор - где взять счетчик.

Исправленная ссылка на видео работы в автокаде _http://cloud.klen-net.ru/public.php?service=files&t=bb5fe9e68319577bd4952b91f910bc91

Всем добрых суток! Первая версия модуля готова, так сказать preAlfa. Умеет строить дерево для списка блоков и вставлять выбранный блок в текущий чертеж. Инфу берет из БД Сырцы прилагаю. klen.zip

слепил костыль Imports Multicad.Runtime Public Class SelBlock <CommandMethod("cus_SelBlock", CommandFlags.NoCheck Or CommandFlags.NoPrefix)> Public Sub selblock() Dim frmSel As New frmSelBlock() frmSel.Show() End Sub End Class

Господа, подскажите, почему в нанокаде не появляется команда на открытие формы "cus_selBlock". Вызов делаю таким же образом, как и для других команд. Imports Multicad.Runtime Imports Multicad.DatabaseServices Public Class FrmBlockSelect <CommandMethod("cus_selBlock", CommandFlags.NoCheck Or CommandFlags.Redraw)> Public Sub FrmBlockSelect_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load и т.д.

Начал я ваять своего Франкенштейна. Удалось накопипастить код, который добавляет блок в базу чертежа, но не получается его отрисовать. Подскажите, где моя ошибка? Imports Multicad.Runtime Imports Multicad.DatabaseServices Imports Multicad.DatabaseServices.StandardObjects Imports System.Windows.Forms Namespace insNewBlock Public Class insNewBlock <CommandMethod("cus_newBlock", CommandFlags.NoCheck Or CommandFlags.Redraw)> Public Sub SurroundingSub() Dim blName As String = "EVOLUTION EKF 411 AL UD" Dim blpatch As String = "h:\документы отделов\САПР\Tecnoeka\" & blName & ".dwg" Dim doc As McDocument = McDocumentsManager.GetActiveDoc() Dim refDoc As McDocument = McDocumentsManager.OpenDocument(blpatch, False, True) Dim sheetsId As List(Of Multicad.McObjectId) = refDoc.GetSheets() Dim modelSpace As McDocument = Nothing For Each idSheet As Multicad.McObjectId In sheetsId Dim sheet As McDocument = idSheet.GetObject() If sheet.IsModel Then MessageBox.Show(sheet.ToString()) modelSpace = sheet Exit For End If Next modelSpace.CopyObjects(doc, blName) Dim refBlk As McBlockRef = New McBlockRef() refBlk.BlockName = blName 'MessageBox.Show(refBlk.BlockName) refBlk.DbEntity.AddToCurrentDocument() End Sub End Class End Namespace

Спасибо! Пойду постигать азы...