Define a new block with Visual Lisp

I think I know the general direction, if anyone has a sample to create a
simple block with attribute (i.e. circle w/ text in center), I'm sure I
could take it from there.

Thanks,
Kaai

 

Here ya go:

(setq blk (vlax-invoke (vla-get-blocks *doc*) 'add '(0.0 0.0 0.0)
"mynewblock"))
(vlax-invoke blk 'addcircle '(0.0 0.0 0.0) 1.0)
(setq att (vlax-invoke blk 'addattribute 0.5 0 "MyPrompt" '(0.0 0.0 0.0)
"MyTag" "-"))
(vla-put-alignment att acAlignmentMiddleCenter)
(vlax-put att 'textalignmentpoint '(0.0 0.0 0.0))

 

Thanks Jeff...exactly what I needed...

 

Just another example...

(defun c:test (/ db)

(setq db
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))

)

(setq db (vla-add db (vlax-3d-point(list 0 0 0)) "sample"))

(vla-addline db (vlax-3d-point (list 0.0 0.0 0.0))(vlax-3d-point (list 0.0
1.0 0.0)))
(vla-addline db (vlax-3d-point (list 0.0 0.0 0.0))(vlax-3d-point (list
0.0 -1.0 0.0)))
(vla-addline db (vlax-3d-point (list 0.0 0.0 0.0))(vlax-3d-point (list 1.0
0.0 0.0)))
(vla-addline db (vlax-3d-point (list 0.0 0.0 0.0))(vlax-3d-point
(list -1.0 0.0 0.0)))

(vlax-dump-object ms t)

(princ)
)

 

always more than one way to skin a cat....thanks Rudy