Как проставить превышения между двумя точками в Autocad

Кто ни будь знает такой лисп или команду..?

 

Соединить исходные две точки с разной Z трехмерной полилинией по прямой. Взять блок или точку для обозначения отметки, и с привязкой посадить в нужные места на эту трехмерную полилинию. У этих блоков/точек будет сооnветствующая Z.

 

И толку ему с этих отметок? Ему превышение нужно, вручную что ли отнимать?

 

Гм... Облажался!
Не допонял вопрос!
Может быть есть что-то подходящее в разделе команд Dimension, т.е. простановка размеров?
(Которыми я вообще не пользуюсь...)

 

Не совсем понятно как это должно выглядеть? Можно же и действительно размерами проставить, если вид сбоку выбрать))

 

Нужно проставить высоты столбов, отметка верха минус отметка земли...

 

А откуда взялись отметки верха столбов?

 

Нет, не знаю, но можно написать, там кода строк 30 всего, осталось понять, "точки" - это объект AutoCAD точка или в ручную будешь кликать с привязкой, хоть в точку хоть в любой др. объект?

 

Disney, может стоит добавить в Geo_otkl возможность брать проектную отметку с объекта? Оно и было бы решением и для данного вопроса.

 

Да, я уже 100 раз повторял, Geo_otkl написан на столько коряво(это моя первая программа), что добавлять туда что-либо у меня рука не поднимается, а переписывать всё заново мне не интересно, оно и в том виде меня лично устраивает.
Напиши сам Geo_Otkl_from_GR, а если вопросы будут, я подскажу.

 

Вручную буду тыкать с привязкой, точки, блоки, полилинии...

 

Код:

(defun C:for_geoscreen (/ lup tsz tsl aaa t1 t2)
  (setq
    lup    (getvar "LUPREC")
    tsz    (getvar "TEXTSIZE")
    tsl    (getvar "textstyle")
    aaa    (vl-catch-all-apply
      (function
        (lambda ()
          (while (and
              (setq t1      (getpoint "\nПервая точка:")
                t2      (getpoint t1 "\nВторая точка:")
                text (entmakex
 
                    (list
                      (cons 0 "TEXT")
                      (cons 10 t2)
                      (cons 40 tsz)
                      (cons 7 tsl)
                      (cons 1
                        (rtos (- (caddr t1) (caddr t2))
                          2
                          lup
                        )
                      )
                    )
                  )
              )
            )
          )
        )
      )
    )
  )
)

 

Disney, Спасибо, попробую, отпишусь

 

Кстати, у меня есть предложение по доработке этого лиспа.
Итак, имеем: программа просчитывает отклонение свай и анкеров.
Дополнение:
1.возможность добавления "типа" сваи-круглая (с указанием диаметра).
2. добавление отклонения закладных, также с возможностью указания размеров, например по осям Х и Y.

 

Работает корректно, кроме настроек luprec и т.п. ну и пояснительные подписи
Ïåðâàÿ òî÷êà
( или я что то не понимаю)
Спасибо большое за труды.

 

Этот LISP не определяет знак превышения, т.е. + или -.
И вот Ïåðâàÿ òî÷êà смущает немного.

 

Всё исправил.

 

Нельзя ли модифицировать программу так, чтобы не указывать точки верха-низа?
У меня сейчас внезапно оказалась как раз такая задача - надписать превышения куче пар точек. Точки достаточно точно друг над другом.
В точки у меня вставлены блоки, но это не принципиально - могут быть и просто точки.

 

кто скажет :а где взять исправленный лисп, тоже надо+,-.

 

АлексЮстасу, выкладывай пример