API应用不同属性块间相同属性匹配

st788796 · 发表于 2014-2-14 20:42:39

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

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

×

本帖最后由 st788796 于 2014-2-15 08:48 编辑

(defun c:tt (/ e lst ss)
(if (setq e (car (xdrx_entsel "\n点选源属性块: " '((66 . 1)))))
(progn
(setq
lst (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "Tag")
(xdrx_getpropertyvalue x "Textstring")
)
)
(xdrx_insert_getattribs e)
)
)
(while (progn
(princ "\n选择目标属性块.....")
(setq ss (ssget '((66 . 1))))
)
(mapcar
'(lambda (x)
(mapcar
'(lambda (a / var)
(if (setq
var (assoc (xdrx_getpropertyvalue a "Tag") lst)
)
(xdrx_setpropertyvalue a "Textstring" (cadr var))
)
)
(xdrx_insert_getattribs x)
)
)
(xdrx_pickset->ents ss)
)
)
)
)
(princ)
)

(defun c:tt (/ e lst ss) 
  (if (setq e (car (xdrx_entsel "\n点选源属性块: " '((66 . 1))))) 
    (progn 
      (setq 
        lst (mapcar '(lambda (x) 
                       (list (xdrx_getpropertyvalue x "Tag") 
                             (xdrx_getpropertyvalue x "Textstring") 
                       ) 
                     ) 
                    (xdrx_insert_getattribs e) 
            ) 
      ) 
      (while (progn 
               (princ "\n选择目标属性块.....") 
               (setq ss (ssget '((66 . 1)))) 
             ) 
        (mapcar 
          '(lambda (x) 
             (mapcar 
               '(lambda        (a / var) 
                  (if (setq 
                        var (assoc (xdrx_getpropertyvalue a "Tag") lst) 
                      ) 
                    (xdrx_setpropertyvalue a "Textstring" (cadr var)) 
                  ) 
                ) 
               (xdrx_insert_getattribs x) 
             ) 
           ) 
          (xdrx_pickset->ents ss) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

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

[发布] API应用 不同属性块间相同属性匹配

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

[发布] API应用不同属性块间相同属性匹配