哪个高手能帮我编一个按绘图比例的偏移命令

根据5楼的改了一下：
(Defun c:setbl (/ Factor Offset_Dis)
(Setvar "Cmdecho" 0)
(if (= "" (Getvar "modemacro"))
(progn (setq factor (setvar "modemacro" (getstring "请输入绘图比例："))))
(progn (Setq Factor (Getvar "modemacro")
factor (substr factor 13))
)
)
(Princ
(Strcat "\n**提示:当前绘图比例为 " factor " **")
)
(If (Null *Offset_Dis*)
(Setq *Offset_Dis* 3000)
)
(If (Setq
Offset_Dis
(Getdist
(Strcat "\n偏移的实际距离:<" (Rtos *Offset_Dis* 2 2) ">")
)
)
(Setq *Offset_Dis* Offset_Dis)
(Setq Offset_Dis *Offset_Dis*)
)
(Command "Offset" (/ Offset_Dis (atof Factor)))
(Setvar "Cmdecho" 1)
(Princ)
)

我用的是探索者，不知道你用的是什么软件
也不知道你可不可以用
如果不涉及公司机密的话，可以说说你用的什么软件吗？

"设置出图比例“这个程序加载时，提示语法错误。还有命令行是输入“setbl”运行吗？
版主，不好意思，没看懂怎么在CAD中设置比例因子。呵呵