找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 8075|回复: 80

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

  [复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-10-14 09:25:04 | 显示全部楼层 |阅读模式
  • 插件名称 : 实体信息
  • 作  者 : Newer
  • 运行环境 :XDRX API OpenDCL 晓东工具箱 
  • 发布时间 :2018-10-14
  • 命令名称 :xdtb_einfo
  • 插件介绍 :实体信息、扩展实体数据、扩展词典信息查询
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

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


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2107个

财富等级: 金玉满堂

发表于 2018-10-14 09:38:19 | 显示全部楼层
谢谢分享。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 173个

财富等级: 日进斗金

发表于 2018-10-14 09:57:23 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 64个

财富等级: 招财进宝

发表于 2018-10-14 11:34:45 | 显示全部楼层
学习一下,好程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 64个

财富等级: 招财进宝

发表于 2018-10-14 11:35:51 | 显示全部楼层
学习一下,学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 64个

财富等级: 招财进宝

发表于 2018-10-14 11:37:14 | 显示全部楼层
好程序,学习一下!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2018-10-14 12:21:03 | 显示全部楼层
能对xdata查询并编辑吗?我用doslib的对话框功能写了一个查询和编辑

点评

发布上来啊,分享下  详情 回复 发表于 2018-10-14 13:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6202个

财富等级: 富甲天下

发表于 2018-10-14 13:23:16 | 显示全部楼层
好程序,谢谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2018-10-14 13:27:34 | 显示全部楼层
liuyj 发表于 2018-10-14 12:21
能对xdata查询并编辑吗?我用doslib的对话框功能写了一个查询和编辑

发布上来啊,分享下

点评

献丑了。  详情 回复 发表于 2018-10-15 13:03
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 215个

财富等级: 日进斗金

发表于 2018-10-14 21:24:44 | 显示全部楼层
学习,向楼主学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 215个

财富等级: 日进斗金

发表于 2018-10-14 21:26:40 | 显示全部楼层
学习,向楼主学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 418个

财富等级: 日进斗金

发表于 2018-10-14 23:06:33 | 显示全部楼层
学习版主的程序,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 652个

财富等级: 财运亨通

发表于 2018-10-15 12:25:19 | 显示全部楼层
多谢分享.....
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

发表于 2018-10-15 13:03:33 | 显示全部楼层
本帖最后由 liuyj 于 2018-10-15 13:05 编辑
XDSoft 发表于 2018-10-14 13:27
发布上来啊,分享下

献丑了。
  1. (defun ToString        (a / result)
  2.   (eval        (cadr (assoc (type a)
  3.                      '((INT (itoa a))
  4.                        (LIST (vl-princ-to-string a))
  5.                        (REAL
  6.                         (rtos
  7.                          a
  8.                          2
  9.                          (if
  10.                           (zerop (- a (fix a)))
  11.                           1
  12.                           3
  13.                          )
  14.                         )
  15.                        )
  16.                       )
  17.               )
  18.         )
  19.   )
  20. )
  21. ;;;查询扩展数据
  22. (defun c:xcx (/ e xdata xd_list)
  23.   (if (setq e (entsel))
  24.     (progn (setq e     (car e)
  25.                  xdata (xdrx_xdata_get e)
  26.            )
  27.            (if xdata
  28.              (progn (setq xd_list (mapcar '(lambda (x)
  29.                                              (list (car x)
  30.                                                    (cond ((listp (cadr x)) (caadr x))
  31.                                                          ((= (type (cadr x)) 'STR) (cadr x))
  32.                                                          (T (tostring (cadr x)))
  33.                                                    )
  34.                                              )
  35.                                            )
  36.                                           xdata
  37.                                   )
  38.                     )
  39.                     (setq xd_list (dos_proplist "查看扩展数据" "扩展数据列表" xd_list))
  40.              )
  41.            )
  42.     )
  43.   )
  44.   (princ)
  45. )
  46. ;;;修改扩展数据
  47. (defun c:edx (/ e xdata xd_list xd_list1 xd_list2)
  48.   (if (setq e (entsel))
  49.     (progn (setq e     (car e)
  50.                  xdata (xdrx_xdata_get e)
  51.            )
  52.            (if xdata
  53.              (progn (setq xd_list (mapcar '(lambda (x)
  54.                                              (list (car x)
  55.                                                    (cond ((listp (cadr x)) (caadr x))
  56.                                                          ((= (type (cadr x)) 'STR) (cadr x))
  57.                                                          (T (tostring (cadr x)))
  58.                                                    )
  59.                                              )
  60.                                            )
  61.                                           xdata
  62.                                   )
  63.                     )
  64.                     (setq xd_list1 (dos_proplist "修改扩展数据" "扩展数据列表" xd_list))
  65.                     (foreach x xd_list
  66.                       (if (/= (cdr (assoc (car x) xd_list))
  67.                               (cdr (assoc (car x) xd_list1))
  68.                           )
  69.                         (setq xd_list2 (cons (assoc (car x) xd_list1) xd_list2))
  70.                       )
  71.                     )
  72.                     (mapcar '(lambda (x)
  73.                                (xdrx_xdata_set
  74.                                  e
  75.                                  (car x)
  76.                                  (if (XD::String:IsNum (cdr x))
  77.                                    (read (cdr x))
  78.                                    (cdr x)
  79.                                  )
  80.                                )
  81.                              )
  82.                             xd_list2
  83.                     )
  84.              )
  85.            )
  86.     )
  87.   )
  88.   (princ)
  89. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3442个

财富等级: 富可敌国

发表于 2018-10-15 16:22:12 | 显示全部楼层
感谢分享。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 23:03 , Processed in 0.442132 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表