Does anyone have a lisp that lets your replace a dynamic block with another dynamic block...
I no the issue is the anonymous names but I'm not sure of a work around.
|
Does anyone have a lisp that lets your replace a dynamic block with another dynamic block...
I no the issue is the anonymous names but I'm not sure of a work around.
The effectivename property of the existing block vla-object
Do you want to transfer the dynamic block properties to the new block?Code:(vl-load-com) (setq objSelection (vlax-ename->vla-object (car (entsel "\nSelect Block: ")))) (setq strEffectivename (vla-get-effectivename objSelection)) (setq lstInsertionPoint (vlax-get objSelection "insertionpoint")) (setq sngXScaleFactor (vla-get-xscalefactor objSelection)) (setq sngRotation (vla-get-rotation objSelection))
Peter
AutomateCAD
Sorry, forgot to update my post...seeing as I'm not looking to retain any properties a simple BLOCKRESET, then followed by a BLOCKREPLACE does the trick.