利用多段线提取桩位坐标并展点号

《利用多段线提取桩位坐标并展点号》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、编写Autolisp源代码文件.lsp代码部分：（分割线一下）===========================================================================(defunc:lddl()(setvar"cmdecho"0)(setvar"osmode"0)(setqffn(getfiled"选取文件""""xls"1))(setqff(openffn"a"))(closeff)(princ"选取Pline多义线")(setqss(ssget))(setqi

2、0)(repeat(sslengthss);根据选择集的个数来确定循环。(setqzimu(getstring"如果点号前加字母请输入字母,不需要请按回车键"))(setqnum(getint"输入起始点号"))(setqssn(ssnamessi))(setqendata(entgetssn))(setqn0)(repeat(lengthendata);根据图元的元素个数进行循环。(setqpp(nthnendata));负责检索图元元素。(setqkey(carpp));提取元素名称(if(=key10)(pro

3、gn(setqx(rtos(cadrpp)23));设置精度(setqy(rtos(caddrpp)23));同上(setqff(openffn"a"))(princzimuff)(princnumff)(princ"t"ff)(princxff)(princ"t"ff)(princyff)(princ""ff)(closeff)(command"text""m"(list(atofx)(-(atofy)0.7))0.30(strcatzimu(itoanum)));为了标注点好，调整位置的时候需要把字符串转

4、换成实数。(setqnum(1+num))))(setqn(1+n));从头检索找到元素名为“10”，转换写入文件。)(setqi(1+i)))(princ(strcat"文件写至--->"ffn))(prin1))===========================================================================把以上代码复制粘贴到记事本修改后缀名file.txtàfile.lsp一、加载lsp文件，保存excel文件。点击加载应用程序选择file.lsp的文件

5、点击加载选择加载一次或者始终加载都可以关闭加载窗口，状态栏显示加载成功！在命令框输入lddl新建保存的excel的位置以及文件名点击保存。选择你要提取的多段线（一次可以选择多个线段，也可单选）输入第一段的起始点号空格输入下一段的起始点号输出的excel的格式为“点号”“Y”“X”一、结束如果需要继续提取可以继续选择上次excel文件，坐标将接着上次结束位置继续录入。