Code:
(Defun EDBS_LayerRename
(SourceLayer ;Quell-Layer
TargetLayer ;Ziel-Layer
/ ;;aws#ssget
Layername)
(if (tblsearch "LAYER" SourceLayer)
(if (tblsearch "LAYER" TargetLayer)
(progn
;;Source gesperrt ?, dann keine Umlegung möglich
(if (EDBS_LayerIsLock SourceLayer)
(progn
(setq message
(strcat
"Der Layer "
SourceLayer
" konnte nicht in "
TargetLayer
" umbenannt/verschoben werden !\nQuell-Layer <<"
SourceLayer
">>gesperrt !"
)
) ;end-setq
(alert message)
(princ (strcat "\n" message))
) ;end-progn
;;ChangeProperties
(progn
;;Elementauswahl
(setq aws#ssget
(ssget "X"
(list
(cons 8 SourceLayer)
) ;end-list
) ;end-ssget
) ;end-setq
(alert (sslength aws#ssget))
(if aws#ssget
(progn
;;los geht es
(command "_.chprop" aws#ssget "" "_layer" TargetLayer )
) ;end-progn
) ;endif - aws#ssget
) ;end-progn - ChangeProperties
) ;endif - EDBS_LayerIsLock
) ;end-progn - tblsearch - Target
;;umbenennen des Layers
(command "_-rename" "layer" SourceLayer TargetLayer "")
) ;endif - tblsearch - TargetLayer
) ;endif - SourceLayer
) ;end-defun - EDBS_LayerRename