源码优化问题，恳请帮助！

wangxf888

在咱们明经论坛上下了一段源码，忘了是哪位大师写的了，见谅！代码如下：
(defun c:WR (/ ss i l1 l2 ll ur os d)
  (setq os (getvar 'osmode))
    (IF (NULL *d1*) (setq *d1* 10))
  (setq d (getreal (strcat "\n输入外框偏距<" (rtos *d1* 2 2) ">:")))
  (if (NULL d) (setq d *d1*) (SETQ *d1* d))
  (setvar 'osmode 0)
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
    (vla-getboundingbox
      (vlax-ename->vla-object (ssname ss (setq i (1- i))))
      'll
      'ur
    )
    (setq l1 (cons (vlax-safearray->list ll) l1)
          l2 (cons (vlax-safearray->list ur) l2)
    )
  )
  (mapcar 'set
          (list 'll 'ur)
          (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
                  '(min max)
                  (list l1 l2)
          )
  )
  (command
    "rectang"
    (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))
           0
           1
    )
    (trans (polar ur (* pi 0.25) d) 0 1)
  )
  (princ)
)

现在我想稍微调整下，不要提示输入偏距，直接按默认值来执行，或者也可以出现提示输入偏距这一行，但不用按空格，直接按默认值执行。实在需要调整的时候，输入关键字S，来调整偏距大小，这样更方便些，希望各位大师出手帮助下，个人没有搞定， 谢谢！！

xvjiex

已作调整，如要设置外框偏距，直接按鼠标右键(不选择外框)。

wangxf888

xvjiex 发表于 2020-4-29 21:55
已作调整，如要设置外框偏距，直接按鼠标右键(不选择外框)。

谢谢 谢谢  是我想要的结果