양쪽 OFFSET 리습 수정 부탁 드립니다.

(defun c:qs ( / sl-recall ens)
 (defun sl-recall (func msg b sym / sval)
  (setq
   sym (if sym sym b)
   sval (func (strcat “n” msg ” <” (vl-princ-to-string sym) “>:”))
  )
  (if (and sval (/= sval “”)) (setq sym sval) sym)
 )
 (vl-load-com)
 (setq $dis (sl-recall getdist “양쪽으로 옵셋 값 입력” 10 $dis))
 (while (setq ens (car (entsel “n양쪽으로 옵셋할 객체 선택:”)))
  (vla-offset (vlax-ename->vla-object ens) (* $dis 0.5))
  (vlax-put (vlax-ename->vla-object (entlast)) ‘layer (getvar “clayer”))
  (vla-offset (vlax-ename->vla-object ens) (* (* $dis 0.5) -1))
  (vlax-put (vlax-ename->vla-object (entlast)) ‘layer (getvar “clayer”))
 )
 (princ)
)

SCALE 1:1 값으로만 적용이 됩니다.
DIMLFAC 값에 따라 적용이 되도록 수정 부탁 드립니다.
예를 들면 SCALE 1:50에서 15값을 옵셋 하고 싶을때   1/50이 되어 0.3으로 옵셋 되는겁니다.
  부탁 드립니다. ㅎㅎ