Lisp to convert points to blocks..?

Hello all !!!

I'm a complete rookie to the site but ma somewhat desperate to find a lisp routine that will convert points into blocks using the same insertion point. Anyone know if this is possible?

I came across Geotools which sounds like it does it but I dont want to have to buy that whole package just to do one task.

Any help would be greatly appreciated!!

Cheers

Hello 4StringHell,

Please tell us what version of AutoCAD you're running.

Thanks.
3DCADTips Help Desk

I found this on the Autodesk discussion boards:


Courtesy of: Jeff Mishler
This does exactly this. You must pass it the block name and the desired
scale, like so:
(pt2block "well" 100)

(defun pt2block (bname scale / ss i ent elist)
(if (and (tblobjname "BLOCK" bname)
(setq ss (ssget '((0 . "POINT"))))
)
(progn
(setq i -1)
(while (setq ent (ssname ss (setq i (1+ i))))
(setq elist (entget ent))
(entmake (list (cons 0 "INSERT")
(cons 2 bname)
(assoc 10 elist)
(assoc 8 elist)
(cons 41 scale)
(cons 42 scale)
(cons 43 scale)
(cons 50 0)
)
)
(entdel ent)
)
)
)
)

CADMiester

Hello 4StringHell,

Here is a LISP routine you can try courtesy of Holger Brischke:

Lisp 'PKT_BLK'

Good Luck
3DCADTips Help Desk

Originally Posted by 4StringHell

Hello all !!!

I'm a complete rookie to the site but ma somewhat desperate to find a lisp routine that will convert points into blocks using the same insertion point. Anyone know if this is possible?

I came across Geotools which sounds like it does it but I dont want to have to buy that whole package just to do one task.

Any help would be greatly appreciated!!

Cheers

More thatn just the autocad version you are using, please tell briefly what are you trying to achieve.
are you trying to create blocks/shapes out of points, or do you need to create a 3D terrain?

Hello 4StringHell,

Here is another routine we located off the Autodesk discussion board.

Reply From: Phil Clark
Date: May/23/06 - 18:41 (CDT)
You might check this out. Wrote it a long time ago (and frankly forgot
about it). It will replace not only points, but circles, arcs, text, and
other blocks (entities with one significant point) with a specified block.
Gives options for replacing objects globally or only specified layer and
scaling, rotation, and exploding of block.

Hope this helps.
3DCADTips Help Desk