Комментарии на: Прозрачность в AutoCAD

От: ElpanovEvgeniy

ElpanovEvgeniy — Tue, 13 Jan 2015 13:54:25 +0000

>> И все равно ActiveX не работает. Блин, что ж я там не так делаю-то, интересно?

Вообще то, все работает и если чертеж сохранить и заново открыть, все отображается верно!
Проблема в том, что у слоя нет метода для обновления видимости прозрачности. Все подразумевается автоматом. Вот и выходит, что через activex можно изменить прозрачность, но мы это не увидим...

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 13 Jan 2015 11:43:20 +0000

Спасибо, добавил: в ename

1	(regapp "AcCmTransparency")

в vla

1	(vla-add (vla-get-RegisteredApplications (vla-get-ActiveDocument (vlax-get-acad-object))) "AcCmTransparency")

И все равно ActiveX не работает. Блин, что ж я там не так делаю-то, интересно?
P.S. Еще немного, и опять на форуме задам вопрос ))))
P.P.S. Ссылки на соответствующие коды:
layer-trans-ename
layer-trans-vla

От: ElpanovEvgeniy

ElpanovEvgeniy — Tue, 13 Jan 2015 11:14:32 +0000

Алексей, инициализацию прозрачности для задания прозрачности нулевому слою, можно сделать и без обращений к командной строке:

1	(REGAPP "AcCmTransparency")

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 13 Jan 2015 11:10:27 +0000

Добавлю: прозрачность до 1 расценивается как %, больше - как биты (по аналогии с решением Евгения).

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 13 Jan 2015 09:41:43 +0000

Для продолжения экспериментов нарисовал пару кодов (Евгений, я использовал твои подходы, каюсь ;)):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

(defun layer-trans-vla (name tr / ent xd xt adoc err)
;; name : имя слоя
;; tr : прозрачность
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(if (vl-catch-all-error-p
(setq err (vl-catch-all-apply
(function
(lambda ()
(setq ent (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) name))
(vla-getxdata ent "AcCmTransparency" 'xt 'xd)
(setq xt (if xt
(vlax-safearray->list xt)
(list 1001 1071)
) ;_ end of if
xd (if xd
(mapcar (function vlax-variant-value) (vlax-safearray->list xd))
(list "AcCmTransparency" 0)
) ;_ end of if
xd (mapcar (function cons) xt xd)
xd (subst (cons 1071
(cond
((< tr 1.) (+ 33554431 (fix (* (- 1. tr) 256))))
(t (+ 33554431 (- 256 tr)))
) ;_ end of cond
) ;_ end of cons
(assoc 1071 xd)
xd
) ;_ end of subst
) ;_ end of setq
(vla-setxdata
ent
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbinteger
(cons 0 (1- (length xd)))
) ;_ end of vlax-make-safearray
(mapcar (function car) xd)
) ;_ end of vlax-safearray-fill
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbvariant
(cons 0 (1- (length xd)))
) ;_ end of vlax-make-safearray
(mapcar
(function
(lambda (x)
(vlax-make-variant (cdr x))
) ;_ end of LAMBDA
) ;_ end of function
xd
) ;_ end of mapcar
) ;_ end of vlax-safearray-fill
) ;_ end of vla-setxdata
) ;_ end of lambda
) ;_ end of function
) ;_ end of vl-catch-all-apply
) ;_ end of setq
) ;_ end of vl-catch-all-error-p
(princ (strcat "\nError : " (vl-catch-all-error-message err)))
) ;_ end of if
(command "_.regenall")
) ;_ end of defun

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

(defun layer-trans-ename (name tr / ent xd value)
;; name : имя слоя
;; tr : прозрачность
(setq ent (tblobjname "layer" name)
ent (entget ent '("*"))
xd (cdr (assoc -3 ent))
value (cond
((< tr 1.) (+ 33554431 (fix (* (- 1. tr) 256))))
(t (+ 33554431 (- 256 tr)))
) ;_ end of cond

) ;_ end of setq

(setq xd (if xd
(subst (cons "AcCmTransparency"
(subst (cons 1071 value)
(assoc 1071 (cdr (assoc "AcCmTransparency" xd)))
(cdr (assoc "AcCmTransparency" xd))
) ;_ end of subst
) ;_ end of cons
(assoc "AcCmTransparency" xd)
xd
) ;_ end of subst
(cons "AcCmTransparency" (list (cons 1071 value)))
) ;_ end of if
) ;_ end of setq

(entmod (if (assoc -3 ent)
(subst (cons -3 xd) (assoc -3 ent) ent)
(append ent (list (list -3 xd)))
) ;_ end of if
) ;_ end of entmod
(entupd (cdr (assoc -1 ent)))
(command "_.regenall")
) ;_ end of defun

Попробовал я этими функциями поменять прозрачность слоя "0". Получились забавнейшие вещи
1. ActiveX-подход не срабатывает. От слова совсем. Ни при каких обстоятельствах. Даже если у слоя уже есть какое-то значение прозрачности - оно не меняется.
2. ename срабатывает только если уже была попытка задать прозрачность слою руками или командой _.-layer _tr (причем необязательно обрабатываемому).
3. Достаточно в ename-обработку добавить строку вида

1	(command "_.-layer" "_tr" nil nil)

как функция начинает корректно работать. Явно в файл dwg загружаются какие-то дополнительные приложения (этот вопрос я пока еще не исследовал).

От: ElpanovEvgeniy

ElpanovEvgeniy — Tue, 13 Jan 2015 07:47:05 +0000

Действительно, проверил код в 2014 акаде, удаление 440 кода не работает...
Новая версия с исправлениями:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

(defun EEA-SET-TRANSPARENCY (E I F)
;;by ElpanovEvgeniy
;; по мотивам статьи http://autolisp.ru/2015/01/12/acad_transparency/
;; установка прозрачности для примитива
;;
;; E - Примитив (car(entsel))
;; I - Прозрачность в процентах (1 - 99), битах (0 - 255), либо ПоСлою/ПоБлоку
;; F - Флаг, если задан, то I задается в битах, иначе в процентах.
;; при задании прозрачности ПоСлою/ПоБлоку флаг игнорируется.
;;
;; пример вызова:
;; (EEA-SET-TRANSPARENCY (car(entsel)) 20 nil) ;установка прозрачности 20%
;; (EEA-SET-TRANSPARENCY (car(entsel)) 240 t) ;установка прозрачности 20%
;; (EEA-SET-TRANSPARENCY (car(entsel)) acbylayer t) ;установка прозрачности по слою
;; (EEA-SET-TRANSPARENCY (car(entsel)) acbyblock nil) ;установка прозрачности по блоку
;; Возвращаемое значение - измененный DXF список примитива.
;|
(defun C:T1 ()
;; тестирование установки прозрачности с заданием процентов.
(EEA-SET-TRANSPARENCY (car (entsel "\n Выберите примитив для смены прозрачности"))
(getint "\nВведите процент прозрачности")
NIL
)
(princ)
)
|;
(cond ((= I acbyblock) (entmod (append (entget E) '((440 . 16777216)))))
((entmod (append (entget E)
(list (cons 440
(if (= I acbylayer)
256
(+ 33554431
(if F
(- 256 I)
(fix (* (- 100 I) 2.56))
)
)
)
)
)
)
)
)
)
)

От: ElpanovEvgeniy

ElpanovEvgeniy — Mon, 12 Jan 2015 15:25:57 +0000

Привет, Алексей!

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

(defun EEA-SET-TRANSPARENCY (E I F)
;;by ElpanovEvgeniy
;; по мотивам статьи http://autolisp.ru/2015/01/12/acad_transparency/
;; установка прозрачности для примитива
;;
;; E - Примитив (car(entsel))
;; I - Прозрачность в процентах (1 - 99), битах (0 - 255), либо ПоСлою/ПоБлоку
;; F - Флаг, если задан, то I задается в битах, иначе в процентах.
;; при задании прозрачности ПоСлою/ПоБлоку флаг игнорируется.
;;
;; пример вызова:
;; (EEA-SET-TRANSPARENCY (car(entsel)) 20 nil) ;установка прозрачности 20%
;; (EEA-SET-TRANSPARENCY (car(entsel)) 240 t) ;установка прозрачности 20%
;; (EEA-SET-TRANSPARENCY (car(entsel)) acbylayer t) ;установка прозрачности по слою
;; (EEA-SET-TRANSPARENCY (car(entsel)) acbyblock nil) ;установка прозрачности по блоку
;; Возвращаемое значение - измененный DXF список примитива.
;|
(defun C:T1 ()
;; тестирование установки прозрачности с заданием процентов.
(EEA-SET-TRANSPARENCY-%
(car (entsel "\n Выберите примитив для смены прозрачности"))
(getint "\nВведите процент прозрачности")
NIL
)
(princ)
)
|;
(cond ((= I acbylayer) (entmod (vl-remove (assoc 440 (entget E)) (entget E))))
((= I acbyblock) (entmod (append (entget E) '((440 . 16777216)))))
((entmod (append (entget E) (list (cons 440 (+ 33554431 (if F (- 256 I) (fix (* (- 100 I) 2.56)))))))))))