请高手帮忙

LLNN

(defun coo ( )
8 X7 f% x* K3 `! Z9 Z: q  (if (setq obj (entsel "\n选择双向偏移对象: ")
' D; l: P9 f. r' ?2 o4 ~   (progn
/ c* Y$ U) K' y* O$ K8 k4 ~    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
/ P& B+ P9 w/ A    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
( w' `$ H: W7 Q7 |9 U6 O6 u     (setq nf of)
) q: w: ]+ f8 m, j6 f0 p    )
% L+ ~$ {4 w3 P( j    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
! M2 j  L$ q$ V! A% R9 r    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
% r9 E$ b  B; E2 A* C: }9 W   )
   (princ "\n未选择偏移对象,程序退出.")
4 e+ w% b% ^0 ?: P- f  )
  (princ)
6 x+ D/ s3 u9 ^$ f5 })
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？
+ F) d0 X3 F" r1 ]/ z( j/ P% S9 q9 W