Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как добавить в код сортировку имен листов в порядке следования Autocad?

Как добавить в код сортировку имен листов в порядке следования Autocad?

Ответ
Поиск в этой теме
Непрочитано 12.02.2023, 12:34 #1
Как добавить в код сортировку имен листов в порядке следования Autocad?
_Vlad_
 
Регистрация: 20.06.2012
Сообщений: 8

Здравствуйте!
Есть код Visual Basic, который перезаписывает название листов и последовательно нумерует.
Но проблема в том, что берет он листы в алфавитном порядке, а нужно чтобы было в порядке следования в Autocad.
Нужно как-то отсортировать по свойству TabOrder, но мне знаний не хватает.

Код:
[Выделить все]
Public Sub RenameLayouts()
    Dim colLayouts As AcadLayouts
    Dim objLayout As AcadLayout
    Dim intCount As Integer

    Set colLayouts = ThisDrawing.Layouts
    intCount = 1

    ' Rename the layouts in order
    For Each objLayout In colLayouts
        If objLayout.Name <> "Model" Then
            objLayout.Name = "Layout " & intCount
            intCount = intCount + 1
        End If
    Next objLayout
End Sub

Последний раз редактировалось Кулик Алексей aka kpblc, 12.02.2023 в 16:09.
Просмотров: 1110
 
Непрочитано 13.02.2023, 03:25
#2
Автон

СЦБ
 
Регистрация: 09.03.2006
Иркутск
Сообщений: 78


Код:
[Выделить все]
For i = 1 To ThisDrawing.Layouts.Count - 1
 For Each objLayout In colLayouts
 	If objLayout.TabOrder = i Then 
       	    objLayout.Name = "Layout " & intCount
            intCount = intCount + 1
	End If   
    Next objLayout
Next i
Самое банальное
Автон вне форума  
 
Автор темы   Непрочитано 13.02.2023, 10:10
#3
_Vlad_


 
Регистрация: 20.06.2012
Сообщений: 8


Спасибо!
_Vlad_ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как добавить в код сортировку имен листов в порядке следования Autocad?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как добавить префикс к однострочному тексту в AutoCAD 2016 andrey_artphoto AutoCAD 5 27.05.2015 17:11
Как получить список имен слоев чертежа в .NET API AutoCAD 2010? лузер .NET 1 24.02.2014 02:08
Как добавить объектные данные/данные объекта в AutoCAD Map 3D (желательно 2013) h6784rfg6 Программирование 3 24.09.2013 10:59
Компановка листов для печати из AutoCAD карма AutoCAD 4 25.10.2010 11:51
Спор о порядке следования слоев материалов под фундамнтной плитой. Тема для рассуждения. Святослав_ Конструкции зданий и сооружений 23 13.07.2009 15:16