topic Re: Auto draw line between two objects in AutoCAD Forum

Auto draw line between two objects

Anonymous — Thu, 03 May 2018 11:58:55 GMT

Hi.

Trying to figure out if there is a function/command that draw a straight line from object A, then goes down 90 degrees and continue to the end point of Object B. I want this to happen with only two clicks.

See picture.

Betreff: Auto draw line between two objects

j.palmeL29YX — Thu, 03 May 2018 12:49:53 GMT

AFAIK not with the core commands of AutoCAD. But some lines LISP will do the job - see screencast.

https://autode.sk/2rgZmSo

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)
)

Re: Auto draw line between two objects

Kent1Cooper — Thu, 03 May 2018 12:56:53 GMT

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?

Re: Auto draw line between two objects

j.palmeL29YX — Thu, 03 May 2018 13:26:24 GMT

@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

Betreff: Auto draw line between two objects

Anonymous — Fri, 04 May 2018 06:42:50 GMT

Hi, is it possible to have something similar but with polyline?

Betreff: Auto draw line between two objects

j.palmeL29YX — Fri, 04 May 2018 07:23:56 GMT

@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" ...)

(command "_pline" ...)

cadder

Betreff: Auto draw line between two objects

vmiguel.patron21 — Sun, 16 May 2021 18:22:25 GMT

Hello, I'm new to this Lisp thing in AutoCad but I have a question

What if instead of 4 points I only require 3 with a fillet on the 3rd point?

Betreff: Auto draw line between two objects

j.palmeL29YX — Mon, 17 May 2021 06:58:42 GMT

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) )