ThisDrawing.SendCommand
Столкнулся с проблемой! один и тот-же код работает на одном компьютере, и не работает на другом, выбивая ошибку - Run-time error '-2145386296 (802000c8) Недопустимый контекст выполнения
может команда требует особых установок системных переменных? -References одинаковы
или тут виновата русская локализация? параметр "Г"-как сделать универсальным?
Public Function Explode1CopyObjectInTemp(solidObj As Acad3DSolid, layerObj As AcadLayer) As Boolean
'On Error GoTo ERRfun
Dim copyObj As AcadEntity
Set copyObj = solidObj.Copy() ' создаем копию триде тела
copyObj.layer = layerObj.Name
Dim forExGroup As AcadGroup
Dim todos(0 To 0) As AcadEntity
' If ThisDrawing.Groups.Count > 0 Then ThisDrawing.Groups.Delete
Set forExGroup = ThisDrawing.Groups.Add("EXPLOD_SOLID")
Set todos(0) = copyObj
forExGroup.AppendItems todos
ThisDrawing.SendCommand "_EXPLODE" & vbCr & "Г" & vbCr & forExGroup.Name & vbCr & vbCr
forExGroup.Delete
Explode1CopyObjectInTemp = True
Exit Function
'ERRfun:
' Explode1CopyObjectInTemp = False
' forExGroup.Delete
End Function
