获取拾取框(PICKBOX)的高度（图形单位）

Lispboy

1. ;|
   
2. 获取拾取框(PICKBOX)的高度（图形单位）
   
3. 参数：无
   
4. 返回值：实数（高度值）
   
5. |;
   
6. 
   
7. (defun XD::Doc:GetPickBoxHeight ( / h ph scr vs)
   
8.   (setq pH (getvar "pickbox")
   
9.         scr (getvar "screensize")
   
10.         vs (getvar "viewsize")
    
11.         h (* 2.0 vs (/ pH (cadr scr)))
    
12.   )
    
13. )
    
14. 
    

;|<br /> 获取拾取框(PICKBOX)的高度（图形单位）<br /> 参数：无<br /> 返回值：实数（高度值）<br /> |;<br /> <br /> (defun XD::Doc:GetPickBoxHeight ( / h ph scr vs)<br />   (setq pH (getvar "pickbox")<br />         scr (getvar "screensize")<br />         vs (getvar "viewsize")<br />         h (* 2.0 vs (/ pH (cadr scr)))<br />   )<br /> )<br /> <br />

更新：2013.06.30 更新函数名

GTJ116600

lispboy，刚学LISP时间不长，有些系统变量也不太了解，看了您的帖子，又翻书看看PICKBOX,SCREENCSIZE,VIEWSIZE这三个系统变量，我怎么感觉，用（XD::Draw:Get-PickBoxH ）函数求出的是两倍PICKBOX高度呢，不知是不是我理解错了？

Lispboy

函数名更新为： XD::Doc:GetPickBoxHeight