如何修改框选标注的全局比例！？或者在entmake创建标注时 如何加入dimscale？

cq4920

• (defun C:tt5 (/ bzbl ss)
•         (setq cfz (strcat "\n请输入视图比例<默认值 " (rtos (getvar "USERR1")) ">: "))
•          (if (= (setq bzbl (getreal cfz)) nil)
•              (setq bzbl (getvar "USERR1"))
•         )
•         (setvar "USERR1" bzbl)
• (setq ss (ssget'((0 . "DIMENSION"))))
• (command "DIMSTYLE" "s" "dimscale" ss  bzbl )
•     (princ)
• )
  

以上是我乱写的，实在不知道该怎么编了！

最近看到一个划线-标注的程序，但是标注的尺寸文字和箭头太小，想要修改一下使他能按视口比例设定全局比例，显然我高估了自己的能力！

然后我想，在标注完成后重新定义一下全局比例！但是显然还是不成功！

拜托各位大神了！您的一句话也许就能让我醍醐灌顶！

为我的生活和工作带来大大的方便！

再次感谢！

cq4920

不要沉下去啊，大神快出现啊！