Points from Blocks

[tim_newsome]

Is there a way to create a point from a block?

*No point in the block.

[tedg]

Is there a way to create a point from a block?

*No point in the block.

Well you could redefine the block with a point or as a point

[remi678731]

check the menubar drop utilities convert autocad points

[rkmcswain]

Are you talking about an AutoCAD "Point" entity? Not Civil 3D cogo point, right?

[remi678731]

Hi
Yes AutoCAD point entity

[JeffClark]

Pretty basic Lisp Routine.
Place point ("point" command) at insertion point of all blocks with a specified name.

try this:

(defun C:PTBLK ()
 (setq BLKNAME (getstring "\nName of Block: "))
 (setq SS1 (ssget "X" (list (cons 2 BLKNAME))))
 (setq NUM (sslength SS1))
 (setq CNT 0)
   (while (< CNT NUM)
   (setq ENT (ssname SS1 CNT))
   (setq PT (cdr (assoc 10 (entget ENT))))
   (setq PT (strcat (rtos (nth 0 PT)) "," (rtos (nth 1 PT)) "," (rtos (nth 2 PT))))
   (command "POINT" PT)
   (setq CNT (+ 1 CNT))
 )
)