海阔天空2014 发表于 2014-6-3 23:00:43

遇到一个很奇怪的问题

本帖最后由 海阔天空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

海阔天空2014 发表于 2014-6-3 23:05:58

以上是出错的信息和出错的dwg，最后是出错的代码

cdinten 发表于 2014-6-4 08:28:47

If Not IsDBNull(acSSObj) Then
试试将其换为 if acSSObj<>nothing Then
再看看，不是很懂VB，但是这个IsDBNull和nothing还是不太一样的

sieben 发表于 2014-6-4 08:42:04

以我了解,问题应该出在Polyline3d类型曲线没有Area属性,所以访问报异常

efan2000 发表于 2014-6-4 10:24:26

eInvalidInput，表示面积不能计算，一般产生此问题的原因是曲线不在同一个平面内。

海阔天空2014 发表于 2014-6-4 12:51:08

cdinten 发表于 2014-6-4 08:28 static/image/common/back.gif
If Not IsDBNull(acSSObj) Then
试试将其换为 if acSSObjnothing Then
再看看，不是很懂VB，但是这个IsD ...

谢谢你的回答，经过试验，问题不出在这里

海阔天空2014 发表于 2014-6-4 12:53:01

sieben 发表于 2014-6-4 08:42 static/image/common/back.gif
以我了解,问题应该出在Polyline3d类型曲线没有Area属性,所以访问报异常

谢谢回答，但是这个三维多段线只有3个顶点，使用list查询是有面积的，而且将图形移动到距离远点较近的位置就能不会报错了，所以我说很怪异

海阔天空2014 发表于 2014-6-4 12:53:43

efan2000 发表于 2014-6-4 10:24 static/image/common/back.gif
eInvalidInput，表示面积不能计算，一般产生此问题的原因是曲线不在同一个平面内。

3个顶点，肯定在一个平面没的

sieben 发表于 2014-6-4 14:43:19

是否可以访问面积,是和曲线类型对应,而与曲线是否在一个平面无关

sieben 发表于 2014-6-4 14:45:49

List命令查询曲线面积的方法和ObjectARX.NET访问面积属性应该各走各的路
页: [1] 2
查看完整版本: 遇到一个很奇怪的问题