gizmo_zx

Бодрого дня. А не существует ли такой утилитки для конвертации баз оборудования для Revita в базу для Электро? Т.к. эти ленивые опы (производители оборудования известных марок)не планирую дополнять/ исправлять свои базы для электро, что грустно . Типа "мы уходим в Revit"

Подскажите как промотреть все сообщения темы одной страницей? http://forum.nanocad.ru/index.php?showtopic=5130 &all - не прокатило?

Бодрого дня. Аналогичная ситуация. Коммерческая лицензия на 30 рабочих мест для версии 5.1 - как продлить?

Огромное спасибо. Заработало... <CommandMethod("u_dba", CommandFlags.UsePickSet)> _ Public Sub bx_HelloWorld8() '' Получение текущего документа и базы данных Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database Dim acEd As Editor = acDoc.Editor Dim dp_str As String Dim dp_pres As PromptResult Dim dp_dbl, dp_dbl2 As Double '' Старт транзакции Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() '' Запрос выбора объектов в области чертежа Dim acSSet As

Бодрого дня. Есть задача добраться до параметров динамического блока в Nanocad . :facepalm: Есть пример в Autocad. <CommandMethod("bx_HelloWorld8", CommandFlags.UsePickSet)> _ Public Sub bx_HelloWorld8() '' Получение текущего документа и базы данных Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database '' Старт транзакции Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() '' Запрос выбора объектов в области чертежа Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection() '' Есл

Бодрого дня. Не печатается подложка dwg. Да же в предварительном просмотре только часть (кусок) отображается. nanoCAD 5.1

Dim app As Object, ThisDrawing As Object Dim ms As Object, ut As Object, line As Object app = CreateObject("nanoCAD.Application") ThisDrawing = app.ActiveDocument ms = ThisDrawing.ModelSpace ut = ThisDrawing.Utility ' not used further down... ' correction of your code... Dim pt0(2) As Double, pt1(2) As Double ' pt0 has initial values : 0 0 0 pt1(0) = 1000 pt1(1) = 1000 pt1(2) = 1000 line = ms.AddLine(pt0, pt1)

Бодрого дня. Из VBA Excel все ОК. Как запустить из VBA Openoffice. Ругается на первую строку (Dim app As nanoCAD.Application). В Excel лазил tool->references прицеплял "nanocad tipe library", в VBA Openoffice ничего подобного не нашел. Help. Sub NANO() Dim app As nanoCAD.Application Set app = GetObject("", "nanoCAD.Application") app.Visible = True Dim ThisDrawing As nanoCAD.Document Set ThisDrawing = app.ActiveDocument Dim ms 'As AcadModelSpace Set ms = ThisDrawing.ModelSpace Dim ut As nanoCAD.Utility Set ut = ThisDrawing.Utility Dim line 'As AcadLine Dim pt0(2), pt1(2

Бодрого дня. Принтер HP Designjet 500 plus 24 Выбираю формат листа "Oversize A3" и поля съедуют красную рамку (границы листа) см. скриншон. Соответственно при печати не печатает границу листа. При печати из Autocad и размере бумаги Oversize A3 чертеж выходит 1:1 и границы листа печатаются. Помогает только вручную подбирать формат листа больший чем А3, что не всегда удобно. Параметр вписать не устраивает. Куда копать? Сам себе отвечу. http://forum.nanocad.ru/index.php?showtopic=4404&view=findpost&p=14136 (поиск не нашел тему )