[kirikov8080]

Доброго всем. Регулярно проектирую трассы водопроводов. Вопрос к зубрам форума: Как можно повернуть следующий отрезок трассы на угол (30,45,60,90 градусов) относительно предыдущего отрезка? Сейчас приходиться копировать последний отрезок, поворачивать на нужный угол и пристыковывать к предыдущему. Можно ли макросом или лиспом ускорить процесс: при отрисовке следующего отрезка, выбирать предыдущий как базовый и задавать нужный угол поворота? В интернете нашел лисп, но он работает странно: то поворачивает на нужный угол, то нет:
https://forums.autodesk.com/t5/visua...t/true#M328756

p.s. Если на форуме уже выкладывали такой макрос или лисп - ткните, пожалуйста, не нашел.

----- добавлено через ~1 ч. -----
Сам лисп:

Код:

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

 
(defun c:alin ( / *adoc* pea pt opt ptt el esel ent pent ang difang nang ptw ss )

  (vl-load-com)
  (setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))

  (setq pt (getpoint "\nSpecify first point : "))
  (while
    (and
      pt
      (setq opt (cons pt opt))
      (not (initget 128))
      (setq ptt (getpoint pt "\nSpecify next point or - F8 for orthomode [Angle line/Undo] : "))
      (setq opt (cons ptt opt))
    )
    (cond
      ( (eq (type ptt) 'list)
        (vla-startundomark *adoc*)
        (command "_.LINE" "_non" pt "_non" ptt "")
        (setq el (cons (entlast) el))
        (setvar 'orthomode 0)
        (setq pt ptt)
        (vla-endundomark *adoc*)
      )
      ( (or (wcmatch ptt "a*") (wcmatch ptt "A*"))
        (vla-startundomark *adoc*)
        (setq esel (entsel "\nPick target curve to obtain its angle"))
        (setq ent (car esel))
        (setq pent (vlax-curve-getclosestpointto ent (cadr esel)))
        (setq ang (angle '(0.0 0.0) (vlax-curve-getfirstderiv ent (vlax-curve-getparamatpoint ent pent))))
        (setq difang (cvunit (getreal "\nSpecify angle to picked curve in decimal degrees : ") "degree" "radian"))
        (setq nang (cvunit (- ang difang) "radian" "degree"))
        (setq ptw (trans pt 1 0))
        (command "_.UCS" "_W")
        (command "_.UCS" "_Z" nang)
        (setvar 'orthomode 1)
        (command "_.LINE" "_non" (trans ptw 0 1) "\\")
        (while (> (getvar 'cmdactive) 0) (command ""))
        (setq el (cons (entlast) el))
        (setvar 'orthomode 0)
        (setq ptw (trans (getvar 'lastpoint) 1 0))
        (command "_.UCS" "_P")
        (command "_.UCS" "_P")
        (setq pt (trans ptw 0 1))
        (vla-endundomark *adoc*)
      )
      ( (or (wcmatch ptt "u*") (wcmatch ptt "U*"))
        (if (eq (length opt) 2) 
          (setq pt nil)
          (progn 
            (if (equal (cadr opt) (cadddr opt) 1e-8) 
              (setq opt (cddddr opt)) 
              (setq opt (cddr opt))
            )
            (if (null opt)
              (setq pt nil)
              (progn
                (command "_.UNDO" "") 
                (setq el (cdr el)) 
                (setq pt (cadr opt))
              )
            )
          )
        )
      )
    )
  )
  (if (not (null el))
    (progn
      (setq ss (ssadd))
      (foreach l el
        (ssadd l ss)
      )
      (setq pea (getvar 'peditaccept))
      (setvar 'peditaccept 1)
      (command "_.PEDIT" "_M" ss "" "_J")
      (while (> (getvar 'cmdactive) 0) (command ""))
      (setvar 'peditaccept pea)
    )
  )
  (princ)
)

[VVA]

kirikov8080, А чем штатное полярное отслеживание (F10) с соответствующими настройками не устраивает?

[kirikov8080]

Спасибо за такое изящное решение. А для углов от 1 до 90 град. такого же решения нет? Бывает, что трассу под стандартными углами проложить невозможно и приходиться решать вопрос гнутыми вставками.

[Boxa]

Динамический ввод, там можно вводить угол и длину отрезка.