请高手帮忙

LLNN

* J! c  g( @' ]8 n: V$ n
. t1 {$ j4 o+ _; f" N(defun coo ( )
) t; l/ }. k# A& x% H: P  (if (setq obj (entsel "\n选择双向偏移对象: ")
   (progn
' ]4 l6 f1 X1 i6 d9 y    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
( m  \" h# U- @; M, Y5 L     (setq nf of)
. \2 q! [2 @( A6 C( w    )
    (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))
- K) |1 j& v5 [5 L    (setvar "offsetdist" of) (setvar "cmdecho" cm)
   )
   (princ "\n未选择偏移对象,程序退出.")
+ J9 g" I# J1 p4 [) Q4 ]  )
  (princ)
2 ~0 C2 r' B6 |7 |$ i( T2 e2 W" E* u)
/ t1 o) o0 V3 w/ ]' r: V把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？
& }2 |9 ?9 G6 ?& c- g- ~