AutoCAD_VBA程序：CASS（DWG）数据转入ARCGIS（SHP）

AutoCAD_VBA程序：CASS（DWG）数据转入ARCGIS（SHP）
http://bbs.esrichina-bj.cn/ESRI/thread-26364-1-1.html一个月以前在CASS下面使用VBA写程序，目的就是要把CASS下的图转入ARCGIS中，因为我们这次是二调的项目，做图是在CASS下做的，入库要进ARCGIS，所以一直在寻找一种好的方法！……你还在为DWG转SHP而烦恼吗？我已经解决了，愿与大家分享。
我使用了两种方法，采用了后一种。
第一种：使用ACCO（在附件中），此方法的简介也附有文本说明，主要实现的功能有：A(Txt_Apart：实现注记分离，例如“混2”把它分为“混”、“2”)；
C（CodeByText：根据注记内容来反赋线的属性，如：线对象里有“混”、“2”两个字，那么我就把“141161”赋给代码，把“2”赋给层数）；
C（CloseByCode：把需要闭合的线全部闭合）；
O（最后一步拉，OutPut，导出为DBF文件）。
此方法适用于没有CASS7.1版本的，对不起啊，因为我一开始接触就用的是CASS7.1，且是正版，因为CASS7.1版本中有检查入库这个菜单，可以直接实现DWG转SHP，如果你的CASS软件不能实现此功能，相信这种方法将帮助到你。
需要一个辅助的TxtToDbf.mdb数据库，也在附件中，此方法一定要先看说明。
第二种：使用ACCS，ACC与第一种方法相同，S（SetXdata：因为我既然能把扩展属性导出DBF表，那么我就能够通过SetXdata方法把正确的属性赋值给相关实体）。
所有操作以JMD层为例，只要稍做修改可适用于其他层和对象。
先添加FWJG、FWCS两个字段，然后通过ACCS自动把正确的值赋给线实体，然后导出为SHP 本软件ID:2447539