[Icumrjunkie]

Добрый день. Прошу помощи у владеющих языком лиспа написать (если это не очень сложно) команду создания конструкционной вспомогательной прямой, примерно так, как это реализовано в AutoCad Architecture: вводится команда, указываются две точки (задается прямая), далее без пробелов/энтеров сразу задается отступ, либо по вводу с клавиатуры, либо указанием точки на экране. Если при этом прямая еще будет иметь прозрачность 50%,чтобы не загромождать чертеж, будет вообще замечательно.

Мучался с помощью макросов, но никак не получилось адекватно создать эту команду. Макрос выглядит следующим образом: ^C^Cпр;\\;п;_Last;;@
Тут проблема, что отступ созданной прямой задается не по нормали. Приходится отслеживать и "ловить" эту нормаль, что не особо удобно.

[koMon]

через точку

Код:

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

 
(vl-load-com)
;*************************************************************************************
(defun c:x_line (/ org_xline point_1 point_2)
	(setq org_xline (vla-addxline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
				   				 (vlax-3d-point (setq point_1 (getpoint "\n1-я точка: ")))
				   				 (vlax-3d-point (setq point_2 (getpoint point_1 "\n2-я точка: ")))
				    )
	)
	(vla-put-basepoint org_xline (vlax-3d-point (getpoint point_2 "\n3-я точка: ")))
	(vla-put-entitytransparency org_xline "50")
	(vlax-release-object org_xline)
)