请高手帮忙

LLNN

5 h* F/ {* @( T' Q- M0 x1 F% a
(defun coo ( )
  (if (setq obj (entsel "\n选择双向偏移对象: ")
   (progn
    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
: X# r3 a% z8 o/ f  h; I    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
     (setq nf of)
    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
# A- ^; \& Y' j" B: J/ n* X    (setq obj (vlax-ename->vla-object (car obj)))
0 V& Z# ~2 B: a4 }6 P/ Z0 {9 s3 g    (vla-offset obj nf) (vla-offset obj (* nf -1))
( A: }# f9 {" B    (setvar "offsetdist" of) (setvar "cmdecho" cm)
   )
   (princ "\n未选择偏移对象,程序退出.")
  )
, B$ u& B" n5 O' h2 G: B- n  (princ)
)
  S/ U  ~; V' `$ ^% C. w把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？
  y( P2 i: @; |/ n7 G) G' P  Q