can anyone help me to create a lisp to connect all blocks with arcs.

[RIA]

[mhupp]

Electrical layout?  I'm having flashbacks.

http://www.designmaster.biz/products/electrical/index.html

[BIGAL]

A similar request was made for pline s as arcs, a few days ago may have been at Forums/autodesk. On iPad can not post code.

[RIA]

Dear Bigal

 

pls share me by email :

EMAIL REMOVED

Edited August 1, 2021 by CADTutor
Please avoid using your email in posts, it will generate spam.

[RIA]

Dear mhupp

 

thank you..

I saw so complicated things at there..

and difficult to understand.

[BIGAL]

Here is the link as a start 

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/automatically-convert-rectangle-into-concave-arcs-with-a-known/td-p/10458035

[hosyn]

This is a good link

http://www.designmaster.biz/products/electrical/index.html

But op requesting is about automatically joint blocks after selecting them by lisp command.

I was looking for it before but unluckily don't find satisfied approach for that

 

[Ajmal]

i thing your asking about this 

 

;; CAB 05.13.09
;;  Draw Electric Wire
(defun c:ew (/ ew_layer p1 p2 msg)
 (setq ew_layer "Wire")      ; layer name

 (defun draw-ew (p4 p1 lay / p2 p3)
   (setq p2 (polar p1 (- (angle p1 p4) (/ pi ) 57.40259411)
         p3 (polar p4 (+ (angle p4 p1) (/ pi ) 57.40259411)
   )
   (entmakex
     (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
           (cons 8 lay)
           (cons 90 4)
           '(70 . 0)         ; 1 for closed 0 overwise
           (cons 10 (trans p1 1 0)) '(40 . 0.0) '(41 . 0.0) '(42 . 0.198912)
           (cons 10 (trans p2 1 0)) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)
           (cons 10 (trans p3 1 0)) '(40 . 0.0) '(41 . 0.0) '(42 . 0.198913)
           (cons 10 (trans p4 1 0)) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)
           '(210 0.0 0.0 1.0)
     )
   )
 )

 (and
   (setq p1 (getpoint "\nPick start point (Draw clockwise"))
   (setq msg "\nPick next point clockwise.")
   (while (setq p2 (getpoint p1 msg))
     (draw-ew p1 p2 ew_layer)
     (setq p1 p2)
   )
 )
 (princ)

)
(prompt "\nElectric Wire loaded, Enter EW to run.")
(princ)

 

refer,