[alex_yu]

Есть две окружности на некотором расстоянии друг от друга, необходимо построить касательную линию между ними.
Прописываю в командной строке:
pline
tangent
!p1
tangent
!p2

все прекрасно строит. Но когда я прописываю в автолиспе
(command "pline" "tangent" p1 "tangent" p2 "" )

строит не так, как бы хотелось.

На рисунке 1 что должно получится. На рисунке 2 то, что получается.

Полный код e.LSP и рисунки во вложении. Прошу объяснить как сделать через автолисп

[b@r@b@n]

Попробуй отключить привязки OSNAP перед запуском Лиспа.

[nikе]

(setvar "osmode" 256)
(command "_.LINE"
(getpoint "\nТочка 1 :")
(getpoint "\nТочка 2 :")
""
)

(setvar "osmode" 0)

[PDM]

p1 и p2 в момент выполнения этого куска должны быть в пределах экрана. Или изображение слишком мелкое, zoom->extents например, и в квадрат указки другие обьекты попадают, возможно. Две касательных сразу не пробовал. У меня Acad 2002.

[Олег (jr.)]

Я бы сделал так, не учитывая допустимые расстояния,
хотя их тоже не мешает проверить перед командой рисования

Код:

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

(defun detal (x y / ang p1 p1-l p1-r p2 p3 p3-l p3-r p4 rad1 rad2)

  (setq p1 (list x y)
	p2 (polar p1 pi 30  )
        p3 (polar p1 (* 1.7 pi) 80  )
        p4 (polar p3  pi 20  )
	ang (angle p3 p1)
	rad1 (distance p1 p2)
	rad2 (distance p3 p4)
	p1-L (polar p1 (+ ang (/ pi 2))rad1)
	p1-R (polar p1 (- ang (/ pi 2))rad1)
	p3-L (polar p3 (+ ang (/ pi 2))rad2)
	p3-R (polar p3 (- ang (/ pi 2))rad2)
	
)

(command "pline" "_non" p2 "w" 1.0 1.0 "a" "ce" p1 "a" 180 "_non" p2  "cl")
(command "pline" "_non" p4 "w" 1.0 1.0 "a" "ce" p3 "a" 180 "_non" p4  "cl")
(command "pline" "_non" p1-L "_non" p3-L "")
(command "pline" "_non" p1-R "_non" p3-R "")

	)

(detal 100 100 )