动手制作一个属于自己的3D版QQ二维码

来源：互联网 2023-02-20 18:39:29 283

利用按键精灵将QQ二维码数据转到CAD里面，然后按照自己喜欢用CAD重新定义二维码。可以做三维的，圆的，三角形的，曲面的等。

动手制作一个属于自己的3D版QQ二维码

工具/原料

按键精灵
AutoCAD
QQ二维码
电脑一台

方法/步骤

打开QQ二维码图片，拖放到电脑左上角。

动手制作一个属于自己的3D版QQ二维码

打开按键精灵，新建一个空白脚本

动手制作一个属于自己的3D版QQ二维码

2相关内容非法爬取自百度经验

点击按键精灵上面一排的“抓抓”，弹出放大镜窗口。

动手制作一个属于自己的3D版QQ二维码

1，把鼠标指针移动到二维码左上角，观察放大镜窗口。点击键盘上下左右按键，将鼠标指针移动到刚好在二维码左上角。

2，按住 ctrl alt 1 ("1"必须是键盘字母上排的数字键才行)。

3，坐标与颜色栏第一个框里会生成二维码左上角坐标，记为（X1,Y1）。

4，同理，按住 ctrl alt 2 键，坐标栏第二个框里就是右下角坐标了，记为（X2,Y2）。

动手制作一个属于自己的3D版QQ二维码

点击按键精灵代码编辑窗口上面的“源文件”，复制并粘贴下面的代码（直接粘贴可能不会自动分行，自己分下）：

Dim d, X, Y, c, n, X1, Y1, X2, Y2 :n = 25 :X1 = 29 :Y1 = 77 :X2 = 478 :Y2 = 526 :d = (X2 - X1) / n :c = "" :For Y = Y1 d / 2 To Y2 - d / 2 Step d :For X = X1 d / 2 To X2 - d / 2 Step d :IfColor X, Y, "000000", 2 Then :c = c & X & "," & Y & vbCrLf & d / 2 & vbCrLf & vbCrLf :End If :Next :Next :c = "C" & vbcrlf & c :Call Plugin.File.WriteFileEX("D:\QQ圆形二维码坐标.txt", c) :

动手制作一个属于自己的3D版QQ二维码

其中 n是二维码阶数(QQ二维码一排有25个方格)。

我是把它保存到 D:\QQ圆形二维码坐标.txt，这个自己选择，文件名自己修改。

将抓抓得到的坐标（X1,Y1）,（X2,Y2）以及 n 分别替换掉上面代码中的值。

点击调试，再点击F10运行，过几秒就好了。

1，进入电脑D盘，打开 QQ圆形二维码坐标.txt 文本。

2，全选，复制。

动手制作一个属于自己的3D版QQ二维码

打开AutoCAD,将复制的文本粘贴到命令行里面。他会自动完成二维码，然后上下镜像一下就完成了二维码的转化。后期处理可以根据个人的喜欢，想做什么样就做什么样的。

动手制作一个属于自己的3D版QQ二维码

下面是二维码TXT版的代码:

Dim d, X, Y, c, n, X1,Y1,X2,Y2 :n = 25 :X1=22 :Y1=78 :X2=471 :Y2=527 :d = (X2-X1)/n :c="" :For Y = Y1 d/2 To Y2 - d/2 Step d :For X = X1 d/2 To X2 - d/2 Step d :IfColor X,Y,"000000",2 Then :c = c & "▇" :Else c= c & " " :End If :Next :c=c & vbcrlf :NeXt :Call Plugin.File.WriteFileEX("D:\QQ二维码TXT版.txt", c) :

动手制作一个属于自己的3D版QQ二维码

下面是方形二维码代码:

Dim d, X, Y, c, n, X1,Y1,X2,Y2 :n = 25 :X1=22 :Y1=78 :X2=471 :Y2=527 :d = (X2-X1)/n :c="" :For Y = Y1 d/2 To Y2 - d/2 Step d :For X = X1 d/2 To X2 - d/2 Step d :IfColor X,Y,"000000",2 Then :c=c & X-d/2 & "," & Y-d/2 & vbCrLf & X d/2 & "," & Y d/2 & vbCrLf & vbCrLf :End If :NeXt :Next :c="rectang" & vbcrlf & c :Call Plugin.File.WriteFileEX("D:\QQ方形二维码坐标.txt", c) :

动手制作一个属于自己的3D版QQ二维码