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

jh1005 · 发表于 2012-8-30 23:10:01

本帖最后由 jh1005 于 2024-8-3 10:24 编辑

2024-08-03更新：
1.支持中望，浩辰
2.修复对象引线的一些问题。
（注意：把词库目录加入CAD搜索目录，或把词库文件cclib.ini放到CAD搜索目录）

2024-07-24更新：
1.取消注册表和词典保存设置，设置保存到cc.ini文件里。
（旧版的注册表项：HKEY_CURRENT_USER\SOFTWARE\fyCAD不再使用，可自行删除）

2024-07-14更新：
  1.新增：写出文字加下划线、词条按顺序写出。
  2.取消黑板空间变量，改用注册表保存对话框的值（位置：HKEY_CURRENT_USER\SOFTWARE\fyCAD\cc_keylst）
  3.修正当删除最后一个词类时不能保存的问题。

2024-05-21更新：
修复使用注释性标注与全局比例冲突导致出错的问题。(感谢ninja37)
（注意：把词库目录加入CAD搜索目录，或把词库文件cclib.ini放到CAD搜索目录）

2024-05-09更新：
  1.增加图层，样式，箭头拾取（支持块内）。
  2.变量保存到词典，方便下次打开还原。
  3.修复下行文字为空白时，切换到写出文字闪退的bug。
  4.修正F8正交时十字光标不在引线上的问题，正交开关提示。
（感谢tigcat）

2024-04-30更新：
  1.引线按【F8】键正交切换。
  2.自定义引线下方文字。
  3.跨文档记忆变量（重开CAD失效）。
  4.引线颜色和文字颜色独立设置。
  5.修复UCS的Z坐标不为0的Bug。
（感谢tigcat和laorenhao999）

2024-04-13更新：
1.优化对象引线动态时的箭头方向的判定。
2.引线下方时间文字修改为线下。

2024-04-09更新：
修复写出文字时按Tab无法返回和查找会找到词类的bug（感谢sandyvs指出bug）

2024-04-07更新：
增加引线文字下加时间的开关。

2024-04-03更新：
  1.为了通用性，重写代码，改用DCL，不用安装OpenDCL。
  2.词类改用列表，不再局限于4类。
  3.增加“查找--定位词语”
  4.多行词条（使用分隔符\n）
  5.支持块内文字修改。
  6.只使用1个ini文件（旧版的4个ini文件，请自行合并）
  7.写出文字时，按[+]字体增大，按[-]字体缩小，按[<]逆时针旋转90度，按[>]顺针旋转90度。
  8.其余看帮助。

↓↓↓↓↓↓↓以下旧版需OpenDcl支持↓↓↓↓↓↓↓

新手写的一个词库，需OpenDcl支持，附源码，希望有人用得着。

2019-12-26更新
更新高版本支持

2012-9-18更新（感谢xotoo提出问题和建议）：
1.文字写入后可按Tab键返回程序界面。
2.修改文字宽度比例、倾斜角度按所选的文字样式设置。

2012-9-17更新（感谢daidong013提出问题和建议）：
1.修复全局标注比例的bug。
2.增加选词入库。
3.增加删除和调整顺序功能，调整顺序：选中一个，按住鼠标左键不放，可以随意拖动，从一栏拖放到另一栏也可以，调整好顺序后，记得按一下“保存词库”。
4.修复点引线按右键出错的Bug。
5.之前的写出文字/引线只能写一次又要重新打开对话框，现在修改为可以连续写出。

2012-9-8更新，修正空心箭头的bug，其它问题有时间再弄，感谢daidong013帮忙测试。

ajunseo · 发表于 2024-7-11 09:17:52

用了一下非常不错，但文字大小，箭头大小不能固定一个值，新开ＣＡＤ后，又要重新设置，这个还是比较麻烦的，建议调整一下，可以保存设置好的参数，重启ＣＡＤ后参数不要重新设置！

tianyi1230 · 发表于 2012-8-31 19:50:24

确实不喜欢opendcl的版本，可否修改一下呢，该为dcl的

jh1005 · 发表于 2024-6-7 09:33:23

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

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

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

feitianyiliu · 发表于 2012-8-31 06:25:15

no function definition: DCL_PROJECT_IMPORT
出现错误

xyz2009xyz · 发表于 2012-8-31 08:25:42

支持一下，opendcl没有啊，还是不能用哦！

jh1005 · 发表于 2012-8-31 11:43:42

feitianyiliu 发表于 2012-8-31 06:25 no function definition: DCL_PROJECT_IMPORT 出现错误

请安装opendcl，论坛置顶帖子有。

jh1005 · 发表于 2012-8-31 11:45:41

xyz2009xyz 发表于 2012-8-31 08:25 支持一下，opendcl没有啊，还是不能用哦！

论坛有下载，找找。需opendcl支持，谢谢使用。

daidong013 · 发表于 2012-8-31 12:28:34

为什么我使用过程中缺少记忆功能！~~每次如果选点引线，下一次又到后缀上去了，又要去点一下，还有字高，图层，样式什么的！~~

soly2006 · 发表于 2012-8-31 12:48:18

感觉不错，学习一下

igumu · 发表于 2012-8-31 14:30:00

感觉不错，学习一下

jh1005 · 发表于 2012-8-31 18:53:45

daidong013 发表于 2012-8-31 12:28
为什么我使用过程中缺少记忆功能！~~每次如果选点引线，下一次又到后缀上去了，又要去点一下，还有字高，图 ...

已更新，增加记忆功能，请重新下载，谢谢你的意见。

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评