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

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

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 · 发表于 2007-3-21 08:22:00

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

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

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中对于程序有这种要求么?

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

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

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

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

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

发表回复

精选推荐