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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA:Получить коллекцию ссылок в чертеже

VBA:Получить коллекцию ссылок в чертеже

Ответ
Поиск в этой теме
Непрочитано 05.05.2020, 10:06 #1
VBA:Получить коллекцию ссылок в чертеже
ramber
 
Регистрация: 18.04.2011
Сообщений: 35

Добрый день!

Постоянная головная боль - чертежи от архитекторов. Пишу свою чистилку и оптимизатор. Встала задача автоматически убивать нерабочие ссылки на всякие jpg, которые архитекторы используют для своих чертежей.

Думаю, как-то через, но не могу разобраться, что запихнуть в FilterType и FilterData :
objSS.Select acSelectionSetAll, FilterType:=intType, FilterData:=VarType

Тему честно гуглил - не помогло(
Просмотров: 2477
 
Непрочитано 05.05.2020, 16:06
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Растры, насколько я помню, надо искать вообще по словарям. И потом уже проверять - найден файл или нет. Возможно, преобразовывать относительный путь в абсолютный. В общем, я бы искал там.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 05.05.2020, 21:04
#3
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


ramber, а лисп не подойдет?
Как автоматизировать отсоединение неиспользуемых IMAGE?
Как автоматизировать отсоединение ненайденых IMAGE и XREF ?
skkkk вне форума  
 
Автор темы   Непрочитано 06.05.2020, 18:57
#4
ramber


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


Спасибо! Попробую!
Жаль Лисп не понимаю, но попробую разобраться.
ramber вне форума  
 
Непрочитано 25.05.2020, 06:48
#5
Vadim_EC


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


Надеюсь что текст в пояснениях будет понятен. Проверил у себя - все нормально СС наполняется картинками

Код:
[Выделить все]
 
Function pf_SelectionSet()
    
    Dim arrFilterType(0 To 1) As Integer 'DFX коды
    arrFilterType(0) = 67 'DFX код модель или лист
    arrFilterType(1) = 0 'DFX код типа объекта

    Dim arrFilterData(0 To 1) 'значения что бы узнать как элемент назаыается надо воспользоваться _
    командой в автокаде - (ENTGET(CAR(ENTSEL)))
    arrFilterData(0) = 0 ' 0 это модель
    arrFilterData(1) = "IMAGE" ' Тип объекта
  
    Dim oSelectionSet As AcadSelectionSet
    On Error Resume Next
    oSelectionSet.Delete 'удаляю СС на всякий случай
    Set oSelectionSet = ThisDrawing.SelectionSets.Add("SS1") 'Добовляю СС
    oSelectionSet.Select acSelectionSetAll, , , arrFilterType, arrFilterData ' выбор всех элементов _
    в моделе типа "IMAGE"

End Function
Vadim_EC вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA:Получить коллекцию ссылок в чертеже

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Инвертировать отражение слоев внешних ссылок при открытии файла d.mOnII AutoCAD 12 15.12.2019 21:36
Проблема с отображением различных линий в Autocad и PDF при смене масштаба JimmyTodeski AutoCAD 3 13.01.2015 09:45
Как избавиться от ненужных ссылок на файл xls ? Krieger AutoCAD 4 19.05.2014 09:52
Близко расположенные линии в чертеже сливаются. Wowik53 AutoCAD 50 01.11.2008 21:40
Отслеживание ТАБЛИЦ на чертеже [программно] TwoZero Программирование 7 07.05.2008 10:52