请高手帮忙

LLNN

(defun coo ( )
5 p( X2 @1 x# r) j9 J  (if (setq obj (entsel "\n选择双向偏移对象: ")
   (progn
) y% a9 u/ k/ m& G5 a9 M    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
     (setq nf of)
    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
1 N3 {4 _3 ?1 Q6 @* b1 E8 t3 y4 G    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
8 \  |6 L" f% ~1 s) k- P    (setvar "offsetdist" of) (setvar "cmdecho" cm)
& s8 R3 ]# A. B7 w6 l: N   )
   (princ "\n未选择偏移对象,程序退出.")
  )
  (princ)
2 M( M8 g8 |8 Q- e" X* J2 i6 o)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？
' N& v( l; _) r+ u