Topic: Extract a block from a block to the same location

[Tharwat]

hello everyone .

Is it possible to extract a block from a block and inserted in the same location  ?

Or insert the same block from a block on its location to allow me to copy and paste them in the same location into another drawing .

Thanks in advance for any input .

[Lee Mac]

Is it possible to extract a block from a block and inserted in the same location  ?

Are you looking to extract a nested block from a block?

[Lee Mac]

This was an interesting program to write; even if it doesn't suit your task, hopefully someone else will benefit from it 

The program will 'extract' a nested block, converting it to a primary block in the same position, with the same scale and rotation as the selected nested reference.

This has similar functionality to NCOPY, however NCOPY will not work on nested blocks and furthermore this program will remove the nested block from the primary block definition.

Code - Auto/Visual Lisp: [Select]

1. ;; Extract Nested Block  -  Lee Mac 2012
2. ;; Converts a selected nested block into a primary block
3.  
4. (defun c:enb ( / doc lst sel )    
5.    (while
6.        (progn (setvar 'ERRNO 0) (setq sel (nentselp "\nSelect Nested Block: "))
7.            (cond
8.                (   (= 7 (getvar 'ERRNO))
9.                    (princ "\nMissed, try again.")
10.                )
11.                (   (or (null sel) (cadr (cadddr sel)))
12.                    nil
13.                )
14.                (   (princ "\nObject is not a Nested Block: "))
15.            )
16.        )
17.    )
18.    (if sel
19.        (progn
20.            (setq doc (vla-get-activedocument (vlax-get-acad-object))
21.                  lst (mapcar 'vlax-ename->vla-object (last sel))
22.            )
23.            (vla-transformby
24.                (vla-insertblock
25.                    (if (vlax-method-applicable-p doc 'objectidtoobject32)
26.                        (vla-objectidtoobject32 doc (vla-get-ownerid32 (last lst)))
27.                        (vla-objectidtoobject   doc (vla-get-ownerid   (last lst)))
28.                    )
29.                    (vlax-3D-point '(0.0 0.0 0.0))
30.                    (vla-get-name (car lst)) 1.0 1.0 1.0 0.0
31.                )
32.                (vlax-tmatrix (caddr sel))
33.            )
34.            (vla-delete (car lst))
35.            (vla-regen doc acactiveviewport)
36.        )
37.    )
38.    (princ)
39. )
40. (vl-load-com) (princ)

Example:

In this example, Block1 (green) is nested within Block2 (yellow), which is nested within Block3 (red). To make things a little more complex, at each level of the nesting, the references have been scaled and rotated.

[Lee Mac]

Here is another version of the above code; although not as concise, this version will retain all properties of the nested block when extracted:

Code - Auto/Visual Lisp: [Select]

1. ;; Extract Nested Block  -  Lee Mac 2012
2. ;; Converts a selected nested block into a primary block
3.  
4. (defun c:enb ( / doc lst obj sel )    
5.     (while
6.         (progn (setvar 'ERRNO 0) (setq sel (nentselp "\nSelect Nested Block: "))
7.             (cond
8.                 (   (= 7 (getvar 'ERRNO))
9.                     (princ "\nMissed, try again.")
10.                 )
11.                 (   (or (null sel) (cadr (cadddr sel)))
12.                     nil
13.                 )
14.                 (   (princ "\nObject is not a Nested Block: "))
15.             )
16.         )
17.     )
18.     (if sel
19.         (progn
20.             (setq doc (vla-get-activedocument (vlax-get-acad-object))
21.                   lst (mapcar 'vlax-ename->vla-object (last sel))
22.                   obj (car
23.                           (vlax-invoke doc 'copyobjects (list (car lst))
24.                               (if (vlax-method-applicable-p doc 'objectidtoobject32)
25.                                   (vla-objectidtoobject32 doc (vla-get-ownerid32 (last lst)))
26.                                   (vla-objectidtoobject   doc (vla-get-ownerid   (last lst)))
27.                               )
28.                           )
29.                       )
30.             )
31.             (vla-put-insertionpoint obj (vlax-3D-point '(0.0 0.0 0.0)))
32.             (vla-put-rotation obj 0.0)
33.             (vla-put-xscalefactor obj 1.0)
34.             (vla-put-yscalefactor obj 1.0)
35.             (vla-put-zscalefactor obj 1.0)
36.             (vla-put-normal obj (vlax-3D-point '(0.0 0.0 1.0)))
37.             (vla-transformby obj (vlax-tmatrix (caddr sel)))
38.             (vla-delete (car lst))
39.             (vla-regen doc acactiveviewport)
40.         )
41.     )
42.     (princ)
43. )
44. (vl-load-com) (princ)

[Tharwat]

Hi Lee .

Many thanks for your hard work on the thread . 

Both routines gave me the same result (error) ;

Command: enb
Select Nested Block: ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on unknown exception

My thoughts were to make a selection set of blocks and check every Block for a specific block name (one or two blocks) and insert
the same block(s) in the same location in Model space to be able later on to make another selection set of these blocks and move
them to another drawing with the same base point .

The hard part of the routine for me is that the translation of coordinates from Block Definition to model Space .

Thanks a lot

[Lee Mac]

Both routines gave me the same result (error) ;

Command: enb
Select Nested Block: ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on unknown exception

That's weird since I didn't get any errors when testing them before posting - are you maybe using dynamic blocks or have locked layers?

Anyone else getting errors?

[Tharwat]

No , I am not using dynamic block and not on locked layer either , but maybe due to OS is 64 ? just a guess .
because the code stopped at the function vla-get-ownerid when I tried to check where the error took a place .

Thanks

[Lee Mac]

No , I am not using dynamic block and not on locked layer either , but maybe due to OS is 64 ?

Ah yes! That would explain it 

I have modified the above posts with updated code, please give them a try 

[Tharwat]

No , I am not using dynamic block and not on locked layer either , but maybe due to OS is 64 ?

Ah yes! That would explain it 

I have modified the above posts with updated code, please give them a try 

OMG , the same result 

[Lee Mac]

OMG , the same result 

Oops! I forgot the corresponding ObjectIDtoObject32 method - above posts updated again 

[Tharwat]

I am very embarrassed with this error with my cad 2009 .
so I brought a copy of simple block if you interested to take a look .

Many thanks

[Lee Mac]

lol, don't be embarassed, its my code that failing 

Your example block works fine on my machine; do the above modified programs still error for you?

[Tharwat]

Tried it , but the same .

Hope you take a look at the attached video and I attached it in winrar folder because I don't know how to convert it to .gif to show it
directly in the forum as well as you do .

Many thanks

[Lee Mac]

My apologies for wasting your time Tharwat, I've just noticed my simple mistake: 'objectidtoobject32' is a method, not a property like 'ownerid32', so I should have used vlax-method-applicable-p over vlax-property-available-p. I think modified things a little too hastily earlier..

Please try the above modified code if you get a chance 

[Tharwat]

My apologies for wasting your time Tharwat, I've just noticed my simple mistake: 'objectidtoobject32' is a method, not a property like 'ownerid32', so I should have used vlax-method-applicable-p over vlax-property-available-p. I think modified things a little too hastily earlier..

Please try the above modified code if you get a chance 

Yeah ... now it is perfect 

So can we make it with ssget function for multiple selection set and getting them all within one base point ?

Thank you so much .