基于AutoCAD Lisp宗地的自动标注技术

……ＧＲＡＰＨＩＣＳ　ＡＮＤ　ＩＭＲＡＧＥ　ＰＲＯＣＥＳＳＩＮＧ　……　一一　”…………　…　……………………　一……　…　…　……　，基于ＡｕｔｏＣＡＤ　Ｌｉｓｐ宗地的自动标注技术　唐争气　摘要：介绍了利用ＡｕｔｏＣＡＤ　Ｌｉｓｐ二次开发功能快速标注宗地的界址点坐标值及边长面积等，不　仅能反映宗地的界址点组成．还直观地反映该宗地的形状及其界址点之间的关系。着重阐述了基　于ＡｕｔｏＣＡＤ宗地的标注流程和程序实现。　关键词：宗地；界址点；标注　Ａｕｔ。，ＣＡＤ具有强大的绘图和编辑功能，标注功能也有很多　种，如线性标注、坐标标注等，而且还可以对标注内容的样式、　对齐方式进行修改。　在宗地图中宗地的位置、形　扶和面积等特性都是由其界址　点所决定的，目前，宗地界址点成果表的形式多种多样，但都　比较简单，仅是界址点坐标成果表，没有有实现直接在宗地图　上结合界址点编号和坐标一体化标注。必须结合宗地图才能了　解该宗地的形状及其界址点之间关系。　主要基于ＡｕｔｏＣＡＤ二次开发宗地图上实现同时标注界址点编　号和坐标一体化自动标注坐标、边长面积的算法流程和程序实现。　１　多义线的结点坐标数据的获取　１．１　多义线的自动选取和遍历　（ｓｅｔｖａｒ　＂ｏｓｍｏｄｅ＇。０）　《ｓｅｔｑ　ｓｓｅｔ《ｓｓｇｅｔ”ｘ“ｆｌｉｓｔ（ＣＯＲＳ－４”＜ＯＣ”）（ＣＯｔ＇ＩＳ　０　ＰＯＬＹＬＩＮＥ“￣（ｃｏｎｓ　０“ＬＷＰ０ＬＹ＇ＬＩＮＥ。＇）（ｃｏｎｓ一４“ｏｒ＞“））））　（ｉｆ　ｓｓｅｔ　（ｐｒｏｇｎ　（ｓｅｔｑ　ｓｌｅｎ（ｓｓｌｅｎｇｔｈ　ｓｓｅｔ）；　ｉｄｘ　０）　（ｒｅｐｅａｔ　ｓｌｅｎ　（ｓｅｔｑ　ｅｎ（ｓｓｎａｍｅ　ｓｓｅｔ　ｉｄｘ））　：转换为Ｖｉａ—Ｏｂｊｅｃｔ类型对象　《ｓｅｔｑ　ｐｌｏｂｊ　ｆＭａｋｅＯｂｊｅｃｔ　ｅｎ））　）　１．２坐标数据的提取　：得到ＰＯＬＹＬＩＮＥ或ＬＷＰＯＬＹＬＩＮＥ坐标表　（ｄｅｆｕｎ　ＧｅｔＶｅｒｔｅｘｓ（ｅｎｔｎａｍｅ／ｔｍｐｌｓｔ　ｃｏｏｒｄｓ）　（ｓｅｔｑ　ｐｌｏｂｊ（ＭａｋｅＯｂｊｅｃｔ　ｅｎｔｎａｍｅ）　ｃｏｏｒｄｓ　０）　（ｓｅｔｑ　ｐｔｔｙｐ（ＶＩａｘ—ｇｅｔ—ｐｒ０ｐｅｒｔｙ　ｐｌｏｂｊ　ＯｂｊｅｃｔＮａｍｅ））　（ｉｆ（ｍｅｍｂｅｒ　ｐｌｔｙｐ　（＂ＡｃＤｂＰｏｌｙｌｉｎｅ　‘ＡｃＤｂ２ｄＰｏ｝ｖ　ｅ“））　（ｐｒｏｇｎ　（ｓｅｔｑ　ｔｍｐｌｓｔ（ｖｌａｘ—ｓａｆｅａｒｒａＶ一＞ｌｉｓｔ（ｖｌａｘ一．ｖａｒｉａｎｔ—ｖａｌｕｅ（ｖｌａｘ—　ｇｅｔ－ｐｒｏｐｅｒｔｙ　ｐｌｏｂｉ　＇Ｃｏｏｒｄｉｎａｔｅｓ））））　（￣ｃｏｎｄ　（（＝ｐｌｔｙｐ“ＡｃＤｂ２ｄＰＯｌｙｌ　ｎｅ“）；Ｐｏｌｙｌｉｎｅ　１Ｉｗｈｉｌｅ　ｔｍｐｌｓｔ　（ｓｅｔｑ　ｃｏｏｒｄｓ　Ｉ［ａｐｐｅｎｄ　ｃｏｏｒｄｓ（１ｉｓｔ（１ｉｓｔ（，ｃａｒ　ｔｍｐｌｓｔ）（ｃａｄｒ　ｔｍｐｌｓｔ）））［》　（ｓｅｔｑ　ｔｍｐｌｓｔ（ｃｄｄｄｒ　ｔｍｐｌｓｔ））－　）；ｗｈｉｌｅ　）：　（（＝ｐｌｔｙｐ。＇ＡｃＤｂＰｏｌｙｌｉｎｅ“）；ＬＷＰｏｌｙｌｉｎｅ　Ｉ［．ｗｈｉｌｅ　ｔｍｐｌｓｔ　［ｌｓｅｔｑ　ｃｏｏｒｄｓ（ａｐｐｅｎｄ　ｃｏｏｒｄｓ（１ｉｓｔ（１ｉｓｔ　ｉ（ｃａｒ　ｔｍｐｌｓｔ）（ｃａｄｒ　ｔｍｐｌｓｔ）））））　（ｓｅｔｑ　ｔｍｐｌｓｔ（ｃｄｄｒ　ｔｍｐｌｓｔ））　）；ｗｈｉｌｅ　）：　】￣ｃｏｎｄ　）；ｐｒｏｇｎ　）：＿ｆ　ｃｏｏｒｄｓ　）　（ｄｅｆｕｎ　Ｓｅｔｔｌｅ（ｖｅｄｓｔ／ｒｅｔ　ｐｒｅ　ｉ）　如果起点终点坐标相同，从坐标表中除去起点　ｆｉｆ　ＩＭ－ｅｖｅｒｙ　＝《ｃａｒ　ｖｅｉｌｓ［）《ｃａｒ（ｒｅｖｅｒｓｅ　ｖｅｒｌｓｔ）））　（ｓｅｔｑ　ｖｅｒｌｓｔ（ｃａｄｒ　ｖｅｒｌｓｔ）ｌ｝　）：．ｆ　：除去重复的结点　（ｓｅｔｑ　ｒｅｔ（１ｉｓｔ（ｎｔｈ　０　ｖｅｒｌｓｔ））　ｐｒｅ（ｎｔｈ　０　ｖｅｒｌｓｔ）　ｉ　１）　（ｗｈｉｌｅ（ｓｅｔｑ　ｃｕｒ｛ｎｔｈ　ｉ　ｖｅｄｓｔ）；｝　（ｉｆ（ｎｏｔ　ＩＭ－ｅｖｅｒｙ　：ｃｕｒ　ｐｒｅ））　《ｓｅｔｑ　ｒｅｔ（ａｐｐｅｎｄ　ｒｅｔ（１ｉｓｔ　ｃｕｒ）））　）：ｌｆ　（ｓｅｔｑ　ｉ（＋ｉ　１）　ｐｒｅ　ｃｕｒ）　，）；ｗｈｉｌｅ　ｒｅｔ　）　＊………　……………　口…　……　…………………ｍ……　实用第一　智慧密集　２坐标的标注　２．１　标注位置的计算　ｌｓｅｔｑ　ｏｆｆｓｅｔＯｂｊｌ（ｖｉａ－Ｏｆｆｓｅｔ　ｐｌｏｂｊ　１　０）　ｏｆｆｓｅｔＯｂｊ２（ｖｉａ－Ｏｆｆｓｅｔ　ｐｌｏｂｊ一１　Ｏ）　ｏｆｆｓｅｔＯｂｊ　ｌ（ｖｌａｘ－ｓａｆｅａｒｒａｙ－ｇｅｔ－ｅｌｅｍｅｎｔ　《ｖｌａｘ—ｖａｒｉａｎｔ—ｖａｌｕｅ　ｏｆｆｓｅｔＯｂｊ　１）　０）　ａｒｅａｌ《ｖｌａｘ—ｇｅｔ—ｐｒｏｐｅｒｔｙ　ｏｆｆｓｅｔＯｂｊｌ＂Ａｒｅａ）　ｏｆｆｓｅｔＯｂｊ２（ｖｌａｘ—ｓａｆｅａｒｒａｙ－ｇｅｔ—ｅｌｅｍｅｎｔ　（ｖｌａｘ—ｖａｒｉａｎｔ—ｖａｌｕｅ　ｏｆｆｓｅｔＯｂｊ２）　０　）　ａｒｅａ２（ｖｌａｘ—ｇｅｔ—ｐｒｏｐｅｒｔｙ　ｏｆｆｓｅｔＯｂｊ２　Ａｒｅａ）　）　《Ｉｆ【＞ａｒｅａｌ　ａｒｅａ）　（ｓｅｔｑ　ｏｆｆｓｅｔＯｂｊ　ｏｆｆｓｅｔＯｂｊ　１）　（ｓｅｔｑ　ｏｆｆｓｅｔＯｂｊ　ｏｆｆｓｅｔＯｂｊ２）　）　（ｓｅｔｑ　ｏｆｆｐｌｖｅｒｓ（ＧｅｔＶｅｒｔｅｘｓ　ｏｆｆｓｅｔＯｂｊ）　ｏｆｆｐｌｖｅｒｓ｛Ｓｅｔｔｌｅ　ｏｆｆｐｌｖｅｒｓ）　）　（ｓｅｔｑ　ｏｆｆｐｌｖｅｒｓ《ａｐｐｅｎｄ　ｏｆｆｐｌｖｅｒｓ｛ｌｉｓｔ（ｃａｒ　ｏｆｆｐｌｖｅｒｓ））））　：为了起点与终点也标注　（ｓｅｔｑ　ｐｌｖｅｒｓ（ａｐｐｅｎｄ　ｐｌｖｅｒｓ（Ｉｉｓｔ（ｃａｒ　ｐｌｖｅｒｓ））））　（ｆｏｒｅａｃｈ　ｅａｃｈ　ｏｆｆｄｉｍｐｌｖｅｒｓ　Ｉｃｏｎｄ　（（＜（ａｂｓ（一（ｃａｒ　ｅａｃｈ）（ｃａｒ　ｃｅｎｔｒｏｉｄ）））（　ｔｅｘｔＷｉｄｔｈ　０．２５））　（ｓｅｔｑ　Ｊｕｓｔ　ＭＣ”）　）：　（（＞（ｃａｒ　ｅａｃｈ）（ｃａｒ　ｃｅｎｔｒｏｉｄ））　《ｓｅｔｑ　Ｊｕｓｔ‘ＢＬ“）　）：　（（＜（ｃａｒ　ｅａｃｈ）（ｃａｒ　ｃｅｎｔｒｏｉｄ））　（ｓｅｔｑ　Ｊｕｓｔ”ＢＲ。）　）：　）；ｃｏｎｄ　２．２引线与坐标标注的绘制　（ｃｏｍｍａｎｄ“ｌｉｎｅ“ｃｕｒｐｔ　ｅａｃｈ　）　｛ｓｅｔｑ　ｚｂｄ２ｘ（ｃａｒ　ｅａｃｈ））　（ｓｅｔｑ　ｚｂｄ２ｙ（ｃａｄｒ　ｅａｃｈ））　（ｓｅｔｑ　ｚｂｄｘ　Ｉｃａｒ　ｃｕｒｐｔ））　（ｓｅｔｑ　ｚｂｄｙ（ｃａｄｒ　ｃｕｒｐｔ））　（ｉｆ（＞＝ｚｂｄ２ｘ　ｚｂｄｘ）　（ｐｒｏｇｎ　（ｓｅｔｑ　ｂｈＯ（＋ｂｈ０　１））　《ｓｅｔｑ　ｂｈ（ｉｔｏａ　ｂｈ０））　；；（ｃｏｍｍａｎｄ”ｌｉｎｅ　ｅａｃｈ（１ｉｓｔ（＋ｚｂｄ２ｘ　３０）ｚｂｄ２ｙ）　）　（ｃｏｍｍａｎｄ“ｃｉｒｃｌｅ”（１ｉｓｔ《４－ｚｂｄ２ｘ　１）ｚｂｄ２ｙ）１）　（ｃｏｍｍａｎｄ＂ｌｉｎ　（１ｉｓｔ（４－ｚｂｄ２ｘ　２）ｚｂｄ２￣（１ｉｓｔ《４－ｚｂｄ２ｘ　１　５》ｚｂｄ２￣　）　（ｃｏｍｍａｎｄ”ｔｅ　”Ｊ—ＭＣ　（１ｉｓｔ（－４ｚｂｄ２ｘ　１）ｚｂｄ２ｙ）１　０　ｂｈ）　（ｓｅｔｑ　ｅｌａｓｔ（ｅｎｔｌａｓｔ）　　ｌ与矗　ｅｌａｓｔ｛ＭａｋｅＯｂｊｅｃｔ　ｅｌａｓｔ）　）　（ＶＩａｘ—ｐｕｔ—ｐｒｏｐｅｒｔｙ　ｅｌａｓｔ　ＳｃａｌｅＦａｃｔｏｒ　０．６）　《ｖｉａ—Ｕｐｄａｔｅ　ｅｌａｓｔ）　（ｃｏｍｍａｎｄ”ｔｅｘｔ…Ｓ～Ｓｔａｎｄａｒｄ“”ｊ～ｂｌ”（１ｉｓｔ（－４ｚｂｄ２ｘ　２）　（＋ｚｂｄ２ｙ　１））“１　“０“（ｓｔｒｃａｔ“×（Ｎ）＝”　（ｒｔｏｓ　ｚｂｄｙ　２　３）））　《ｃｏｍｍａｎｄ“ｔｅｘｔ—Ｓ～Ｓｔａｎｄａｒｄ　…ｔｌ“（１ｉｓｔ（４－ｚｂｄ２ｘ　２）　（一ｚｂｄ２ｙ　１））”１”…０（ｓｔｒｃａｔ”Ｙ（Ｅ）＝”　《ｒｔｏｓ　ｚｂｄｘ　２　３）））　）　（ｐｒｏｇｎ　（ｓｅｔｑ　ｂｈ０（－４ｂｈ０　１））　（ｓｅｔｑ　ｂｈ（ｉｔｏａ　ｂｈ０））　；；（ｃｏｍｍａｎｄ　ｌｉｎｅ　ｅａｃｈ（１ｉｓｔ（一ｚｂｄ２ｘ　３０）ｚｂｄ２ｙ）　）　（ｃｏｍｍａｎｄ”ｃｉｒｃｌｅ”（１ｉｓｔ（一ｚｂｄ２ｘ　１）ｚｂｄ２ｙ¨）　（ｃｏｍｍａｎｄ。１ｉｎ　（１ｉｓｔ《一ｚｂｄ２ｘ　２）ｚｂｄ２￣（１ｉｓｔ《一ｚｂｄ２ｘ　１　５）ｚｂｄ２￣。．）　（ｃｏｍｍａｎｄ　ｔｅｘｔ…Ｊ“ＭＣ”（１ｉｓｔ（一ｚｂｄ２ｘ　１）ｚｂｄ２￣）１　０　ｂｈ）　（ｓｅｔｑ　ｅｌａｓｔ（ｅｎｔｌａｓｔ）　ｅｌａｓｔ（ＭａｋｅＯｂｊｅｃｔ　ｅｌａｓｔ）　）　（ｖｌａｘ—ｐｕｔ—ｐｒＯｐｅｒｔｙ　ｅｌａｓｔ　ＳｃａｔｅＦａｃｔｏｒ　０．６）　（ｖｉａ～Ｕｐｄａｔｅ　ｅｌａｓｔ）　（ｃｏｍｍａｎｄ”ｔｅｘｔ…Ｓ　Ｓｔａｎｄａｒｄ…ｊ～ｂｌ“（１ｉｓｔ（一ｚｂｄ２ｘ　１　５）　《４－ｚｂｄ２ｙ　１））”１…０（ｓｔｒｃａｔ　×《Ｎ）＝”　（ｒｔｏｓ　ｚｂｄｙ　２　３）））　（ｃｏｍｍａｎｄ“ｔｅｘｔ…Ｓ”Ｓｔａｎｄａｒｄ”　…ｔｌ（１ｉｓｔ（一ｚｂｄ２ｘ　１　５）　（一ｚｂｄ２￣１｝）“１“”０“（ｓｔｒｃａｔ“Ｙ（Ｅ）：”《ｒｔｏｓ　ｚｂｄｘ　２　３）））　）　）　３面积的标注　３．１位置的计算　《ｖｌａｘ—ｐｕｔ－ｐｒｏｐｅｒｔｙ　ｐｌｏｂｊ　Ｃｌｏｓｅｄ：ｖｌａｘ－Ｔｒｕｅ）　（ｖｉａ－Ｕｐｄａｔｅ　ｐｌｏｂｊ）　Ｉｓｅｔｑ　ｃｕｒｖｅｓ（ｖｌａｘ－ｍａｋｅ－ｓａｆｅａｒｒａｙ　ｖｌａｘ－ｖｂｏｂｊｅｃｔ　【ｏ．Ｏ）））　（ｖｌａｘ－ｓａｆｅａｒｒａｙ－ｆｉｌｌ　ｃｕｒｖｅｓ（１ｉｓｔ　ｐｌｏｂｊ））　（ｓｅｔｑ　ｒｅｇｉｏｎＯｂｊ（ｖｌａｘ－ｓａｆｅａｒｒａｙ－ｇｅｔ－ｅｌｅｍｅｎｔ　（ｖｌａｘ—ｖａｒｉａｎｔ—ｖａｌｕｅ｛ｖｉａ—ＡｄｄＲｅｇｉｏｎ　ｍＳｐａｃｅ　ｃｕｒｖｅｓ））　Ｏ　）　）　（ｓｅｔｑ　ａｒｅａ（ｖｌａｘ－ｇｅｔ—ｐｒｏｐｅｒｔｙ　ｒｅｇｉｏｎＯｂｊ　Ａｒｅａ））　：质心坐标　（ｓｅｔｑ　ｃｅｎｔｒｏｉｄ（ｖｌａｘ—ｓａｆｅａｒｒａｙ一＞ｌｉｓｔ（ｖｌａｘ—ｖａｒｉａｎｔ－ｖａｌｕｅ　（ｖＩａｘ—ｇｅｔ—ｐｒｏｐｅｒｔｙ　ｒｅｇｉｏｎＯｂｊ　Ｃｅｎｔｒｏｉｄ））））　３．２面积的标注　（ｃｏｍｍａｎｄ　ｔｅｘｔ…Ｓ～等线体“ｃｅｎｔｒｏｉｄ　１　０（ｓｔｒｃａｔ（ｒｔｏｓ　ａｒｅａ　２　２）”平方米“））　４边长的标注　４．１位置的计算　｛ｓｅｔｑ　ｐｒｅ（ｎｔｈ　０　ｏｆｆｐｌｖｅｒｓ）　……　Ｂ胁ＰＨＩＣＳ　ＡＮＤ　Ｉ眦ＢＥ　ＰＲＯＣＥＳＳＩＮＧ………………　…………………………………………………………　ｉ　１）　动完成所有宗地标注，如图１所示。　（ｗｈｉｌｅ（ｓｅｔｑ　ｃｕｒ（ｎｔｈ　ｉ　ｏｆｆｐｌｖｅｒｓ））　（ｓｅｔｑ　ｄｉｓｔ（ｄｉｓｔａｎｃｅ　ｐｒｅ　ｃｕｒ）　ａｎｇ（／《　（ａｎｇｌｅ　ｐｒｅ　ｃｕｒ）１　８Ｏ．Ｏ）ｐｉ））　）　（ｉｆ（＞ｄｉｓｔ　１　００）　（ｐｒｏｇｎ　（ｓｅｔｑ　ｃｅｎ《ｌｉｓｔ（／｛＋（ｃａｒ　ｐｒｅ）（ｃａｒ　ｃｕｒ））２）（／（＋（ｃａｄｒ　ｐｒｅ）（ｃａｄｒ　ｃｕｒ））２）））　／／边长标注　）：　）：ｌｆ　（ｓｅｔｑ　ｐｒｅ　ｃｕｒ　ｉ（＋ｉ　１））　）；ｗｈｉｌｅ　４．２边长的标注　（ｃｏｎｄ　图１　宗地标注成果图　《（ｏｒ《ａｎｄ【＞：ａｎｇ　０）（＜＝ａｎｇ　９０））　（ａｎｄ（＞：ａｎｇ　２７０）（＜＝ａｎｇ　３６０））　）　６结语　利用此方法标注界址点编号和坐标一体化。自动标注坐　标、边长、面积，这样不仅能保证标注内容准确无误，还可以　节约时间提高效率。　｛ｃｏｍｍａｎｄ“ｔｅｘｔ…Ｓ“等线体“”ｊｌＩＩＩＭＣ“ｃｅｎ　１　ａｎｇ（ｓｔｒｃａｔ　（ｒｔｏｓ　ｄｉｓｔ　２　２）　ｍ　））　）：　（（ａｎｄ（＞ａｎｇ　９０）（＜ａｎｇ　２７０））　《ｓｅｔｑ　ａｎｇ（＋１８０　ａｎｇ））　参考文献　［１】别建晓．Ａｕｔｏ　ＣＡＤ中坐标标注的改进．城市勘测，２００８，　（１）：１２０—１２１．　（ｃｏｍｍａｎｄ　ｔｅｘｔ～Ｓ～等线体～ｊ—ＭＣ“ｃｅｎ　１　ａｎｇ（ｓｔｒｃａｔ（ｒｔｏｓ　ｄｉｓｔ　２　２）“ｍ“））　）　）；ｃｏｎｄ　［２】冯瑞莲，毛卫民，等．城镇勘测定界中运用Ｖｉｓｕａｌ　ＬＩＳＰ语　言快速制作宗地图［Ｊ］．城市勘测，２００８，（１）：１０４—１０５．　５程序运行　程序加载之后，在命令行输入ｂｚｘｙ就可以启动程序，全自　［３】高艳，顾有兵．ＡｕｔｏＣＡＤ中多义线的坐标标注【Ｊ］．工程　与建设，２０ｏ７，（０６）：８７５—８７６．　（收稿日期：２０１１－１２—０９）　（上接第７４页）　ｇｅｔ　ＮｅｔＣＯｎｎｅｃｔｉＯｎＰｒＯｐｓ（ｃＯｎｎｅｃｔｉｏｎ）：　ｉｆ（ｃｏｎｎＰｒｏｐｓ．ＭｅｄｉａＴｙｐｅ　＝ｔａｇＮＥＴＣＯＮ—ＭＥＤＩ　△　ＰＥ　ＮＣＭＬＡＮ＆＆ｃｏｎｎＰｒｏｐｓ．Ｎａｍｅ＝：Ｎｅｔｗｏｒｋｌｎｔｆ．Ｎａｍｅ）　—４结语　通过程序修改网络配置，只需点击一次鼠标就能修改ＩＰ　地址、网关等全部网络配置，相对于手工修改，操作简洁、效　率更高．而且不需要记忆网络配置的具体内容，给移动办公的　人员带来了方便。作者通过查阅资料和相关帮助，对Ｃ＃存储、　｛　ｃｏｎｎｅｃｔｉｏｎ．Ｄｉｓｃｏｎｎｅｃｔ（）；∥禁用网络　ｃｏｎｎｅｃｔｉｏｎ．Ｃｏｎｎｅｃｔ０；　／／启用网络　ｂｒｅａｋ；　获取和修改网络配置的方法进行了总结和实验，设计和开发了　可靠的网络配置修改程序。文中代码在ＶＳ　２００８和Ｗｉｎｄｏｗｓ　Ｓｅｒｖｅｒ　２００３中编译通过，编译程序在多台电脑的Ｗｉｎｄｏｗｓ　ＸＰ、　Ｗｉｎｄｏｗｓ　Ｓｅｒｖｅｒ　２００３和Ｗｉｎｄｏｗｓ　Ｓｅｒｖｅｒ　２００８中测试通过　）　）　ｂｒｅａｋ；　）　）　ｂｒｅａｋ；　参考文献　【１】易向东，陈蓓，万英．Ｃ＃程序员开发指南【Ｍ】．北京：中　国林业出版社，２００６．　（收稿日期：２０１２—０１—２８）　）　）　）　琏螭　’