坐标提取lisp程序
22页1、坐标提取lisp程序2010-05-1720:50:07|分类:工稈|标签:|字号大中小订阅;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为CASS软件中使用的数据格式输出格式:点号,,测量Y值,测量X值,测量Z值例:1,100.3244,1232,433,25;2010-05-17;命令:plzbsc(defunc:plzbsc()(princn选择所需输出的点(point):)(setqss(ssget);选取坐标点(setqn(sslengthss);计算坐标点数量(setqff(open(getfiled文件保存为f:/dat1)w);保存路径(setqi0)(repeatn(setqspt(ssnamessi)(setqept(entgetspt)(if(=(cdr(assoc0ept)POINT)(progn(setqlxyz(cdr(assoc10ept)(setqsx(rtos(nth1仪yz);将坐标值实数转换成字符(setqsy(rtos(nth0lxyz)(setqsz(rtos(nth2lxyz)(setqi1(+i1);计算点序号(setqs
2、n(rtosi120);将序号实数转换成字符(setqsxyz(strcatsn,sy,sx,sz)(write-linesxyzff)(setqi(+i1);repeat)(prompt*输出格式(点号,Y,X,Z)*)(prin1)地形图上提取碎步点(高程点)坐标并输出到文本2010-05-1808:50:38|分类:工程|标签:|字号大中小订阅利用程序提取地形图上碎步点的三维坐标。并输出到记事本中,该程序待修改的地方是不能选取点,并输出数据,待改正。(defunc:gcdtq()(setvarcmdecho0);指令执行过程不响应(setqen(entsel选择高程点:);要求碰选一个高程点(setqff(open(getfiled文件保存为f:/txt1)a)(setqen_data(entget(caren);取得元体资料列表(setqpt(cdr(assoc10en_data);求得高程点坐标pt(setqpy(rtos(nth1pt);提取测量坐标Y值(setqpx(rtos(nth0pt);提取测量坐标X值(setqpz(rtos(nth2pt);提取测量坐标Z值(se
3、tqsxyz(strcatpxpypz)(write-linesxyzff)(prin1)(promptn*I!(prin1)连续选取高程点并输出到文本2010-05-1815:33:49|分类:工程|标签:|字号大中小订阅;2010-05-18武赤公路;用于提取地形图中的高程点(碎步点)坐标,同时可以提取点(point)的坐标;本程序的缺点是不能过滤对象,同时也成为了他的优点;没有限制点的样式,块也可以,点也可以;;本程序设计保存文件是可以在已有文件中继续添加数据,但是序号不再累积;这样可以判断不同时期选取的数据(defunc:gcdtq()(setvarcmdecho0);指令执行过程不响应(setqff(open(getfiled文件保存为f:/dat1)a)(setqen(entsel选择高程点:);要求碰选一个高程点(setqi1);生成序号(whileen(setqen_data(entget(caren);取得元体资料列表(setqpt(cdr(assoc10en_data);求得高程点坐标pt(setqpy(rtos(nth1pt);提取测量坐标系Y值(setqpx(r
4、tos(nth0pt);提取测量坐标洗X值(setqpz(rtos(nth2pt);提取测量坐标系Z值(setqpi(rtosi20)(setqpxyz(strcatpi,px,py,pz);输出为CASS数据格式(write-linepxyzff);写入文本(setqen(entseln选择下一个高程点回车结束选择:)(setqi(+i1)(closefile)(prin1)(prompt*从CASS中提取高程点或(point)点坐标,*高程点提取*)(prin1)横断面数据提取(待修改)2010-05-1821:59:09|分类:工程|标签:|字号大中小订阅(defunc:hdm()(setvarcmdecho0);指令执行过程不响应;计算方位角(setqff(open(getfiled文件保存为c:/hdm1)a)(setqzh(getreal请输入桩号:);计算横断面上点到中心线的垂距,数值分正负(setqpt1(getpointn拾取纵断面上的一点:);用于确定横断面上的零点位置(setqx1(carpt1);给纵断面上一点X赋值x1(setqy1(cadrpt1);给纵断面
《坐标提取lisp程序》由会员工****分享,可在线阅读,更多相关《坐标提取lisp程序》请在金锄头文库上搜索。
2024-01-16 4页
2024-03-06 4页
2023-03-12 3页
2023-08-31 16页
2023-05-24 3页
2023-07-10 5页
2022-11-21 11页
2023-07-01 5页
2022-11-05 27页
2024-03-03 10页