[源码]屏幕按比例显示
;;;wkq004
(defun c:tt (/ H NEWH PMCC PMX PMY XS XSDX XSH)
(setq xs (getvar "SCREENSIZE"))
(setq xsh (cadr xs))
(setq pmcc 15.4) ;(getreal "输入屏幕英寸数：")
(setq pmx 1366)
(setq pmy 768)
(setqxsdx (*25.4
(sqrt (/ (* pmcc pmcc) (+ (* pmx pmx) (* pmy pmy))))
)
)
(setq h (getvar "VIEWSIZE"))
(SETQ BL (GETINT "\n输入显示比例尺：1:"))
(setq newh (* xsh xsdx (/ bl 1000.0)))
(command "zoom" "c" (getvar "VIEWCTR") newh)
(princ)
)
大侠，能根据三角网文件（图形或者数据）查询指定点坐标高程吗
页:
[1]