Create a Block using lisp

[asos2000]

what is the possibility of using codes to create a block?

I want to avoid inserting a drawing to use the block in dimstyle.

DimstyleBlocks.dwg

[TimSpangler]

Here is an example of creating entities and then creating the block and the insert.

 

This should help you get an understanding of it.

FrameCall.lsp

[asos2000]

the routine not working

im using CAD2007

[Lee Mac]

This recent thread should help you Asos:

 

http://www.cadtutor.net/forum/showthread.php?t=45495

[fixo]

what is the possibility of using codes to create a block?

I want to avoid inserting a drawing to use the block in dimstyle.

 

Try it

(defun C:add_dimblocks ()
(if (not (tblsearch "block" "EC-Arrow"))
(progn
(entmake '((0 . "BLOCK")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbBlockReference")
(2 . "EC-Arrow")
(10 0 0 0)
(70 . 0)
)
)
(entmake '((0 . "SOLID")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbTrace")
(10 0 0 0)
(11 -15 -3.75 0)
(12 -15 3.75 0)
(13 0 0 0)
(39 . 0)
)
)

(entmake
'((0 . "ENDBLK")
(100 . "AcDbBlockEnd")
(8 . "0")
)
)
)
)

(if (not (tblsearch "block" "EC_TICK"))
(progn
(entmake '((0 . "BLOCK")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbBlockReference")
(2 . "EC_TICK")
(10 0 0 0)
(70 . 0)
)
)
(entmake '((0 . "LINE")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(62 . 
(100 . "AcDbLine")
(10 0 -6.25 0)
(11 0 5 0)
)
)
(entmake '((0 . "LINE")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(62 . 
(100 . "AcDbLine")
(10 5 0 0)
(11 -5 0 0)
)
)
(entmake '((0 . "LINE")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(62 . 7)
(100 . "AcDbLine")
(10 -5 -5 0)
(11 5 5 0)
)
)
(entmake '((0 . "ENDBLK")
(100 . "AcDbBlockEnd")
(8 . "0")
)
)
)
)
(princ)
)

 

~'J'~

[asos2000]

Thanks FIXO

[fixo]

Thanks FIXO

You're welcome

Cheers

 

~'J'~