[LISP函数]：出图比例判断

懒虫

二次开发时经常需要用到出图比例，用来确定文字高度等。
如果每个二次开发的程序都要求用户输入“比例系数”等参数，会让用户感到非常不方便。
其实，当用户设置了标注样式，就明确表示了出图比例，只要和标注样式匹配，就可以自动判断出用户的出图比例。
下面的程序定义了判断出图比例的函数：

(defun tzbl-wl (/ zh wltzbl)
(setq zh (* (getvar "dimtxt")))
(cond
((> zh 1000) (setq wltzbl 1000))
((> zh 100) (setq wltzbl 100))
((> zh 10) (setq wltzbl 10))
((> zh 1) (setq wltzbl 1))
((> zh 0.1) (setq wltzbl 0.1))
(T (setq wltzbl 0.1)))
(if (/= 0 (getvar "dimscale"))
(setq wltzbl (* wltzbl (getvar "dimscale")))
(if (= (getvar "tilemode") 0)
(if (/= (getvar "cvport") 1)(setq wltzbl
(/ (getvar "viewsize")
(- (cadar (cddar (vports))) (cadr (cadar (vports))))
)))))(if (= (getvar "cvport") 1)(setq wltzbl 1))(setq zh wltzbl))

（注：以上程序由程序生成，wl-tools 制图工具可以根据用户的要求生成类似的文件）

返回值就是用户的出图比例。例如出图比例为1：100，返回100。

示例：
以下程序可以定义写出图高度为3 的文字：
(defun C:T3 (/ p1)
  (setq p1 (getpoint "文字位置: "))
  (if (> (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
    (princ "\n此功能不支持字高不为0的文字样式")
    (command "TEXT" "none" p1 (* (tzbl-wl) 3) 0)
  )
)

下面演示了文字高度等随标注设置的改变而改变

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://civilworker.com/wltools/help/help-bl.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

lijiao

wl-tools是什么工具？能不能共享一下？

liuyj

是啊，看上去是个非常不错的东西，共享一下吧。

懒虫

非常感谢前面两位朋友的支持。
文件下载和详细说明见：http://civilworker.com/wltools/