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

(defun c:md() jZvQMW  
(setvar "cmdecho" 0) 8g CQ0w<  
(COMMAND ".UNDO" "BE") yzQ^KqLH  
(command "-units" "2" "3" "2" "3" "" "") aI0}E O  
(setq fp (open "d:/孔号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总孔数！ ")) [>tyx{T Ye  
(princ "孔号" fp)(princ "\t" fp) *~%# =o  
(princ "X坐标值" fp)(princ "\t" fp) $s-HG[lX[  
(princ "Y坐标值" fp)(princ "\n" fp) XT 'v7  
(repeat n ,k5b,}tN  
(setq k (getstring "\n输入孔号（如：K1）！") MX{p)(HW  
p (getpoint "\n选取坐标点！") Q:~>$5Em5  
x (strcat (rtos (nth 0 p))) kdHP v=/U  
y (strcat (rtos (nth 1 p)))) 9&uWj'%ia  
(princ k fp)(princ "\t" fp) $f^ \fa[  
(princ x fp)(princ "\t" fp) ?sBbe@OC?  
(princ y fp)(princ "\n" fp)) 6S2v3  
(close fp) #4<Rs|K  
(setvar "cmdecho" s)) w-.=u3  
(princ "\n提示：输入 MD 命令来运行本程序！") KD5}Nk)t  
(princ) nXuoRZ  
这个CAD LISP语言就可以在CAD中直接点击提取点坐标至EXCEL的

先下载下来看看怎么样

来学习的！

相当不错的资料，谢谢楼主分享！ dm&vLQVS  

              

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

wzs8008土友 提供的程序好，但要有改进的地方。 TqM(I[J7\  
如：如果在布置钻孔时不知道孔数，预计的孔数只能估计一个了。 (P-Bmu!s  
还有，如果钻孔很多，你提了几个后就不知道哪个提取了哪个没有提取了。

来学习的，谢谢楼主

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

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

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