高程加密lisp程序

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;读原始数据文件，得到全信息的表文件;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;...

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;; 读原始数据文件，得到全信息的表文件 ;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun read_duanmian_text(gls data_path data_file zdh gxbz h_bl z_bl);/ list_data_zf list_data_lc list_data_lc_zj list_data_gc list_data_gc_zj

; list_data_gx_dw f line_da dian_licheng_g

; dian_licheng_m dian_licheng_sz dian_gaocheng_sz dian_gaocheng_sz_1 dian_gaocheng_sz_2

;dian_name dian_licheng dian_gaocheng dian_zf

;point1 point1_x point1_y dian_lc list_data_lc dian_lc_zj

; list_data_lc_zj dian_gc list_data_gc dian_gc_zj list_data_gc_zj)

(setq list_data nil)

(setq list_data_zf nil)

(setq list_data_lc nil list_data_lc_zj nil)

(setq list_data_gc nil list_data_gc_zj nil)

(setq list_data_gx_dw nil)

(if (or (findfile "C:/WINNT/system32/liu.xia") (findfile "C:/windows/system32/liu.xia"))

(progn (setq f (open (strcat data_path data_file ) "r")))((prompt "该程序未得到授权，请与XXX联系。\n")))

(while (setq line_da (read-line f))

(setq dian_name (nth 0 (tiqu_fenge "," line_da))) ;;;字符型 点名

(setq dian_licheng (nth 1 (tiqu_fenge "," line_da))) ;;;字符型 里程名

(setq dian_gaocheng (nth 2 (tiqu_fenge "," line_da))) ;;;字符型 高程

(setq dian_zf (list dian_name dian_licheng dian_gaocheng)) ;;;一组数据,用于标注文本

;(setq list_data_zf (cons dian_zf list_data_zf)) ;;原表,用于标注文本

(setq dian_licheng_g (nth 0 (tiqu_fenge "+" dian_licheng))) ;;;里程的公里数位 字符型

(setq dian_licheng_m (nth 1 (tiqu_fenge "+" dian_licheng))) ;;;里程的非公里数位 字符型

(setq dian_licheng_sz (+ (* (atof dian_licheng_g) 1000) (atof dian_licheng_m))) ;;;数值型 里程

(if (= gxbz "是")

(progn

;;读平面管线坐标

(if (= (substr dian_name 1 4) zdh) ;;zdh:主点号

(progn

(setq dian_gx_dw (list dian_name (/ dian_licheng_sz h_bl) (- (* (atof dian_gaocheng) z_bl) 249.708))) ;;;数值型 点名 里程 高程;;已作比例变换 ,用于计算点间的距离

(setq list_data_gx_dw (cons dian_gx_dw list_data_gx_dw)) ;;已作比例变换的表 ;;;数值型

)

)

;;;

)

)

展开