请高手帮忙

LLNN

% ~4 q) C* V) s" B1 g1 T3 y
8 x6 b. L! I/ c: Y/ M+ P$ C' F(defun coo ( )
  (if (setq obj (entsel "\n选择双向偏移对象: ")
) v/ c( ~+ y& T' v) Y   (progn
    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
2 ~0 z+ e! Q  @& A& d4 Y     (setq nf of)
    )
! Q0 j- ]0 I7 y" w6 {" W# J    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
( D: E$ n/ b( Z0 ]    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
2 L4 W% ]4 w3 s5 d( p/ S   )
   (princ "\n未选择偏移对象,程序退出.")
  )
  (princ)
)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？