[求助]：可以双单向连续偏移选择，添加数值记忆功能程序

hihsj

各位老大能否做一个可以有双向或单向选择的偏移程序，同时可以输入多个偏移数值进行连续偏移。我在论坛是找到可单向连续偏移的程序，非常好用，是否可以修改一下，达到可以单双向偏移选择的目的～～
一次可偏移多种距离，可以是相对距离，也可是绝对距离。
(defun C:FSS (/ A S N PT1 AA AAA AL old-dist)
    (if (not offset-distance-x)
        (setq offset-distance-x "X*X**X*X...")
    )
    (princ "\n ----FSS   连续偏移----                             ----DNAL 2002.02----")
    (setq A (getstring (strcat "\nSpecify offset distance < "
                                offset-distance-x
                                " >:"
                       )
            )
    )
    (if (= A "")
        (setq A offset-distance-x)
        (setq offset-distance-x A)
    )
    (setq A (strcat A "*"))
    (prompt "\nSelect object to offset: ")
    (while (= AA nil)
        (setq AA (entsel))
    )
    (initget 1)
    (setq PT1 (getpoint "\nSpecify point on side to offset: "))
    (setq AL (+ (strlen A) 1))
    (setq N 1)
    (setq S "")
    (setq old-dist 0)
    (while (not (= N AL))
        (if (= (substr A N 1) "*")
            (progn
                 (setq AAA (car AA))
                 (if (= S "")
                     (progn
                         (setq old-dist (getvar "offsetdist"))
                         (if (= old-dist -1) (setq old-dist 0))
                     )
                     (progn
                         (if (/= (strcase S) "T")
                             (setq S (+ (distof s) old-dist))
                         )
                         (command "_.offset" S AAA PT1 "")
                         (setq S "")
                         (setq old-dist 0)
                     )
                 )
            )
            (setq S (strcat S (substr A N 1)))
        )
        (setq N (1+ N))
    )
    (princ)
)
;连续偏移命令－－－FSS
;如果要偏移的距离是相对于原始被偏移的物体，则用“＊”，
;如果要偏移的距离是相对于最新偏移生成的物体，则用“＊＊”
;也就是说用“＊”后面是绝对距离，“＊＊”后面是相对距离。
;当然，绝对距离必须是正数，而相对距离可是负数，但它的
;“绝对距离”必须是正的。