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

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

  1. Палыч

    Палыч Форумчанин

    Только с линией работает а с полилинией нет? Попробывал - неберет.
     
  2. Philin

    Philin Форумчанин

    :)

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

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

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

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

    Палыч Форумчанин

    Ну звиняйте:).


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

    Philin Форумчанин

    Чертёж нужен, в котором указан объект который вам нужен. Я более чем уверен, что это не полилиния (даже если автокад показывает иное). Проектировщики чертят не в автокад, там свои типы объектов. Есть вероятность того, что не получится определить пересечение этих мудрёных объектов.
     
  5. Philin

    Philin Форумчанин

    Палыч, вот версия программы 1.2

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

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

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

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

    Палыч Форумчанин

  7. Philin

    Philin Форумчанин

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

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

    PEMCOH Форумчанин

    Здравствуйте!
    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.
    Как можно исправить это?
     
  9. Philin

    Philin Форумчанин

    Не пойму, эти две разные версии автокад установлены на одном компьютере или на разных?
    Если одновременно на двух абсолютно разных версиях автокад вдруг перестали работать программы, то вы что-то установили новое в этот момент. Например антивирус? Или надстройку в автокад (какой-нибудь геоникс или пр. ARX приложение)? Или произвели обновление автокад?

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

    PEMCOH Форумчанин

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

    Philin Форумчанин

    Не знаю что за модуль такой. На других компах он тоже установлен?
    Не работают абсолютно все программы или только некоторые из них?

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

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

    PEMCOH Форумчанин

    Не работает часть программ.
    После установки модуля картограммы программы продолжали работать. НА других компах все еще работают. Модуль картограммы на офф. сайте Аутодеска находился.
    Откат не могу сделать, так как не создана точка отката системы.
    Попробую переустановить модуль VBA, хотя мне кажется дело не в нем.
     
  13. Philin

    Philin Форумчанин

    До переустановки. Если Win7 или Win8. Проверить запуск автокад - должен быть от имени администратора.

    Он полуофициальный :) Поэтому его нормальная работа не гарантирована разработчиком.
     
  14. Добрый день. Вопрос следующий: по окончании работы при закрытии файла программа спрашивает сохранить изменения в файле .dvb или нет, как сделать чтобы данное сообщение не выходило? AutoCad Civil 3D 2011 и 2013
     

    Вложения:

  15. Philin

    Philin Форумчанин

    Ответить "Да". Скорее всего в дальнейшем это сообщение больше не появится.
    Ничего страшного не произойдёт т.к. вы ничего не изменяли в программе.
     
  16. Philin

    Philin Форумчанин

    В первом сообщении темы выложен краткий видеообзор по работе с программой AxeAndPointZ.
     
  17. земляк

    земляк Форумчанин

    пытаюсь создать координатный файл, программа запускается, но если не указать смещение то runtime eror 6 , если с любым смемщением то sdr создает пустым, а текстовый берет только Y и номер. координаты с мапинфо ххххххх.хх и yyyyyyyy.yy
     
  18. Philin

    Philin Форумчанин

    А можно это как-то перевести на русский язык? Я вообще ничего не понял :)

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

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

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

    земляк Форумчанин

    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
  20. Philin

    Philin Форумчанин

    земляк, максимально допустимые значения для координат точек в чертеже такие:
    - для положительных значений 2147483,647
    - для отрицательных значений -2147483,648

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

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

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

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