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

陈琦

Sub Hightlastitemdrawn()
If ThisDrawing.ModelSpace.Count = 0 Then
  MsgBox "there is no line to highlight!"
  Else
  With ThisDrawing.ModelSpace.Item(.Count - 1).HighlightTure
  End With
  End If
End Sub

该程序为高亮显示模型界面最后一条直线的命令,但在运行时对于代码中红色部分总是显示"编译错误:无效或不合格引用!"

请教各位高手,该错误的出现原因和改正方法!

mccad

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

陈琦

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

狂刀无痕

是 highlight 和 True 之间的空格？第一贴是连写的

天龙八部

这种错误可真不容易察觉，一个空格就导致程序错误，CAD的语言应该发展到自动忽略掉空格