资源描述：
《坐标提取lisp程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、坐标提取lisp程序 2010-05-1720:50:07
2、 分类：工程
3、 标签：
4、字号大中小 订阅;该程序主要用于CAD点（point）三维坐标提取，并将数据输出为CASS软件中使用的数据格式;输出格式：点号,,测量Y值，测量X值，测量Z值 例：1,,100.3244,1232,433,25;2010-05-17 ;命令：plzbsc(defunc:plzbsc() (princ"选择所需输出的点（point）:") (setqss(ssget));;选取坐标点 (setqn(sslengthss));计算坐标点数量 (setqff
5、(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)))
6、 (setqsz(rtos(nth2lxyz))) (setqi1(+i1));计算点序号 (setqsn(rtosi120));将序号实数转换成字符 (setqsxyz(strcatsn",," sy"," sx "," sz)) (write-linesxyzff) ) ) (setqi(+i1)) );repeat )(prompt"*<<命令:plzbsc>>*输出格式
7、（点号,,Y，X，Z）**")(prin1)地形图上提取碎步点（高程点）坐标并输出到文本 2010-05-1808:50:38
8、 分类：工程
9、 标签：
10、字号大中小 订阅利用程序提取地形图上碎步点的三维坐标。并输出到记事本中，该程序待修改的地方是不能选取点，并输出数据，待改正。(defunc:gcdtq()(setvar"cmdecho"0);指令执行过程不响应(setqen(entsel"选择高程点:"));要求碰选一个高程点(setqff(open(getfiled"文件保存为""f:/""txt"1)"a"))(setqen_data(entget(care
11、n)));取得元体资料列表(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"***************<>*****************")(prin1)连续选取高
12、程点并输出到文本 2010-05-1815:33:49
13、 分类：工程
14、 标签：
15、字号大中小 订阅;2010-05-18 武赤公路;用于提取地形图中的高程点（碎步点）坐标，同时可以提取点（point）的坐标;本程序的缺点是不能过滤对象，同时也成为了他的优点；没有限制点的样式，块也可以，点也可以；;本程序设计保存文件是可以在已有文件中继续添加数据，但是序号不再累积；这样可以判断不同时期选取的数据(defunc:gcdtq()(setvar"cmdecho"0);指令执行过程不响应(setqff(open(getfiled"文件保存为""f:/""dat"1)"a")
16、)(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 ",
