[热点探讨]如何提高勘察工作数据处理速度及精度，降低技术人员的劳动强度． [复制链接]

(defun c:md() -Uan.#~S  
(setvar "cmdecho" 0) E{0e5.{  
(COMMAND ".UNDO" "BE") k%3)J"|/  
(command "-units" "2" "3" "2" "3" "" "") 6f2?)jOW^N  
(setq fp (open "d:/孔号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总孔数！ ")) \ZM5J  
(princ "孔号" fp)(princ "\t" fp) v
w 6$v  
(princ "X坐标值" fp)(princ "\t" fp) Wv|CJN
;4  
(princ "Y坐标值" fp)(princ "\n" fp) B}S+/V` Y5  
(repeat n wPEK5=\4Ob  
(setq k (getstring "\n输入孔号（如：K1）！") ~!S/{Un   
p (getpoint "\n选取坐标点！") 4> uNH5  
x (strcat (rtos (nth 0 p))) n}b{u@$  
y (strcat (rtos (nth 1 p)))) AyWdJ<OU  
(princ k fp)(princ "\t" fp) |}L=e.  
(princ x fp)(princ "\t" fp) ^&D5J\][  
(princ y fp)(princ "\n" fp)) ,m[XeI  
(close fp) -oUGmV_  
(setvar "cmdecho" s)) N5{v;~Cm}V  
(princ "\n提示：输入 MD 命令来运行本程序！") Tw djBMte  
(princ) el U%Z9  
这个CAD LISP语言就可以在CAD中直接点击提取点坐标至EXCEL的

先下载下来看看怎么样

来学习的！

相当不错的资料，谢谢楼主分享！ g]JRAM  

              

不错、谢谢楼主分享、、、、、

wzs8008土友 提供的程序好，但要有改进的地方。 XV4aR3n{Q  
如：如果在布置钻孔时不知道孔数，预计的孔数只能估计一个了。 Uc,

..  
还有，如果钻孔很多，你提了几个后就不知道哪个提取了哪个没有提取了。

来学习的，谢谢楼主

现在我遇到的一个问题是：如何在野外尽量减少工作量，使室内处理资料又能够得心应手呢？例如打标惯，非要1.5m打一个吗？等等。。。

太专业了，我只能伸手拿了！

向楼主学习，谢谢楼主的贡献