请高手帮忙

LLNN

(defun coo ( )
  (if (setq obj (entsel "\n选择双向偏移对象: ")
3 w. H4 z( z! @3 A& {   (progn
! t( Z' E' u/ C9 x7 ?1 K! \    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
0 @+ o6 e* ~, C) X    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
     (setq nf of)
9 s. v! X/ l) J3 l1 V    )
# y- T6 @. e) {/ H5 V, V/ D; a, d( N& }    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
! G2 P& `" d( v( A3 e: u9 N    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
% M  f" }% s, S5 i9 J   )
   (princ "\n未选择偏移对象,程序退出.")
, @- d1 Z' w( q' p  )
  M% N! S2 W; {7 o7 N8 ^  (princ)
)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？
5 H/ d' o! I# `6 a( p- S