Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Вместо подсчета слоёв по одному можно было использовать MsgBox ActiveDocument.ActivePage.Layers.Count. А вот в цикле можно было собрать имена слоёв.
Sub qqq()
Dim lrs As Layer
For Each lrs In ActiveDocument.ActivePage.Layers
s = s & vbCr & lrs.Name
Next lrs
MsgBox...
Когда ТоталКоммандер ищет текст по файлам он предлагает вести поиск в кучке кодировок.
Может и в вашем случае текст где-то ещё есть, но искался не в той кодировке?
В X7 я делаю так (X5 для перепроверки под рукой нет):
Sub dim_each()
ActiveDocument.BeginCommandGroup "Dimensioner"
ActiveDocument.Unit = cdrMillimeter
d = 10
For Each s In ActiveSelection.Shapes
ActiveLayer.CreateLinearDimension(cdrDimensionVertical, s.SnapPoints.BBox(cdrTopMiddle)...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.