[Иванов Дмитрий]

Как программно в автолиспе проверить видимость слоя (что слой включен/отключен) и при необходимости отключить/включить его? Например.
С помощью getvar ... - setvar ... это можно сделать?

[Дима_]

Сообщение от Иванов Дмитрий С помощью getvar ... - setvar ... это можно сделать?

Нет можно с помощью (tblsearch "layer" "имя_слоя") и DXF Reference, либо через vla-get..., vla-put... и (vla-item (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))) "имя_слоя").

[skkkk]

Посмотреть все свойства слоя ("0" - имя слоя):

Код:

[Выделить все]

(vlax-dump-object (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0"))

Свойство LayerOn отвечает за вкл/выкл слоя.
Проверить включен/выключен ли слой ("0" - имя слоя):

Код:

[Выделить все]

(vla-get-LayerOn (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0"))

если вернет :vlax-true, значит слой включен, :vlax-false - выключен
Выключить слой ("0" - имя слоя):

Код:

[Выделить все]

(vla-put-LayerOn (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") 0)

ну и так далее...

[Startrek]

Простенький пример:

(defun c:togle()
(setq la (strcase(getvar"clayer")))
(if (= la "VIEWLAYER")(setvar"clayer" "0"))
(setq lcond (tblsearch "layer" "viewlayer"))
(setq comp (cdr (assoc 62 lcond)))
(cond
((< comp 0)(command "layer" "on" "viewlayer" ""))
((> comp 0)(command "layer" "off" "viewlayer" ""))
)
(princ)
)

[Иванов Дмитрий]

Спасибо, получилось
Нужно было сделать кнопку в автокаде на вкл/выкл слоя defpoints:

(defun c:1 (/ la lcond comp)
(setq la (strcase (getvar "clayer")))
(if (= la "DEFPOINTS")
(setvar "clayer" "0")
)
(setq lcond (tblsearch "layer" "defpoints"))
(setq comp (cdr (assoc 62 lcond)))
(cond
((< comp 0) (command "_layer" "_on" "defpoints" ""))
((> comp 0) (command "_layer" "_off" "defpoints" ""))
)
(setvar "clayer" la)
(princ)
)

И в свойствах кнопки macro (пользовательская команда): ^C^C(load "d:/tmp.lsp")^C^C1

[Profan]

Оставил бы ты слой "defpoints" в покое...