[Айтмат]

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

Ищу программу для AutoCad, которая позволяет в команде отрезок создавать настраиваемый отступ от точки начала и конца (Или только начала, или только конца). Отступ настраивается в соответствии с масштабом в котором чертишь в модели.

Например, если чертишь отрезок в масштабе 1:100, то отступ должен быть например 100 мм; если в масштабе 1:10 - то 10 мм.

Конечно это начальное описание, что-то можно поправить, что-то по другому сформулировать. Но пытаюсь просто передать суть проблемы. Наверняка такой лисп уже давно создан, к сожалению не могу найти. Пожалуйста пошлите ссылкой где он.

Лисп необходим для проектирования металлоконструкций в 2д, чтобы не сливались линии.

Эскиз прикрепил.

Прошу прощения за такой вопрос, сам к сожалению не знаком с программированием. Не знаю насколько чет и ясно, а главное корректно ли создал тему.

[gomer]

Величину отступа задай в указанном месте, величину благодарности озвучь в личку

Код:

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

 (defun C:LINEWITHOFFSET ( / ofs p10 p11 ang start end)
  (setq ofs 1.) ; ВЕЛИЧИНА ОТСТУПА
  (setq p10 (getpoint "\nУкажите начальную точку: "))
  (while (setq p11 (getpoint p10 "\nУкажите следующую точку: "))
    (setq ang   (angle p10 p11)
          start (polar p10 ang    ofs )
          end   (polar p11 ang (- ofs))
          p10   p11
    )
    (entmake
      (list
        (cons 0  "LINE")
        (cons 10 start)
        (cons 11 end)
      )
    )
  )
  (princ)
)