zhoumh989 发表于 2014-8-2 11:31:05

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

还有为啥执行过一次命令，在执行就出现
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 发表于 2014-9-18 21:44:33

自己顶
页: [1]
查看完整版本: 关于That command may not be invoked transparently的错误