Comments on: Convert muliple circles to autocad blocks

By: Mike

Mike — Sat, 18 Oct 2008 20:16:25 +0000

The error is not an AutoCAD error – it is an html error.

After you cut-and-past the text, replace all the colon (“) and semi-colon (‘) symbols as the one’s shown are html characters.

This worked for me so should work for everyone.

By: mxp

mxp — Sat, 04 Oct 2008 09:00:48 +0000

don’t work for me too (Autocad 2006), but I found working lisp:

(defun C:C2BLK ( / ss blk ent pt n)
(prompt “\nSelect Circles to replace: “)
(setq ss (ssget ‘((0 . “CIRCLE”)))
blk (getstring “\nName of Block: “)
);;setq
(if (and ss (tblsearch “block” blk))
(progn
(setq n (1- (sslength ss)))
(while (>= n 0)
(setq ent (ssname ss n)
pt (cdr (assoc 10 (entget ent)))
n (1- n)
);; setq
(command “_.-insert” blk pt “” “” “”)
);;while
(command “_.erase” ss “”)
);;progn
);; if
(princ)
)

By: Edgars

Edgars — Fri, 03 Oct 2008 07:16:11 +0000

I tried it in AutoCAD 2008 and recieved

Command: _appload repcir2blk.lsp successfully loaded.
Command: ; error: bad argument type: consp “CIRCLE”

Could help – I am not master in lisp.

By: cs-admin

cs-admin — Mon, 18 Aug 2008 08:23:59 +0000

I used autocad 2008 for this lisp and it works for me..

By: moin

moin — Sun, 17 Aug 2008 18:49:12 +0000

I have tried this lisp for replacing circles with block but it doesn,t work in any of the autocad versions higher than 2000 t=which i have,,, can you help?

By: cs-admin

cs-admin — Thu, 29 May 2008 09:53:25 +0000

with a little lisp modification we can do it with the same process as above..
i’m going to post the exact routine soon.

see you around.

By: Ray

Ray — Wed, 28 May 2008 18:54:36 +0000

How can I convert multiple points to blocks via lisp or vba?

Thanks – Ray