小笨词库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的

peter1991 · 发表于 2025-3-19 15:30:11

peter1991 发表于 2025-3-18 21:46
要是支持天正对象就更好了

更改下面程序后支持部分天正对象，小白借用DEEPSEEk编写
(defun cc_text_edit ;文字替换、前缀、后缀
(str m / ss ent sslen t1 nnn obt obj blockname block_n)
(cond
((= m 1) (princ "\n文字替换，请选择文字、标注、块(用点选)：")) ;替换
((= m 2) (princ "\n文字加前缀，请选择文字、标注、块(用点选)：")) ;前缀
((= m 3) (princ "\n文字加后缀，请选择文字、标注、块(用点选)：")) ;后缀
)
(while (setq ss (ssget ":S" '((0 . "*TEXT,DIMENSION,INSERT,TCH_DRAWINGNAME,TCH_MULTILEADER"))))
(fy_ErrorInit '("cmdecho" 0) 1 nil)
(setq sslen (sslength ss))
(foreach ent (fy_enlst ss)
(if (= (cdr (assoc 0 (entget ent))) "INSERT")
(progn
(setq obt ent) ;块图元名,用于后面修改后更新显示
(setq nnn (fy_ssnamex ss ent)) ;找出图元的选取方式
(cond
((and nnn (= (car nnn) 1)) ;拾取 nnn = (1 <图元名: 2584e0cb3a0> 0 (0 (30.4132 6.54994 0.0)))
(setq ent (car (nentselp (last (last nnn))))) ;块内子图元名
)
((/= nnn 1)
(setq sslen (1- sslen)) ;不是拾取
(princ "\n块内文字请使用点选！")
)
)
)
)
(setq t1 (cdr (assoc 1 (entget ent))))
(if (and (= (cdr (assoc 0 (entget ent))) "DIMENSION") (= t1 "")) (setq t1 "<>"))
(if (and (vl-string-search "\\n" str) (or (= (cdr (assoc 0 (entget ent))) "DIMENSION") (= (cdr (assoc 0 (entget ent))) "MTEXT")))
(setq str (fy_Replace str "\\n" "\n")) ;换行符
)
(if t1
(cond
((= m 1) ;替换
(if (/= t1 str)
(progn
;; 新增天正对象支持
(cond
((wcmatch (cdr (assoc 0 (entget ent))) "TCH_*") ;天正对象
(setq obj (vlax-ename->vla-object ent))
(cond
((= (cdr (assoc 0 (entget ent))) "TCH_TEXT")
(vlax-put-property obj 'Text str))
((= (cdr (assoc 0 (entget ent))) "TCH_DRAWINGNAME")
(vlax-put-property obj 'NameText str))
((= (cdr (assoc 0 (entget ent))) "TCH_MULTILEADER")
(vlax-put-property obj 'UpText str))
(t ;默认处理
(fy_PutDxf ent 1 str)
)
)
(entupd ent)
)
(t ;普通对象
(fy_PutDxf ent 1 str)
(if obt
(mapcar 'entupd (fy_enlst (ssget "x" (list '(0 . "INSERT")))))
(mapcar '(lambda(x) (entupd (cdr x))) (vl-remove-if-not '(lambda (x) (= (type (cdr x)) 'ENAME)) (entget ent))) ;更新关联图元
)
)
)
)
(progn
(setq sslen (1- sslen))
(princ "\n选择对象已有该文字！")
)
)
)
((= m 2) ;前缀
(if (or (< (strlen t1) (strlen str)) (not (wcmatch t1 (strcat str "*"))))
(progn
(cond
((wcmatch (cdr (assoc 0 (entget ent))) "TCH_*") ;天正对象
(setq obj (vlax-ename->vla-object ent))
(cond
((= (cdr (assoc 0 (entget ent))) "TCH_TEXT")
(vlax-put-property obj 'Text (strcat str t1)))
((= (cdr (assoc 0 (entget ent))) "TCH_DRAWINGNAME")
(vlax-put-property obj 'NameText (strcat str t1)))
((= (cdr (assoc 0 (entget ent))) "TCH_MULTILEADER")
(vlax-put-property obj 'UpText (strcat str t1)))
(t ;默认处理
(fy_PutDxf ent 1 (strcat str t1))
)
)
(entupd ent)
)
(t ;普通对象
(fy_PutDxf ent 1 (strcat str t1))
(if obt
(mapcar 'entupd (fy_enlst (ssget "x" (list '(0 . "INSERT")))))
(mapcar '(lambda(x) (entupd (cdr x))) (vl-remove-if-not '(lambda (x) (= (type (cdr x)) 'ENAME)) (entget ent))) ;更新关联图元
)
)
)
;(fy_PutDxf ent 1 (strcat str t1))
;; 天正对象处理同上
(entupd ent)
)
(progn
(setq sslen (1- sslen))
(princ "\n选择对象已有该前缀！")
)
)
)
((= m 3) ;后缀
(if (or (< (strlen t1) (strlen str)) (not (wcmatch t1 (strcat "*" str))))
(progn
(cond
((wcmatch (cdr (assoc 0 (entget ent))) "TCH_*") ;天正对象
(setq obj (vlax-ename->vla-object ent))
(cond
((= (cdr (assoc 0 (entget ent))) "TCH_TEXT")
(vlax-put-property obj 'Text (strcat t1 str)))
((= (cdr (assoc 0 (entget ent))) "TCH_DRAWINGNAME")
(vlax-put-property obj 'NameText (strcat t1 str)))
((= (cdr (assoc 0 (entget ent))) "TCH_MULTILEADER")
(vlax-put-property obj 'UpText (strcat t1 str)))
(t ;默认处理
(fy_PutDxf ent 1 (strcat t1 str))
)
)
(entupd ent)
)
(t ;普通对象
(fy_PutDxf ent 1 (strcat t1 str))
(if obt
(mapcar 'entupd (fy_enlst (ssget "x" (list '(0 . "INSERT")))))
(mapcar '(lambda(x) (entupd (cdr x))) (vl-remove-if-not '(lambda (x) (= (type (cdr x)) 'ENAME)) (entget ent))) ;更新关联图元
)
)
)
;(fy_PutDxf ent 1 (strcat t1 str))
;; 天正对象处理同上
(entupd ent)
)
(progn
(setq sslen (1- sslen))
(princ "\n选择对象已有该后缀！")
)
)
)
)
)
)
(fy_ErrorEnd)
)
(cond
((= m 1) (princ (strcat "\n共有" (itoa sslen) "个对象被替换为：" str)))
((= m 2) (princ (strcat "\n共有" (itoa sslen) "个对象前缀加上：" str)))
((= m 3) (princ (strcat "\n共有" (itoa sslen) "个对象后缀加上：" str)))
)
(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更新)

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评

浏览过的版块