请高手帮忙

LLNN

(defun coo ( )
& ^7 O! Q8 d, W8 o6 u  (if (setq obj (entsel "\n选择双向偏移对象: ")
   (progn
, |9 ?" D8 z6 L3 R3 V    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
* t. y* w' L  D: t* D+ J     (setq nf of)
    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
% a4 g, O0 L  a$ w0 H( _* o    (setq obj (vlax-ename->vla-object (car obj)))
( L' i, `+ n' }. `    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
   )
+ m9 W* Z% i% ?   (princ "\n未选择偏移对象,程序退出.")
% G1 W) a; R* P! h  )
3 D) l! \& G' `) {6 M# Q/ t5 [  (princ)
; j8 {4 R& I' i  A  o  k: t)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？