cass展点不在原位置_CASS坐标展点过程

法一 利用Excel辅助展点

1.新建excel工作表，数据——导入外部数据——导入数据——选择要导入的数据文件，打开

2.“原始数据类型”点选“分隔符号”，单击下一步——“分隔符号”只勾选逗号，单击下一步——完成——确定

3.A、B列之间插入一列——输入1或2，向下拖动至数据末尾——选中全部坐标数据(XYZ坐标)，右键设置单元格格式——数字，数值，小数位数3，确定

4.文件——另存为——保存类型为“文本文件(制表符分隔)”——保存——确定——是

5.打开刚才保存的文本文件——复制X与Y或Y与Z之间的空格——编辑——替换——将复制空格粘贴到查找内容——替换为“，”，全部替换

6.同理替换“1”与X坐标之间的空格

7.将1至9行数据前面敲2个空格，10至99行数据前面敲1个空格，目的是使每行数据尾端对齐

8.文件——另存为——保存类型为所有文档，文件后缀名为.dat的文档

9.运行CASS——绘图处理——展野外测点点号——输入绘图比例尺——选择刚才编辑的.dat文件，打开

10.展点成功，剩下就是画图了

法二 利用程序直接展点

1.在命令窗口输入appload

2.选择程序，加载，关闭

3.在命令窗口输入展点程序名称

4.选择数据文件

5.展点成功，可以画图了

(此种方法的前提是要事先编好坐标展点程序)

附：碎部点展点程序

(defun C:sbdzd( / )

(setq pf

(getfiled "指定全站仪坐标数据文件" "C:\\" "txt" 2))

(setq blc

1)

(if pf

(progn

(setq fp (open pf "r"))

(setq reco (read-line fp) )

(while reco (setq char nil)

(setq dh (substr reco 1 3))

(setq x (substr reco 5 12))

(setq y (substr reco 14 21))

(setq z (substr reco 23 29))

(setq pt (list (atof x) (atof y)))

(command "layer" "m" "1110" "c" 54 "" "")

(command "circle" pt (* blc 0.5 ))

(command "text" "r" (polar pt pi blc) (* 1 blc) 0 dh)

(setq reco (read-line fp) )

)

)

)

(close fp)

'(princ)

(command "zoom" "e")

)