qq_42495980
qq_42495980
采纳率0%
2018-11-24 13:36 阅读 867

cad二次开发问题,一段关于修改块的线条颜色材料明细表的程序,报服务器错误,请大神帮忙解读一下?

5

'修改块的线条颜色材料明细表
Dim blockCol As AcadBlocks = acaddoc.Blocks
For Each eleblo As AcadBlock In blockCol
If InStr(eleblo.Name, "TABLEANNOTATION") Then
For i = 0 To eleblo.Count - 1
If eleblo.Item(i).ObjectName.ToLower = "acDbLine".ToLower Then
eleblo.Item(i).TrueColor = color
Else
eleblo.Item(i).TrueColor = txtColor '''''''''''''''''文件处理器错误
eleblo.Item(i).Layer = "TEXT"

End If
Next
End If
Next
报错:
服务器出现意外情况。(异常来自 HRESULT:0x80010105(RPC_E_SERVERFAULT))
重装过系统,换过cad版本,上述错误还在。
注:这是前辈留下的程序,本人CAD一窍不通,大神能解释下上述代码的意思吗?

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

1条回答 默认 最新

  • qq_42495980 qq_42495980 2018-11-24 13:40

    忘了说了,用的是vb语言

    点赞 评论 复制链接分享

相关推荐