请高手帮忙

LLNN

) L- Y- o2 @/ y& v" N' i5 k
(defun coo ( )
  (if (setq obj (entsel "\n选择双向偏移对象: ")
7 c6 w0 M, F7 q4 P9 I+ z3 W   (progn
    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
* o9 _% J* j! B+ l3 |, O# s0 i    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
$ I3 d7 K$ Y4 Z6 e( X: D4 Y  I4 w     (setq nf of)
    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
) x, ^; Z5 n. c8 [& P    (setq obj (vlax-ename->vla-object (car obj)))
* p" ?$ n* f# o, u    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
   )
8 \" |" `3 @" J; w- W5 x9 ~  Z; z8 f   (princ "\n未选择偏移对象,程序退出.")
  )
  c, t3 q& _! p. M$ j: O0 L  (princ)
)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？