cad复制数字自动加1

递增复制。实现在CAD中复制文字的时候自动将文字末尾的数字加上1的是递增复制。CAD诞生于60年代，是美国麻省理工大学提出了交互式图形学的研究计划，由于当时硬件设施的昂贵，只有美国通用汽车公司和美国波音航空公司使用自行开发的交互式绘图系统。

不明白你的意思，什么叫自动内容复制？这个是必需要有公式来完成的，比如你想B列的内容等于A列的内容加上一个%号，那B1的公式为=a1&"%"，再下拉。这时如果A1输入10，那B1的内容就是10%。

我写了一段vbs的代码，实现将剪贴板的东西后台保存到某个txt里。

希望能对你有用或给你有启发。

把以下代码保存为vbs文件。你可以用其他函数调用，或是直接建个快捷方式，然后设个快捷键。

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

strText = objIE.document.parentwindow.clipboardData.GetData("text")

objIE.Quit

Wscript.Echo strText

Set objFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\a.txt")

objFile.Write strText

objFile.Close

ps：不要做坏事哦。

---