关于That command may not be invoked transparently的错误

zhoumh989

还有为啥执行过一次命令，在执行就出现
That command may not be invoked transparently


重新打开就没事了


主要是执行下面代码的时候出现
Dim Xxt As AcadText
gpCode(0) = 0: dataValue(0) = "LWPOLYLINE"
gpCode(1) = 8: dataValue(1) = "JMD"

Set fw = ThisDrawing.SelectionSets.Add("dbmyf1")
   fw.Select acSelectionSetAll, , , gpCode, dataValue
      If Err Then
        Set fw = ThisDrawing.SelectionSets.Item("dbmyss1")
                           fw.Delete
       Set fw = ThisDrawing.SelectionSets.Add("dbmyss1")
  End If

我这段代码有什么不合理的地方吗

zhoumh989

自己顶