本帖最后由 飒路紫 于 2020-10-28 10:05 编辑 =========之前用OPENDCL做的图框“属性编号”插件源码分享==========
一、主要功能
1）、递增编号：

• 属性递增级 — 每步1级；
• 自定义连接符“@”，“@数值”项为空时，不包含连接符；文本框内“@”符号位置自定义，“@”符号不可删除；        
• “文本”内“@”后应填写大写或小写数字；
  

2）、固定文本：

• 功能同“递增编号”，只需在“文本”内填写固定文本即可；
  

3）、序列文本：

• 选取的文本应为单行文本；通过选取已有的单行文本序列，将其当做属性值填入到所选的图框；
• 注意图框及文本的数量要一致；
  

4）、提取属性：

• 将已选择的图框属性输出为文本，可选则数位为单行或多行，可自定义输出字高和行距；
  

5）、字段功能：

• 序列文本及提取属性两项，可选则字段功能，设置了字段功能，填入或输出的文本与图框属性相互关联；
  

6）、外部参照：

• 序列文本及提取属性两项，可选则字段功能，设置了字段功能，填入或输出的文本与图框属性相互关联；
  

7）、附加图框：
8）、辅助线：9）、重启清空：
链接：https://pan.baidu.com/s/1csSxG0mFR91joCJ990CB5g
提取码：kr9v
OPENDCL文件下载地址，有反应压缩包问题的自行下载
















网友答: 也可以用PL线来给定顺序


网友答: @飒路紫
http://bbs.mjtd.com/forum.php?mo ... &fromuid=203481
在lisp代码中
;==========================================按照不同修改类型处理文本=========================================
  (setq str1 (dcl-Control-GetText sxbh/numatt/Text));dcl中输入文本的值
;;;  (setq str2 "-")
  (setq str3 (dcl-Control-GetText sxbh/numatt/number));dcl中输入的数字
  (setq m 0)
    (cond
      ((= (dcl-Control-GetValue sxbh/numatt/OptionButton5) 1);当选择递增编号
        (if (= (type (read str3)) 'INT)
          (progn
            (repeat (length lst)
            (setq a (nth m lst))
            (setq data1 (entget (cdar a)))
            (setq data1_bj (assoc 1 data1))


在此处(print data1)显示如下：
((-1 . <图元名: 7ffffb0f670>) (0 . "INSERT") (330 . <图元名: 7ffffb0c820>) (5 . "407") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (66 . 1) (2 . "tu1") (10 320398.0 -161402.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

(setq data1_bj (assoc 1 data1))不能正确获得“data_bj”没有“1”值

是不是此2.0版本的获取tag的方式不合适？  请指教！

网友答:
源码的东西肯定不能拿来就用，有关路径等乱七八糟的还是需要根据实际情况自己来设置。好多人反馈各种小问题，所以干脆源码自助吧

网友答: 现在图片都显示不了，看起来非常麻烦

网友答: 骗钱的？ODCL压缩包下载后打不开


网友答:
哦，你说论坛啊，我也搞不懂，不知道为啥图片不显示了

网友答:
你安装OPENDCL了吗？没安装肯定打不开啊

网友答: 不能用啊，为什么不发个能直接用的啊？

网友答:
之前的帖子发过了，但是测试环境有限，个别问题可以自己源码改一改。看之前的帖子吧

网友答: 建议之前用过这个程序的下载，因为这个不能直接用，要调试OPENDCL，之前发的是打包好的。

网友答:
真别这么揣测楼主，真是个无私奉献的人，如果你看过他的另外一个帖子就知道需要Oendcl配合