原创力文档- 1、本文档共3页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
CASS9.1 简单开发教程
CASS9.1 简单开发教程
引篇（入门）
作者：arc QQ:313957546
基础要求：
初中文化水平，熟悉电脑会打字。
概念：
Cass9.1 是搭建在CAD平台上，所以对cass9.1 开发实际上就是对CAD开发
废话不多说直接实例开讲：
Cass9.1 命令行 VBAIDE 双击左侧 小图纸（thisdrawing）粘贴下列代码
CAD图中所有选中的文字数字自动求和Sub aa()
Dim oEnt As Object Dim mm As Double mm = 0 Dim sset As AcadSelectionSet 定义选择集对象 bb = Str(Int(Timer)) 用从午夜消逝的秒数命名选择集名,因为秒数不会重复,所以集名不会重复,即使不执行后面的ss_d选择集.Clear ss_d选择集.Delete 也不会出错 Set sset = Acadapp.ActiveDocument.SelectionSets.Add(bb)? 新建一个选择集 sset.SelectOnScreen 提示用户选择
For Each oEnt In sset 集中循环 ? If (TypeOf oEnt Is AcadMText) Then ??? mm = mm + Val(oEnt.TextString) ? End If Next MsgBox 选中的所有文字数字的和＝ Format(mm, 0.0000), vbOKOnly, 文字数字的和
sset.Delete 删除选择集
Cass7.1 盗版的比较多，没用过正版的是不会发现他们的区别的
CASS7.1 盗版精度差。 同样比较正版盗版的精度 计算同样土方 。 10000方 亲测 两者计算出来的结果相差 30方。。。
盗版CASS7.1的来源。 南方公司为力抢占市场 自己发布的免狗盗版 不然谁有这大本事 ，破解的连狗都不用插就能使用？
现在测绘局都在使用的是《2007图式》，cass7.1 使用的是《2002图式》，最后提交成果的时候。。。。。嘿嘿要花钱才能转换的！
Cass9.1 带破解狗版本 南方官网下载 直接使用！ 精度有保证，而且使用最新的《2007图式》，提供 图式转换功能，
新功能：
1 ，一键开关图层 保留单独图层 删除单选图层
2， 悬挂线检查 悬挂线删除
3， 图形直接导入到 谷歌地球
4， 直接导入导出Shp 数据，解决外业不会数据库的问题
下面有链接 可送源码
更多教程：免费下载
/item.htm?spm=a230r.1.14.3.HmjNK9id=45505540882ns=1_u=iqr7ad8d84abbucket=10#detail
插件免费放送 （需要联系店家）
.联系店家 放送 土地确权 各种插件源码
文档评论（0）