perl制作电脑V CUT图纸源码提供下载perl win32gui模块编写usr bin perl w use Config use Config IniFiles use strict use Win32GUI DIBitmap use Win32GUI BitmapInline use Win32GUI qw MB OK MB ICONINFORMATION MB ICONQUESTION MB YESNOCANCEL MB YESNO use Win32API use Win32API Callback use Socket font14    Win32GUI Font new name宋体    bold1    size13小字体font15    Win32GUI Font new name宋体    bold0    size13