请高手帮忙

LLNN

; n9 K3 b9 C1 s3 W1 C- m! V5 s6 X; v
; U0 ^0 O  L6 a1 `# g0 c! Q(defun coo ( )
  (if (setq obj (entsel "\n选择双向偏移对象: ")
3 i2 [, N7 |. X: z9 a) P+ ^   (progn
1 P! l: ~0 Z% Y# }' U& t. b$ h    (setq cm (getvar "cmdecho") of (getvar "offsetdist"))
2 {' J. n3 n; e& }+ b% u    (if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
) y; d. J7 }0 P0 v0 N( V8 Q     (setq nf of)
5 x7 D; H( y0 v2 ]0 g  b    )
    (setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
    (setq obj (vlax-ename->vla-object (car obj)))
    (vla-offset obj nf) (vla-offset obj (* nf -1))
    (setvar "offsetdist" of) (setvar "cmdecho" cm)
4 ^; d4 |0 o* `" G; F; V  n   )
3 ]! \! ^$ q: y7 Z8 V( l0 k2 T$ v   (princ "\n未选择偏移对象,程序退出.")
  )
( N- ~/ K1 i7 k" m0 g6 r9 n8 v  (princ)
# a( P2 m: H' _6 D2 b" c)
把这个程序帮我改为指定双边的偏移距离。

LLNN

这个东东不能改吗？