Modification to Replace Block by Patrick_35
Anyone able to have a look see if this Replace Block LISP can be modified?
It was created by Patrick_35 who's passed away, some years ago.
I'd like to have it ignore the current UCS, so maybe a check box in the DCL could work:
Use current UCS (unchecked will ignore UCS and use WCS)
or could be the opposite check box:
Use WCS (unchecked uses UCS)
Reason is, when replacing blocks with a UCS set, the replaced blocks go flying out in space, user has to undo go back to the WCS re run and replace the blocks, kind inconvenient in 3D space.
Practically, it should just be using the original insert point, but I suppose if a UCS is set then the original insert point co-ordinate values are different than when the insertion point was WCS co-ordinate values.
The dude was French, comments are in French but the code looks to be English.
Comments
-
Hello.
In my testing, the original script worked fine with a simple case.
If using WCS is required, you could experiment with leaving the script as its author created it and embed it inside another script.
Something like this:
<pre>
...
; set wcs
(command "_ucs" "_w")
; call rbloc
(c:rbloc)
; wait for c:rbloc to finish
(while (/= 0 (getvar 'cmdactive)) (command pause))
; restore ucs
(command "_ucs" "_p")
...
</pre>0