高精度提取文字轮廓，适合线切割、铣削加工 新增二维码生成，lisp可直接调用

革天明

2020年10月29日，已集成在这里了

   

      2019年12月30日，增加统计图块数量的功能，表格宽度可随图块名、图块大小自动调整，以适应超长图块名及横向细长型图块。纵向的细长图块目前会缩放的比较小（560的高度）。附件较大，请在群共享中下载。本软件象征性收费，以保证双方有效的反馈（反馈bug、新功能建议及版本升级）。

   

        2018年12月2日 更新二维码功能，可直接使用命令QRCode来生成二维码，lisp程序也可使用lispqrcode函数来调用生成二维码，支持以下调用形式：       (lispqrcode "魅族16P 晓东CAD" (getpoint))
       (lispqrcode "魅族16P 晓东CAD" '(5 10 15))
       (lispqrcode "魅族16P 晓东CAD" '(135 -60))
       (lispqrcode "魅族16P 晓东CAD\r\n洛氏硬度(HR)\r\n用一个金刚石圆锥(HRC)或经硬化的(钨)钢球压头(HRB等)，\r\n以10kgf的预载荷和60, 100, 或 150kgf的主试验力压入被测材料表面。\n表面洛氏硬度(HR)依据设定" '(135 -600))
       (lispqrcode "洛氏硬度(HR)\r\n用一个金刚石圆锥(HRC)或经硬化的(钨)钢球压头(HRB等)，\r\n以10kgf的预载荷和60, 100, 或 150kgf的主试验力压入被测材料表面。表面洛氏硬度(HR)依据设定的标尺，用一个金刚石圆锥或经硬化的(钨)钢球压头压入被测材料表面。表面洛氏测量应用的力值较小，产生的压痕较浅，多用于相对易碎和很薄的材料中。" '(350 10))
        下图为生成的二维码

        在线切割特别是慢走丝加工，或者是大尺寸的铣削加工（如大尺寸广告文字），会存在有获取高精度文字轮廓的需求，经过Highflybird的深入研究，终于完成了文字轮廓的高精度提取，不仅比WMFOUT方法提取的精度高，而且比CAD自身显示的精度还要高（CAD中对文字轮廓的显示是经过简化处理的，造成部分轮廓细节丢失。如下图所示，红色箭头指向的为提取的文字轮廓线，而蓝色箭头指向的CAD文字，其轮廓信息是简化过的，造成圆弧变形。

        下面为文字轮廓提取的效果图，除直线、圆弧外，还有二次样条曲线，在控制点尽可能不的情况下，实现文字轮廓的精确提取，在文字较大的情况下，也保持有很高的精度。

        使用方法：根据自己的CAD版本，下载对应的arx文件，以及Data1.dat文件，然后在CAD中使用AP加载arx文件即可（程序在放在任意目录，不要求添加支持文件路径）。命令名为TTF、TTFS，其中TTF命令为基础命令，TTFS命令可将轮廓插入到文字的原始位置，便于实现轮廓与文字的比对。

        注意程序需要对应CAD版本的arx文件才能正常运行，若程序不能加载或有功能上的意见或建议，可在本贴下或者可加入QQ群706223400讨论！ 当程序有异常时，请尽可能详细描述下发生的环境，然后将相关图文跟帖咨询。本程序在Win7 X64下测试了CAD2006、2007、2008（这三个为32位CAD），2010、2012、2014、2016、2017、2018、2019（64位CAD），均可正常使用。

mokson

还有，我想生成的二维码的文字里，有多行的文字，也就是说要换行，如何操作？
====================================
抽空百度了一下，是有这个方法的，就是利用 多行文本框 实现二维码内容换行。

代码如下：

Me.Text1.Text = "批次:1408M1" & Chr(10) & "图号:M01-01-001"
Me.QRmaker1.InputData = Me.Text1.Text '读取支持换行的文本框
Me.QRmaker1.Refresh
Picture1.Picture = Me.QRmaker1.Picture
SavePicture Picture1.Image, App.Path & "\二维码.bmp" '生成二维码图片

参考图样：

革天明

zgssd 发表于 2019-3-7 16:52
楼主，没看到新程序啊，再只有相应arx文件和Data1.dat文件一起才能正常运行，如何操作能否讲地详细一些

1、下载自己对应版本的arx文件和Data1.dat文件
2、将两个文件放在CAD的support文件夹下，或者使用OP命令，在文件标签下，将程序目录添加到“支持文件搜索路径”中
3、使用AP命令加载arx程序
4、使用TTF命令提取文字轮廓，使用QRcode命令生成二维码

革天明

hao3ren 发表于 2018-12-4 00:04
我随便输的，宋体，汉字还好，字母小写的还行，大写的就有出入了

最好有dwg，文字描述不便于查找问题
注意CAD本身的文字轮廓是低精度的，本程序是高精度的，若出现CAD显示文字的轮廓为直线而程序显示为圆弧的，反而说明本程序本身的精度是很高的，而不是程序有问题（本质是CAD简化文字轮廓的问题）

gaics

厉害了对图片是否有效呢？

hao3ren

提取文字轮廓为什么长度和原文字不一样长啊

革天明

hao3ren 发表于 2018-12-3 15:42
提取文字轮廓为什么长度和原文字不一样长啊

上传个例子看看，目前能差多少？

革天明

gaics 发表于 2018-12-3 07:58
厉害了对图片是否有效呢？

图片不行，图片用到的是OCR技术了

hao3ren

我随便输的，宋体，汉字还好，字母小写的还行，大写的就有出入了

xiaotao

我试了下 CAD2009 大写字母是有这个情况，随便输入的 越是往后 差得就越多！

外面下雪了

这个下载了，多谢分享

zwwen

确实是有英文字母位置对不上的情况。有的字符串是正常的，有的就小写变短，大写变长。