[Daniil.T]

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

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

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

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

[ciril]

Еще раз: необходимо подписывать отметки в подпрофильной сетке или отметки на выносках? Вертикальный масштаб какой?

[Daniil.T]

ciril, В сетке. На выносках проектные отметки, они, грубо говоря, не важны.

[ciril]

Сколько расстояние от текста отметок до нижней линии графы и высота текста? Засечка в графе расстояние уже нарисована или нужно чертить? Если нужно чертить, то сколько высота графы? И на какой слой все это?

[Daniil.T]

ciril, Засечку черчу сам, высота графы - 5 ед. отступ - 2 ед. слой не важен.

----- добавлено через ~6 мин. -----
ciril, высота текста - 2

[ciril]

Код:

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

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

Пробуй. Слой, тип линий, стиль текста, вес линии - текущие.

[Daniil.T]

ciril, все очень круто, но есть проблема с вставкой, т.е указываешь верхнюю линию, но в итоге вставляется текст ниже чем нужно. Дело в том, что сама подпрофильная сетка может быть не стандартна, и расстояния между строками "низ" и "верх" не постоянны... постоянна только высота строки. А так, повторюсь, все - шикарно)

[ciril]

Код:

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

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

Тогда вот так

[Daniil.T]

ciril, все вообще круто. только маленькое но, не критичное, но все же) когда сносишь проектную точку (насколько я понимаю для определения точки отсчета) она чертится и ставиться в таблицу, но она нафиг не нужна)

[gomer]

ciril, Совет на будущее: пользуйтесь общепринятыми интерфейсами, а то ввергнете мир в пучину мирового хаоса, веер схлопнется, а отвечать вам...

[ciril]

Да, чего-то недодумал

Код:

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

 (defun c:снестиотметки  (/ x00 x02 x03 x04 x01)
  (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")
                          (40 . 2.0)
                          (50 . 1.5708)
                          (51 . 0.0)
                          (71 . 0)
                          (72 . 0)
                          (73 . 2))
                        (list (cons 1 (rtos (/ (+ x04 x01) x00) 2 2))
                              (mapcar '- x03 '(0 -1.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Подписывает отметки указанных точек в подпрофильной сетке. Вызывается СНЕСТИОТМЕТКИ")

gomer, какое-то страшное пророчество, стесняюсь спросить, что вы имеете ввиду под общепринятыми интерфейсами?

[Daniil.T]

ciril, Последний патчик и можно делать релиз
1 и самое главное) значение отметки увеличивается в 10 раз, сам в коде не могу понять где исправить)
2) указываем мы верхнюю, а не нижнюю линию графы, можно исправить самому, но вдруг кто-то другой будет пользоваться
3) шрифт можно сделать 3, тоже сам разобрался поменять, но опять же вдруг кто-то не сможет это сделать

а так шикарная програмулина получилась) нарадоваться не могу)

[gomer]

Сообщение от ciril что вы имеете ввиду

Просто не используйте то, чего не знаете, например initget! я уж не говорю об обработчике ошибок и маркерах отмены

Хотя вообще-то за initget нужно надавать по щам автодеску, за то, что они не удосужились правильно описать эту функцию с работающим примером...

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

[Daniil.T]

gomer, Так может вам выложить свой вариант программы?) Поймите меня правильно: критиковать может много кто и много что, а можно взять и банально, ну так между делом, помочь людям) Я вообще ничего не соображаю в программировании и то, что предложил ciril реально работает, а это уже круто..

[gomer]

Daniil.T, Вы в каком масштабе работаете? Попробуйте указать двухсотый масштаб, если получится, я подниму лапки вверх

[Daniil.T]

gomer, масштаб 1:100, двухсотка не подходит..

[ciril]

Daniil.T, выложите чертеж, если есть возможность, я на своих проверял, у меня все считает правильно 1:200 вообще не используете?
gomer, отведите от себя подозрения в пустозвонстве, приведите пример правильного использования initget, раз уж вы знаете лучше, чем autodesk

[Do$]

Лиспы для отметок на сечении в Сивиле? Ну, вы, блин, даёте
Вот пример для вида профиля, для сечения аналогично:
https://chronicle.autodesk.com/main/...e-29bef3e7fc13

[Daniil.T]

Do$, на видео способ примитивный и даже в стоковом автокаде я могу делать тоже самое) К тому же не подходят под условия заказчиков стандартные цивиловские профиля. Тут, как говориться, надо идти по линии наименьшего сопротивления и не придумывать себе лишней работы)

[Do$]

Стоп, а на скрине из первого поста не сивиловский вид сечения? Вы вручную отрисовываете сечения чтоли? Если так, то зачем он тогда вам?