设置反应器，自动把插入的IMAGE显示顺序调到最下并设置FADE=80

marting · 发表于 2018-3-30 10:55:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

游客，如果您要查看本帖隐藏内容请回复

(defun C:FadeAttachOn nil
(cond
( (not FadeAttach:CB) (alert "\nFadeAttach:CB function not defined!") )
(T
(cond
( (vl-some '(lambda (r) (= "FadeAttach" (vlr-data r))) (cdar (vlr-reactors :vlr-Command-reactor))) )
(T (vlr-Command-reactor "FadeAttach" '((:vlr-commandEnded . FadeAttach:CB))) )
); cond
(alert "\nFade Attach Reactor enabled! \nNow the attached images would be send to back and faded by 80%." )
(defun C:FadeAttachOff nil
(foreach rtr (cdar (vlr-reactors :vlr-Command-reactor))
(if (= "FadeAttach" (vlr-data rtr)) (vlr-remove rtr))
); foreach
(alert "\nFade Attach Text Reactor disabled!") (princ)
); defun C:FadeAttachOff
)
); cond
(princ)
); defun C:FadeAttachOn
(defun FadeAttach:CB ( rtr args / e o )
(and
(member (car args) '("ATTACH" "XATTACH" "DWFATTACH" "IMAGEATTACH" "PDFATTACH" "POINTCLOUDATTACH" "COORDINATIONMODELATTACH"))
(setq e (entlast)) (setq o (vlax-ename->vla-object e))
(eq (vla-get-ObjectName o) "AcDbRasterImage") (vlax-property-available-p o 'Fade) (vlax-write-enabled-p o)
(progn
(vla-put-Fade o 80)
(vl-catch-all-apply
(function
(lambda ( / )
(vlax-invoke
(vla-AddObject
(vla-GetExtensionDictionary (vla-get-Block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))))
"ACAD_SORTENTS" "AcDbSortentsTable"
)
'MoveToBottom (list o)
)
)
)
); vl-catch-all-apply
); progn
); and
(princ)
); defun

(defun C:FadeAttachOn nil 
  (cond 
    ( (not FadeAttach:CB) (alert "\nFadeAttach:CB function not defined!") ) 
    (T 
      (cond 
        ( (vl-some '(lambda (r) (= "FadeAttach" (vlr-data r))) (cdar (vlr-reactors :vlr-Command-reactor))) ) 
        (T (vlr-Command-reactor "FadeAttach" '((:vlr-commandEnded . FadeAttach:CB))) ) 
      ); cond 
      (alert "\nFade Attach Reactor enabled! \nNow the attached images would be send to back and faded by 80%." ) 
      (defun C:FadeAttachOff nil 
        (foreach rtr (cdar (vlr-reactors :vlr-Command-reactor)) 
          (if (= "FadeAttach" (vlr-data rtr)) (vlr-remove rtr)) 
        ); foreach 
        (alert "\nFade Attach Text Reactor disabled!") (princ) 
      ); defun C:FadeAttachOff 
    ) 
  ); cond 
  (princ) 
); defun C:FadeAttachOn 
 
 
(defun FadeAttach:CB ( rtr args / e o ) 
  (and 
    (member (car args) '("ATTACH" "XATTACH" "DWFATTACH" "IMAGEATTACH" "PDFATTACH" "POINTCLOUDATTACH" "COORDINATIONMODELATTACH")) 
    (setq e (entlast)) (setq o (vlax-ename->vla-object e)) 
    (eq (vla-get-ObjectName o) "AcDbRasterImage") (vlax-property-available-p o 'Fade) (vlax-write-enabled-p o) 
    (progn 
      (vla-put-Fade o 80) 
      (vl-catch-all-apply 
        (function 
          (lambda ( / ) 
            (vlax-invoke 
              (vla-AddObject 
                (vla-GetExtensionDictionary (vla-get-Block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))) 
                "ACAD_SORTENTS" "AcDbSortentsTable" 
              ) 
              'MoveToBottom (list o) 
            ) 
          ) 
        ) 
      ); vl-catch-all-apply 
    ); progn 
  ); and 
  (princ) 
); defun

/db_自贡黄明儒_ · 发表于 2018-3-30 15:21:35

写得不错，会不会与版本有关呢？

zyclyl · 发表于 2018-3-30 16:39:18

好像很厉害的样子

q3_2006 · 发表于 2018-3-30 17:09:23

这个牛呀..

ynhh · 发表于 2018-3-30 17:31:50

反应器感觉很难，一直不敢动

sicky111 · 发表于 2018-3-31 00:36:52

回复学习。

laiz3000 · 发表于 2018-3-31 11:28:04

学习反应器

kqqt6236 · 发表于 2018-4-3 00:31:02

学习一下。

HLCAD · 发表于 2018-4-11 16:37:22

感谢大师！！！

qingchao · 发表于 2018-6-9 11:35:26

都是高手高高手啊

qq2222081387 · 发表于 2018-11-18 16:24:22

sachindkini · 发表于 2018-11-20 19:20:03

dear sir,

wow its very nice

thanks for sharing

sachindkini · 发表于 2018-11-20 19:21:58

dear sir,

wow its very nice

thanks for sharing

satan421 · 发表于 2019-1-19 18:17:14

学习学习谢谢楼主

liulisheng · 发表于 2020-1-15 16:48:22

回复学习。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 设置反应器，自动把插入的IMAGE显示顺序调到最下并设置FADE=80

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分