Topic: ENTMAKE BLOCK Troubles

[snownut2]

In trying to assemble a block from any number of LWPOLYLINES I seem to be missing something.  My code is below, as the LWPOLYLINES are being created with an ENTMAKE I am generating a list of entity names the LWentL variable is the list, all appears fine with the list.

Sample of the generated list;  (<Entity name: 7eb4dde8> <Entity name: 7eb4ddd8> <Entity name: 7eb4ddc8>)
Actual list is much longer....

Code - Auto/Visual Lisp: [Select]

1.  (ENTMAKE
2.     (APPLY
3.       (FUNCTION APPEND)
4.       (CONS (List '(0 . "BLOCK")
5.                    (CONS 2  (strcat tabname blk))
6.                   '(70 . 0)
7.                   '(10 0.0 0.0 0.0)
8.                   )
9.             (MAPCAR (FUNCTION LIST)
10.                     (MAPCAR (FUNCTION (LAMBDA (a) (CONS -2 a))) LWentL)
11.                     )
12.             )
13.       )
14.     )
15.     (ENTMAKE '((0 . "ENDBLK")))

[CAB]

Hint
(APPLY 'APPEND

[Lee Mac]

You will need to first entmake the BLOCK entity, then entmake the LWPOLYLINEs, and finally the ENDBLK entity; else the LWPOLYLINE entities will be created in the drawing (modelspace/paperspace) rather than within the block definition.

For example:

Code - Auto/Visual Lisp: [Select]

1. (entmake
2.     (list
3.        '(0 . "BLOCK")
4.         (cons 2 (strcat tabname blk))
5.        '(70 . 0)
6.        '(10 0.0 0.0 0.0)
7.     )
8. )
9.  
10. (entmake '((0 . "LWPOLYLINE") ... )) ;;  Anything created here
11. (entmake '((0 . "LWPOLYLINE") ... )) ;;  will be part of the
12. (entmake '((0 . "LWPOLYLINE") ... )) ;;  block definition
13.  
14. (entmake '((0 . "ENDBLK")))

[snownut2]

Thanks Lee, that did the trick.  I was not sure how that would work since I am calling  1/2 dozen sub-functions between starting the block and ending it.

Speed is very good also.


Bruce

[Lee Mac]

You're welcome Bruce