Прошу помощи с кодом. VBA

[Александр Ривилис]

DMA,
Мне нужен чертеж, с которым ты проверял и номер версии AutoCAD

[DMA]

Мне нужен чертеж, с которым ты проверял и номер версии AutoCAD

F.205.0.0 Autocad 2012 russian sp2
чертеж абсолютно пустой, проставляю размер в пустоту и запускаю макрос.

[Александр Ривилис]

Мне нужен чертеж, с которым ты проверял и номер версии AutoCAD

F.205.0.0 Autocad 2012 russian sp2
чертеж абсолютно пустой, проставляю размер в пустоту и запускаю макрос.

Специально проверил в AutoCAD 2012 SP2 (у меня английский, но это не должно влиять). Всё работает как надо:

[DMA]

Еще раз перепроверил на рабочем компьютере, здесь тоже 2012. Не работает.
В чем Вы , кстати, видео записываете?
Есть ли сервайс пак 3 на 2012 интересно?

[Александр Ривилис]

В чем Вы , кстати, видео записываете?

Прочитай у меня в подписи.

[DMA]

Проверил в 2015, тоже не работает.
Вряд ли это некорректная работа обеих версий. Тут видимо что-то еще...

[DMA]

Прочитай у меня в подписи.

если нужно, вечером запишу и отправлю.

[Александр Ривилис]

Прочитай у меня в подписи.

если нужно, вечером запишу и отправлю.

Не помешает понять что у тебя происходит. Возможно взаимодействие с какими-то другими программами. Я проверил даже в древнем AutoCAD 2008 - всё работает. Немного модифицировал код, так как похоже у тебя не завершается команда EXPLODE до того как отрабатывает дальнейший код.

Код - Visual Basic [Выбрать]

1.     Option Explicit
2.      
3.     Sub XplodeDims()
4.      
5.         Dim objDim As AcadEntity
6.         Dim pt As AcadPoint
7.         Dim strCmd As String
8.          
9.         strCmd = "_.Explode" & vbCr
10.          
11.         On Error Resume Next
12.        
13.         ThisDrawing.Utility.GetEntity objDim, pt, "Выберите размер"
14.          
15.         If Err.Number <> -2147352567 Then
16.          
17.           If InStr(1, TypeName(objDim), "IAcadDim") = 0 Then
18.            ' Это не размер
19.           MsgBox "Это не размер!", vbCritical
20.           Else
21.            strCmd = strCmd & "(handent " & Chr(34)
22.            strCmd = strCmd & objDim.Handle & Chr(34)
23.            strCmd = strCmd & ")" & vbCr
24.           End If
25.          
26.         End If
27.          
28.         On Error GoTo 0
29.         ' Находим последний элемент до расчленения
30.        Dim nLastEnt As Integer
31.         nLastEnt = ThisDrawing.ModelSpace.Count - 1
32.          
33.         ' Запускаем _EXPLODE
34.        ThisDrawing.SendCommand strCmd
35.         ' Выполняем до завершения команды
36.        While ThisDrawing.GetVariable("CMDNAMES") = "EXPLODE"
37.           ThisDrawing.SendCommand vbCr
38.         Wend
39.        
40.          
41.         ' Находим последний элемент после расчленения
42.        Dim nLastEntNew As Integer
43.         nLastEntNew = ThisDrawing.ModelSpace.Count - 1
44.          
45.         MsgBox ("Новых элементов: " & CStr(nLastEntNew - nLastEnt + 1))
46.          
47.         Dim i As Integer
48.          
49.         For i = nLastEnt To nLastEntNew
50.           ' Очередной расчленённый объект
51.          MsgBox (ThisDrawing.ModelSpace.Item(i).ObjectName)
52.         Next
53.     End Sub

[DMA]

нет, тоже самое. + в конце выбор еще одного размера для разбивки без вывода информации...

[Дмитрий Загорулькин]

Я проверил даже в древнем AutoCAD 2008 - всё работает.

Проверил в AutoCAD as Civil 3D 2014 - работает. Видео:

[DMA]

Проверил в AutoCAD as Civil 3D 2014 - работает.

ё-моё, почему интересно у меня-то не хочет. Вечером еще до 2-х компов с Автокадом дойду, попробую.

[DMA]

в 2018-ом работает правильно...
на той же машине где 2012,2015

[Александр Ривилис]

в 2018-ом работает правильно...
на той же машине где 2012,2015

Значит, как я и предположил, что-то мешает этому коду правильно выполнятся. Например, какие-то установленные приложения к AutoCAD.
Или нестандартное состояние системных переменных.
Можно попробовать создать новый профиль AutoCAD, переключится на него, выполнить его сброс и проверить код.

[DMA]

Значит, как я и предположил, что-то мешает этому коду правильно выполнятся.

при экспортировании в Автокад 2018 панелек с кнопками макросов, через какое-то время (или сразу) , перестал работать данный код )
сброс настроек профиля ни к чему не привел  (хотя я возможно сделал не то что нужно).

[Александр Ривилис]

Значит, как я и предположил, что-то мешает этому коду правильно выполнятся.

при экспортировании в Автокад 2018 панелек с кнопками макросов, через какое-то время (или сразу) , перестал работать данный код )
сброс настроек профиля ни к чему не привел  (хотя я возможно сделал не то что нужно).

Ну теперь становится ясно, что проблема в этих панельках.