属性转XDATA

Lispboy · 发表于 2018-10-2 23:30:33

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

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

×

(defun c:xdtb_att2xdata (/ ss atts x y)
(if (setq ss (ssget "x" '((0 . "insert") (66 . 1))))
(progn
(if (and (xdrx_initssget "\n选择属性转XDATA的图块<退出>:")
(setq ss (xdrx_ssget '((0 . "insert") (66 . 1))))
)
(progn
(mapcar
'(lambda (x)
(setq atts (xdrx_getpropertyvalue x "attributeentities"))
(apply
'xdrx_xdata_set
(cons
x
(cons
(xdrx_getpropertyvalue x "name")
(mapcar '(lambda (y)
(xdrx_getpropertyvalue y "textstring")
)
atts
)
)
)
)
)
(xdrx_pickset->ents ss)
)
)
)
)
(progn (xdrx_prompt "\n当前图没有发现带属性的图块."))
)
(princ)
)

(defun c:xdtb_att2xdata (/ ss atts x y) 
  (if (setq ss (ssget "x" '((0 . "insert") (66 . 1)))) 
    (progn 
      (if (and (xdrx_initssget "\n选择属性转XDATA的图块<退出>:") 
               (setq ss (xdrx_ssget '((0 . "insert") (66 . 1)))) 
          ) 
        (progn 
          (mapcar 
            '(lambda (x) 
               (setq atts (xdrx_getpropertyvalue x "attributeentities")) 
               (apply 
                 'xdrx_xdata_set 
                 (cons 
                   x 
                   (cons 
                     (xdrx_getpropertyvalue x "name") 
                     (mapcar '(lambda (y) 
                                (xdrx_getpropertyvalue y "textstring") 
                              ) 
                             atts 
                     ) 
                   ) 
                 ) 
               ) 
             ) 
            (xdrx_pickset->ents ss) 
          ) 
        ) 
      ) 
    ) 
    (progn (xdrx_prompt "\n当前图没有发现带属性的图块.")) 
  ) 
  (princ) 
)

longer88 · 发表于 2018-10-3 04:56:52

非常感谢，学习学习

cfc123456 · 发表于 2018-10-3 09:16:07

非常感谢！！

evayleung · 发表于 2018-10-3 10:25:33

谢谢分享。。。。

yuren008 · 发表于 2018-10-3 12:12:54

谢谢楼主分享。

xinrstar · 发表于 2018-10-9 11:26:04

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

[属性] 属性转XDATA

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