Search the Community
Showing results for tags 'activex'.
Found 7 results
-
Сделал автозаполнялку , по результатам боевых стрельб внезапно выяснилось, что нана не умеет работать с полями нативных объектов. Зато умеет вставлять поля из свойств документа (хотя возможно в следующей версии пофиксят и все будет наоборот))) Возник вопрос, как запихнуть данные в свойства документа.... Руками прям не вдохновляет Второй вопрос откуда эти данные брать, решился просто, коль у нас на чертеже есть таблица, (автозаполнялка) в которую мы занесли все сведения... отчего бы данные не подтянуть из нее. Принцип в кратце: Хватаем конкретную таблицу на чертеже Пробегаем по значениям именованных ячеек Имя ячейки пишем как ключ в пользовательские свойства документа Значением-свойством ключа будет содержимое ячейки ------------------------ Некритичные проверки исключений я не делал, кому надо вполне может дописать, как надо Если изменить "комментарии" ячеек, то соответственно в свойства документа запишутся другие ключи Все ключи пишутся в пользовательские свойства документа, но при желании можно писать и в Под спойлером код, старался комментировал)) Сразу скажу из скрипта VBS внутри наны этот код работать не будет, хотя конечно заманчиво... (значения ключей и свойства должны быть String и никак иначе, а в скриптах типы данных я не умею ) Поэтому этот код запускается из Excel большой красной кнопкой. В принципе, как дальнейшее развитие, этот код можно причесать, откомпилировать и запускать, хоть из командной строки нано, из меню или кнопкой на панели. В аттаче шаблон чертежа и большая красная кнопка. PS кода без багов не бывает, поэтому по мере... буду улучшать Автозаполнялка через поля документа V2.dwg docProp.xlsm
- 16 comments
-
- 4
-
-
-
- свойствадокумента
- vba
- (and 3 more)
-
Спасибо но вопрос возник... в API вытащить: забыли не успели так сойдет ??
-
При пакетной обработке чертежей (открыли файл, чето сделали закрыли) если было обращение к расширенным настройкам печати nanoCAD.InanoCADPlotCustomParams customPlotSettings = plot.CustomPlotSettings[activeLayout]; и обрабатываемые файлы программно закрывались, то при выходе из командного метода (именно на последней скобке закрывающего метода) нана22 молча валится В Нана 20 все хорошо не зависимо лочим мы документ или нет, команда в контексте документа или приложения... нана22 упадет, если не закрывать документы, не упадет... ----------- у кого есть возможность посмотрите пожалуйста.. надеюсь, что косячу я.. если баг это навечно PubCrachPrj.zip -
При обработке именованных ячеек, споткнулся об грабельки. Properties объектов СПДС имеют Names обращаясь к которым можно получать свойства Это все красиво работает для стандартных и прочих объектов. У ячейки таблицы есть Properties : Names которое задается, как комментарий ячейки. Пока комментарий текст, к этому свойству можно обратиться, но если комментарий число, возникает исключение: Index is an interger number from 1 upto Count. Собственно вопрос: как это обойти/объехать? Получить свойство с Names integer PS кстати, кто такой interger ? Баг с именем интегер.dwg
-
в нано 21 по сравнению с прежней версией поправили ThisDrawing.SummaryInfo.GetCustomByKey Key1, strVal теперь оно вызывает исключение если такого ключа нет МОЛОДЦЫ!!! ----------------------- а на SetCustomByKey если нет такого ключа исключений не хватило? ThisDrawing.SummaryInfo.SetCustomByKey Key1, Value1 зачем он создает ключ, когда должен устанавливать его значение, либо вызвать исключение "Ключ не найден" --------------------- AddCustomInfo вообще эпик фэйл Key1="нанодев" Value1="косячат" ThisDrawing.SummaryInfo.AddCustomInfo Key1, Value1 ThisDrawing.SummaryInfo.AddCustomInfo Key1, Value1 ThisDrawing.SummaryInfo.AddCustomInfo Key1, Value1 ThisDrawing.SummaryInfo.AddCustomInfo Key1, Value1 Создаст столько одинаковых ключей, сколько будет вызовов, а должен бы вызвать исключение "дублирующийся ключ" Руками в нане пользовательские свойства прям чистый мед править)))
-
Вопрос такой образовался отчего у ни разу не сохранявшегося документа ThisDrawing.Name= ThisDrawing.FullName очевидно, что ThisDrawing.Name должно быть равно имени чертежа, а ThisDrawing.FullName пустое значение... офф блин косячите на ровном месте
-
Никак не могу сообразить как сабж установить программно. Допустим после установки nanoCAD по умолчанию в новом чертеже имеем 1:100. А если надо 2:1 или 1:1 ?
