What is the problem?
It's not working when am offsetting its not coming,
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq ilyrc(getstring(strcat "\Specify insulation layer <" (vl-princ-to-string ilyr)"> : ")))
(setq layers (vla-get-Layers doc))
(...