动态块完全匹配

eachy · 发表于 2013-10-9 09:19:16

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

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

×

[pcode=lisp,true]
(defun c:XDTB_DYNMat (/ e e1 properties)
  (xd::begin)
  (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
               )
            )
         )
      )
   )
)
  )
  (xd::end)
  (princ)
)[/pcode]

q3_2006 · 发表于 2013-10-9 13:04:11

2014，很好用！

sachindkini · 发表于 2013-10-10 13:19:25

dear sir, wow nice

webyl · 发表于 2013-10-10 13:56:51

good job!
my daling

721118231 · 发表于 2013-10-10 18:02:31

顶顶顶！！！！！！！！！！！！！！！！！！！！！！！

zhuo2013 · 发表于 2013-10-25 15:50:41

新人入论坛学习

you238 · 发表于 2013-12-22 15:50:36

动态两个字是怎么理解的

enn09 · 发表于 2014-4-16 10:13:26

感谢分享，好程序，很实用

cooolsee · 发表于 2014-5-8 21:57:03

强大，真的好好学习学习

960322960322 · 发表于 2014-5-15 21:52:19

这个好，就是刷动态块

lifenwei · 发表于 2014-5-16 09:02:08

不错。。。很有用。修改块很好用

mainss1 · 发表于 2014-8-20 01:15:46

真的很实用

mainss1 · 发表于 2014-8-20 01:21:15

真的很实用

mainss1 · 发表于 2014-8-20 01:26:47

真的很实用

墙角哥 · 发表于 2016-8-9 23:52:59

谢谢分享！

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

[图块] 动态块完全匹配

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

相关帖子