设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 140|回复: 7

[工具] 属性定义标签、提示、默认值修改

[复制链接]

签到天数: 417 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 2018-10-6 16:20:51 | 显示全部楼层 |阅读模式
  • 插件名称 : 属性定义
  • 作  者 : Lispboy
  • 运行环境 :XDRX API OpenDCL 晓东工具箱 
  • 发布时间 :2018-10-06
  • 命令名称 :xdtb_attedit
  • 插件介绍 :属性定义标签、提示、默认值修改
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

x
本帖最后由 Lispboy 于 2018-10-6 16:26 编辑

  1. (defun c:xdtb_attedit (/              result
  2.                        xd-odcl-att-def-edit-data     blkname
  3.                        tf              #tag             #prompt
  4.                        #default              atts             attename
  5.                        doContinue     result attdefs tags
  6.                       )
  7.   (setq        xd-odcl-att-def-edit-data
  8.          '("YWt6A5g0AAAEaCdsBuKTJCMVYitmAFiYHaxYEySl5mT7qlray6fEh9w3amvdPITvqFhu2zuioxqt"
  9.            "plplHRWtdHhqSl4mi7z1pEFepNSeeXb8KrpowpYrL6oFO9VJXCxLjwOxEAiYwsWyp6cyzDgJ+ePj"
  10.            "GbGyR00Z4JkD4ecNFGhpaO+E6EEAypv3DTmEeRSZIEUVf8Ykf9LdIVASdF3yb7oWo/d2BG486uhm"
  11.            "E/mW4WAkOBb1qW+S39MI8mwU2dv16HaTRfxwhCvzUwzzBaqvoxbdW9SU968oeRMN8+PKYy9L+Je1"
  12.            "gbvX4EaToTuhxtRJOBMKHl3UhhLXrDvecMj7bNpAjNSStabCKuikt0DyLMZAiGLS25Nh1jSFQrQt"
  13.            "rpwNyYFohmf/SUW5gb+LA1m0MRfGT/ggstTA9Z56U1+kYNuVda8Eep2U4UZs5r9aZA9uLZbZUYFB"
  14.            "MDkyroRykxcBksrU0Jw9/0Fshn3/gWoZR1UOx9udweIgnfSS6S7vkAqQyzjx5Q53G9A9H6XckFWk"
  15.            "zyUMk2MF+Q0zjcoru9MSLM5A/WtxrV9vRBbqFujza1vOrQMNrtcJeZ0M01SmlTohMhebK3lO9niE"
  16.            "YN24WBYXvv3KYP2DGoTGGkFaeuAyyRWDsAMEIuoxdlKFq7u60WYRC04JxgO2v7Gt6IP2/Yeckxh5"
  17.            "DT2I/v0BHcIxDhbBvnl6oFVOUsOh0PYAE2+DlMTBGYaAoDplpWoS64kJg24LiFKvnX/iKro37hZE"
  18.            "HikXyhC3OwIvKXNfQjv2gTE0zzF3TvidFAHFMm6HI1/cdXwhaoZj/5tz60kibDxsOGw0bJAbr6CL"
  19.            "CmFYj/zNwcR/wfadATD1QPfluo/BRJndtA2p55zh0M3sFf2N7YgFXCTBUQ7AJAoX2/DxBT2qnayw"
  20.            "ia7LjUgKk0Kzhlm/G+nowPjQ23jSxuiUjV3H6XzF7ywe4/zHV84Dx2Lm5EMJWj0YxNblg/VEP3yw"
  21.            "VBZtpdq+297bntu+qT6YTtefa5YUxv9S/7vb8DUiEHRSTG43S7e+HHQ6+yuhSIESSlTxhYloe5Hr"
  22.            "tM1jm1uWyb3Wx8U6JR//I/CGeM3XSrPoGsc1zSPyQyrdiOnSoZqq2YixK3vhRpMgmY2UaJPEJiL1"
  23.            "UlKgW6QLz4QvltJwzUEUawlDWo7j3IOxewjX3viPCL+Uo9BZ+UeRYgx/RPWJX35oifaNqyeiEhwP"
  24.            "8pZINyIYrFPrOfanbdQK+I4qtAwFz8X/BSQ4Bu0PpM60uFdUpOVpBiaeL/8bAgItnt3VErKcBAUr"
  25.            "wgnTvMVN4OKI1fkH6BzpMsM7ecIyeVKhQ+r0dpv0ypO2Djkbww2o1wVwi/KIcIbwv4e4IpdqQhzU"
  26.            "9AfQ5kQVl0/PpYzwB2nfucLDdl6Yl09QaiLyddfJJa2UQ3OZC9HmCUEsZwPV/NjyoCBy7ntw7tWW"
  27.            "1ngvCioXwvzwlFKKlkzwawkqM4Dcs0q7abitwIPqtJklaoq0meM/mNm9trYx2ykdw9l16+OGjClM"
  28.            "RcNw40EPeuDjJP2c9aGiKsoHgKz7tJtJVRK0m5iv+X4Nt0rMQiXnylbT/ZdjKS7HVpYJItiimI9w"
  29.            "UtkiWVPwyj6sjFJJSTQwNXUbtOOsLLciVFPoV8lojuOgcoqmhVzMJsjrs5ulg7uYbcqZJkAnwjg/"
  30.            "0VLgT7QrcqnViSrgPviVV9FGiKLNQ92rPcN9c4DjgmQOQFnf1ZF7epACCFAhI8DhuVUXyy+/ziol"
  31.            "GyHEx4pthyb/4cYbBO9k1K+OsCJ4t8wLFAzmEi6v0fEWZl9K6GJSJZMZjKI5bKt201Nqrpjq8R5n"
  32.            "tA1X8yGhGob6+S7by5UsoE4Km8vPrBTPIKWhnecph/hQL5Dv2R8uTPFSx+uCZ3wuzImmptOH7q41"
  33.            "xaFe61dJVpbrV7Pdr0BcgSW29oLb69GAZpuWEWbPSBn7gbRGzbIsYOCl6stGSsXLDaS0HGIiJJfP"
  34.            "dJUvkfjQ0zFvBujCXcFSl01RjOLxFHsN5Y2fFQCjabYqrzyKpB59QTYF1VbxtyKt18dgu8dhUJId"
  35.            "kLkD6NC/AAYV7lkdaCz9i65L1hgMg9UYIFNPrEaB/aMXrCnmo9dReyA4aNFas9OKMKyS0H8QmZqr"
  36.            "QqCnmpqj2mhCwqId8gvtwLXBN/EsQVgiT1NZ3ZCpP4DBagIlwAm+Nb1CdTPHqlohwiLUJ8NAIpTp"
  37.            "tpAs+fnV+fRQy5YsEfnQ0RFvxjVLRDKAgn3XIXB1"
  38.           )
  39.   )
  40.   (defun c:xd-att-def-edit-form#OnInitialize (/)
  41.     (dcl-Control-SetList xd-att-def-edit-combox-block atts)
  42.     (dcl-Control-SetEnabled xd-att-def-edit-button-ok nil)
  43.     (if        blkname
  44.       (progn (dcl-Control-SetText xd-att-def-edit-combox-block blkname)
  45.              (c:xd-att-def-edit-combox-block#OnSelChanged
  46.                (vl-position blkname atts)
  47.                blkname
  48.              )
  49.              (setq blkname nil)
  50.       )
  51.       (progn (dcl-Control-SetEnabled
  52.                xd-att-def-edit-combox-tag-caption
  53.                nil
  54.              )
  55.              (dcl-Control-SetEnabled xd-att-def-edit-combox-tag nil)
  56.       )
  57.     )
  58.     (_visible-1 nil)
  59.   )
  60.   (defun _visible-1 (tf)
  61.     (dcl-Control-SetEnabled xd-att-def-edit-button-ok tf)
  62.     (dcl-Control-setenabled
  63.       xd-att-def-edit-combox-tag-rename-caption
  64.       tf
  65.     )
  66.     (dcl-Control-setenabled
  67.       xd-att-def-edit-combox-tag-rename
  68.       tf
  69.     )
  70.     (dcl-Control-setenabled
  71.       xd-att-def-edit-combox-prompt-rename-caption
  72.       tf
  73.     )
  74.     (dcl-Control-SetEnabled
  75.       xd-att-def-edit-combox-prompt-rename
  76.       tf
  77.     )
  78.     (dcl-Control-setenabled
  79.       xd-att-def-edit-combox-default-rename-caption
  80.       tf
  81.     )
  82.     (dcl-Control-setenabled
  83.       xd-att-def-edit-combox-default-rename
  84.       tf
  85.     )
  86.   )
  87.   (defun c:xd-att-def-edit-combox-tag#OnSelChanged
  88.          (ItemIndexOrCount Value /)
  89.     (if        (/= value "")
  90.       (progn (_visible-1 t)
  91.              (dcl-Control-SetText
  92.                xd-att-def-edit-combox-tag-rename
  93.                (car (nth ItemIndexOrCount tags))
  94.              )
  95.              (dcl-Control-SetText
  96.                xd-att-def-edit-combox-prompt-rename
  97.                (caddr (nth ItemIndexOrCount tags))
  98.              )
  99.              (dcl-Control-SetText
  100.                xd-att-def-edit-combox-default-rename
  101.                (cadddr (nth ItemIndexOrCount tags))
  102.              )
  103.              (setq attename (cadr (nth ItemIndexOrCount tags)))
  104.       )
  105.       (_visible-1 nil)
  106.     )
  107.   )
  108.   (defun c:xd-att-def-edit-combox-block#OnSelChanged
  109.          (ItemIndexOrCount Value /)
  110.     (if        (/= value "")
  111.       (progn (dcl-Control-SetEnabled
  112.                xd-att-def-edit-combox-tag-caption
  113.                t
  114.              )
  115.              (dcl-Control-SetEnabled xd-att-def-edit-combox-tag t)
  116.              (dcl-Control-SetEnabled
  117.                xd-att-def-edit-combox-tag-caption
  118.                t
  119.              )
  120.              (setq attdefs (xdrx_block_getentities value '((0 . "att*"))))
  121.              (setq tags        (mapcar        '(lambda (x)
  122.                                    (xdrx_getpropertyvalue
  123.                                      x
  124.                                      "tag"
  125.                                      "prompt"
  126.                                      "textstring"
  127.                                    )
  128.                                    (list #tag x #prompt #textstring)
  129.                                  )
  130.                                 attdefs
  131.                         )
  132.              )
  133.              (dcl-Control-SetList
  134.                xd-att-def-edit-combox-tag
  135.                (mapcar 'car tags)
  136.              )
  137.       )
  138.     )
  139.   )
  140.   (defun c:xd-att-def-edit-button-quit#OnClicked (/)
  141.     (dcl-form-close xd-att-def-edit-form 5)
  142.   )
  143.   (defun c:xd-att-def-edit-button-pick#OnClicked (/)
  144.     (dcl-form-close xd-att-def-edit-form 3)
  145.   )
  146.   (defun _pick ()
  147.     (if        (setq e (car (xdrx_entsel "\n拾取属性块<返回>:" '((66 . 1)))))
  148.       (setq blkname (xdrx_getpropertyvalue e "name"))
  149.     )
  150.   )
  151.   (defun c:xd-att-def-edit-button-ok#OnClicked (/)
  152.     (setq #tag (dcl-Control-GetText xd-att-def-edit-combox-tag-rename))
  153.     (setq #prompt
  154.            (dcl-Control-GetText xd-att-def-edit-combox-prompt-rename)
  155.     )
  156.     (setq #default (dcl-Control-GetText
  157.                      xd-att-def-edit-combox-default-rename
  158.                    )
  159.     )
  160.     (if        (or (= #tag "") (= #prompt "") (= #default ""))
  161.       (dcl-messagebox "数据无值,请检查." "晓东温馨提示")
  162.       (progn (setq
  163.                blkname (dcl-Control-GetText xd-att-def-edit-combox-block)
  164.              )
  165.              (dcl-form-close xd-att-def-edit-form 4)
  166.              (xdrx_setpropertyvalue
  167.                attename        "tag" #tag "textstring"        #default "prompt"
  168.                #prompt)
  169.              (xdrx_prompt "\n属性定义已经修改.")
  170.       )
  171.     )
  172.   )
  173.   (setq atts (xd::block:getattdefs))
  174.   (if (not atts)
  175.     (xdrx_prompt "\n当前图没发现属性块.")
  176.     (progn (dcl-project-import xd-odcl-att-def-edit-data)
  177.            (setq doContinue t)
  178.            (while doContinue
  179.              (setq doContinue nil)
  180.              (setq result (dcl-form-show xd-att-def-edit-form))
  181.              (cond ((= result 3) (_pick) (setq doContinue t))
  182.                    (t (setq doContinue nil))
  183.              )
  184.            )
  185.     )
  186.   )
  187.   (princ)
  188. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 643 天

连续签到: 192 天

[LV.9]以坛为家II

已领礼包: 1180个

财富等级: 财源广进

发表于 2018-10-7 00:27:29 | 显示全部楼层
谢谢提供好源码。。

点评

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

使用道具 举报

签到天数: 2042 天

连续签到: 140 天

[LV.Master]伴坛终老I

已领礼包: 6052个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 31 天

连续签到: 13 天

[LV.5]常住居民I

已领礼包: 19个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 343 天

连续签到: 23 天

[LV.8]以坛为家I

已领礼包: 384个

财富等级: 日进斗金

发表于 2018-10-12 09:43:24 | 显示全部楼层
缺少的函数在这里
http://bbs.xdcad.net/forum.php?m ... ighlight=GETATTDEFS
不过我试用后发现有的改不了。另外这个还可以增加功能,比如原来的属性快里面的某个属性是已经填了,但是现在看不到。

点评

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

使用道具 举报

签到天数: 1194 天

连续签到: 53 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-10-12 12:41:33 | 显示全部楼层
本帖最后由 newer 于 2018-10-12 12:42 编辑

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

使用道具 举报

签到天数: 95 天

连续签到: 7 天

[LV.6]常住居民II

已领礼包: 113个

财富等级: 日进斗金

发表于 2018-10-13 18:22:59 | 显示全部楼层
evayleung 发表于 2018-10-7 00:27
谢谢提供好源码。。

你能看的懂他写的是什么吗?    默认值都能改哪一些  

点评

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

使用道具 举报

签到天数: 1194 天

连续签到: 53 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-10-13 18:26:54 | 显示全部楼层
shqvc 发表于 2018-10-13 18:22
你能看的懂他写的是什么吗?    默认值都能改哪一些

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-12-13 07:32 , Processed in 0.158605 second(s), 46 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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