perl制作电脑V-CUT图纸,源码提供下载,perl win32 gui模块编写
#! /usr/bin/perl -w
use Config();
use Config::IniFiles;
use strict;
use Win32::GUI::DIBitmap();
use Win32::GUI::BitmapInline;
use Win32::GUI qw(MB_OK MB_ICONINFORMATION MB_ICONQUESTION MB_YESNOCANCEL MB_YESNO);
use Win32::API;
use Win32::API::Callback;
use Socket;
$font14 = Win32::GUI::Font->new(-name=>"宋体", -bold=>1, -size=>13);##小字体
$font15 = Win32::GUI::Font->new(-name=>"宋体", -bold=>0, -size=>13)