Leaderboard

Some days you just need to have a play. Putting together a 1000 pc lego model at moment and thought why not make Lego blocks for a bit of fun. I know Lego have a block builder program. You need the multi getvals.lsp from the down load area. Just a question tried to upload a GIF and not working. Multi GETVALS.lsp lego2.lsp

I was able to model the intersection by extruding both of the ellipses, making a copy in place of the larger one, and then subtracting it from the smaller one. The trimmed ellipse and the copy remain.

tested code during lunch and did a little update. Code in previous post modified.

couldn't have said it better Bigal hahaha so SSDD (same s..t , different day) : untested (and also have other work to do) (defun c:t3 (/ *error* f o e ss i sn atl) (defun *error* (msg) (if o (close o)) (if (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*") (princ msg) (princ (strcat "\n ** Error : " msg " **")))) (cond ((not (setq f (getfiled "Specify Excel file name" (getvar 'dwgprefix) "csv" 1))) (alert "No csv file was specified")) ((not (setq o (open f "w"))) (alert "Unable to write to csv file")) (t (write-line "Drawing Number;Drawing Name;Date;Revision Number" o) (foreach lay (cons "Model" (layoutlist)) (setvar "CTAB" lay) (if (setq ss (ssget "X" (list '(0 . "INSERT") '(66 . 1) '(2 . "A1 ANTET") (cons 410 (getvar "CTAB"))))) (repeat (setq i (sslength ss)) (setq atl '() sn (ssname ss (setq i (1- i)))) (while (and (setq sn (entnext sn)) (/= (cdr (assoc 0 (setq e (entget sn)))) "SEQEND")) (if (eq (cdr (assoc 0 e)) "ATTRIB")(setq atl (cons (cdr (assoc 1 e)) atl)))) (if (vl-consp atl) (write-line (strcat (nth 0 atl) ";" (nth 4 atl) ";" (nth 1 atl) ";" (nth 3 atl)) o)) ) ) (setq ss nil) ) ) ) (if o (close o))(gc)(startapp "notepad" f) (princ) )

lee , please code for select multi rectangle and delete them.