[tehkonst]

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

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

В приложении 2 скрина, как это должно выглядеть "до" и "после".

Помогите, если не трудно.

[ciril]

Код:

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

 (defun c:tst  (/ x00 x01 x02 x03 x04 x05 x06 x07)
  (while (not (and (setq x00 (entsel "\nВыберите окружность..."))
		   (equal '(0 . "CIRCLE") (assoc 0 (setq x01 (entget (setq x00 (car x00))))))))
    (princ "\nОкружность не выбрана."))
  (redraw x00 3)
  (setq	x00 (vlax-ename->vla-object x00)
	x02 (cdr (assoc 10 x01))
	x01 (cdr (assoc 40 x01)))
  (princ "\nВыберите отрезки...")
  (while (not (setq x03 (ssget '((0 . "LINE"))))) (princ "\nОтрезки не выбраны."))
  (repeat (setq x04 (sslength x03))
    (or	(not
	  (vlax-curve-getparamatpoint (setq x05 (vlax-ename->vla-object (ssname x03 (setq x04 (1- x04)))))
				      x02))
	(minusp
	  (vlax-safearray-get-u-bound (setq x05 (vlax-variant-value (vla-intersectwith x00 x05 acextendnone)))
				      1))
	(repeat	(/ (length (setq x05 (vlax-safearray->list x05))) 3)
	  (entmake
	    (list '(0 . "LINE")
		  (cons 10 (polar (setq x06 (list (car x05) (cadr x05))) (- (setq x07 (angle x02 x06)) (/ pi 2)) x01))
		  (cons 11 (polar x06 (+ x07 (/ pi 2)) x01))))
	  (setq x05 (cdddr x05)))))
  (redraw (vlax-vla-object->ename x00) 4)
  (princ))

вот как-то так.

[tehkonst]

Спасибо. По вашему коду я почти во всех используемых методах разобрался (непросто его все-таки читать).
В код стоит добавить ( vl-load-com ), иначе ошибку может выдать.

[ciril]

Да не за что. Читать сложней, чем писать. Согласен, нужно добавить.

[Psip]

А нет ли алгоритма построения касательной от одной окружности к другой? Суть в следующем - есть некоторое оборудование, вокруг него зона безопасности. Оборудование бывает сблокировано в странные, на первый взгляд, конфигурации. В крайние точки оборудования ставлю окружности с одинаковым радиусом, потом поворачиваю ПСК по центрам окружности и строю касательные, потом обрезаю окружности и получается такая изогнутая граница. Нет ли лиспа, чтобы можно было просто указать нужные окружности, а остальное сделалось автоматически? Скрины прилагаю. Фиолетовое - оборудование, желтое - заготовка под зону безопасности, зеленое - финальная зона безопасности. Такого лиспа в готовом виде наверное нет, но если кто-то готов написать за скромное вознаграждение, то ... давайте обсудим.
Спасибо.

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

А чем при таких раскладах _.offset не нравится? Вкупе с offsetgaptype = 1 можно добиться интересных результатов ИМХО.

----- добавлено через 21 сек. -----
Ну или потом _chamfer применять

[Psip]

А так действительно быстрее! Спасибо!