there is an lisp to join polylines positioned with gap as shown image .
select first line then second line , give angle measured from first line , lisp extend second line and join it with first by an inclined line
join tow parallell polyline
Any interest in something that does this?
You can get TCC.lsp that does it >here<. You pick the nearer endpoints and specify the radius of the arc segments, and it draws a Polyline [the reddish part here].
Kent Cooper, AIA 
...and they don't need to be parallel for TCC to connect them:
nor do they need to be straight:
Kent Cooper, AIA
@abdulellah.alattab wrote:
i am glad for your replay lisp wise
i am sure you will help me . this lisp posted in this link is what i want ....
I can't get that to work. I don't see attachments for the image/drawing that shows how it's supposed to work, nor to get the later code modification(s), and if one needs to be a member there to see attachments, I'm not willing to join just for this. I tried several combinations of direction of Polylines, which one is above the other, the Left/Right/Both options, etc., and I got "numberp: nil" error messages every time.
Have you tried asking there?
I may just try something starting from my TCC command rather than from that, but not immediately.
[By the way, the word "replay" is an English word, but it means something completely different -- you want the word "reply."]
Kent Cooper, AIA
Simple code, maybe you will like it
(defun c:jtangle nil (jtangle))
(defun jtangle () (setq jt_ang (* PI (/ (getreal "\nGeneral angle for sloped joint >" ) 180.0))))
(defun c:angjoin ( / e p1 p2 p3 p4 p5 *error*)
(defun *error* () (princ))
(if (not jt_ang) (jtangle))
(setq
p1 (getpoint "\n Specify startpoint of sloped polyline > ")
p2 (polar p1 jt_ang 10000.0)
e (car(entsel "\n Select line to intersect with >"))
p3 (cdr (assoc 10 (entget e)))
p4 (cdr (assoc 11 (entget e)))
p5 (inters p1 p2 p3 p4 nil)
)
(command "pline" p1 p5 (getpoint "\nSelect endpoint of sloped polyline") "")
(princ)
)To store or change angle of sloped line use command JTANGLE.
To create a sloped line and join it to other use command ANGJOIN.
It asks you to select starting point of sloped line, line to cross with, and at the end
to click at end point to finish polyline.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@abdulellah.alattab wrote:
.... why *.fas format file can not able to load as attachment . ....
You should be able to put it in a .zip file and attach that.
Kent Cooper, AIA
Accepted solution
Instead of polylines use LINE objects (you may easily join them later).
Use command to define an global angle.
Here is another version that draws line at angle to the point of intersection, and waits
to extend other line to intersection point.
(defun c:angjoin2 ( / e p1 p2 p3 p4 p5 *error*)
(defun *error* () (princ))
(if (not jt_ang) (jtangle))
(setq
p1 (getpoint "\n Specify startpoint of sloped polyline > ")
p2 (polar p1 jt_ang 10000.0)
e (car(entsel "\n Select line to intersect with >"))
p3 (cdr (assoc 10 (entget e)))
p4 (cdr (assoc 11 (entget e)))
p5 (inters p1 p2 p3 p4 nil)
)
(setq m
(entmakex
(list
'(0 . "LINE")
(cons 10 p1)
(cons 11 p5)
)
)
)
(command "_extend" m "")
(while (> (getvar 'cmdactive) 0)
(command "\\")
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@abdulellah.alattab wrote:my goal is : rebar drafting ................
Code I've provided was written as a sample to show what can be done with few simple lines of code. As a such it needs some optimizations. First it would have to calculate orientation (inclination) of first bar, on that it would add angle to draw sloped bar, find intersection to second bar and finally extend second bar to intersection. It would have to use autolisp trans command to work correctly no matter how your lines are positioned. And it can be optimized to do it more efficiently. It would work correctly for any orientation of two bars that had to be joined.
Without lisp you can try a option to use polar tracking and with enabled option extension for object snap.
Many years ago I had been doing a lot of rebar drafting and calculations (beams, slabs, plates, various foundations....) and have had all my drafting and calculations done in acad (eurocode and PBAB sandard). If you want to achieve your goal the best option is to learn basics of autolisp. Knowing just basic set of commands enables you to create very usable helper functions or even a whole programs. Of course, that program would need a lot of testing before you can use it in practice. Asking for help without learning autolisp wont get you far with your goal.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
