robbin840311
发表于 2008-7-26 15:32:00
[讨论]怎么读取CASS中界址线的属性
本帖最后由 作者 于 2008-10-11 13:15:07 编辑 <br /><br /> <p>请问：怎么读取界址线的 宗地号、起始点号、终止点号、图上边长这四个属性啊？</p><p></p><p><img alt="" src="file:///D:/My%20Documents/Picture/界址线.jpg" border="0"/></p><p> </p><p>附件中是测试文件</p>
夏思恩
发表于 2017-11-30 17:14:47
最近在搞这样的程序，楼主你解决问题没，希望能交流下
zhouzhiy
发表于 2017-11-11 10:50:54
谢谢楼主分享！
兰州人
发表于 2008-7-28 12:31:00
<p>你这属于GIS范畴，太专业了。</p>
robbin840311
发表于 2008-7-31 08:06:00
<p>谢谢兰州人，正是GIS范畴。</p><p>自己顶一个！</p>
robbin840311
发表于 2008-8-2 21:31:00
顶 顶
yellocea
发表于 2008-8-3 10:11:00
<p>经过我测试,南方cass70里宗地属性共有68项.包括宗地号,权利人,实做编码,地类编码,四至信息,图幅号,宗地面积等等.但不知你用的是什么绘图程序.</p>
yellocea
发表于 2008-8-3 10:27:00
<p>开始我用扩展字典去读,结果没读出.后来用扩展数据读出来的....</p><p> <br/> Sub GetAttrib()<br/> Dim dataType As Variant<br/> Dim data As Variant<br/> Dim objCurrent As AcadEntity<br/> Dim basepnt As Variant<br/> ThisDrawing.Utility.GetEntity objCurrent, basepnt<br/> <br/> <br/> objCurrent.GetXData "", dataType, data<br/> If IsEmpty(dataType) Then<br/> MsgBox "没有属性", vbCritical<br/> Exit Sub<br/> End If<br/> Dim str1 As String<br/> Dim str0 As String<br/> Dim i As Integer<br/> For i = LBound(dataType) To UBound(dataType)<br/> str1 = dataType(i) & "||" & data(i)<br/> str0 = str0 + str1 + Chr(13) + Chr(10)<br/> <br/> Next i<br/> MsgBox str0, vbCritical<br/> End Sub</p><p>先用修改属性选择一下界址线,不然只有4种属性,选择之后什么都不改,关闭之后再读就有68种属性了</p><p></p>
robbin840311
发表于 2008-8-3 22:26:00
<p>非常谢谢<strong><font face="Verdana" color="#61b713">yellocea</font></strong>的回答，我使用的软件跟你一样，是南方CASS7.0，我想更正一下，我需要读的是界址线的属性，即在在命令栏里输入JZXINFO命令后，弹出来的框，我想读取本宗地号，起点号，终点号和图上边长四个字段值。</p><p>我的QQ号码是45096732，希望你能与我联系，共同讨论！</p>
robbin840311
发表于 2008-8-11 13:45:00
顶 顶
robbin840311
发表于 2008-8-17 12:45:00
顶 顶
robbin840311
发表于 2008-8-21 14:21:00
顶 顶