Draw polyline arc circuits. It essential for electrical and lighting design.

[robertas_suminskas2]

It seems that AutoCAD dev team doesn't have a clue what software they are making and who is suppose to use. I don't need tools which consume a lot of time and it makes inaccurate and is not presentable to the client. We are not in Paper age anymore.

I am looking for a simple lisp or tool to draw polyline arc circuits with a defined angle and only two-point. Then it should work is like what. First I set angle that always will 30 (that I mean by 30. It doesn't matter if I will go up, or down, or any direction it will always will make the same angle between to point) and then I start First Point, then Next point. And when Next point. So basically you start with setting angle 30, when you chose the first point, when you chose the next point, after that always next point until you decide to change the angle.

I tried AutoCAD 2021 polylines, it draws snakes or you have always type angle and also calculate angle if you go up or down or any direction and so on.

I tried AutoCAD MEP 2021 using wire objects which are crap function. You still have to chose three points.

Can some help me in this situation as Autodesk team failed to make useful and simple tools for Electrical and Lighting design.

Many thanks,

Robertas

[ronjonp]

---

@robertas_suminskas2 wrote:

That you propose is for time wasters and second, you must align middle point to make it the same unless you do approximately. Also, that is quicker do with two-click or three clicks? I don't really appreciate people who do job randomly pasting distances or objects. I appreciate people who draw lines, draw objects with meaning and accuracy without wasting time and making drawing perfect.

---

How about using this concept removing the need to pick points 😉

[robertas_suminskas2]

This also very good approach but if you have blocks imported from lighting designer. When I gave my example in this forum  I did e-transmit with the embed. I don't think that your method would work if these blocks are on Xref. I draw circuits on Xref objects (drawings) so to keep clean our drawings. 

[ronjonp]

@robertas_suminskas2  Next step for faster production is to not have to manually pick so many points. 😎

[stevor]

Another way, many versions from decades ago.

(Defun C:EAL ( / AN AD SS) ; auscadd.com
(setq StaEnt (entlast) AD (/ pi 6) AENL NIL ; Arc Ents
CCW*F (if CCW*F CCW*F T ) SS (ssadd))
(if (setq PS (getpoint "\n Sel start Pt: ") )
(progn (redraw) ;
(while (and (setq PE (getpoint PS " End Pt: ")) )
(setq HDC (/ (distance PS PE) 2) AC (angle PS PE)
EAM (if CCW*F (+ AC AD) (- AC AD) )
EPM (polar PS EAM HDC ) )
(grdraw PS EPM 1) (grdraw EPM PE 2)
(if (setq SPM (getpoint " Sel ~Side Pt, or /\default  "))
(setq CCW*F (not CCW*F)
EAM (if CCW*F (+ AC AD) (- AC AD) )
EPM (polar PS EAM HDC ) ) ) ; presumed the other
(command "ARC" PS EPM PE )
(setq PS PE SS (ssadd (entlast) SS) )
)
(if SS (command "Pedit" "M" SS "" "Y" "J" "" ""))
) ) (princ) ) ; d

[robertas_suminskas2]

---

@stevor wrote:

Another way, many versions from decades ago.

(Defun C:EAL ( / AN AD SS) ; auscadd.com
(setq StaEnt (entlast) AD (/ pi 6) AENL NIL ; Arc Ents
CCW*F (if CCW*F CCW*F T ) SS (ssadd))
(if (setq PS (getpoint "\n Sel start Pt: ") )
(progn (redraw) ;
(while (and (setq PE (getpoint PS " End Pt: ")) )
(setq HDC (/ (distance PS PE) 2) AC (angle PS PE)
EAM (if CCW*F (+ AC AD) (- AC AD) )
EPM (polar PS EAM HDC ) )
(grdraw PS EPM 1) (grdraw EPM PE 2)
(if (setq SPM (getpoint " Sel ~Side Pt, or /\default  "))
(setq CCW*F (not CCW*F)
EAM (if CCW*F (+ AC AD) (- AC AD) )
EPM (polar PS EAM HDC ) ) ) ; presumed the other
(command "ARC" PS EPM PE )
(setq PS PE SS (ssadd (entlast) SS) )
)
(if SS (command "Pedit" "M" SS "" "Y" "J" "" ""))
) ) (princ) ) ; d

---

This method (above) is to slow for me and it has less option.

Thank you for helping.

[smallƑish]

Sometimes this is the best way.
I still can't believe the power of the 3 lines of Lisp. Simply wow

[smallƑish]

Is that possible to do the same, instead picking points, can it connects with block basepoint automatically! If yes it could be a blessing to electrical drafting guys like me.

Thank you!!