实体信息、扩展实体数据、扩展词典信息查询

newer · 发表于 2018-10-14 09:25:04

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

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

x

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

evayleung · 发表于 2018-10-14 09:38:19

谢谢分享。。。。。

xinrstar · 发表于 2018-10-14 09:57:23

hhhlike · 发表于 2018-10-14 11:34:45

学习一下，好程序

hhhlike · 发表于 2018-10-14 11:35:51

学习一下，学习一下

hhhlike · 发表于 2018-10-14 11:37:14

好程序，学习一下!!!!

liuyj · 发表于 2018-10-14 12:21:03

能对xdata查询并编辑吗？我用doslib的对话框功能写了一个查询和编辑

Michael527 · 发表于 2018-10-14 13:23:16

好程序，谢谢分享！

XDSoft · 发表于 2018-10-14 13:27:34

liuyj 发表于 2018-10-14 12:21
能对xdata查询并编辑吗？我用doslib的对话框功能写了一个查询和编辑

发布上来啊，分享下

duxiaoqing85 · 发表于 2018-10-14 21:24:44

学习，向楼主学习！

duxiaoqing85 · 发表于 2018-10-14 21:26:40

学习，向楼主学习！

renyonghua2014 · 发表于 2018-10-14 23:06:33

学习版主的程序，谢谢！

whdong76 · 发表于 2018-10-15 12:25:19

多谢分享.....

liuyj · 发表于 2018-10-15 13:03:33

本帖最后由 liuyj 于 2018-10-15 13:05 编辑

XDSoft 发表于 2018-10-14 13:27
发布上来啊，分享下

献丑了。

(defun ToString (a / result)
(eval (cadr (assoc (type a)
'((INT (itoa a))
(LIST (vl-princ-to-string a))
(REAL
(rtos
a
2
(if
(zerop (- a (fix a)))
1
3
)
)
)
)
)
)
)
)
;;;查询扩展数据
(defun c:xcx (/ e xdata xd_list)
(if (setq e (entsel))
(progn (setq e (car e)
xdata (xdrx_xdata_get e)
)
(if xdata
(progn (setq xd_list (mapcar '(lambda (x)
(list (car x)
(cond ((listp (cadr x)) (caadr x))
((= (type (cadr x)) 'STR) (cadr x))
(T (tostring (cadr x)))
)
)
)
xdata
)
)
(setq xd_list (dos_proplist "查看扩展数据" "扩展数据列表" xd_list))
)
)
)
)
(princ)
)
;;;修改扩展数据
(defun c:edx (/ e xdata xd_list xd_list1 xd_list2)
(if (setq e (entsel))
(progn (setq e (car e)
xdata (xdrx_xdata_get e)
)
(if xdata
(progn (setq xd_list (mapcar '(lambda (x)
(list (car x)
(cond ((listp (cadr x)) (caadr x))
((= (type (cadr x)) 'STR) (cadr x))
(T (tostring (cadr x)))
)
)
)
xdata
)
)
(setq xd_list1 (dos_proplist "修改扩展数据" "扩展数据列表" xd_list))
(foreach x xd_list
(if (/= (cdr (assoc (car x) xd_list))
(cdr (assoc (car x) xd_list1))
)
(setq xd_list2 (cons (assoc (car x) xd_list1) xd_list2))
)
)
(mapcar '(lambda (x)
(xdrx_xdata_set
e
(car x)
(if (XD::String:IsNum (cdr x))
(read (cdr x))
(cdr x)
)
)
)
xd_list2
)
)
)
)
)
(princ)
)

(defun ToString        (a / result) 
  (eval        (cadr (assoc (type a) 
                     '((INT (itoa a)) 
                       (LIST (vl-princ-to-string a)) 
                       (REAL 
                        (rtos 
                         a 
                         2 
                         (if 
                          (zerop (- a (fix a))) 
                          1 
                          3 
                         ) 
                        ) 
                       ) 
                      ) 
              ) 
        ) 
  ) 
) 
;;;查询扩展数据 
(defun c:xcx (/ e xdata xd_list) 
  (if (setq e (entsel)) 
    (progn (setq e     (car e) 
                 xdata (xdrx_xdata_get e) 
           ) 
           (if xdata 
             (progn (setq xd_list (mapcar '(lambda (x) 
                                             (list (car x) 
                                                   (cond ((listp (cadr x)) (caadr x)) 
                                                         ((= (type (cadr x)) 'STR) (cadr x)) 
                                                         (T (tostring (cadr x))) 
                                                   ) 
                                             ) 
                                           ) 
                                          xdata 
                                  ) 
                    ) 
                    (setq xd_list (dos_proplist "查看扩展数据" "扩展数据列表" xd_list)) 
             ) 
           ) 
    ) 
  ) 
  (princ) 
) 
;;;修改扩展数据 
(defun c:edx (/ e xdata xd_list xd_list1 xd_list2) 
  (if (setq e (entsel)) 
    (progn (setq e     (car e) 
                 xdata (xdrx_xdata_get e) 
           ) 
           (if xdata 
             (progn (setq xd_list (mapcar '(lambda (x) 
                                             (list (car x) 
                                                   (cond ((listp (cadr x)) (caadr x)) 
                                                         ((= (type (cadr x)) 'STR) (cadr x)) 
                                                         (T (tostring (cadr x))) 
                                                   ) 
                                             ) 
                                           ) 
                                          xdata 
                                  ) 
                    ) 
                    (setq xd_list1 (dos_proplist "修改扩展数据" "扩展数据列表" xd_list)) 
                    (foreach x xd_list 
                      (if (/= (cdr (assoc (car x) xd_list)) 
                              (cdr (assoc (car x) xd_list1)) 
                          ) 
                        (setq xd_list2 (cons (assoc (car x) xd_list1) xd_list2)) 
                      ) 
                    ) 
                    (mapcar '(lambda (x) 
                               (xdrx_xdata_set 
                                 e 
                                 (car x) 
                                 (if (XD::String:IsNum (cdr x)) 
                                   (read (cdr x)) 
                                   (cdr x) 
                                 ) 
                               ) 
                             ) 
                            xd_list2 
                    ) 
             ) 
           ) 
    ) 
  ) 
  (princ) 
)

=^_^= · 发表于 2018-10-15 16:22:12

感谢分享。。。。

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

[工具] 实体信息、扩展实体数据、扩展词典信息查询

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

点评

点评