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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная работа с конфигурацией слоев

Программная работа с конфигурацией слоев

Ответ
Поиск в этой теме
Непрочитано 14.10.2014, 10:46 #1
Программная работа с конфигурацией слоев
roaa
 
ОПС
 
Kazakhstan
Регистрация: 29.03.2012
Сообщений: 128

Второй день бьюсь, никак не могу программно определить слои, входящих в определенную конфигурацию слоев. Может кто подскажет? Список конфигураций слоев определяю кодом:
Код:
[Выделить все]
 
;;; Список конфигурация слоя и vla-указатель на него
(defun _sensor_ConfLay ( / ACAD_LAYERSTATES_dict) 
  (setq ConfLay               nil
        ACAD_LAYERSTATES_dict
                              (vl-catch-all-apply
                               '(lambda (x) (vla-Item x "ACAD_LAYERSTATES"))
                                (list 
                                  (vla-GetExtensionDictionary
                                    (vla-get-Layers 
                                      (vla-get-ActiveDocument (vlax-get-acad-object))
                                    )
                                  )
                                )
                              )
  )
  (cond (  (vl-catch-all-error-p ACAD_LAYERSTATES_dict) nil)
        (  (and (vlax-for x ACAD_LAYERSTATES_dict (setq ConfLay (cons x ConfLay)))
                ConfLay
           )
           (mapcar '(lambda (l)(cons (vla-get-name l) l)) ConfLay)
        )
  )
)

;;; Список конфигураций слоев
(mapcar 'car (_sensor_ConfLay))
Просмотров: 3796
 
Непрочитано 14.10.2014, 11:40
#2
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Код:
[Выделить все]
  0
LAYER
  5
10
102
{ACAD_XDICTIONARY
360
1A4
102
}
330
2
100
AcDbSymbolTableRecord
100
AcDbLayerTableRecord
  2
0
 70
     0
 62
   254
420
 12766934
  6
Continuous
370
    -3
390
F
347
EE
348
0
Код:
[Выделить все]
  0
DICTIONARY
  5
1A4
330
10
100
AcDbDictionary
280
     1
281
     1
  3
ADSK_XREC_LAYER_RECONCILED
360
2FC
trir вне форума  
 
Автор темы   Непрочитано 14.10.2014, 14:07
#3
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


Не хотелось бы обращаться к файлам. С самого чертежа неужели невозможно?

----- добавлено через ~29 мин. -----
Ответ найден. Для работы с конфигурацией слоев в лисп есть команды:
layerstate-addlayers
layerstate-export
layerstate-getlayers
layerstate-import
layerstate-restore

Последний раз редактировалось roaa, 26.10.2014 в 00:04.
roaa вне форума  
 
Непрочитано 14.10.2014, 15:10
#4
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


А на VBA - всё печально...
trir вне форума  
 
Непрочитано 25.01.2018, 14:50
#5
rino_black


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


Добрый день! Помогите пожалуйста.нужно сделать процесс загрузки las фаила и востановление одной кнопкой. Есть команда ^c^c(layerstate-import "C:/K/template/2015.las"); - импорт фильтра слоев без входа в диспетчер конфигурации слоев, а вот как восстановить этот список не понятно,команду (layerstate-retore) не хочет автокад приимать.может какой lisp
rino_black вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная работа с конфигурацией слоев

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Для чего нужны фильтры слоев?Как ими пользоваться? Aysulu AutoCAD 43 17.04.2019 10:59
Акты скрытых работ Витос Прочее. Архитектура и строительство 324 05.03.2015 12:24
Массовое переименование слоев в группе файлов nik_mb Готовые программы 19 26.12.2011 17:20
Программная работа с маской Mtext'a (Background Fill, скрытие заднего плана) kp+ Программирование 2 07.05.2008 15:16