Перейти к содержанию

Поиск сообщества

Показаны результаты для тегов 'VBA'.

  • Поиск по тегам

    Введите теги через запятую.
  • Поиск по автору

Тип контента


Форумы

  • Общие форумы
    • Принципы распространения продуктов Нанософт
    • Общие вопросы
    • Скачать полезное
    • Обсуждение любых САПР
  • Тематические форумы
    • nanoCAD как платформа
    • модуль СПДС
    • модуль Механика
    • модуль Топоплан
    • модуль 3D
    • модуль Растр
    • модуль Организация
    • nanoCAD GeoniCS
    • nanoCAD BIM Конструкции
    • nanoCAD BIM Электро
    • nanoCAD BIM ОПС
    • nanoCAD BIM СКС
    • nanoCAD BIM ВК
    • nanoCAD BIM Отопление
    • nanoCAD СПДС Металлоконструкции
    • nanoCAD СПДС Стройплощадка
    • nanoCAD Конструкции (модуль КЖ)
    • Функциональные расширения nanoCAD
    • Портал Технической поддержки
    • nanoTDMS
  • Программы членов Клуба разработчиков
    • KDM-INFO
    • Проектное бюро "Фордевинд"
    • VetCAD++
  • Не о программах
    • Юмор
    • Вопросы и пожелания по работе форума
    • Вопросы и пожелания по работе сайта
    • Новостная лента сайта nanoCAD.ru

Блоги

  • Фишки и трюки nanoCAD
  • Делюсь опытом работы с Cad программами
  • Полезные ссылки и закладки
  • Блог MaxSoft о nanoCAD
  • Утилиты nanoCAD или как упростить работу в программе
  • Конкурсы nanoCAD
  • О разном
  • cad admin notes

Поиск результатов в...

Поиск контента, содержащего...


Дата создания

  • Начало

    Конец


Дата обновления

  • Начало

    Конец


Фильтр по количеству...

Регистрация

  • Начало

    Конец


Группа


Сайт


ICQ


Skype


Город


Интересы

Найдено: 7 результатов

  1. Дмитрий Руденко, главный инженер проекта проектного бюро «Фордевинд» http://fordewind.org/. http://habrahabr.ru/post/238867/ В статье рассмотрен один из вариантов автоматизации работы проектировщиков в САПР nanoCAD, позволяющий в значительной степени использовать параметризацию построений и сокращать сроки выполнения различных задач. Многие проектировщики используют MS Excel для выполнения математических вычислений в табличной форме. Однако, функционал программы этим не ограничивается. С помощью встроенного в продукты Microsoft Office языка программирования Visual Basic for Ap
  2. doctorraz

    АвтоЗаполнялка. Часть 2

    Сделал автозаполнялку , по результатам боевых стрельб внезапно выяснилось, что нана не умеет работать с полями нативных объектов. Зато умеет вставлять поля из свойств документа (хотя возможно в следующей версии пофиксят и все будет наоборот))) Возник вопрос, как запихнуть данные в свойства документа.... Руками прям не вдохновляет Второй вопрос откуда эти данные брать, решился просто, коль у нас на чертеже есть таблица, (автозаполнялка) в которую мы занесли все сведения... отчего бы данные не подтянуть из нее. Принцип в кратце: Хватаем конкретную таблицу
  3. Учусь по замечательной статье Дмитрия Руденко habr.com/ru/post/238867 про Nanocad и VBA работать с Нанокадом. Столкнулся с такой проблемой. Отлично работает имитация ввода простых команд в командную строку, например ThisDrawing.SendCommand «CIRCLE» & vbCr & «100,100,0» & vbCr & «1000» & vbCr Но как работать с командами, после которых открываются модальные окна? Конкретно, мне нужно выполнить команду «pdfimport». Но после этой команды открывается окно открытия файла (а после него — окно выбора параметров импорта), то есть вариант типа ThisDrawi
  4. Есть XML одно из вертикалок Нано. Нужно вытащить данные в Эксель. Дынный код point.ChildNodes(1).ChildNodes(1).ChildNodes(1).ChildNodes(1).ChildNodes(1).ChildNodes(3).Text вытаскивает следующую строку Pр (Pном), кВт 11,5 А мне нужны только цифры (11,5) , подскажите что нужно сделать? Часть исходного кода -<Child TypeName="DocRecordFieldItem"> -<Properties> <ColumnName>Pр (Pном), кВт</ColumnName> <Value>11,5</Value> </Properties> </Child> РП3.xml
  5. Собственно код ниже. Не получается получить элемент коллекции Layouts (Листов) по имени элемента. попытка приводит к зависанию и вылету Нано 10.1 Что интересно аналогичный код но с Layers (Слоями) работает. Посмотрите, кто понимает.. я недогоняю или ушу ActiveX Нано недостаточно хорош Sub Test() Set objApp = GetObject(, "NanoCAD.Application") Set ThisDraw = objApp.ActiveDocument Set Layouts = ThisDraw.Layouts ReDim arOld(Layouts.Count - 2, 1) For Each Layout In Layouts strTmpName = Layout.Name If strTmpName = "Model" Then GoTo SKIP ' Skip modelspace arOld(n, 0) = strTmpName strTmpO
  6. К сожалению после прочтения справки по McCOM2 остались вопросы : 1. как видно в Locals отладчика VBA : универсальный маркер имеет : ClassName : "Универсальный маркер" : String на такой запрос: Set МаркерСпец = spdsApplication.Query("Универсальный маркер") в МаркерСпец возвращается некоторое количество объектов но вот если добавить еще условие выбора по полю маркера Set МаркерСпец = spdsApplication.Query("Универсальный маркер", "flag=""1""") то МаркерСпец Nothing в то же время если сделать выборку по всем объектам чертежа: Set МаркерСпец = spdsApplication.Query("Object", "
  7. Уважаемое сообщество! Собственно написал скрипт, который рисует циклоиды: Dim oLine Dim oCircle Dim A(2, 2000) Dim NumberPoints Dim phi Dim alpha Dim pi Dim Count Dim Rb Dim Rm Dim k Count = 0 pi = 3.1415926 alpha = 0 Rb = 10 Rm = 2 NumberPoints = 360 k = Rb/Rm for phi = 0 to 2*pi step pi/180 Count = Count + 1 A(1, Count) = Rm*(k - 1)*(cos(phi) + cos((k - 1)*phi)/(k - 1)) A(2, Count) = Rm*(k - 1)*(sin(phi) - sin((k - 1)*phi)/(k - 1)) next for phi = 0 to 2*pi step pi/180 Count = Count + 1 A(1, Count) = (Rb + Rm)*cos(phi) - Rm*cos(alpha + ((Rb+Rm)/Rm)*phi) A(2, Count) = (Rb + Rm)*sin
×
×
  • Создать...