'修改块的线条颜色材料明细表
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一窍不通,大神能解释下上述代码的意思吗?
cad二次开发问题,一段关于修改块的线条颜色材料明细表的程序,报服务器错误,请大神帮忙解读一下?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
悬赏问题
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码
- ¥15 ubuntu子系统密码忘记
- ¥15 信号傅里叶变换在matlab上遇到的小问题请求帮助
- ¥15 保护模式-系统加载-段寄存器
- ¥15 电脑桌面设定一个区域禁止鼠标操作
- ¥15 求NPF226060磁芯的详细资料