请高手帮忙

LLNN

  D: M  l' g& K- J1 k
(defun coo ( )
( @  v+ b/ e2 q2 Y  (if (setq obj (entsel "\n选择双向偏移对象: ")
/ T# H1 U) u) d0 x3 T   (progn
    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
0 A& D" m! A+ d& K0 f6 M    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
4 o) ^! U4 K' \- |$ J2 R     (setq nf of)
$ j+ l* C" R7 J# `    )
$ x3 _7 N$ f/ g" F, E    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
. P# o# R/ ?/ i9 y    (setq obj (vlax-ename->vla-object (car obj)))
  p( E$ b- @- A( r, Y0 b    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
6 M7 L3 O# M* M' k5 u   )
$ K' x& h0 h/ k   (princ "\n未选择偏移对象,程序退出.")
1 p" U6 B) u  v- o& {  )
4 O, n! V( o" H& |) P  (princ)
)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？