[Daniil.T]

Здравствуйте.

Время от времени сталкиваюсь с оформлением исполнительной документации, в частности с оформлением поперечных профилей по пикетам. Работаю в Civil 3D и существует возможность пользоваться стандартными сечениями, которые отстраивает Civil, но они не удовлетворяют требованиям заказчика. Поэтому приходится вручную пополнять проектные профиля, и так же вручную сносить высотные отметки. Работа не сложная, но очень трудоемкая. Я уже упростил себе задачу тем, что нахожу "0" для каждого поперечника и отстраиваю заранее настроенными размерами высоты. И все равно это долго, поэтому появилась такая мысль: а что, если написать макрос или программу или еще что-то, которая при указывании необходимых точек, сама будет отстраивать эти самые размеры. Наверно объяснил немного запутанно, поэтому расскажу как вижу желаемый результат я:
1) Указываем необходимые точки, которые необходимо "снести"
2) Указываем "0"
3) Указываем уровень, на который будут "садиться" отметки.

Прикладываю скриншот, в котором показал "что - куда"

Заранее спасибо за помощь и, возможно, энтузиазм

[Daniil.T]

Do$, профиля не с цивила, они проектные по каждому пикету не знаю кем отрисовывались) Дело даже не в этом. Данная программка может много где помимо дороги использоваться) любое "коридорное" строительство: жд, авто, путепроводы и т.д)

[ciril]

Daniil.T, все работает, вычисляет нормально? Или все считает неправильно? Если неправильно, выложите чертеж, ума не приложу, где она может ошибаться

[Daniil.T]

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

[ciril]

Код:

[Выделить все]

 (defun c:снестиотметки  (/ x00 x01 x02 x03 x04 xff)
  (or (setq xff (getreal "\nВведите высоту шрифта подписи отметок: <3.0> ")) (setq xff 3.0))
  (setq x01 (+ (- (cadr (progn (initget 1) (getpoint "\nУкажите точку на профиле с известной отметкой..."))))
               (* (progn (initget 1) (getreal "\nВведите фактическую отметку указанной точки: "))
                  (progn (initget "100 200")
                         (setq x00 (/ 1000.0 (atoi (getkword "\nВведите вертикальный маштаб профиля [100 200]: "))))))))
  (foreach auxi  '("верха" "низа")
    (initget 1)
    (setq x02 (cadr (getpoint (strcat "\nУкажите нижнюю линию графы отметок " auxi " насыпи..."))))
    (while (and (setq x03 (progn (initget "Завершить")
                                 (getpoint (strcat "\nУкажите отметку " auxi " насыпи или <Завершить>... "))))
                (not (eq "Завершить" x03)))
      (setq x04 (cadr x03)
            x03 (list 10 (car x03) x02 0.0))
      (entmakex (append '((0 . "TEXT")
                          (100 . "AcDbEntity")
                          (100 . "AcDbText")
                          (50 . 1.5708)
                          (51 . 0.0)
                          (71 . 0)
                          (72 . 0)
                          (73 . 2))
                        (list (cons 40 xff)
                              (cons 1 (rtos (/ (+ x04 x01) x00) 2 2))
                              (mapcar '- x03 (list 0 (- (/ xff 2.0)) -2.0 0.0))
                              (mapcar '- x03 '(-1 0.0 -2.0 0.0)))))
      (entmakex (append '((0 . "LINE") (100 . "AcDbEntity") (100 . "AcDbLine"))
                        (list x03 (mapcar '- x03 '(-1 0.0 5.0 0.0)))))))
  (princ))
(princ "\nПодписывает отметки указанных точек в подпрофильной сетке. Вызывается СНЕСТИОТМЕТКИ")

Мда, как-то я в элементарной арифметике ступил - исправил Добавил ввод высоты текста, по умолчанию - 3.0, указание верхней линии графы привычней, но если отметка должна быть расположена на 2 выше нижней линии и высота граф различна, тогда либо вводить/указывать высоту графы или при изменении высоты графы расположения текста поплывет, можно, конечно, выравнивать его по правому краю, если принципиально указание именно верха графы, можно переделать И если последовательно указываете отметки верха/низа насыпи, можно добавить подпись расстояния между отметками, но тогда вопрос - всегда ли горизонтальный масштаб равен вертикальному.

[Daniil.T]

ciril, про расстояния это ты хорошо заметил) но не всегда работы однородны (ну т.е бывает несколько насыпей и выемок на поперечнике) поэтому думаю усложнение того не стоит, тем более програмулина узконаправленная) Все, релиз ребяты!) все круто!)

[kakt00z]

"картина маслом" - развели, даже гомер не помог ))))

[trushev]

Есть эксплуатируемый с прошлого века lisp аналог. Ориентирован на оформление поперечных профилей в соответствии с ГОСТ 21.702-2013 "Правла выполнения рабочей документации железнодорожных путей". Кроме заполнения проектных граф отметок и расстояний, выполняет надпись заложений откосов и уклонов спланированной поверхности. Настраивается на любой масштаб исходного поперечника.
Если заинтересовало, подскажите где выложить для обсуждения?

[Кулик Алексей aka kpblc]

В отдельной теме в разделе "Готовые программы", если lisp функционирует нормально.