Auto draw line between two objects
Accepted solution
AFAIK not with the core commands of AutoCAD. But some lines LISP will do the job - see screencast.
And here the LISP code (quick and dirty):
(defun c:jagline (/ p1 p2 p3 p4)
(setq p1 (getpoint "\nFrom: ")
p2 (getpoint "\nTo: ")
p3 (list (/ (+ (car p1) (car p2)) 2.0) (cadr p1))
p4 (list (/ (+ (car p1) (car p2)) 2.0) (cadr p2))
)
(command "_line" p1 p3 p4 p2 "")
(princ)
)
Jürgen Palme
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Two things:
That looks more like a Polyline, given its width. Is that what you want to draw, rather than Lines?
It seems to me you would need more than two clicks. The suggestion from @j.palmeL29YX would put the vertical leg halfway horizontally between the two picked points, but the image has it at a very different position. Do you need a third pick for the position of the vertical leg?
Kent Cooper, AIA 
@Kent1Cooperschrieb: Do you need a third pick for the position of the vertical leg?
Of course: if the position of the vertical line is restricted than a third information (third pickpoint) is urgently necessary.
And to substitute the line command by the pline command is not a problem.
cadder
Jürgen Palme
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Anonymousschrieb:Hi, is it possible to have something similar but with polyline?
In the LISP code you have to add only a "p". Change the
(command "_line" ...)
to
(command "_pline" ...)
cadder
Jürgen Palme
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Something like this:
(defun c:jagline (/ p1 p2 p3 radius)
(setq radius (getdist "\nRadius: "))
(setq p1 (getpoint "\nFrom: ")
p2 (getpoint "\nTo: ")
p3 (list (car p2) (cadr p1))
)
(command "_pline" p1 p3 p2 "")
(command "fillet" "_P" "_L" "_R" radius)
(princ)
)
Jürgen Palme
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.