A few tweaks to that file should be easy.
Your CORRECTLAYER sub-routine could be updated to request one more argument for the freeze/thaw setting. Something like this:
Code:
(defun CORRECTLAYER (LAYERNAME COLOR LTYPE LWEIGHT FREEZE/)
(command "-layer" "c" COLOR LAYERNAME "lt" LTYPE LAYERNAME "lw" LWEIGHT LAYERNAME "")
(if FREEZE
(command "-layer" "f" LAYERNAME "")
)
)
This change would require tweaks to each of your calls to that sub-routine.
Something like this for a layer that needs to be frozen:
Code:
(CORRECTLAYER
(strcat XR3 "|layer3") "13" "Continuous" "Default" T
)
And something like this for a layer that needs to be thawed:
Code:
(CORRECTLAYER
(strcat XR3 "|layer4") "13" "Divide" "Default" nil
)