• Vladlenzzz
  • Восстановленный участник
  • На форуме с 13 июня 2008г.
  • Сообщений: 15
  • Спасибо: 0

Тема: Подскажите, как рисовать стрелки с отклонениями от проекта

Подскажите, как рисовать стрелки с отклонениями от проекта для исполнительхой схемы в Autocad, или есть какая программа

  • wdw
  • Участник
  • На форуме с 27 ноября 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

В каком конкретно разделе строительства у тебя исполнительные схемы.
Для рисования отклонений свай от проектного положения  есть программа Сергея Климкина.
Могу выложить на рэпидшару, если надо.
Для монолитостроения такой проги вроде нет. Так что ручками.
Для инженерных сетей таких прог навалом см Яндекс

  • Vladlenzzz
  • Восстановленный участник
  • На форуме с 13 июня 2008г.
  • Сообщений: 15
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

да трубы, тоже самое 4то сваи.. выложи плиззз

  • Сергей
  • Восстановленный участник
  • На форуме с 31 октября 2007г.
  • Сообщений: 5
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Посмотри свою почту.
Сергей Климкин

  • Vladlenzzz
  • Восстановленный участник
  • На форуме с 13 июня 2008г.
  • Сообщений: 15
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

огромное спасибо!!!!

  • На форуме с 29 мая 2008г.
  • Сообщений: 30
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> Сергей
А мне можно "глянуть" Вашу программу?
stroygeodezia@rambler.ru
Директор ООО "СтройГеодезия"
Болтрушко Александр Иванович

  • Сергей
  • Восстановленный участник
  • На форуме с 31 октября 2007г.
  • Сообщений: 5
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Отправил на указанный п/я.

  • Костя
  • Восстановленный участник
  • На форуме с 31 августа 2008г.
  • Сообщений: 1
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Отправьте и мне пожалуйта программу для прорисовки отклонений по сваям в акаде! Заранее спасибо
pilala@inbox.ru

  • Disney
  • Disney
  • Активный участник
  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 27

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

А, можно мне тоже выслать.

  • Илья
  • Восстановленный участник
  • На форуме с 6 августа 2002г.
  • Сообщений: 60
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Да наверное лучше куда нибудь ее выложить.

  • wdw
  • Участник
  • На форуме с 27 ноября 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> Сергей
Если положительные значения осей x и y находятся не в 1-й четверти, то отклонение (цифра) получается перевёрнутым.

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Выложил архив программ VBA-AutoCAD для геодезистов, маркшейдеров на сайте DWG.RU
Адрес сообщения http://dwg.ru/f/showthread.php?p=283084#post283084
В архиве несколько моих программ и текстовый файл с краткими пояснениями назначения и установки их.
Пояснять и обсуждать способы их улучшения не буду. У кого есть надобность в этих программах (и масло в голове) разберутся так или иначе. Работаю в направлении: "Использование бытовых GPS приемников и навигаторов в мирных топо-геодезических целях". Тема не новая, уже поднималась несколько раз, но не была завершена. Мне кажется,что я близок решению задачи. Не только NMEA, но и бинарные данные моя программа получает с приемника и декодирует их (Garmin-Binary) в числа. Если есть заинтересованные в этом направлении,пишите на почтовый ящик.

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Что то я не пойму имя ссылки на DWG.RU, вроде как http://dwg.ru/f/showthread.php?p=283091#post283091
В общем смотрите у них раздел "Программирование" и тему "VBA-AutoCAD программы для геодезистов, маркшейдеров"

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> Сергей Климкин
все на месте, ссылка срабатывает корректно.

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> Кулик Алексей aka kpblc
Убедился, спасибо за приют!

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> wdw
А еще нет связи с номерами свай, подписанными в проекте, нет возможности выбирать масштаб стрелки и подписей, нет подписей отклонения отметки срубренных свай, невозможно в процессе работы отключать-переключать привязки. Много чего нет. Этим и отличается халявная самоделка от платной работы профессионального программиста. А я геодезист на стройке. И мои ребята из сваебойного управления были рады тому, что исполнительную нескольких сот свай можно сделать заметно быстрее, чем копирование 4-х заготовок стрелок и редактирование надписей отклонений врукопашную.
Подписи отклонений в программе привязываются к точке фактического центра сваи, параллельны своей стрелке и вращаются вместе со стрелкой на угол, заданный ориентирующей осью (направлением) текущего блока осей сооружения. Во как!

  • wdw
  • Участник
  • На форуме с 27 ноября 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

> Сергей Климкин
я понимаю вышенаписанное, просто в VBA я не разбираюсь.(У меня монолит и Лисп. И та же проблема со стрелками-отклонениями для стен.)
Начальство подкинуло работу по приёмке-передаче свайного поля от одного "супчика" другому. Я использовал Вашу программу год назад и думал, что что-нибудь изменилось.
Нарыл тут на форуме:

(defun C:svai (/ osm cla col sv_pr sv_f  d_x d_y  z_f d_x_t d_y_t  z_p uglx
         ugly *error* tst)
  (defun *error* (msg)(princ msg)
    (setvar "OSMODE" osm)
    (setvar "CLAYER" cla)
    (setvar "CECOLOR" col)
    (setvar "TEXTSTYLE" tst)(princ)
    )
  (setvar "CMDECHO" 0)
  (setq osm (getvar "OSMODE"))
  (setq cla (getvar "CLAYER"))
  (setq col (getvar "CECOLOR"))
  (setq tst (getvar "TEXTSTYLE"))
  (setq z_p (getreal "\nВведите проектную отметку свай: "))
(princ "\n**0 ")
  (VL-CMDF "_-style" "159" "Arial" "0.15" "" "" "" "")
  (while
    (and
      (setvar "osmode" 41)
      (setq sv_pr (getpoint "\nПроектное положение сваи <Выход>"))
      (setq sv_f (getpoint "\nФактическое положение сваи <Выход>"))
      (setq d_x
      (- (nth 0 sv_pr) (nth 0 sv_f))
       d_y
      (- (nth 1 sv_pr) (nth 1 sv_f))
       z_f
      (nth 2 sv_f)
       d_x_t
      (abs (fix (* d_x 1000)))
       d_y_t
      (abs (fix (* d_y 1000)))
      )
      (setvar "osmode" 0)
      (if z_p
  (setq z_t (fix (* 1000 (- z_f z_p))))
  (setq z_t "")
      )
      (VL-CMDF "_-LAYER" "_M" "Подп" "_C" 7 "" "_LW" 0.5 "" "")
      (VL-CMDF "_-color" "ByLayer"
               ;;; "" ;_Лишняя
               )
      (VL-CMDF "_.text"
         (polar sv_pr 5.0630 0.36)
         "0"
         z_t
         ;;; ""  ;_Лишняя
      )
      (if (> d_x 0)
  (progn
    (setq uglx pi)
    (VL-CMDF "_.text"
       "_J"
       "_R"
       (polar sv_pr 2.730 0.3)
       "0"
       d_x_t
         ;;; ""  ;_Лишняя
    )
  )
  (progn
    (setq uglx 0)
    (VL-CMDF "_.text"
       (polar sv_pr 0.412 0.3)
       "0"
       d_x_t
         ;;; ""  ;_Лишняя
    )
  )
      )
 (if (> d_y 0)
  (progn
    (setq ugly (+ pi (/ pi 2)))
    (VL-CMDF "_.text"
       "_J"
       "_R"
       (polar sv_pr 4.3004 0.3)
       "90"
       d_y_t
         ;;; ""  ;_Лишняя
    )
  )
  (progn
    (setq ugly (/ pi 2))
    (VL-CMDF "_.text"
       (polar sv_pr 1.9828 0.3)
       "90"
       d_y_t
         ;;; ""  ;_Лишняя
    )
  )
      )
  (VL-CMDF "_-LAYER" "_M" "Свая" "_C" 5 "" "_LW" 0.5 "" "")
  (VL-CMDF "_.rectang"
     (polar sv_pr (/ pi 4) 0.212132)
     (polar sv_pr (+ pi (/ pi 4)) 0.212132)
     ;;; ""   ;_ Лишняя кавычка
  )
  (VL-CMDF "_.-LAYER" "_M" "Стрелки" "_C" 1 "" "_LW" 0.5 "" "")
  (VL-CMDF "_.pline"
     (polar sv_pr ugly 0.15)
     (polar sv_pr ugly 0.55)
     ""
  )
  (VL-CMDF "_.pline"
     (polar sv_pr uglx 0.15)
     (polar sv_pr uglx 0.55)
     ""
  )
  (VL-CMDF "_.pline"
     (polar (polar sv_pr uglx 0.55)
      (+ uglx 2.7676)
      0.20
     )
     (polar sv_pr uglx 0.55)
     (polar (polar sv_pr uglx 0.55)
      (- uglx 2.7676)
      0.20
     )
     ""
  )
  (VL-CMDF "_.pline"
     (polar (polar sv_pr ugly 0.55)
      (+ ugly 2.7676)
      0.20
     )
     (polar sv_pr ugly 0.55)
     (polar (polar sv_pr ugly 0.55)
      (- ugly 2.7676)
      0.20
     )
     ""
  )
      )
    )
    (setvar "OSMODE" osm)
    (setvar "CLAYER" cla)
    (setvar "CECOLOR" col)
    (setvar "TEXTSTYLE" tst)
  (princ)
)

  • venera
  • Восстановленный участник
  • На форуме с 4 февраля 2009г.
  • Сообщений: 1
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Подскажите, как   мне найти схему

  • wdw
  • Участник
  • На форуме с 27 ноября 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

http://dwg.ru/dnl/3119

Ответ от sklimkin (изменено: Сергей Климкин, 29 апреля 2009г. 00:40:55)

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Директору ООО "СтройГеодезия"
Болтрушко Александру Ивановичу:

Без малого год, как жду отзыва/критики своей программы по ИС свай и шпунта. Ау, коллега, что-то не понравилось?

Для монолитчиков: сантиметры на миллиметры поменять в программе может любой программер. Исходный код программы доступен в редакторе VBA.

Ответ от sklimkin (изменено: Сергей Климкин, 28 января 2012г. 01:41:08)

  • На форуме с 4 сентября 2008г.
  • Сообщений: 33
  • Спасибо: 1

Re: Подскажите, как рисовать стрелки с отклонениями от проекта

Вариант программы Стрелка, написанный на VB (не VBA) - т.е. независимо от присутствия/отсутствия в КАДе бейсика (VBA). Сначала загружается А-КАД 2005 или 2007 и необходимый для работы чертеж.
Затем один из STRELKA2005.exe или STRELKA2007.exe и далее делается все то же, что и в Strelka10.dvb.
Отличие от *.dvb в том, что не требуется в КАДЕ манипуляций в меню с макросами и программа может находиться в любом месте на компьютере (например на рабочем столе).
Проблема лишь в том, что под каждую версию КАДа надо компилировать программу отдельно, имея эту версию на компьютере.

Файл Strelka-exe_2.zip - 50kB - лежит по адресу:
http://www.mediafire.com/?tqvgfklotgy8byu