Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

Полезные программы от Philin (строительство). VBA

Тема в разделе "Autodesk", создана пользователем Philin, 20 ноя 2010.

  1. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Только с линией работает а с полилинией нет? Попробывал - неберет.
     
    #521
  2. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    :)

    Научитесь ставить правильно задачу.

    Я же спрашивал:
    И получил ответ:
    А теперь оказывается, что надо ещё и полилинии сделать.

    Оси линиями чертятся. Мудрить оси полилиниями нет смысла т.к. имеются всего две точки (начало и конец).

    PS Для пересечения каждого нового типа объектов в программу вписывается отдельная функция.
    К слову - полилиния бывает трёх типов (так их различает VBA): полилиния (с атрибутами), лёгкая полилиния (без атрибутов), 3D полилиния (с высотами). Если писать для всех типов, то это ещё три функции в программу.
     
    #522
  3. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Ну звиняйте:).


    Пришла разбивка от проектировщиков. (АЗС) Оси здания -линии - взяла, а строительная сетка -полилинии - не взяла, вот и спросил
     
    #523
  4. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Чертёж нужен, в котором указан объект который вам нужен. Я более чем уверен, что это не полилиния (даже если автокад показывает иное). Проектировщики чертят не в автокад, там свои типы объектов. Есть вероятность того, что не получится определить пересечение этих мудрёных объектов.
     
    #524
  5. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Палыч, вот версия программы 1.2

    Координирует пересечения отрезков с отрезками, а также полилиний с полилиниями.
    Работает с полилиниями, которые находятся в вашем чертеже.

    Программа пока бета, надо посмотреть как она себя будет вести с другими чертежами и полилиниями. В форме программы также есть функция координирования пересечений отрезков с полилиниями, но она не работает т.к. в стадии написания.

    Форма выглядит так:
    [​IMG]

    PS Эта версия программы пока не будет выложена в ресурсы. Нормально её отлажу, допишу третью функцию и можно будет уже выкладывать в общий доступ.
    PPS Во всех предыдущих версиях программы было ограничение на количество точек с координатами (не более 20000 точек). Т.к. новая версия программы в состоянии закоординировать гигантское количество ненужных точек, то в связи с этим ограничение повышено в 1,5 раза (до 30000 точек).
    Как и в предыдущих версиях - эта версия не в состоянии выдать в каталог дубли точек. Она автоматически удаляет все точки с идентичными координатами (оставляет только одну).
     
    #525
    Последнее редактирование: 15 сен 2014
  6. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
  7. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Для aCAD2TXT ver1.3
    Всё, проверил новые функции. Они работали правильно.
    Дописал функцию координирования отрезок-полилиния.
    Т.к. новые функции предполагается использовать для координирования пересечений строительных осей, то введена ещё одна функция, которая отключает координирование окружностей (чтобы исключить координирование окружностей вокруг имён осей).

    Новая версия выложена в разделе "Ресурсы" форума. В связи с этим удаляю версию 1.2 из предыдущего сообщения.
    [​IMG]
     
    #527
    Последнее редактирование: 19 фев 2015
  8. PEMCOH

    Форумчанин

    Регистрация:
    12 авг 2011
    Сообщения:
    444
    Симпатии:
    74
    Адрес:
    Россия, Екатеринбург
    Здравствуйте!
    AutoCad 2011 Civil3D
    Установил к нему модуль VBA
    Так же установил пакет приложений. В пакет входят программы:
    AxeAndPointZ (плановая исполнительная съёмка и плановая исполнительная
    съёмка с индексами В и Н). Версия 4.4
    PloskH(высотная исполнительная съёмка в горизонтальной плоскости). Версия
    0.4
    PloskHi(высотная исполнительная съёмка наклонной плоскости, линейного и
    дугового пандусов). Версия 0.1
    Vinoska (координаты, превышения, высоты на выноске). Версия 1.1
    IspoRand (произвольное автоматическое изменение значений отклонений
    плановых и высотных исполнительных съёмок). Версия 0.6
    Razvorot(разворот стрелок отклонения выполненных программой
    AxeAndPointZ на 180 градусов).

    Все работало отлично! Но в какой-то момент резко перестало.
    Например: Нажимаю на созданную кнопку с макрасом для приложения AxeAndPointZ. Как и обычно появляется окно настройки этого приложения. И когда я жму "ок", в командной строке пишется:
    Команда: _-vbarun Инициализация системы VBA...
    Имя макроса: IspoRand.dvb!IspoRand.StartProgram Ошибка при выполнении

    Отмечу, что приложения для корректировки отклонений и построения выносок работают нормально.
    Такая же проблема появилась и в AutoCaD 2009.
    Как можно исправить это?
     
    #528
  9. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Не пойму, эти две разные версии автокад установлены на одном компьютере или на разных?
    Если одновременно на двух абсолютно разных версиях автокад вдруг перестали работать программы, то вы что-то установили новое в этот момент. Например антивирус? Или надстройку в автокад (какой-нибудь геоникс или пр. ARX приложение)? Или произвели обновление автокад?

    Указанные вами версии программ далеко не последние. Рекомендую скачать архив Soft8 из первого сообщения этой темы и установить все программы из этого архива.
     
    #529
  10. PEMCOH

    Форумчанин

    Регистрация:
    12 авг 2011
    Сообщения:
    444
    Симпатии:
    74
    Адрес:
    Россия, Екатеринбург
    Поставил архив софт8. Изменилось только то, что в командной строке не пишется ошибка. А просто никакой реакции после нажатия "ок" в настройках программки.
    Да оба автокада стоят на одном компе. Антивируса нет и не было. Автокад не обновлял.
    Установил модуль "картограммы", но после установки программки тогда работали еще. На других компьютерах все работает. НА этом почему-то перестало...
     
    #530
  11. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Не знаю что за модуль такой. На других компах он тоже установлен?
    Не работают абсолютно все программы или только некоторые из них?

    Если не работают некоторые программы, то это значит, что ваш модуль "картограмма" изменил часть системных библиотек Windows без спроса. Поможет откат системы на дату изменения системных библиотек.
    Если не работают все программы, то это значит что модуль "картограмма" изменил часть библиотек VBA. В автокад 2010 и более новых поможет переустановка модуля VBA Enabler, а вот а версиях автокад до 2010 слабо представляю как можно вернуть библиотеки VBA в исходное состояние (они встроены в автокад и нет отдельного модуля их установки, вероятно поможет только удаление и установка с нуля автокад).

    Грубо говоря - судя по всему вы установили кривую программу, которая изменяет важные для работы автокад файлы. Так пишут только криворукие программеры, которые не задумываются о том, что кроме их программы в автокад должны (или могут) работать ещё и другие программы.
     
    #531
  12. PEMCOH

    Форумчанин

    Регистрация:
    12 авг 2011
    Сообщения:
    444
    Симпатии:
    74
    Адрес:
    Россия, Екатеринбург
    Не работает часть программ.
    После установки модуля картограммы программы продолжали работать. НА других компах все еще работают. Модуль картограммы на офф. сайте Аутодеска находился.
    Откат не могу сделать, так как не создана точка отката системы.
    Попробую переустановить модуль VBA, хотя мне кажется дело не в нем.
     
    #532
  13. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    До переустановки. Если Win7 или Win8. Проверить запуск автокад - должен быть от имени администратора.

    Он полуофициальный :) Поэтому его нормальная работа не гарантирована разработчиком.
     
    #533
  14. dimageodezist

    Регистрация:
    16 окт 2012
    Сообщения:
    18
    Симпатии:
    4
    Добрый день. Вопрос следующий: по окончании работы при закрытии файла программа спрашивает сохранить изменения в файле .dvb или нет, как сделать чтобы данное сообщение не выходило? AutoCad Civil 3D 2011 и 2013
     

    Вложения:

    #534
  15. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Ответить "Да". Скорее всего в дальнейшем это сообщение больше не появится.
    Ничего страшного не произойдёт т.к. вы ничего не изменяли в программе.
     
    #535
  16. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    В первом сообщении темы выложен краткий видеообзор по работе с программой AxeAndPointZ.
     
    #536
  17. земляк

    Форумчанин

    Регистрация:
    30 апр 2008
    Сообщения:
    207
    Симпатии:
    37
    Адрес:
    Великий Новгород
    пытаюсь создать координатный файл, программа запускается, но если не указать смещение то runtime eror 6 , если с любым смемщением то sdr создает пустым, а текстовый берет только Y и номер. координаты с мапинфо ххххххх.хх и yyyyyyyy.yy
     
    #537
  18. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    А можно это как-то перевести на русский язык? Я вообще ничего не понял :)

    1 - Версия автокад?
    2 - Какой Windows?
    3 - Разрядность системы и автокад (x64 ???)?
    4 - Какое название моей программы которая вами используется?
    5 - Версия используемой программы какая?
    6 - Каким боком мапинфо относится к автокад и моим программам?

    7(!!!) - Ну и где файл (dxf или dwg) с которым проблема? К файлу надо указать слой для которого требуется выполнить какие-либо действия и настройки моей программы при выполнении действий.

    PS В тысячный раз повторяю - я не гадалка и не предсказатель.
    PPS Попробую предсказать :) Вероятно по этой ссылке и есть ответ на ваш вопрос. aCAD2TXT ссылка
     
    #538
    Последнее редактирование: 30 сен 2014
  19. земляк

    Форумчанин

    Регистрация:
    30 апр 2008
    Сообщения:
    207
    Симпатии:
    37
    Адрес:
    Великий Новгород
    1 - Версия автокад?
    2009
    2 - Какой Windows?
    7 *32 бит
    3 - Разрядность системы и автокад (x64 ???)?
    х32
    4 - Какое название моей программы которая вами используется?
    acadtotxt
    5 - Версия используемой программы какая?
    1.3
    6 - Каким боком мапинфо относится к автокад и моим программам?
    dxf сформирован в мапинфо открыт в каде

    7(!!!) - Ну и где файл (dxf или dwg) с которым проблема? К файлу надо указать слой для которого требуется выполнить какие-либо действия и настройки моей программы при выполнении действий.

    слой у меня один называется 0
    спасибо за терпение :)
     

    Вложения:

    • 1.DXF
      Размер файла:
      1,1 КБ
      Просмотров:
      2
    #539
  20. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    земляк, максимально допустимые значения для координат точек в чертеже такие:
    - для положительных значений 2147483,647
    - для отрицательных значений -2147483,648

    Значения больше максимально допустимого положительного или меньше допустимого отрицательного будут выдавать ошибку OVERFLOW в программе.

    У вас координаты "север" вне допуска для программы (превышает 2147483,647). В связи с этим и ошибка появляется.

    В общем-то я правильно ссылку давал ранее.

    На самом деле можно программу написать так, чтобы она работала с полным набором чисел для x32 (в 1000 раз бОльшие числа, как в самом автокад лимит), но тогда не будет возможности округления чисел и они будут вставляться в каталог в том виде в котором их реально видит и считает автокад. Например координата 123,01 автокад на самом деле внутри себя обрабатывает и видит как 123,0151243248 и именно в таком виде передаст координаты VBA программе (почти в таком виде эти координаты попадут в файл координат, округления до тысячных не будет. В файле координат Будет 14-16 знаков после запятой т.к. автокад работает с 8 знаками, а VBA с 14-16... незадействованные в автокад знаки будут заменены произвольными числами). Если это не критично для большинства пользователей, то не сложно немного переделать программу. Только вот обратной связи от пользователей нет, поэтому просто так изменять программу не вижу смысла.
     
    #540
    земляк нравится это.

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление