以下是一个使用AutoLISP编写的代码示例，用于移除偏移操作：

(defun c:remove-offset ()
  (setq start (getpoint "\nSelect start point: "))
  (setq end (getpoint "\nSelect end point: "))
  (setq offset (getreal "\nEnter offset distance: "))
  (command "._offset" start end offset "")
  (setq obj (ssget "L"))
  (setq len (sslength obj))
  (setq i 0)
  (while (< i len)
    (setq ent (ssname obj i))
    (command "_.erase" ent "")
    (setq i (1+ i))
  )
  (princ)
)

将以上代码保存为一个.lsp文件，然后在AutoCAD中加载该文件（使用appload命令），或者将代码直接复制到AutoCAD的命令行中执行。

执行命令remove-offset后，程序会提示您选择起点和终点，然后输入偏移距离。然后，程序将使用这些输入执行偏移命令，并选择生成的偏移对象。然后，程序将逐个删除这些对象。

请注意，此代码示例假定您已经熟悉AutoLISP编程，并且具有一定程度的编程经验。如果您是初学者，建议先学习AutoLISP的基础知识，然后再尝试编写类似的代码。