[源码]屏幕按比例显示

004

1. ;;;wkq004
   
2. (defun c:tt (/ H NEWH PMCC PMX PMY XS XSDX XSH)
   
3.   (setq xs (getvar "SCREENSIZE"))
   
4.   (setq xsh (cadr xs))
   
5.   (setq pmcc 15.4)      ;(getreal "输入屏幕英寸数：")
   
6.   (setq pmx 1366)
   
7.   (setq pmy 768)
   
8.   (setq  xsdx (*  25.4
   
9.     (sqrt (/ (* pmcc pmcc) (+ (* pmx pmx) (* pmy pmy))))
   
10.        )
    
11.   )
    
12.   (setq h (getvar "VIEWSIZE"))
    
13.   (SETQ BL (GETINT "\n输入显示比例尺：1:"))
    
14.   (setq newh (* xsh xsdx (/ bl 1000.0)))
    
15.   (command "zoom" "c" (getvar "VIEWCTR") newh)
    
16.   (princ)
    
17. )

;;;wkq004<br /> (defun c:tt (/ H NEWH PMCC PMX PMY XS XSDX XSH)<br />   (setq xs (getvar "SCREENSIZE"))<br />   (setq xsh (cadr xs))<br />   (setq pmcc 15.4)      ;(getreal "输入屏幕英寸数：")<br />   (setq pmx 1366)<br />   (setq pmy 768)<br />   (setq  xsdx (*  25.4<br />     (sqrt (/ (* pmcc pmcc) (+ (* pmx pmx) (* pmy pmy))))<br />        )<br />   )<br />   (setq h (getvar "VIEWSIZE"))<br />   (SETQ BL (GETINT "\n输入显示比例尺：1:"))<br />   (setq newh (* xsh xsdx (/ bl 1000.0)))<br />   (command "zoom" "c" (getvar "VIEWCTR") newh)<br />   (princ)<br /> )

树櫴希德

大侠，能根据三角网文件（图形或者数据）查询指定点坐标高程吗