cad点取桩位坐标并自动汇总至表格(更新

《cad点取桩位坐标并自动汇总至表格(更新》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、;;功能桥梁设计点取墩台坐标用法将此文件内容全部粘贴到txt文档重命名为lsp文件拖放到cad即加载命令dzb按命令行操作即可(defunc:dzb(/)(setvar"cmdecho"0)(setvar"blipmode"0)(setqos(getvar"osmode"))(setqdim(getvar"dimzin"))(setvar"osmode"0)(setvar"dimzin"0);(chk_style)(setqi_sc(getvar"DIMSCALE"))(if(setqpier(getreal"输入起

2、始墩台编号<0>:"))()(setqpier0))(setqptb0(getpoint"指定表格右上角点："))(u_doubli)(d_sum)(setqi0ii0)(setqikey"Yes")(while(=ikey"Yes")(setvar"osmode"os)(if(setqpt0(getpoint(strcat"点取第"(rtos(+pierii)20)"号墩台>>>"(rtos(+1i)20)"号点或结束[ENTER]：")))(progn(d_sumsing)(setqi(1+i)))(progn(command

3、"_.pline"ptb1"w"(*0.35i_sc)(*0.35i_sc)(polarptb10(*60.0i_sc))"")(setvar"osmode"0)(command"_.text""j""m"(polar(polarptb10(*7.5i_sc))(/pi2)(*i0.56.0i_sc))(*3.0i_sc)"0"(strcat(rtos(+pierii)20)"号墩"))(setqi0)(setqii(1+ii))(initget"YesNo")(if(setqikey(getkword"本墩号点取结束，是否继续？Ye

4、s/No："))()(setqikey"Yes")))))(setvar"osmode"os)(setvar"dimzin"dim)(prin1));;表头(defund_sum()(setqptb1(polarptb0(/pi-2)(*8.0i_sc)))(setqptb2(polar(polarptb0(/pi-2)(*4.0i_sc))0(*7.5i_sc)))(command"_.text""j""m"ptb2(*3.5i_sc)0"墩台编号")(command"_.text""j""m"(polarptb20(*15.0i

5、_sc))(*3.5i_sc)0"点号")(command"_.text""j""m"(polarptb20(*30.0i_sc))(*3.5i_sc)0"坐标（N）")(command"_.text""j""m"(polarptb20(*45.0i_sc))(*3.5i_sc)0"坐标（E）")(command"_.pline"ptb0"w"(*0.35i_sc)(*0.35i_sc)ptb1"")(command"_.pline"ptb0"w"(*0.35i_sc)(*0.35i_sc)(polarptb00(*60.0i_sc))"

6、")(command"_.pline"ptb1"w"(*0.18i_sc)(*0.18i_sc)(polarptb10(*15.0i_sc))"")(command"_.pline"(polarptb00(*60.0i_sc))"w"(*0.35i_sc)(*0.35i_sc)(polarptb10(*60.0i_sc))"")(command"_.pline"(polarptb00(*15.0i_sc))"w"(*0.18i_sc)(*0.18i_sc)(polarptb10(*15.0i_sc))"")(command"_.pline

7、"(polarptb00(*30.0i_sc))"w"(*0.18i_sc)(*0.18i_sc)(polarptb10(*30.0i_sc))"")(command"_.pline"(polarptb00(*45.0i_sc))"w"(*0.18i_sc)(*0.18i_sc)(polarptb10(*45.0i_sc))""));;写内容(defund_sumsing()(setvar"osmode"0)(setqzb_n(cadrpt0)zb_e(carpt0))(command"_.text""j""m"(polar(polarp

8、tb1(/pi-2)(*3.0i_sc))0(*22.5i_sc))(*3.0i_sc)"0"(strcat(rtos(+1i)20)"#"))(command"_.text""j""m"(p