NESTED BLOCK COPY

[jim78b]

i have to modify this lisp because not work 100% please.

It must work with all type of blocks even non uniform scaled. i try it but not work with non uniform scaled block.

I want even that i do a multiple selection

#NESTED BLOCKS COPY WITHOUT OPEN IT
(defun c:cx (/ *error* space ss nent br copy)
  (vl-load-com)
  (or *acad* (setq *acad* (vlax-get-acad-object)))
  (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))

  (defun *error* (msg)
    (and msg
         (/=(strcase msg) "FUNCTION CANCELLED")
         (princ (strcat "\nError: " msg))
    )
    (vla-EndUndoMark *acdoc*)
    (princ)
  )

  (vla-StartUndoMark *acdoc*)
  (setq space (if (= 1 (getvar 'cvport))
                (vla-get-PaperSpace *acdoc*)
                (vla-get-ModelSpace *acdoc*)
              )
  )
  (setq ss (ssadd))
  (while (and (setq nent (nentselp "\nSelect a nested block: "))
              (= 4 (length nent))
              (= "AcDbBlockReference" (vla-get-ObjectName (setq br (vlax-ename->vla-object (car (last nent))))))
              (apply '= (mapcar 'abs (list (vla-get-XScaleFactor br) (vla-get-YScaleFactor br) (vla-get-ZScaleFactor br))))
         )
    (setq copy (vla-insertblock space (vlax-3d-point '(0 0 0)) (vla-get-Name br) 1.0 1.0 1.0 0.0))
    (vla-TransformBy copy (vlax-tmatrix (caddr nent)))
    (vla-Highlight copy :vlax-true)
    (ssadd (vlax-vla-object->ename copy) ss)
  )
  (command "_.move" ss "")
  (*error* nil)
)

 

[Tharwat]

Comment or delete this line.

(apply '= (mapcar 'abs (list (vla-get-XScaleFactor br) (vla-get-YScaleFactor br) (vla-get-ZScaleFactor br))))

 

[jim78b]

Where i shall add this line ?

[Tharwat]

I did not say add but I said comment or delete from the routine.

[jim78b]

Ok tomorrow i will try..thanks very much.

[Lee Mac]

vla-transformby cannot apply a non-uniform transformation.

[Jonathan Handojo]

9 hours ago, Tharwat said:

Comment or delete this line.

(apply '= (mapcar 'abs (list (vla-get-XScaleFactor br) (vla-get-YScaleFactor br) (vla-get-ZScaleFactor br))))

 

 

I was about to say what Lee said... he beat me to it...

 

But it's an interesting challenge, I'll think about it.

[jim78b]

Ok thanks i don't thought it was so hard .best regards