Макрос на кнопку "Равноудаленная линия" (Страница 1 из 2)

(defun C:M_LINE ( / ob1 ob2 line1 line2 p11 p12 p21 p22)
    (setvar "CMDECHO" 0)
        (setq ob1 (entsel "\n Выберите первый отрезок: "))
        (setq ob2 (entsel "\n Выберите второй отрезок: "))
        (setq line1 (entget (car ob1)))
        (setq line2 (entget (car ob2)))
        (setq p11 (cdr (assoc 10 line1)))
        (setq p12 (cdr (assoc 11 line1)))
        (setq p21 (cdr (assoc 10 line2)))
        (setq p22 (cdr (assoc 11 line2)))
(command "_LINE" "_m2p" p11 p21 "_m2p" p12 p22 "")
(princ)
)

// Copyright (c) ++++++++++++++
// Author: ++++++++++++++++++++
// prototype-Example +++++++++++++++
HANDLE hLine,hEntity;
XY     xyStartA, xyEndA,xyStartB, xyEndB,xyStart, xyEnd;
hEntity = GetEntity("select 1 line", "line");
if (hEntity)
{
GetGeometry(hEntity , &xyStartA, &xyEndA);
Print("Line=", xyStartA, xyEndA, "\n");
}
hEntity = GetEntity("select 2 line", "line");
if (hEntity)
{
GetGeometry(hEntity , &xyStartB, &xyEndB);
Print("Line=", xyStartB, xyEndB, "\n");
}
SetData("PenColor", 4);
SetData("PenStyle", 6);
SetData("PenWidth",0);
{
xyStart.x=(xyStartA.x+xyStartB.x)/2;
xyStart.y=(xyStartA.y+xyStartB.y)/2;
xyEnd.x=(xyEndA.x+xyEndB.x)/2;
xyEnd.y=(xyEndA.y+xyEndB.y)/2;
//SetGeometry(hEntity, xyStart, xyEnd);
hEntity = AddEntity("line", xyStart,xyEnd);
Execute("menu", "SetColor",4);
 Execute("menu", "SetStyle", 3);
 Execute("menu", "SetWidth", 0);
}
//AddEntity("line", xyStart.x,xyStart.y,xyStart.x,xyStart.y);
Exit(%ok, "Done adding centrline.");
// [EndOfMacro]

(setq e1 (entget (car (entsel "\nПервый отрезок: "))))
(setq e2 (entget (car (entsel "\nВторой отрезок: "))))
(setq p11 (cdr (assoc 10 e1))
      p12 (cdr (assoc 11 e1))
      p21 (cdr (assoc 10 e2))
      p22 (cdr (assoc 11 e2)))
(if (> (+ (distance p11 p21) (distance p12 p22))
       (+ (distance p11 p22) (distance p12 p21))) (progn
   ; Меняем местами начало и конец второго отрезка
   (setq tmp (list p21 p22) p21 (cadr tmp) p22 (car tmp))
))
;; Находим середины между концами отрезков
(setq p1 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p11 p21)))
(setq p2 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p12 p22)))
(command "_.LINE" "_none" (trans p1 0 1)
                  "_none" (trans p2 0 1) "")

(defun C:M_LINE ( / en1 en2 e1 e2 p1 p2 p11 p12 p21 p22 tmp)
    (setvar "CMDECHO" 0)
    (setq en1 (car (entsel "\nВыберите первый отрезок: ")))
    (if en1 (redraw en1 3))
    (setq en2 (car (entsel "\nВыберите второй отрезок: ")))
    (if en2 (redraw en2 3))
    (if (and en1 en2 (setq e1 (entget en1)) (setq e2 (entget en2))
             (= "LINE" (cdr (assoc 0 e1))) (= "LINE" (cdr (assoc 0 e2))))
     (progn
      (setq p11 (cdr (assoc 10 e1)) p12 (cdr (assoc 11 e1))
            p21 (cdr (assoc 10 e2)) p22 (cdr (assoc 11 e2)))
      (if (> (+ (distance p11 p21) (distance p12 p22))
             (+ (distance p11 p22) (distance p12 p21))) (progn
          ; Меняем местами начало и конец второго отрезка
          (setq tmp (list p21 p22) p21 (cadr tmp) p22 (car tmp))
          ;; Находим середины между концами отрезков
      ))
      (setq p1 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p11 p21)))
      (setq p2 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p12 p22)))
      (command "_.LINE" "_none" (trans p1 0 1)
                        "_none" (trans p2 0 1) "")
     )
     (progn
       (princ "\nЧто-то не выбрано, или выбрано что-то не то!")
     )
    )
    (if en1 (redraw en1 4))
    (if en2 (redraw en2 4))
    (princ)
)