明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2683|回复: 14

[图元] 遇到一个很奇怪的问题

[复制链接]
发表于 2014-6-3 23:00 | 显示全部楼层 |阅读模式
本帖最后由 海阔天空2014 于 2014-6-3 23:24 编辑

file:///I:\QQ\80084008\Image\U610%(863ORWFX$4IPRN(IY.jpg








For Each acSSObj As SelectedObject In acSSet
                    If Not IsDBNull(acSSObj) Then
                        Dim acEnt As Entity = CType(acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForRead), Entity)
                        Dim TypeOfEnt As String = acEnt.GetType.Name
                        Select Case TypeOfEnt
                            Case "Polyline3d"
                                Dim PL3D As Polyline3d = DirectCast(acEnt, Polyline3d)
                                 acDoc.Editor.WriteMessage(PL3D.Area)
                       End Select
                   End If
Next

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2014-6-3 23:05 | 显示全部楼层
以上是出错的信息和出错的dwg,最后是出错的代码
发表于 2014-6-4 08:28 | 显示全部楼层
If Not IsDBNull(acSSObj) Then
试试将其换为 if acSSObj<>nothing Then
再看看,不是很懂VB,但是这个IsDBNull和nothing还是不太一样的
发表于 2014-6-4 08:42 | 显示全部楼层
以我了解,问题应该出在Polyline3d类型曲线没有Area属性,所以访问报异常
发表于 2014-6-4 10:24 | 显示全部楼层
eInvalidInput,表示面积不能计算,一般产生此问题的原因是曲线不在同一个平面内。
 楼主| 发表于 2014-6-4 12:51 | 显示全部楼层
cdinten 发表于 2014-6-4 08:28
If Not IsDBNull(acSSObj) Then
试试将其换为 if acSSObjnothing Then
再看看,不是很懂VB,但是这个IsD ...

谢谢你的回答,经过试验,问题不出在这里
 楼主| 发表于 2014-6-4 12:53 | 显示全部楼层
sieben 发表于 2014-6-4 08:42
以我了解,问题应该出在Polyline3d类型曲线没有Area属性,所以访问报异常

谢谢回答,但是这个三维多段线只有3个顶点,使用list查询是有面积的,而且将图形移动到距离远点较近的位置就能不会报错了,所以我说很怪异
 楼主| 发表于 2014-6-4 12:53 | 显示全部楼层
efan2000 发表于 2014-6-4 10:24
eInvalidInput,表示面积不能计算,一般产生此问题的原因是曲线不在同一个平面内。

3个顶点,肯定在一个平面没的
发表于 2014-6-4 14:43 | 显示全部楼层
是否可以访问面积,是和曲线类型对应,而与曲线是否在一个平面无关
发表于 2014-6-4 14:45 | 显示全部楼层
List命令查询曲线面积的方法和ObjectARX.NET访问面积属性应该各走各的路
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:37 , Processed in 0.226000 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表