paul писал(а):
А если чуть посложнее задачка?
Есть карта с 1000 участками. Есть список (например в Excel) с номерами 100 участков. Как пометить сразу все эти 100 участков? Будьте добры поделитесь скриптом или хотя бы натолкните на мысль.
;Проверяем открыта ли карта
$AM=@ActivateMap
@if $AM=0 then @Break Open map and try again
;Снимаем пометку со всех объектов
@Map.DeselectAll
;Из буфера обмена берем номера участков, каждый номер в новой строке
;Можно заменить на загрузку из файла @Text[1].Load D:\Temp\CadNumList.txt
@Text[1].Paste
$TC=@Text[1].Count
$I=0
;В цикле по всем строкам текста(номерам участков)
%Loop
$I=$I+1
;Извлекаем очередной номер
$CN=@Text[1].Line[$I]
;Добавляем к помеченным объекты,подходящие под условие
;В данном случае помечаем объекты слоя с ID20000, у которых
;в параметре IDXXX содержится очередной номер из списка
@Map.SelectByParameters 2|-7=20000|IDXXX=$CN
;На начало цикла, если не все строки текста пройдены
@if $I<$TC then @Goto %Loop
;