这个图的坐标和高程怎么提取啊？

kingsky

哪位老大帮我编个lisp程序啊，小数点为基点，数字为高程

谢谢各位大哥

yshf

2. ;1. 将下载的“tqzbz0.fas”存入G盘目录下，如存入
3. ;   其它地址，则修改程序中“(load "g:tqzbz0.fas")”
4. ;   使之相符。
5. ;2. 使用以下程序，即可完成坐标和高程提取
6. ;3. 返回值为(纵坐标x 横坐标y 高程h)，存入变量pt中
7. ;4. 选取的图元必须是具有"SOUTH"数据属性
8. (defun c:tqzbz()
9.    (if (null tqzbz0)(load "g:tqzbz0.fas"))
10.    (setq pt (tqzbz0))
11.    (princ)
12. )

;1. 将下载的“tqzbz0.fas”存入G盘目录下，如存入 ;   其它地址，则修改程序中“(load "g:tqzbz0.fas")” ;   使之相符。 ;2. 使用以下程序，即可完成坐标和高程提取 ;3. 返回值为(纵坐标x 横坐标y 高程h)，存入变量pt中 ;4. 选取的图元必须是具有"SOUTH"数据属性 (defun c:tqzbz()    (if (null tqzbz0)(load "g:tqzbz0.fas"))    (setq pt (tqzbz0))    (princ) )

kingsky

楼上这位老大，我几千个点呐，能不能输出到一个文本文件中去啊？？？

yshf

2. ;1. 将下载的“tqzbz0.fas”存入G盘目录下，如存入
3. ;   其它地址，则修改程序中“(load "g:tqzbz0.fas")”
4. ;   使之相符。
5. ;2. 使用以下程序，即可完成坐标和高程提取
6. ;3. 显示提取结果或者存入到文本文件中(并立刻用记事本打开该文本文件)
7. ;4. 选取的图元必须是具有"SOUTH"数据属性
8. (defun c:tqzbz()
9.    (if (null tqzbz0)(load "g:tqzbz0.fas"))
10.    (initget 1 "0 1")
11.    (setq nbz (getkword "\n请指定提取方式[0 点选/1 范围选(结果存入文本文件)]:"))
12.    (eval (read (strcat "(tqzbz" nbz ")")))
13.    (princ)
14. )

;1. 将下载的“tqzbz0.fas”存入G盘目录下，如存入 ;   其它地址，则修改程序中“(load "g:tqzbz0.fas")” ;   使之相符。 ;2. 使用以下程序，即可完成坐标和高程提取 ;3. 显示提取结果或者存入到文本文件中(并立刻用记事本打开该文本文件) ;4. 选取的图元必须是具有"SOUTH"数据属性 (defun c:tqzbz()    (if (null tqzbz0)(load "g:tqzbz0.fas"))    (initget 1 "0 1")    (setq nbz (getkword "\n请指定提取方式[0 点选/1 范围选(结果存入文本文件)]:"))    (eval (read (strcat "(tqzbz" nbz ")")))    (princ) )

lzy1979

谁有好的程序谢谢上传

wmz

用用这个：命令：qdzb