陈琦 发表于 2007-3-21 07:52:00

使用COUNT属性寻找模型空间对象出错!

<p>Sub Hightlastitemdrawn()<br/>If ThisDrawing.ModelSpace.Count = 0 Then<br/>&nbsp; MsgBox "there is no line to highlight!"<br/>&nbsp; Else<br/>&nbsp; With ThisDrawing.ModelSpace.Item<font color="#ff0000"><strong><em><u>(.Count</u></em></strong></font> - 1).HighlightTure<br/>&nbsp; End With<br/>&nbsp; End If<br/>End Sub</p><p>该程序为高亮显示模型界面最后一条直线的命令,但在运行时对于代码中红色部分总是显示"编译错误:无效或不合格引用!"</p><p>请教各位高手,该错误的出现原因和改正方法!<br/></p>

mccad 发表于 2007-3-21 08:22:00

自己查查With语句是怎么用的。

陈琦 发表于 2007-3-21 08:36:00

Sub Hightlastitemdrawn()<br/>If ThisDrawing.ModelSpace.Count = 0 Then<br/>&nbsp; MsgBox "there is no line to highlight!"<br/>&nbsp; Else<br/>&nbsp; With ThisDrawing.ModelSpace<br/>&nbsp;<font color="#ff0000">
                <strong><em><u>.Item(.Count - 1).Highlight True</u></em></strong><br/></font>&nbsp; End With<br/>&nbsp; End If<br/>End Sub<br/>谢谢各位高手!问题已解决!但该程序和上面的程序相比,红色语句部分进行了换行,该行以(.)开头.请教VBA中对于程序有这种要求么?

狂刀无痕 发表于 2007-3-21 12:35:00

<p>是 highlight 和 True 之间的空格？第一贴是连写的</p>

天龙八部 发表于 2007-5-14 18:19:00

这种错误可真不容易察觉，一个空格就导致程序错误，CAD的语言应该发展到自动忽略掉空格
页: [1]
查看完整版本: 使用COUNT属性寻找模型空间对象出错!