[bizon2008]

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

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

В "похожих" темах не смотрел?

[bizon2008]

Смотрел. Не то.

[SetQ]

_offset _t
тебе поможет.. ))

[bizon2008]

А можно понаглеть. Мне бы еще и чтобы не по нормали, а параллельно оси X

[SetQ]

не совсем понятно..
через заданную точку параллельно оси Х? если вручную чертишь, то просто ОРТО включи - F8..

[bizon2008]

Цель такая. Пользватель нарисовал линию. Дальше вызывается моя фунйия которая просить выбрать линию и ввести координаты точки. Мне недо скопировать линию параллельно заданой, так чтобы он проходила через введеные координаты. И копировать надо только горизонтально.

[SetQ]

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

[CB]

Пробуй:

Код:

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

(defun test (/ ent pt pt1 pt2)
  (if (and (setq ent (car (entsel "\nВыберите Line: ")))
    (= (cdr (assoc 0 (entget ent))) "LINE")
    (setq pt (getpoint "\nУкажите точку: "))
      ) ;_ end of and
    (progn
      (setq pt1 (cdr (assoc 10 (entget ent)))
     pt2 (cdr (assoc 11 (entget ent)))
      ) ;_ end of setq
      (vl-cmdf "_copy" ent "")
      (apply 'vl-cmdf
      (list
        ((lambda (pt-temp)
    (polar pt
    (if (minusp (cos (angle pt-temp pt)))
      0
      pi
    ) ;_ end of if
    (abs
      (/
        (distance pt pt-temp)
        (sin (angle pt1 pt2))
      ) ;_ end of /
    ) ;_ end of abs
    ) ;_ end of polar
  ) ;_ end of lambda
   (polar
     pt1
     (angle pt1 pt2)
     (*
       (distance pt1 pt)
       (cos
         (- (angle pt1 pt2) (angle pt1 pt))
       ) ;_ end of cos
     ) ;_ end of *
   ) ;_ end of polar
        )
        pt
      ) ;_ end of list
      ) ;_ end of apply
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun