[求助]：遇到一个棘手的问题!!求救于高手!!!

ldbxt

我在提取现有dgn文件中的LineElement的时候
有些line的线型是自定义的,但是自定义的线型文件现在不在我手里
查看该line的属性的时候,其线型框显示<没有找到>

我做
dim oLineStyle as LineStyle
dim oEle as Element
这里假定oEle已经是选中的一个line了
set oLineStyle=oEle.LineStyle
的时候系统报错:  未发现索引.在集合中不存在指定的索引或名称

我想问的是,我怎么样才能判断这种情况,从而把这种情况排除掉
就是说当扫描到这一类line的时候,可以用一个if 判断不做
set oLineStyle=oEle.LineStyle

这种情况下这个oEle中的.LineStyle属性到底是一个什么样的值?

谢谢!

jydd

mdl 里可以用mdlElement_getLineStyle，basic不清楚

MicroStation迷

我简单地编写了一个测试程序如下(当然，我简化了取元素的过程，直接以ElementID得到元素)：
Sub TestLineStyle()
Dim oEl As Element
Dim ls As LineStyle
Set oEl = ActiveModelReference.GetElementByID(DLongFromLong(2912))
Set ls = ActiveDesignFile.LineStyles.Find(oEl.LineStyle.Name)
If ls Is Nothing Then
   MsgBox "不存在该线型定义：" & oEl.LineStyle.Name
End If
End Sub

ldbxt

我试了,不行,在运行到  
Set ls = ActiveDesignFile.LineStyles.Find(oEl.LineStyle.Name)
的时候就出错了:未发现索引.在集合中不存在指定的索引或名称
还来不及判断If ls Is Nothing Then
看来是在引用oEl.LineStyle.Name的时候就已经出错了
不知道该怎么办了,请高手赐教啊!

MicroStation迷

这个例子我是已经测试过的呀！我用的是MSV8.1，你用的是何版本？