This code can be used to generate a laser box with dove-tail edges. It includes a kerf feature and should be used as in AutoCAD. You need to know how to use AutoLISP macros to use this. Sorry this is fairly long and I didn’t put in many comments so hopefully you can make sense of it. If not comment and I will explain further. ; Jig Saw Line X Outy (defun jsbx1 (x1 x2 y1 n s krf) (setq n2 (* n 2)) (setq dx (- x2 x1)) (setq px (* (/ dx (+ n2 1)) 2.0)) (setq tx (+ (/ px 2.0) krf)) (setq gx (- (/ px 2.0) krf)) (setq p1 (list x1 y1 0.0)) (repeat n (list (setq p2 (list (+ (car p1) tx) y1 0)) (setq p3 (list (+ (car p1) tx) (+ y1 s) 0)) (setq p4 (list (+ (car p2) gx) (+ y1 s) 0)) (setq p5 (list (+ (car p2) gx) y1 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list (+ (car p1) tx) y1 0)) (command “pline” p1 p2 “”) ) ; Jig Saw Line Y Outy (defun jsby1 (x1 y1 y2 n s krf) (setq n2 (* n 2)) (setq dy (- y2 y1)) (setq py (* (/ dy(+ n2 1)) 2.0)) (setq ty (+ (/ py 2.0) krf)) (setq gy (- (/ py 2.0) krf)) (setq p1 (list x1 y1 0.0)) (repeat n (list (setq p2 (list x1 (+ (cadr p1) ty) 0)) (setq p3 (list (+ x1 s) (+ (cadr p1) ty) 0)) (setq p4 (list (+ x1 s) (+ (cadr p2) gy) 0)) (setq p5 (list x1 (+ (cadr p2) gy) 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list x1 (+ (cadr p1) ty) 0)) (command “pline” p1 p2 “”) ) ; Jig Saw Line X Inny (defun jsbx2 (x1 x2 y1 n s krf) (setq n2 (* n 2)) (setq dx (- x2 x1)) (setq px (* (/ dx (+ n2 1)) 2.0)) (setq tx (+ (/ px 2.0) krf)) (setq gx (- (/ px 2.0) krf)) (setq p1 (list (+ x1 (abs s)) (+ y1 s) 0.0)) (setq p2 (list (+ x1 gx krf) (+ y1 s) 0.0)) (setq p3 (list (car p2) y1 0.0)) (command “pline” p1 p2 p3 “”) (setq p1 p3) (repeat (- n 1) (list (setq p2 (list (+ (car p1) tx) y1 0)) (setq p3 (list (+ (car p1) tx) (+ y1 s) 0)) (setq p4 (list (+ (car p3) gx) (+ y1 s) 0)) (setq p5 (list (+ (car p3) gx) y1 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list (+ (car p1) tx) y1 0)) (setq p3 (list (+ (car p1) tx) (+ y1 s) 0)) (setq p4 (list (- (+ (car p3) gx krf) (abs s)) (+ y1 s) 0)) (command “pline” p1 p2 p3 p4 “”) ) ; Jig Saw Line Y Inny (defun jsby2 (x1 y1 y2 n s krf) (setq n2 (* n 2)) (setq dy (- y2 y1)) (setq py (* (/ dy(+ n2 1)) 2.0)) (setq ty (+ (/ py 2.0) krf)) (setq gy (- (/ py 2.0) krf)) (setq p1 (list (+ x1 s) (+ y1 (abs s)) 0.0)) (setq p2 (list (+ x1 s ) (+ y1 gy krf) 0.0)) (setq p3 (list x1 (cadr p2) 0.0)) (command “pline” p1 p2 p3 “”) (setq p1 p3) (repeat (- n 1) (list (setq p2 (list x1 (+ (cadr p1) ty) 0)) (setq p3 (list (+ x1 s) (+ (cadr p1) ty) 0)) (setq p4 (list (+ x1 s) (+ (cadr p3) gy) 0)) (setq p5 (list x1 (+ (cadr p3) gy) 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list x1 (+ (cadr p1) ty) 0)) (setq p3 (list (+ x1 s) (+ (cadr p1) ty) 0)) (setq p4 (list (+ x1 s) (- (+ (cadr p3) gy krf) (abs s)) 0)) (command “pline” p1 p2 p3 p4 “”) ) ; Jig Saw Line X Mixed (defun jsbx3 (x1 x2 y1 n s krf) (setq n2 (* n 2)) (setq dx (- x2 x1)) (setq px (* (/ dx (+ n2 1)) 2.0)) (setq tx (+ (/ px 2.0) krf)) (setq gx (- (/ px 2.0) krf)) (setq p1 (list (+ x1 (abs s)) y1 0.0)) (setq p2 (list (- (+ (car p1) tx) (abs s)) y1 0.0)) (command “pline” p1 p2 “”) (setq p1 p2) (repeat (- n 1) (list (setq p2 (list (car p1) (+ y1 s) 0)) (setq p3 (list (+ (car p1) gx) (+ y1 s) 0)) (setq p4 (list (+ (car p1) gx) y1 0)) (setq p5 (list (+ (car p3) tx) y1 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list (car p1) (+ y1 s) 0)) (setq p3 (list (+ (car p1) gx) (+ y1 s) 0)) (setq p4 (list (+ (car p1) gx) y1 0)) (setq p5 (list (- (+ (car p3) tx) (abs s)) y1 0)) (command “pline” p1 p2 p3 p4 p5 “”) ) ; Jig Saw Line Y Mixed (defun jsby3 (x1 y1 y2 n s krf) (setq n2 (* n 2)) (setq dy (- y2 y1)) (setq py (* (/ dy(+ n2 1)) 2.0)) (setq ty (+ (/ py 2.0) krf)) (setq gy (- (/ py 2.0) krf)) (setq p1 (list (+ x1 s) y1 0.0)) (setq p2 (list (car p1) (+ y1 gy krf) 0.0)) (command “pline” p1 p2 “”) (setq p1 p2) (repeat (- n 1) (list (setq p2 (list x1 (cadr p1) 0)) (setq p3 (list x1 (+ (cadr p1) ty) 0)) (setq p4 (list (+ x1 s) (+ (cadr p1) ty) 0)) (setq p5 (list (+ x1 s) (+ (cadr p3) gy) 0)) (command “pline” p1 p2 p3 p4 p5 “”) (setq p1 p5) )) (setq p2 (list x1 (cadr p1) 0)) (setq p3 (list x1 (+ (cadr p1) ty) 0)) (setq p4 (list (+ x1 s) (cadr p3) 0)) (setq p5 (list (+ x1 s) (+ (cadr p3) gy krf) 0)) (command “pline” p1 p2 p3 p4 p5 “”) ) ;(jsb 4.0 6.0 5 0.11 0.01) ;Outy (defun jsb1 (x1 x2 y1 y2 nx ny s krf) (jsbx1 x1 x2 y1 nx s krf) (jsby1 x1 y1 y2 ny s krf) (jsbx1 x1 x2 (+ y2 krf) nx (- s) krf) (jsby1 (+ x2 krf) y1 y2 ny (- s) krf) ) ;(jsb 4.0 6.0 5 0.11 0.01) ;Inny (defun jsb2 (x1 x2 y1 y2 nx ny s krf) (jsbx2 x1 x2 y1 nx s krf) (jsby2 x1 y1 y2 ny s krf) (jsbx2 x1 x2 (+ y2 krf) nx (- s) krf) (jsby2 (+ x2 krf) y1 y2 ny (- s) krf) ) ;(jsb 4.0 6.0 5 0.11 0.01) ;Mixed (defun jsb3 (x1 x2 y1 y2 nx ny s krf) (jsbx3 x1 x2 y1 nx s krf) (jsbx3 x1 x2 (+ y2 krf) nx (- s) krf) (jsby3 x1 y1 y2 ny s krf) (jsby3 (+ x2 krf) y1 y2 ny (- s) krf) ) (defun jsb (x y z nx ny nz s krf) (jsb1 0.0 x 0.0 y nx ny s krf) (jsb1 (+ x 0.5 s) (+ x x 0.5 s) 0.0 y nx ny s krf) (jsb2 (+ (* x 2) 1.0 s) (+ (* x 3) 1.0 s) 0.0 z nx nz s krf) (jsb2 (+ (* x 3) 1.5 s) (+ (* x 4) 1.5 s) 0.0 z nx nz s krf) (jsb3 (+ (* x 4) 2.0 s) (+ (* x 4) z 2.0 s) 0.0 y nz ny s krf) (jsb3 (+ (* x 4) z 2.5 s) (+ (* x 4) z z 2.5 s) 0.0 y nz ny s krf) ) The main routine is jsb. At the AutoCAD command line you would type: (jsb 2.0 3.0 4.0 2 3 4 0.125 0.01) to generate a box 2″x3″x4″ with 2 tabs, 3 tabs, and 4 tabs respectively for 1/8″ wood with a laser width (kerf) of 1/100th of an inch. Don’t forget to turn off object snap (f3) (and other snaps). You should get something like the following: