[LISP]求助提取坐标并自动生成表格的高难程序！！！！

zhongguola

怎么没人肯帮我呀？

北斗七星

我来帮你做一个吧

zhongguola

先谢谢您 了!!!!!!!

citykunan

最好搂主能先自己试着自己做做，再这里来问，这样才会有效果

yshf

;请试用以下程序
;1.将下载的文件“gndbg.fas”
;  存到“H”盘中，如存入其它地方，
;  请更改程序中第二行中的相应路径名。

(defun c:gndbg0()
   (if (null gndbg)(load "H:gndbg.fas"));请注意文件“gndbg.fas”存盘路径名
   (gndbg)
)

zhongguola

真是太感谢您了yshf！！！！！！

您真是一个大好人！！！！

解决了我急需的难题。

谢谢！谢谢！谢谢！！！！！！！！！！！！！！！

zhongguola

呀！土地管理上的界址点号都是从J1开始的，没有J0.

yshf

;;;请试用以下程序
;;;by yshf 2002.02
;;;1.将下载的文件“gndbg1.fas”
;;;  存到“H”盘中，如存入其它地方，
;;;  请更改程序中第二行中的相应路径名。
;;;2.支持任选一封闭界址线(多段线)的端点
;;;  作编号的起点，可按顺时针或逆时针对
;;;  端点进行编号和标注。
;;;3.输入的起点编号只能由字母和数字组成
;;;  且必须由字母开头。

(defun c:gndbg2()
   (if (null gndbg1)(load "H:gndbg1.fas"));请注意文件“gndbg1.fas”存盘路径名
   (gndbg1)
)

zhongguola

老大，18楼的程序只有表格而没有坐标呀！！！！！！！！！！！

zhongguola

对不起，刚才书写有误。现在问题已经解决，请您原谅。

万分感激！！！！

谢谢！！！！！！