Insert Elbow Lisp

[smallƑish]

Select two pipe blocks
Find their intersection point and calculates the rotation.
It inserts an "ELBOW" block at the intersection point with the correct rotation

If it can be automated with lisp please help me 

Thank you 

[smallƑish]

Noted, thank you for your reply even though you are busy.

[tanbqtb03]

Would you like to help me to update code for any other fitting, same function with elbow (elbow block), such as tee block, 45° wye.....or something? Thanks

[Moshe-A · Accepted solution]

@smallƑish hi,

attached the new version

a change in commands name 

1. elbowL previously was elbow

2. elbowT this is new

3. l2m - no change

enjoy

Moshe

[smallƑish]

That's absolutely perfect! going beyond what I requested in the forum. I'm sure this will be helpful for many draftsmen in the future, letting them enjoy piping drafting instead of seeing it as a tedious task. It's simply awesome! Thank you so much!

[smallƑish]

@Moshe-A 

Another question 

Currently, we cant able to run the lisp to previsly selected objects, instead we need to select one by one after initiating the comand.

For example, if I select a MLine, use the "Select Similar" option, and then run a command, it asks me to select objects again. Also, "Select Similar" doesn't work after that.

Any chance to make it possible?

[DOODLEANU]

I know you are asking about this. 

which is not possible to code. coz see how complicated to just see 8 angles are there. so keep this way while you work. so easy to copy paste without rotating much that's what I do.

[Moshe-A]

@DOODLEANU ,

"which is not possible to code"

almost what can be done manually, can be done Programmatically 😀

[tanbqtb03]

I can't code, so I don't know how difficult it is to code, sorry bro

[smallƑish]

@DOODLEANU try this 

(defun c:IN45 (/ INPOINT LASTBLOCK)
  (setq INPOINT (getpoint "\nPick insertion point: "))  
  (command "INSERT" "YOURBLOCK" INPOINT 1 1 0) ; Replace your block name 
  (setq LASTBLOCK (entlast))
  (princ "\nROTATE OR ENTER ANGLE")
  (command "ROTATE" LASTBLOCK "" INPOINT) 
)

 hope you can make the process bit easier.

[DOODLEANU]

why need a code for this ?

use block insertion this option, easy?

[DOODLEANU]

I mean complicated.

[DOODLEANU]

Even coding is not my skill too. but this looks difficult to understand while draw manually. then coding may be very difficult that's what I mean.