[dextron3]

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

Алгоритм выбираем 4 точки по ним рисуется прямоугольник соответсвенно.

[Дима_]

а если отрезки между прямыми не перпендикулярны?

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

Дополнительно: а если еще и точки не лежат в одной плоскости? А если отрезки неперпендикулярны?

[dextron3]

Ответ: они всегда перпендикулярны, это раскладка стержней, тоесть под каким углом бы стержень не лежал стрелочка будет исключительно перпендикулярна стержню (см. приложение СПДС раскладка стержней), z=0 всегда даже если точки в разных плоскостях, хотя там не точки а концы отрезка прямой и стрелочки, прямоугольник должен проецироваться на z=0

[swell{d}]

Почему бы сразу не пойти дальше?

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

Сорри, темой ошибся

[gomer]

Большая просьба доогласить фронт работ и размер благодарности, а то ничего не понятно. Собственно для поиска исполнителя есть соответствующая ветка...

[Дима_]

Сообщение от dextron3 нужно строить прямоугольник чтобы потом по его площади находить длину

Здаеться мне, что это скорее полумера и на самом деле не то, что нужно, но ладно

Сообщение от dextron3 Алгоритм выбираем 4 точки по ним рисуется прямоугольник соответсвенно.

На - запускать kv - точек указывай сколько хочешь - после чего правую кнопку - рисует прямоугольник по крайним координатам:

Код:

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

 (vl-load-com)
(defun pln (lst c); создает полилинию по списку вершин lst, c - nil/T - разомкн/замкнт или '(с слой цвет).
  (entmakex (append
             (list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 (length lst)))
             (if (= (type c) 'list)
                 (vl-remove nil (list
                                 (if (car c) (cons 70 1) (cons 70 0))
                                 (if (cadr c) (cons 8 (cadr c)))
                                 (if (caddr c) (cons 62 (caddr c)))))
                 (list (if c (cons 70 1) (cons 70 0))))
             (mapcar '(lambda (x) (cons 10 x)) lst))))
(defun c:kv()
  ((lambda (frec doc)
     ((lambda (lst)
        (vla-startundomark doc)
        ((lambda (lx ly)
           ((lambda (x1 x2 y1 y2)
              (pln (list (list x1 y1)
                         (list x2 y1)
                         (list x2 y2)
                         (list x1 y2)) T))
            (apply 'min lx)
            (apply 'max lx)
            (apply 'min ly)
            (apply 'max ly)))
         (mapcar 'car lst)
         (mapcar 'cadr lst))
        (vla-endundomark doc))
      (frec (getpoint))))
   (lambda (pt) (if pt (cons pt (frec (getpoint)))))
   (vla-get-activedocument(vlax-get-acad-object))))

[gomer]

Дима_, ну тогда уж так, при указании двух точек рисуется прямоугольник, при указании последующих точек прямоугольник изменяется согласно габаритам указанных точек...

[Дима_]

А почему-бы и нет:

Код:

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

 (vl-load-com)
(defun pln (lst c); создает полилинию по списку вершин lst, c - nil/T - разомкн/замкнт или '(с слой цвет).
  (entmakex (append
             (list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 (length lst)))
             (if (= (type c) 'list)
                 (vl-remove nil (list
                                 (if (car c) (cons 70 1) (cons 70 0))
                                 (if (cadr c) (cons 8 (cadr c)))
                                 (if (caddr c) (cons 62 (caddr c)))))
                 (list (if c (cons 70 1) (cons 70 0))))
             (mapcar '(lambda (x) (cons 10 x)) lst))))
(defun c:kv()
  ((lambda (frec bb-pl doc)
     (vla-startundomark doc)
     (frec nil '() (getpoint))
     (vla-endundomark doc))
  (lambda (ent lst pt)
    (if pt ((lambda (n-lst)
               (if ent (entdel ent))
               (frec (if lst (bb-pl n-lst)) n-lst (getpoint)))
            (cons pt lst))))
  (lambda (lst)
        ((lambda (lx ly)
           ((lambda (x1 x2 y1 y2)
              (pln (list (list x1 y1)
                         (list x2 y1)
                         (list x2 y2)
                         (list x1 y2)) T))
            (apply 'min lx)
            (apply 'max lx)
            (apply 'min ly)
            (apply 'max ly)))
         (mapcar 'car lst)
         (mapcar 'cadr lst)))
   (vla-get-activedocument(vlax-get-acad-object))))

[dextron3]

Дима_, спасибо, а когда под наклоном область распределения находится почему прямоугольник прямо а не под углом рисует?

[Дима_]

Потому что ТЗ надо писать полней... тут еще много может быть если...
з.ы. подправтье у кого желание есть - я домой...

[dextron3]

Хотя и за это спасибо

[gomer]

по трем точкам без прикрас, лень писать по человечески...

Код:

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

 (defun c:rect3p ()
  (while (and (setq p1 (getpoint "\n1: "))
              (setq p2 (getpoint "\n2: "))
              (setq p3 (getpoint "\n3: "))
         )
    (setq a0 (* 0.5 pi)
          a1 (angle p2 p1)
          a2 (+ a1 a0)
          a3 (- a1 a0)

          p4 (polar p3 a2 1.)
          p5 (inters p1 p2 p3 p4 nil)

          di (distance p3 p5)
    )

    ((lambda (lst)
       (entmake
         (append
           (list
             '(0 . "LWPOLYLINE")
             '(100 . "AcDbEntity")
             '(100 . "AcDbPolyline")
             (cons 90 (length lst))
             '(70 . 1)
             '(210 0.0 0.0 1.0)
           )
           (mapcar '(lambda (x) (cons 10 x)) lst)
         )
       )
     )
      (list
        (polar p1 a3 di)
        (polar p2 a3 di)
        (polar p2 a2 di)
        (polar p1 a2 di)
      )
    )
  )
)

[Дима_]

Видимо лень всем (гомер, как я понял сделал только для симетричных), держи указываешь вначале концы одного отрезка, затем другого:

Код:

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

 (vl-load-com)
(defun pln (lst c); создает полилинию по списку вершин lst, c - nil/T - разомкн/замкнт или '(с слой цвет).
  (entmakex (append
             (list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 (length lst)))
             (if (= (type c) 'list)
                 (vl-remove nil (list
                                 (if (car c) (cons 70 1) (cons 70 0))
                                 (if (cadr c) (cons 8 (cadr c)))
                                 (if (caddr c) (cons 62 (caddr c)))))
                 (list (if c (cons 70 1) (cons 70 0))))
             (mapcar '(lambda (x) (cons 10 x)) lst))))
(defun c:kv()
  ((lambda (pt1 pt2 pt3 pt4 doc)
     (vla-startundomark doc)
     (pln ((lambda (centr)
              (list (polar pt2 (angle pt4 pt3) (distance centr pt3))
                    (polar pt2 (angle pt3 pt4) (distance centr pt4))
                    (polar pt4 (angle pt2 pt1) (distance centr pt1))
                    (polar pt1 (angle pt4 pt3) (distance centr pt3))))
           (inters pt1 pt2 pt3 pt4))
          T)
     (vla-endundomark doc))
   (getpoint "\nPt1: ")
   (getpoint "\nPt2: ")
   (getpoint "\nPt3: ")
   (getpoint "\nPt4: ")
   (vla-get-activedocument(vlax-get-acad-object))))

[roaa]

посмотри тему http://forum.dwg.ru/showthread.php?t=107683