试论在CAD中进行断面图的绘制

《试论在CAD中进行断面图的绘制》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CHINAPLACENAME地名论坛(if(not(new_dialog"pmdhk"id))(exit))(dlg1)试论在CAD中进行断面图的绘制(if(=what2)(progn◎王辛明1娄志奇2周绍山2(initget1)(setqpm_crwz(getpoint));;;;选择插入点坐标(setqcrwz_x(carpm_crwz)crwz_y(cadrpm_crwz)))一、前言)在辽宁省锦州湾航空物流城海堤工程测量的任务生成过程中，(if(=what3)海堤的设计单位提供了海堤的纵线拐点坐标，在此基础上，进

2、行每(progn百米横断面的测量。绘制纵横断面图。(initget1)二、工程的特点(setqss_pline(ssget));;;;选择直线此次工程仅施测工程断面，能按照放样功能进行野外测量。绘)制纵横断面图，总计绘制断面图为339条，132公里。)三、存在的瓶颈(if(=what4)利用现代的先进测量仪器，可以高速、快捷的进行野外数据采(progn集。能否高效高质量的绘制纵横断面图是决定能否完成任务的关键。(new_dialog"pm_help"id)利用南方CASS软件的断面绘制功能，只能一条一条的绘制。且所有(d

3、lg2);;;帮助特征点位必须严格在断面线上。(setqwhat30)四、解决方案)在CAD软件中，展绘所有的野外断面采集数据，再根据设计要)求利用自编的程序绘制的横断面线。自动计算并绘制各个横断面线(if(=what1)的断面图和特征点的标注线（水位线）。一次性绘制完所有的横断面(progn图并自动标注各个横断面图的里程桩号，加入断面生成单位已设计(ifss_pline好的单位标签。(progn五、程序实现（主要部分）(princ);;;Main(setqtm1tm)(defunc:make_dmx(/(while(a

4、nd(=(TYPEss_pline)'PICKSET));(/=(sslengthss_pline)0))(setqss_pline'())(setqpl_name(ssnamess_pline(setqOLDSNAP(getvar"OSMODE"))0));;;获得实体名称(setvar"OSMODE"0)(setqss_pline(ssdelpl_name(setvar"CMDECHO"0)ss_pline))(setqPICK(GETVAR"PICKSTYLE"));;;获得组的(if(WCMATCH(strcas

5、e(cdr状态(assoc0(entgetpl_name))))"*LINE*")(SETVAR"PICKSTYLE"0)(progn(load"功能模块打包.fas")(if(=pl_choice_error0.0)(LoadCom)(setqpl_choice_error(setqid(load_dialog"剖面线对话框"))0.0001)(if(

6、2(setqpoint_list(choosepl_namepl_choice_error0.3crwz_x0crwz_y0pm_qsgl"0"PTYPEpl_choice_error));;;;根据条件选择指定类型实体,返回归到线pm_sjwj"0"PTYPE"0"GCLCbggd15textH3)上坐标表(while(>what0)(setqzhujient(entsel"在图上选63地名论坛CHINAPLACENAME择需在断面图上注记的文字"))(progn(if(andzhujient(setqzhujient

7、(setqglz(carzhujient))(wcmatch(cdr(assoc0(entgetzhujient)));;;;选择实体SOUTH代码为300000的"*TEXT*"))实体;;;;;(setqtm(strcat(cdr(ssget"x"(assoc1(entgetzhujient)))""tm1))'()(-3("SOUTH"(1000.(if(and(notpoint_list)(<="300000"))(lengthpoint_list)1)))(progn)(alert"在指定的误差范)围内,没有选

8、择到指定的点"))(quit)(if(notglz))(progn)(princ"无断面线可处理,退出程序(redrawpl_name4)")(setqpmData(makeDMXdata(quit)point_listpl_namepl_choice_error));;;;根据点坐标,形成断面数据)(s