Topic: Making last created highlighted for confirmation (updated)

[ScottMC]

I've delayed to not overload posting but.. really would appreciate
mod/add to get the new region more visible temporarily. My guess
is: errors connected to the boundary command which isn't done..
One attempted is flipping to flat shade, then back, but the color isn't
a contrast making it not visible itself. Can it work with temporary
object selection or color swap somehow?
      Suggestions really appreciated!

Corrected and much more usable!

Code - Auto/Visual Lisp: [Select]

1. (defun c:r1 (/ hpb-1 sel)
2.    (vl-load-com)
3.    (princ "\n Boundary of Intersecting ~ Island Regions..")
4.    (setvar 'cmdecho 0)
5.    (setq hpb-1 (getvar 'hpbound))     ; save boundary format..
6.    (setvar 'hpbound 0)                         ; format boundary to create region
7.    (setq sel (ssget '((0 . "REGION"))))  ; get region selection + setq
8.    (vl-cmdf "copy" sel "" "0,0,0" "0,0,0")   ; make a copy of to use
9.    (vl-cmdf "intersect" sel "")   ; make the intersecting region
10.    (setvar 'hpbound hpb-1)                        ; restore boundary format..
11.    (vl-cmdf "_.change" "_P" "" "_P" "C" 6 "")   ; change "L" color to 6/magenta temp..
12.    (vl-cmdf "delay" 1)
13.    (vl-cmdf "_.change" "_P" "" "_P" "C" "bylayer" "") ; revert to bylayer
14.    (command "draworder" "_P" "" "F") ; move new region to top
15.    (vl-cmdf "Move" "P" "")   ; option to move the new region
16.    (setvar 'cmdecho 1)
17.    (princ " Move or Cancel")
18.    (princ)
19. ) ;_ end of defun
20.  
21.  

EDIT (John): Added code tags.