Hi CAB and thanks for the help.
I have noted a little mistake (in RED).
(defun c:OffsetInside ( / dist ename vobj )
(setq dist 2)
(setq ename (car (entsel "\nSelect object to offset: ")))
(setq vobj (vlax-ename->vla-object ename))
(if (vlax-method-applicable-p vobj 'Offset)
(progn
(vlax-invoke vobj 'Offset dist)
; INSIDE ;; (vlax-invoke vobj 'Offset (- dist))
)
(princ "\nCannot offset selected object type ")
)
(princ)
) ;end
you can also change the (setq dist 2) by (setq dist -2)
thanks again.