请高手帮忙

LLNN

# k3 d9 ]( m7 K1 o& i: Y) u$ ~(defun coo ( )
! p, t( Z8 @, z0 c  (if (setq obj (entsel "\n选择双向偏移对象: ")
   (progn
- S: v& e3 I5 i. ~+ w    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
( i" A! A- {1 Z) l9 Y! y4 ?     (setq nf of)
    )
& C4 m6 l# V$ }' f$ s7 u0 D    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
   )
   (princ "\n未选择偏移对象,程序退出.")
6 N( }3 K( ?" W3 C  )
  (princ)
* {9 a2 C8 C6 s4 v)
, S2 b0 u  _4 d' p4 s% j. M把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？