动态块刷子

eachy · 发表于 2013-9-28 10:21:29

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

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

×

一个尝试，没有测试更多属性

(defun c:tt (/ e e1 properties)
(if (and (setq
e (car (xdrx_entsel "\n拾取源动态块: " '((0 . "INSERT"))))
)
(if (xdrx_dynblock_isdyn e)
t
(progn
(princ "\nNot DynamicBlock!")
nil
)
)
)
(while
(and (setq e1
(car (xdrx_entsel "\n选择匹配动态块: " '((0 . "INsert"))))
)
(if (equal (xdrx_dynblock_dynblockid e1)
(xdrx_dynblock_dynblockid e)
)
t
(progn
(princ "\nNot Same DynamicBlock!")
nil
)
)
)
(setq properties
(mapcar '(lambda (a / l)
(setq l (vl-remove-if-not
'(lambda (b)
(member
(car b)
'("PropertyName" "Value")
)
)
a
)
)
(list "PropertyName" (cadar l) (cadadr l))
)
(vl-remove-if
'(lambda (x)
(cadr (assoc "ReadOnly" x))
)
(xdrx_dynblock_getproperty e)
)
)
)
(apply 'xdrx_dynblock_setvalue
(cons e1
(apply 'append
(mapcar 'cdr
(vl-remove-if
'(lambda (x) (= (cadr x) "Origin"))
properties
)
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ e e1 properties) 
  (if (and (setq 
         e (car (xdrx_entsel "\n拾取源动态块: " '((0 . "INSERT")))) 
       ) 
       (if (xdrx_dynblock_isdyn e) 
         t 
         (progn 
           (princ "\nNot DynamicBlock!") 
           nil 
         ) 
       ) 
      ) 
    (while 
      (and (setq e1 
          (car (xdrx_entsel "\n选择匹配动态块: " '((0 . "INsert")))) 
       ) 
       (if (equal (xdrx_dynblock_dynblockid e1) 
              (xdrx_dynblock_dynblockid e) 
           ) 
         t 
         (progn 
           (princ "\nNot Same DynamicBlock!") 
           nil 
         ) 
       ) 
      ) 
       (setq properties 
          (mapcar '(lambda (a / l) 
             (setq l (vl-remove-if-not 
                   '(lambda (b) 
                      (member 
                    (car b) 
                    '("PropertyName" "Value") 
                      ) 
                    ) 
                   a 
                 ) 
             ) 
             (list "PropertyName" (cadar l) (cadadr l)) 
               ) 
              (vl-remove-if 
            '(lambda (x) 
               (cadr (assoc "ReadOnly" x)) 
             ) 
            (xdrx_dynblock_getproperty e) 
              ) 
          ) 
       ) 
       (apply 'xdrx_dynblock_setvalue 
          (cons e1 
            (apply 'append 
               (mapcar 'cdr 
                   (vl-remove-if 
                     '(lambda (x) (= (cadr x) "Origin")) 
                     properties 
                   ) 
               ) 
            ) 
          ) 
       ) 
    ) 
  ) 
  (princ) 
)

q3_2006 · 发表于 2013-9-28 13:29:38

大大最好说明一下适用范围，动态变数太多，那些特性可以刷，块和块的区别大了。无法想象怎么个刷法！

eachy · 发表于 2013-9-28 13:37:03

q3_2006 发表于 2013-9-28 13:29
大大最好说明一下适用范围，动态变数太多，那些特性可以刷，块和块的区别大了。无法想象怎么个刷法！

自己没有试验过所有的参数，仅是基于对函数理解写的，ReadOnly 为 T 的属性包括 Origin 属性都过滤掉了

q3_2006 · 发表于 2013-9-28 13:55:05

eachy 发表于 2013-9-28 13:37
自己没有试验过所有的参数，仅是基于对函数理解写的，ReadOnly 为 T 的属性包括 Origin 属性都过滤掉了

估计没法达到目的，参数太多，随便找两个动态块刷了一下，Not Same DynamicBlock!

Free-Lancer · 发表于 2013-9-28 14:14:46

q3_2006 发表于 2013-9-28 13:55
估计没法达到目的，参数太多，随便找两个动态块刷了一下，Not Same DynamicBlock!

大致看了看，所谓“刷子”两个动态块是基于同一个源块定义，如果是不同的源，直接删除-〉复制过去即可

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

[研讨] 动态块刷子

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

相关帖子

点评

点评

点评

浏览过的版块