小笨词库DCL版 v2.0.10 (2024-8-3更新)

ninja37

小笨大师，现在出现了这样的情况，CAD是2023   win10  64位
点引线，指定放置点【F8正交切换】：
** Automation 错误。 输入无效 **

ninja37

ninja37 发表于 2024-5-11 09:32
小笨大师，现在出现了这样的情况，CAD是2004 win1064位
点引线，指定放置点【F8正交切换】：
** Automati ...

小笨大师，找到原因了，只要当前标注样式是注释性的，前面有个三角叉的，就不能使用引线文字。

jh1005

ninja37 发表于 2024-5-19 20:03
小笨大师，找到原因了，只要当前标注样式是注释性的，前面有个三角叉的，就不能使用引线文字。

感谢提出问题，学习了，2.0.7版已修正。

另外，个人不太建议使用注释性标注，原因有几点：
1.普通引线进行注释性比例缩放会生位置跑位，暂时无解。（使用词库前先调好注释性比例）
2.注释性比例无法对多重引线进行缩放，不知新版CAD有没有改进。
3.CAD 2007以下打开带有注释性的图纸，会出现很多图层或重叠图元或块，如下图：


参考7楼xsso所说的：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=169886&highlight=%D7%A2%CA%CD%D0%D4

大西瓜

不错，相当完美了！支持定义多行的词库，写成文字可以及时动态缩放。要是能数字递增就更牛了

ninja37

jh1005 发表于 2024-5-21 18:55
感谢提出问题，学习了，2.0.7版已修正。

另外，个人不太建议使用注释性标注，原因有几点：

好的  又学到了一些知识  注释性其实一直没用过   包括文字注释性。也是由于不了解注释性的不好的地方，导致有几种标注前面有个三角叉，纯粹是为了好看有个三角存在，现在已经把模板注释性全部去掉了，慢慢替换上你改过的新版本。

奥特蛋

多谢楼主，谢谢分享，程序很好用，有个小问题不知道是否可以优化，打开程序过后需要读取dwg里面已经存在的图层信息，如果图纸图层很多，每次输入命令后加载会很慢，是否可以默认上次图层或者当前图层，再在需要调整图层的时候再加载现有图纸中的图层？

czb203

大佬好久不见，终于更新了

jh1005

奥特蛋 发表于 2024-6-4 01:47
多谢楼主，谢谢分享，程序很好用，有个小问题不知道是否可以优化，打开程序过后需要读取dwg里面已经存在的 ...

不一定是图层问题，找了个140几个图层的dwg测试，用时不到1秒。以下是测试图层获取时间函数：

2. (defun c:test (/ t0 tc)
   
3.    (setq t0 (getvar "TDUSRTIMER"))
   
4.    (setq tc (fy_tbl "LAYER"))
   
5.    (mapcar 'princ (list "\n图层数量：" (length tc) "个，(用时 " (* (- (getvar "TDUSRTIMER") t0) 86400) " 秒)"))
   
6.    (princ)
   
7. )
   
8. 
   
9. (defun fy_tbl (tbl / lay layer layname)    ;符号表
   
10.   ;"LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" "VPORT"
    
11.   (setq layer nil lay (tblnext tbl T))
    
12.   (while (/= lay nil)
    
13.     (setq layname (cdr (assoc 2 lay))
    
14.       layer (cons layname layer)
    
15.       lay (tblnext tbl)
    
16.     )
    
17.   )
    
18.   (setq layer (acad_strlsort layer))
    
19. )
    
20. 
    
21. (princ "\n测试获取图层时间，命令：test")
    
22. (princ)

(defun c:test (/ t0 tc)<br />    (setq t0 (getvar "TDUSRTIMER"))<br />    (setq tc (fy_tbl "LAYER"))<br />    (mapcar 'princ (list "\n图层数量：" (length tc) "个，(用时 " (* (- (getvar "TDUSRTIMER") t0) 86400) " 秒)"))<br />    (princ)<br /> )<br /> <br /> (defun fy_tbl (tbl / lay layer layname)    ;符号表<br />   ;"LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" "VPORT"<br />   (setq layer nil lay (tblnext tbl T))<br />   (while (/= lay nil)<br />     (setq layname (cdr (assoc 2 lay))<br />       layer (cons layname layer)<br />       lay (tblnext tbl)<br />     )<br />   )<br />   (setq layer (acad_strlsort layer))<br /> )<br /> <br /> (princ "\n测试获取图层时间，命令：test")<br /> (princ)

大西瓜

最强大的词库，方便易用。只要总结日常图纸中的各种注释文字并采集整理成词库，那出图注释的效率就杠杠的高。
提议增加一个按分类顺序输入词条的功能，这样可以不用每次返回词条选择新侧条，只需要提前定义好词库内容和顺序，操作流畅度和效率进一步大幅提升。
具体操作：比如插入了 序号 这个词类的①，那么在连续点击的时候继续输入②（其下一个词条），继续点击③、④都是其下一个词条。不像现在的连续点击是重复输入
连续点击的这两种模式，可以在界面里提供一个选项，这样操作灵活

奥特蛋

jh1005 发表于 2024-6-7 09:33
不一定是图层问题，找了个140几个图层的dwg测试，用时不到1秒。以下是测试图层获取时间函数：

谢谢楼主分享