请高手帮忙

LLNN

. n$ Y8 {7 Q7 V/ D3 S
. W4 d/ H' Z: ^& v7 h(defun coo ( )
' Y* t) l. e! r/ _  (if (setq obj (entsel "\n选择双向偏移对象: ")
: `& `2 b* p8 F* V: P* q; K' b   (progn
+ ~$ y+ n$ J8 X' b1 [    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
" K- `9 p3 ?) r% [' q* I) ?5 z    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
     (setq nf of)
    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
6 q1 X) [* K5 b3 w* x' `8 j3 Q    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
  Q! l- y8 l' h  E3 y    (setvar "offsetdist" of) (setvar "cmdecho" cm)
3 U# J  }/ X8 h: q0 L3 b) ~0 q( k   )
   (princ "\n未选择偏移对象,程序退出.")
' y( G8 i, m3 W# X  )
  (princ)
3 ~  ^/ m/ a' p1 d9 W) U9 ^)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？