文档介绍：2010-05-1720:50:07|  分类:工程|  标签:|字号大中小 订阅;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为CASS软件中使用的数据格式;输出格式:点号,,测量Y值,测量X值,测量Z值  例:1,,,1232,433,25;2010-05-17   ;命令:plzbsc(defunc:plzbsc()  (princ"\n选择所需输出的点(point):")  (setqss(ssget));;选取坐标点  (setqn(sslengthss));计算坐标点数量       (setqff(open(getfiled"文件保存为""f:/""dat"1)"w"));保存路径  (setqi0)  (repeatn  (setqspt(ssnamessi))   (setqept(entgetspt))   (if(=(cdr(assoc0ept))"POINT")    (progn                                   (setqlxyz(cdr(assoc10 ept)))      (setqsx(rtos(nth1lxyz)));将坐标值实数转换成字符      (setqsy(rtos(nth0lxyz)))      (setqsz(rtos(nth2lxyz)))                                       (setqi1(+i1));计算点序号                                       (setqsn(rtosi120));将序号实数转换成字符      (setqsxyz(strcatsn",," sy"," sx "," sz))      (write-linesxyzff)    )   )   (setqi(+i1))  );repeat )(prompt"*<<命令:plzbsc>>*输出格式(点号,,Y,X,Z)**")(prin1)地形图上提取碎步点(高程点)坐标并输出到文本  2010-05-1808:50:38|  分类:工程|  标签:|字号大中小 订阅利用程序提取地形图上碎步点的三维坐标。并输出到记事本中,该程序待修改的地方是不能选取点,并输出数据,待改正。(defunc:gcdtq()(setvar"cmdecho"0);指令执行过程不响应(setqen(entsel"选择高程点:"));要求碰选一个高程点(setqff(open(getfiled"文件保存为""f:/""txt"1)"a"))(setqen_data(entget(caren)));取得元体资料列表(setqpt(cdr(assoc10en_data)));求得高程点坐标pt(setqpy(rtos(nth1pt)));提取测量坐标Y值(setqpx(rtos(nth0pt)));提取测量坐标X值(setqpz(rtos(nth2pt)));提取测量坐标Z值(setqsxyz(strcatpx"          " py "          " pz))(write-linesxyzff)(prin1))(prompt"***************<<C:gcdtq>>*****************")(prin1)连续选取高程点并输出到文本  2010-05-1815:33:49|  分类:工程|  标签:|字号大中小 订阅;2010-05-18 武赤公路;用于提取地形图中的高程点(碎步点)坐标,同时可以提取点(point)的坐标;本程序的缺点是不能过滤对象,同时也成为了他的优点;没有限制点的样式,块也可以,点也可以;;本程序设计保存文件是可以在已有文件中继续添加数据,但是序号不再累积;这样可以判断不同时期选取的数据(defunc:gcdtq()(setvar"cmdecho"0);指令执行过程不响应(setqff(open(getfiled"文件保存为""f:/""dat"1)"a"))(setqen(entsel"选择高程点:"));要求碰选一个高程点(setqi1);生成序号(whileen(setqen_data(entget(caren)));取得元体资料列表(setqpt(cdr(assoc10en_data)));求得高程点坐标pt(setqpy(rtos(nth1pt)));提取测量坐标系Y值(setqpx(rtos(nth0pt)));提取测量坐标洗X值(setqpz(rtos(nth2pt)));提取测量坐标系Z值(setqpi(rtosi20))(setqpxyz(strcatpi",,"px"," py "," pz));输出为CA