长江1检查文字程序Word格式.docx
- 文档编号:18918975
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:9
- 大小:16.45KB
长江1检查文字程序Word格式.docx
《长江1检查文字程序Word格式.docx》由会员分享,可在线阅读,更多相关《长江1检查文字程序Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
(setqtt(strcat"
c:
/温州注记/"
tt"
.txt"
(setqf(opentt"
w"
(main"
GX_A"
管线层"
JMD_A"
居民地层"
JT_A"
交通层"
SX_A"
水系层"
ZB_A"
植被层"
)
DM_A"
地貌层"
(main1"
(closef)
(defunmain(layzh)
(setqss(ssget"
x"
(list(cons0"
text"
)(cons8lay))))
(ifss
(progn
(setqlen(sslengthss))
(setqyy(strcat"
***********此图"
zh"
共有汉字注记:
"
(princ"
f)
(princyyf)
(princlenf)
\n"
汉字层名字型名高度长宽比编码X坐标Y坐标"
(setqi0)
(repeatlen
(setqaa(ssnamessi))
(setqaa(entgetaa))
(setqp0(cdr(assoc10aa)))
(setqx0(carp0)y0(car(cdrp0)))
(setqx0(rtosx020))
(setqy0(rtosy020))
(setqa1(cdr(assoc1aa)))
(setqzl(strlena1))
(setqa1(substra1130))
(if(or(=a1"
)(=a1"
)(=a1"
(setqaa(subst(cons1"
空格"
)(assoc41aa)aa))
(entmodaa)
)
(setqa2(cdr(assoc8aa)))
(setqa3(cdr(assoc7aa)))
(setqa4(cdr(assoc40aa)))
(setqa5(cdr(assoc41aa)))
(setqa6(cdr(assoc39aa)))
(if(/=a6nil)(setqa6(rtosa620)))
(if(=a6"
2000000001"
)(setqa6"
图号注记"
))
(if(=a6"
2000000002"
图名注记"
2000000003"
接合表注记"
2000000004"
秘密说明注记"
2000000005"
版权单位注记"
2000000006"
测绘单位注记"
2000000007"
测量员注记"
2000000008"
绘图员注记"
2000000009"
检查员注记"
2000000010"
测绘时间说明注记"
2000000011"
坐标系统说明注记"
2000000012"
高程基准说明注记"
2000000013"
版式说明注记"
2000000014"
角点坐标注记"
3000000063"
湖泊要素性质注记"
3000000075"
库容量注记"
3000000076"
水库性质注记"
3000000151"
其他水系要素名称注记"
3000000152"
其他水系要素性质注记"
3000000153"
井口、泉口高程注记"
3000000154"
落差注记"
3000000155"
流速注记"
3000000204"
水利附属名称注记"
3000000205"
水利附属性质注记"
3000000206"
水利附属物高程注记"
3000000207"
水利比高注记"
))
4000000037"
地级名称注记"
4000000038"
县级名称注记"
4000000039"
乡级名称注记"
4000000040"
行政村名称注记"
4000000041"
村委会注记"
4000000042"
自然村庄名称注记"
4000000043"
住宅区名称注记"
4000000044"
农林牧渔单位名称注记"
4000000045"
建筑物名称注记"
4000000046"
房屋注记"
4000000047"
房屋类型说明"
4000000048"
功能性质说明"
4000000125"
工矿类名称注记"
4000000126"
工矿性质说明注记"
4000000143"
农业设施名称注记"
4000000144"
农业设施性质注记"
4000000189"
文教卫生单位名称注记"
4000000190"
商业名称注记"
4000000191"
休闲娱乐场所名称注记"
4000000192"
体育场所名称注记"
4000000193"
传媒通讯单位名称注记"
4000000194"
其他公共服务名称注记"
4000000195"
公共服务设施性质注记"
4000000214"
名胜古迹名称注记"
4000000215"
名胜古迹性质注记"
4000000225"
宗教场所名称注记"
4000000233"
科学观测站名称注记"
4000000234"
科学观测站性质注记"
4000000316"
其他建筑名称注记"
4000000317"
其他建筑性质注记"
4000000318"
地面性质注记"
5000000018"
火车站名称注记"
5000000019"
铁路名称注记"
5000000067"
公路管理等级编号注记"
5000000070"
公路技术等级注记"
5000000068"
高速公路、国道名称"
5000000069"
其他公路名称"
5000000115"
主干街道名称注记"
5000000116"
次干街道名称注记"
5000000117"
其他街道名称注记"
5000000118"
道路性质注记"
5000000185"
道路附属设施名称注记"
5000000186"
道路附属设施性质注记"
5000000214"
水运设施名称注记"
5000000215"
水运设施性质注记"
5000000219"
机场名称注记"
5000000234"
其他交通设施名称注记"
5000000235"
其他交通设施性质注记"
7000000027"
境界界端注记"
8000000009"
等高线高程注记"
8000000016"
比高注记"
8000000063"
自然地貌性质注记"
9000000066"
农林用地性质注记"
9000000073"
城市绿地注记"
9000000084"
土质性质注记"
3000000015"
主干河流名称"
3000000016"
一般河流名称"
3000000017"
支流河流名称"
3000000058"
沟渠名称"
3000000061"
一般湖泊名称"
3000000062"
大型湖泊名称"
3000000073"
小型水库名称"
3000000074"
大型水库名称"
8000000060"
主要地理名称"
8000000061"
一般地理名称"
8000000062"
次要地理名称"
6000000023"
输电线注记"
6000000034"
通讯线注记"
6000000047"
油、气、水输送主管道注记"
6000000123"
城市管线注记"
(setqi(+i1))
(princa1f)
(if(<
zl8)
f))
(if(and(<
zl16)(>
=zl8))
(princa2f)
(princa3f)
(princa4f)
(princa5f)
(princa6f)
"
(princx0f)
"
(princy0f)
(defunmain1(layzh)
*****此图"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 长江 检查 文字 程序