
4个回答
展开全部
有一个按等高线提取坐标。有高程。不知道你要不要。
CASS工程应用---最后一个----输入保存文件名-----1------完成
CASS工程应用---最后一个----输入保存文件名-----1------完成
展开全部
捕捉一定要节点捕捉才要的,新测的点只要把以前画好的图打开把点展上去接着画就要的了,
展开全部
((defun c:tt(/ ss m n fn fp a b c)
(setq ss(entget "X" '((0 . "TEXT")(8 . "具体图层名")))m 0 n(sslength ss))
(while(null(setq fn(getfiled "建立数据文件" "C:\\""dat" 36))))
(setq fp(open fn"w"))
(while(< m n)
(setq a(entget(ssname m ss))
b(cdr(assoc 10 a))m(1+ m)
c(atof(cdr(assoc 1 a))))
(write-line (strcat(itoa m)",,"(rtos(nth 0 b)2 3)","(rtos(nth 1 b)2 3)","(rtos c 2 2))fp)
)
)
(setq ss(entget "X" '((0 . "TEXT")(8 . "具体图层名")))m 0 n(sslength ss))
(while(null(setq fn(getfiled "建立数据文件" "C:\\""dat" 36))))
(setq fp(open fn"w"))
(while(< m n)
(setq a(entget(ssname m ss))
b(cdr(assoc 10 a))m(1+ m)
c(atof(cdr(assoc 1 a))))
(write-line (strcat(itoa m)",,"(rtos(nth 0 b)2 3)","(rtos(nth 1 b)2 3)","(rtos c 2 2))fp)
)
)
追问
这个程序在哪里如何运行?
本回答被网友采纳
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询