2980 lines
133 KiB
VB.net
2980 lines
133 KiB
VB.net
Imports System.IO
|
||
Imports System.Threading
|
||
Imports System.Threading.Channels
|
||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||
Imports CorelDRAW
|
||
Imports CorelDRAW.RuningLog
|
||
Imports Newtonsoft.Json
|
||
Imports StackExchange.Redis
|
||
Imports VGCore
|
||
|
||
Public Class CorelDRAW
|
||
|
||
Public M_Redisip As String = "127.0.0.1"
|
||
Public M_Redisport As Integer = 10079 '6379 ' 10079
|
||
Public M_Redispassword As String = "blw@redis-ser@123" ' "" '
|
||
'redis消息队列
|
||
Public M_RedisQueue As Queue
|
||
'事件处理线程
|
||
Public M_EventThread As Thread
|
||
|
||
'素材库路径
|
||
Private M_MaterialPath As String = "R:\Canvas\material\" '"D:\Canvas\material\" '
|
||
'成平文件路径
|
||
Private M_TplPath As String = "D:\CorelDRAW\"
|
||
Public G_RedisSub, G_Redislish As RedisSubscriber
|
||
'发布字段
|
||
Public G_Publish As String = ""
|
||
Public G_Subscribe As String = ""
|
||
Public G_OldSubscribe As String = ""
|
||
|
||
'日志对象
|
||
Public G_Log As RuningLog
|
||
Public APP As Object
|
||
Public G_LibDoc As Document
|
||
|
||
'数据库连接字符串
|
||
Public LocalConnString As String = "server=10.8.8.212;database=lowmachinelog;charset=utf8;uid=BLWlog;pwd=Blw@1234;port=16036"
|
||
|
||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
'定义一个画布
|
||
Text = "CorelDRAW" & "_" & System.Windows.Forms.Application.ProductVersion
|
||
M_RedisQueue = New Queue()
|
||
'启动事件处理线程
|
||
M_EventThread = New Thread(AddressOf EventThread)
|
||
M_EventThread.Start()
|
||
'Dim t As Type = Type.GetTypeFromProgID("CorelDRAW.Application.22")
|
||
'If t IsNot Nothing Then
|
||
' Console.WriteLine("COM 已注册，可以连接！")
|
||
'Else
|
||
' Console.WriteLine("COM 未注册！")
|
||
'End If
|
||
APP = New Application()
|
||
Thread.Sleep(300)
|
||
APP.Visible = False
|
||
' Dim MaterialPath As String = M_MaterialPath & "素材模板.cdr"
|
||
'G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
G_Log = New RuningLog(RichTextBox1, System.Windows.Forms.Application.StartupPath & "\log")
|
||
GetSeting()
|
||
|
||
initRedisSubscriber(G_Subscribe, G_OldSubscribe)
|
||
|
||
initRedisPublisher()
|
||
End Sub
|
||
Private Sub EventThread()
|
||
Dim item As RedisMsgNode
|
||
|
||
While True
|
||
If M_RedisQueue.Count > 0 Then
|
||
item = M_RedisQueue.Dequeue()
|
||
If item Is Nothing Then Continue While
|
||
Select Case item.MsgType
|
||
Case 1
|
||
Dim MsgNode = JsonConvert.DeserializeObject(Of RedisInfoNode)(item.MsgNode.ToString)
|
||
DisposeRedisMsgNode1(MsgNode)
|
||
Case 2
|
||
Dim MsgNode = JsonConvert.DeserializeObject(Of PreviewRoomTypePanel)(item.MsgNode.ToString)
|
||
DisposeRedisMsgNode2(MsgNode)
|
||
End Select
|
||
|
||
End If
|
||
System.Threading.Thread.Sleep(10)
|
||
End While
|
||
End Sub
|
||
|
||
|
||
Sub DisposeRedisMsgNode1(item As RedisInfoNode)
|
||
Dim gLogNode As LogNode
|
||
|
||
|
||
Try
|
||
gLogNode = New LogNode($"开始进行用户【{item.User}】_[{item.ProjectName}]项目[{item.TemplateName.Replace("Mode_", "") }]图像生成！", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
'gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
If HandleNodeInformation3(item) Then
|
||
gLogNode = New LogNode($"开始进行用户【{item.User}】_[{item.ProjectName}]项目[{item.TemplateName.Replace("Mode_", "") }]图像生成成功！", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
'gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Else
|
||
gLogNode = New LogNode($"开始进行用户【{item.User}】_[{item.ProjectName}]项目[{item.TemplateName.Replace("Mode_", "") }]图像生成失败！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
End If
|
||
Catch ex As Exception
|
||
|
||
|
||
Dim RsNode As New RedisSendNode
|
||
RsNode.User = item.User
|
||
RsNode.ProjectName = item.ProjectName
|
||
RsNode.ProjectId = item.ProjectId
|
||
RsNode.PictureNum = item.PictureNum
|
||
RsNode.Status = RedisSendNode.StatusType.SerializeFail
|
||
RsNode.Process = item.Process
|
||
RsNode.Msg = "序列化数据错误!"
|
||
Dim RMNode As New RedisMsgNode
|
||
RMNode.MsgType = 1
|
||
RMNode.MsgNode = RsNode
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode($"序列化数据错误！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
APP = New Application()
|
||
Thread.Sleep(500)
|
||
End Try
|
||
End Sub
|
||
Sub DisposeRedisMsgNode2(node As PreviewRoomTypePanel)
|
||
Dim gLogNode As LogNode
|
||
Dim filedir As String = "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic"
|
||
|
||
Dim RsNode As New RedisSendNode
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.PictureNum = node.picNum
|
||
Dim RMNode As New RedisMsgNode
|
||
RMNode.MsgType = 2
|
||
RMNode.MsgNode = RsNode
|
||
Try
|
||
InpotMessage1("1、文档初始化")
|
||
gLogNode = New LogNode($"生成酒店房间面板预览文档！", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Dim doc As Document
|
||
Try
|
||
|
||
|
||
doc = APP.CreateDocument()
|
||
doc.Unit = cdrUnit.cdrMillimeter ' 设置单位为毫米
|
||
|
||
Catch ex As Exception
|
||
|
||
APP = New Application()
|
||
Thread.Sleep(1000)
|
||
APP.Visible = False
|
||
|
||
doc = APP.CreateDocument()
|
||
doc.Unit = cdrUnit.cdrMillimeter ' 设置单位为毫米
|
||
End Try
|
||
|
||
InpotMessage1("3、打开模板库并创建新文件等待构建图像")
|
||
|
||
|
||
|
||
|
||
InpotMessage1("2、酒店标题生成")
|
||
Dim hotelName As String = ""
|
||
If node.project IsNot Nothing AndAlso node.project.Count > 0 Then
|
||
hotelName = node.project(0).hotel_name
|
||
RsNode.Guid = node.project(0).guid
|
||
End If
|
||
|
||
InpotMessage1("创建酒店标题文本")
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = "创建酒店标题失败!!"
|
||
|
||
'Dim hotelText As Shape = doc.ActiveLayer.CreateArtisticText(0, 0, hotelName)
|
||
Dim remark As String() = {"思源黑体", "48"}
|
||
Dim hotelText As Shape = CreateTextImage2(doc.ActiveLayer, hotelName, remark)
|
||
hotelText.CenterY = 0
|
||
hotelText.LeftX = 0
|
||
'With hotelText.Text.Properties
|
||
' .Font = "Source Han Sans SC"
|
||
' .Size = 48
|
||
'End With
|
||
|
||
|
||
|
||
' 计算当前文档高度
|
||
Dim currentY As Double = hotelText.CenterY - 20 ' 标题底部向下50mm
|
||
|
||
InpotMessage1("3、数据分组处理")
|
||
Dim roomGroups As Dictionary(Of String, List(Of Panel)) = New Dictionary(Of String, List(Of Panel))()
|
||
For Each panel As Panel In node.panels
|
||
If Not roomGroups.ContainsKey(panel.room_name) Then
|
||
roomGroups.Add(panel.room_name, New List(Of Panel)())
|
||
End If
|
||
roomGroups(panel.room_name).Add(panel)
|
||
Next
|
||
|
||
InpotMessage1("4、房型分类处理")
|
||
For Each roomName As String In roomGroups.Keys
|
||
InpotMessage1("创建房型标题文本")
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = "创建酒店房型标题失败!!"
|
||
remark = {"思源黑体", "28"}
|
||
Dim roomText As Shape = CreateTextImage2(doc.ActiveLayer, roomName, remark)
|
||
roomText.CenterY = currentY
|
||
roomText.LeftX = 0
|
||
'Dim roomText As Shape = doc.ActiveLayer.CreateArtisticText(0, currentY, roomName)
|
||
'With roomText.Text.Properties
|
||
' .Font = "Source Han Sans SC"
|
||
' .Size = 28
|
||
'End With
|
||
|
||
|
||
|
||
|
||
currentY = roomText.CenterY - (roomText.OriginalHeight / 2) - 10 ' 房型标题底部向下30mm
|
||
Dim currentX As Double = 0 ' 当前行的X坐标
|
||
Dim maxHeight As Double = 0 ' 当前行最高图像的高度
|
||
|
||
InpotMessage1("遍历该房型对应的所有panel")
|
||
For Each panel As Panel In roomGroups(roomName)
|
||
Dim cdr_filename As String = $"{filedir}\{panel.cdr_filename}".Replace("\\", "\")
|
||
InpotMessage1("5、CDR文件图像处理")
|
||
If File.Exists(cdr_filename) Then
|
||
InpotMessage1("打开CDR文件")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = $"拷贝文件{vbCrLf}{cdr_filename}{vbCrLf}中的面板图像失败!!"
|
||
Dim cdrDoc As Document = APP.OpenDocument(cdr_filename, False)
|
||
|
||
If cdrDoc.Pages.Count > 0 AndAlso cdrDoc.Pages(1).ActiveLayer.Shapes.Count > 0 Then
|
||
InpotMessage1("复制第一个图像")
|
||
Dim cdrShape As Shape = cdrDoc.Pages(1).ActiveLayer.Shapes(1)
|
||
'cdrShape.Copy()
|
||
shapeCopy(cdrShape)
|
||
InpotMessage1("粘贴到当前文档")
|
||
|
||
Dim pastedShape As Shape = doc.ActiveLayer.Paste() 'doc.ActiveLayer.Shapes(doc.ActiveLayer.Shapes.Count)
|
||
|
||
InpotMessage1("设置图像位置")
|
||
pastedShape.LeftX = currentX
|
||
pastedShape.CenterY = currentY - (pastedShape.OriginalHeight / 2)
|
||
|
||
|
||
|
||
InpotMessage1("6、属性文本生成")
|
||
|
||
|
||
InpotMessage1("生成panel_list_name文本")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = $"生成名称文本图像失败：{panel.panel_list_name} !!"
|
||
remark = {"思源黑体", "24"}
|
||
Dim listNameText As Shape = CreateTextImage2(doc.ActiveLayer, "名称：" & panel.panel_list_name, remark)
|
||
Dim textY As Double = pastedShape.CenterY - (pastedShape.OriginalHeight / 2) - 10
|
||
listNameText.CenterY = textY
|
||
listNameText.LeftX = currentX
|
||
'Dim listNameText As Shape = doc.ActiveLayer.CreateArtisticText(currentX, textY, "名称：" & panel.panel_list_name)
|
||
'With listNameText.Text.Properties
|
||
' .Font = "Source Han Sans SC"
|
||
' .Size = 12
|
||
'End With
|
||
|
||
InpotMessage1("生成position文本")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = $"生成位置文本图像失败：{panel.position} !!"
|
||
Dim positionText As Shape = CreateTextImage2(doc.ActiveLayer, "位置：" & panel.position, remark)
|
||
textY = listNameText.CenterY - (listNameText.OriginalHeight / 2) - 10
|
||
positionText.CenterY = textY
|
||
positionText.LeftX = currentX
|
||
'Dim positionText As Shape = doc.ActiveLayer.CreateArtisticText(currentX, textY + 10, "位置：" & panel.position)
|
||
'With positionText.Text.Properties
|
||
' .Font = "Source Han Sans SC"
|
||
' .Size = 12
|
||
'End With
|
||
|
||
InpotMessage1("生成carving_quantity文本")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = $"生成数量文本图像失败：{panel.carving_quantity} !!"
|
||
Dim quantityText As Shape = CreateTextImage2(doc.ActiveLayer, "数量：" & panel.carving_quantity, remark)
|
||
textY = positionText.CenterY - (positionText.OriginalHeight / 2) - 10
|
||
quantityText.CenterY = textY
|
||
quantityText.LeftX = currentX
|
||
'Dim quantityText As Shape = doc.ActiveLayer.CreateArtisticText(currentX, textY + 20, "数量：" & panel.carving_quantity)
|
||
'With quantityText.Text.Properties
|
||
' .Font = "Source Han Sans SC"
|
||
' .Size = 12
|
||
'End With
|
||
|
||
InpotMessage1("7、图文组合")
|
||
|
||
pastedShape.Selected = True
|
||
listNameText.Selected = True
|
||
positionText.Selected = True
|
||
quantityText.Selected = True
|
||
|
||
Dim group As Shape = doc.SelectionRange.Group()
|
||
group.Name = pastedShape.Name 'Path.GetFileNameWithoutExtension(panel.cdr_filename)
|
||
group.Selected = False
|
||
pastedShape.Selected = False
|
||
listNameText.Selected = False
|
||
positionText.Selected = False
|
||
quantityText.Selected = False
|
||
|
||
|
||
InpotMessage1("更新X坐标，为下一个图像留出50mm间距")
|
||
InpotMessage1("计算当前行的最大高度")
|
||
If group.OriginalHeight > maxHeight Then
|
||
maxHeight = group.OriginalHeight
|
||
End If
|
||
currentX += pastedShape.SizeWidth + 50
|
||
Else
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
RsNode.Msg = $"未找到文件{vbCrLf}{cdr_filename}{vbCrLf}中的图像!!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
gLogNode = New LogNode($"生成酒店房间面板预览文档失败：{ RsNode.Msg}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
|
||
InpotMessage1("关闭CDR文件")
|
||
cdrDoc.Close()
|
||
|
||
Else
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
RsNode.Msg = $"文件{vbCrLf}{cdr_filename}{vbCrLf}不存在!!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
gLogNode = New LogNode($"生成酒店房间面板预览文档失败：{ RsNode.Msg}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
Next
|
||
|
||
' 更新Y坐标，为下一个房型留出50mm间距
|
||
currentY = currentY - maxHeight - 20
|
||
Next
|
||
|
||
|
||
|
||
InpotMessage1("8、文档保存")
|
||
RsNode.Status = RedisSendNode.StatusType.SaveFileFail
|
||
RsNode.Msg = $"生成文件失败 !!"
|
||
Dim savePath As String = $"{filedir}\{hotelName}\{Now:yyyyMMdd}"
|
||
If Not Directory.Exists(savePath) Then
|
||
Directory.CreateDirectory(savePath)
|
||
End If
|
||
|
||
Dim cdrFileName As String = $"{node.picNum}.cdr"
|
||
Dim cdrFilePath As String = Path.Combine(savePath, cdrFileName)
|
||
Dim ssao As New StructSaveAsOptions
|
||
ssao.Filter = VGCore.cdrFilter.cdrCDR
|
||
ssao.Range = VGCore.cdrExportRange.cdrAllPages
|
||
ssao.Version = VGCore.cdrFileVersion.cdrVersion19
|
||
doc.SaveAs(cdrFilePath, ssao)
|
||
|
||
|
||
|
||
|
||
|
||
|
||
'InpotMessage1("9、文档导出")
|
||
'Dim pltFileName As String = $"PreviewRoomTypePanel{node.picNum}.plt"
|
||
'Dim pltFilePath As String = Path.Combine(savePath, pltFileName)
|
||
'doc.Export(pltFilePath, cdrExportFileFormat.cdrPLT)
|
||
|
||
|
||
|
||
|
||
|
||
|
||
InpotMessage1("关闭文档")
|
||
doc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.Success
|
||
RsNode.Msg = "Ok"
|
||
RsNode.CdrPath = cdrFilePath.Replace(filedir & "\", "")
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
InpotMessage1($"18、向Redis写入生成成功信息")
|
||
gLogNode = New LogNode($"成功生成酒店房间面板预览文档：{cdrFilePath}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
Catch ex As Exception
|
||
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
gLogNode = New LogNode($"生成酒店房间面板预览文档失败：{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
End Try
|
||
End Sub
|
||
|
||
|
||
Public Function HandleNodeInformation1(node As RedisInfoNode) As Boolean
|
||
Dim oldTime As DateTime = Now
|
||
Dim MaterialPath As String = M_MaterialPath & node.MaterialLibraryName
|
||
Dim RsNode As New RedisSendNode
|
||
RsNode.User = node.User
|
||
RsNode.ProjectName = node.ProjectName
|
||
RsNode.ProjectId = node.ProjectId
|
||
RsNode.PictureNum = node.PictureNum
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Process = node.Process
|
||
RsNode.Guid = node.Guid
|
||
Dim gLogNode As LogNode
|
||
Dim ProjectPath As String
|
||
Dim locionbuf(), indexbuf() As String
|
||
Dim shp, lhp, rhp, chp, clhp As Shape
|
||
Dim x#, y#, w#, h#
|
||
Dim dx As Double, dy As Double
|
||
Dim destLayer As Layer
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
'查找素材库
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "素材库不存在!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("素材库不存在", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
|
||
'''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
Try
|
||
|
||
Try
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
Catch ex As Exception
|
||
APP = New Application()
|
||
Thread.Sleep(500)
|
||
APP.Visible = False
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
End Try
|
||
|
||
|
||
ProjectPath = $"{M_TplPath}{node.ProjectName}\{Now:yyyyMMdd}"
|
||
'判断项目文件夹是否存在
|
||
If Not Directory.Exists(ProjectPath) Then
|
||
'MsgBox("项目文件夹不存在")
|
||
'创建文件夹
|
||
Directory.CreateDirectory(ProjectPath)
|
||
End If
|
||
|
||
|
||
'查找模板
|
||
locionbuf = node.TemplateNameIndex.Split("_")
|
||
Dim page As Page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
'''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim layer As Layer = page.Layers(CInt(locionbuf(1)))
|
||
'''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
shp = layer.Shapes(CInt(locionbuf(2)))
|
||
'''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
If IsNothing(shp) OrElse Not node.TemplateName.Trim.Equals(shp.Name.Trim) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.TemplateNotExist
|
||
RsNode.Msg = "未找到模板信息！！"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("未找到模板信息！！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
|
||
|
||
Return False
|
||
End If
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim li As New List(Of (Shape, Shape))
|
||
Dim ctdic As New List(Of (Shape, Shape))
|
||
'遍历node.MaterialDic
|
||
|
||
For Each item In node.PatternList
|
||
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
indexbuf = item.ShapeNumber.Split("_")
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialPositionNotExist
|
||
lhp = shp.Shapes(CInt(item.IndexNumber))
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
rhp = layer.Shapes(CInt(indexbuf(2)))
|
||
|
||
'单体先挪到槽位
|
||
x = lhp.CenterX - rhp.CenterX
|
||
y = lhp.CenterY - rhp.CenterY
|
||
|
||
dx = lhp.LeftX
|
||
dy = lhp.TopY
|
||
|
||
rhp.Move(x, y)
|
||
clhp = rhp.Shapes(rhp.Shapes.Count)
|
||
clhp.Visible = False
|
||
li.Add((rhp, lhp))
|
||
|
||
|
||
'再将素材挪到指定的小槽位
|
||
For Each LocationNode In item.LocationList
|
||
clhp = rhp.Shapes(CInt(LocationNode.IndexNumber))
|
||
indexbuf = LocationNode.ShapeNumber.Split("_")
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
chp = layer.Shapes(CInt(indexbuf(2)))
|
||
|
||
x = clhp.CenterX - chp.CenterX
|
||
y = clhp.CenterY - chp.CenterY
|
||
|
||
dx = clhp.LeftX
|
||
dy = clhp.TopY
|
||
|
||
chp.Move(x, y)
|
||
ctdic.Add((chp, clhp))
|
||
|
||
Next
|
||
|
||
|
||
|
||
|
||
|
||
Next
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
|
||
|
||
|
||
shp.Selected = True
|
||
For Each item In li
|
||
item.Item1.OrderToFront()
|
||
item.Item1.Selected = True
|
||
''Console.WriteLine(item.Item2.Name)
|
||
item.Item2.Delete()
|
||
Next
|
||
For Each item In ctdic
|
||
item.Item1.OrderToFront()
|
||
item.Item1.Selected = True
|
||
item.Item2.Delete()
|
||
|
||
Next
|
||
|
||
|
||
'''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim sr As ShapeRange = APP.ActiveSelectionRange
|
||
shp = sr.Group()
|
||
shp.Name = node.TemplateName
|
||
|
||
page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
SetIconToCentered(page, shp)
|
||
'''Console.WriteLine($"到达节点11耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.SaveFileFail
|
||
shp.Selected = True
|
||
|
||
'Dim sel As ShapeRange = APP.ActiveSelectionRange
|
||
|
||
'0-预览小图 1-生成文件
|
||
Select Case node.Process
|
||
Case 0
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.png"
|
||
Dim Ef As ExportFilter = G_LibDoc.ExportBitmap(ProjectPath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
Case 1
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.cdr"
|
||
Dim ssao As New StructSaveAsOptions
|
||
ssao.Filter = VGCore.cdrFilter.cdrCDR
|
||
ssao.Range = VGCore.cdrExportRange.cdrSelection
|
||
G_LibDoc.SaveAs(ProjectPath, ssao)
|
||
Case Else
|
||
G_LibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.UnknownFail
|
||
RsNode.Msg = "位置操作!!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
Return False
|
||
|
||
|
||
End Select
|
||
|
||
|
||
G_LibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.Success
|
||
RsNode.Msg = "Ok"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
Return True
|
||
Catch ex As Exception
|
||
|
||
Select Case RsNode.Status
|
||
Case RedisSendNode.StatusType.MaterialPositionNotExist
|
||
RsNode.Msg = "素材位置不存在!!"
|
||
Case RedisSendNode.StatusType.MaterialNotExist
|
||
RsNode.Msg = "素材不存在!!"
|
||
Case RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = "生成图像失败!!"
|
||
Case RedisSendNode.StatusType.SaveFileFail
|
||
RsNode.Msg = "保存文件失败!!"
|
||
End Select
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
|
||
|
||
If Not IsNothing(G_LibDoc) Then
|
||
G_LibDoc.Close()
|
||
End If
|
||
gLogNode = New LogNode($"{RsNode.Msg}{vbCrLf}{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End Try
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
End Function
|
||
|
||
Public Function HandleNodeInformation2(node As RedisInfoNode) As Boolean
|
||
Dim oldTime As DateTime = Now
|
||
Dim MaterialPath As String = M_MaterialPath & node.MaterialLibraryName
|
||
Dim RsNode As New RedisSendNode
|
||
RsNode.User = node.User
|
||
RsNode.ProjectName = node.ProjectName
|
||
RsNode.ProjectId = node.ProjectId
|
||
RsNode.PictureNum = node.PictureNum
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Process = node.Process
|
||
RsNode.Guid = node.Guid
|
||
Dim gLogNode As LogNode
|
||
Dim ProjectPath As String
|
||
Dim locionbuf(), indexbuf() As String
|
||
Dim fshp, shp, lhp, rhp, chp, clhp As Shape
|
||
Dim x#, y#, w#, h#
|
||
Dim dx As Double, dy As Double
|
||
Dim destLayer As Layer
|
||
Dim MLibDoc As Document
|
||
|
||
Dim ServerFilePath As String = "D:\BLWLog\Web\wwwroot\PanelSelectionPic\"
|
||
'''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
'查找素材库
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "素材库不存在!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("素材库不存在", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
|
||
'''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
Try
|
||
|
||
Try
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
MLibDoc = APP.CreateDocument()
|
||
Catch ex As Exception
|
||
|
||
APP = New Application()
|
||
Thread.Sleep(1000)
|
||
APP.Visible = False
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
MLibDoc = APP.CreateDocument()
|
||
End Try
|
||
APP.EventsEnabled = False
|
||
APP.Optimization = True
|
||
|
||
'APP.EventsEnabled = True
|
||
'APP.Optimization = False
|
||
'APP.Refresh()
|
||
ProjectPath = $"{ServerFilePath}{node.ProjectName}\{Now:yyyyMMdd}"
|
||
'判断项目文件夹是否存在
|
||
If Not Directory.Exists(ProjectPath) Then
|
||
'MsgBox("项目文件夹不存在")
|
||
'创建文件夹
|
||
Directory.CreateDirectory(ProjectPath)
|
||
End If
|
||
|
||
|
||
'查找模板
|
||
locionbuf = node.TemplateNameIndex.Split("_")
|
||
Dim npage As Page
|
||
Dim page As Page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
'''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim layer As Layer = page.Layers(CInt(locionbuf(1)))
|
||
Dim nlayer As Layer
|
||
'''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
shp = layer.Shapes(CInt(locionbuf(2)))
|
||
'''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
If IsNothing(shp) OrElse Not node.TemplateName.Trim.Equals(shp.Name.Trim) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.TemplateNotExist
|
||
RsNode.Msg = "未找到模板信息！！"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("未找到模板信息！！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
|
||
|
||
Return False
|
||
Else
|
||
'将模板复制到新文档
|
||
'''Console.WriteLine($"到达节点5耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
shapeCopy(shp)
|
||
npage = MLibDoc.Pages(1)
|
||
nlayer = MLibDoc.ActiveLayer
|
||
''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
fshp = nlayer.Paste()
|
||
''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
End If
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim li As New List(Of (Shape, Shape))
|
||
Dim ctdic As New List(Of (Shape, Shape))
|
||
Dim Uctdic As New Dictionary(Of Integer, List(Of Shape）)
|
||
'遍历node.MaterialDic
|
||
|
||
|
||
For Each item In node.PatternList
|
||
' ''Console.WriteLine(item.ShapeNumber)
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
indexbuf = item.ShapeNumber.Split("_")
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialPositionNotExist
|
||
lhp = fshp.Shapes(CInt(item.IndexNumber))
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
rhp = layer.Shapes(CInt(indexbuf(2)))
|
||
'延时20个毫秒
|
||
|
||
''Console.WriteLine(rhp.Name)
|
||
''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
shapeCopy(rhp)
|
||
''Console.WriteLine($"到达节点5耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
rhp = nlayer.Paste()
|
||
''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
rhp.Name = rhp.Name & "_" & item.IndexNumber
|
||
'单体先挪到槽位
|
||
|
||
|
||
|
||
li.Add((rhp, lhp))
|
||
|
||
|
||
'再将素材挪到指定的小槽位
|
||
For Each LocationNode In item.LocationList
|
||
''Console.WriteLine(LocationNode.ShapeNumber)
|
||
If LocationNode.ShapeType = 0 Then
|
||
Dim remark As String() = LocationNode.Remark.Split("_")
|
||
If remark.Length > 1 Then
|
||
clhp = rhp.Shapes(CInt(LocationNode.IndexNumber))
|
||
chp = CreateTextImage(nlayer, LocationNode.ShapeNumber, remark)
|
||
If IsNothing(chp) Then
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "生成文本图像失败!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("生成文本图像失败！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
|
||
chp.Name = chp.Name & "_" & item.IndexNumber & "_" & LocationNode.IndexNumber
|
||
ctdic.Add((chp, clhp))
|
||
If remark.Length > 2 Then
|
||
Dim chpli As List(Of Shape)
|
||
If Uctdic.ContainsKey(remark(2)) Then
|
||
chpli = Uctdic(remark(2))
|
||
chpli.Add(chp)
|
||
|
||
Else
|
||
chpli = New List(Of Shape)
|
||
chpli.Add(chp)
|
||
Uctdic.Add(remark(2), chpli)
|
||
End If
|
||
|
||
End If
|
||
|
||
Else
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "生成文本图像失败!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
gLogNode = New LogNode("生成文本图像失败!", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
|
||
|
||
Else
|
||
clhp = rhp.Shapes(CInt(LocationNode.IndexNumber))
|
||
indexbuf = LocationNode.ShapeNumber.Split("_")
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
chp = layer.Shapes(CInt(indexbuf(2)))
|
||
'延时10个毫秒
|
||
'延时20个毫秒
|
||
|
||
''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
''Console.WriteLine(chp.Name)
|
||
|
||
'延时50ms
|
||
''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
shapeCopy(chp)
|
||
''Console.WriteLine($"到达节点9耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
chp = nlayer.Paste()
|
||
''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
chp.Name = chp.Name & "_" & item.IndexNumber & "_" & LocationNode.IndexNumber
|
||
ctdic.Add((chp, clhp))
|
||
End If
|
||
|
||
|
||
|
||
Next
|
||
|
||
''Console.WriteLine(rhp.Name)
|
||
|
||
|
||
|
||
Next
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
|
||
|
||
|
||
'fshp.Selected = True
|
||
For Each item In li
|
||
item.Item1.OrderToFront()
|
||
|
||
x = item.Item2.CenterX - item.Item1.CenterX
|
||
y = item.Item2.CenterY - item.Item1.CenterY
|
||
item.Item1.Move(x, y)
|
||
clhp = item.Item1.Shapes(item.Item1.Shapes.Count)
|
||
clhp.Visible = False
|
||
' li.Add((rhp, lhp))
|
||
|
||
|
||
'item.Item1.Selected = True
|
||
''Console.WriteLine(item.Item2.Name)
|
||
item.Item2.Delete()
|
||
Next
|
||
|
||
For Each item In ctdic
|
||
item.Item1.OrderToFront()
|
||
|
||
x = item.Item2.CenterX - item.Item1.CenterX
|
||
y = item.Item2.CenterY - item.Item1.CenterY
|
||
item.Item1.Move(x, y)
|
||
'ctdic.Add((chp, clhp))
|
||
|
||
'item.Item1.Selected = True
|
||
item.Item2.Delete()
|
||
|
||
Next
|
||
Dim topl As Single = 0
|
||
For Each item In Uctdic
|
||
For i = 0 To item.Value.Count - 1
|
||
If i = 0 Then
|
||
topl = item.Value(0).TopY
|
||
End If
|
||
item.Value(i).TopY = topl
|
||
Next
|
||
Next
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
'Dim sr As ShapeRange = APP.ActiveSelectionRange
|
||
fshp = nlayer.Shapes.All().Group()
|
||
'shp = sr.Group()
|
||
fshp.Name = node.TemplateName
|
||
|
||
'page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
'SetIconToCentered(page, shp)
|
||
'''Console.WriteLine($"到达节点11耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.SaveFileFail
|
||
fshp.Selected = True
|
||
SetIconToCentered(npage, fshp)
|
||
'Dim sel As ShapeRange = APP.ActiveSelectionRange
|
||
|
||
'0-预览小图 1-生成文件
|
||
Select Case node.Process
|
||
Case 0
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.png"
|
||
Dim Ef As ExportFilter = MLibDoc.ExportBitmap(ProjectPath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
RsNode.ImagePath = ProjectPath.Replace(ServerFilePath, "")
|
||
Case 1
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.cdr"
|
||
Dim ssao As New StructSaveAsOptions
|
||
ssao.Filter = VGCore.cdrFilter.cdrCDR
|
||
ssao.Range = VGCore.cdrExportRange.cdrSelection
|
||
MLibDoc.SaveAs(ProjectPath, ssao)
|
||
RsNode.CdrPath = ProjectPath.Replace(ServerFilePath, "")
|
||
Case Else
|
||
MLibDoc.Close()
|
||
G_LibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.UnknownFail
|
||
RsNode.Msg = "位置操作!!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
Return False
|
||
End Select
|
||
APP.EventsEnabled = True
|
||
APP.Optimization = False
|
||
APP.Refresh()
|
||
MLibDoc.Close()
|
||
G_LibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.Success
|
||
RsNode.Msg = "Ok"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
Return True
|
||
Catch ex As Exception
|
||
APP.EventsEnabled = True
|
||
APP.Optimization = False
|
||
APP.Refresh()
|
||
Select Case RsNode.Status
|
||
Case RedisSendNode.StatusType.MaterialPositionNotExist
|
||
RsNode.Msg = "素材位置不存在!!"
|
||
Case RedisSendNode.StatusType.MaterialNotExist
|
||
RsNode.Msg = "素材不存在!!"
|
||
Case RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = "生成图像失败!!"
|
||
Case RedisSendNode.StatusType.SaveFileFail
|
||
RsNode.Msg = "保存文件失败!!"
|
||
End Select
|
||
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RsNode))
|
||
|
||
If Not IsNothing(MLibDoc) Then
|
||
MLibDoc.Close()
|
||
End If
|
||
|
||
If Not IsNothing(G_LibDoc) Then
|
||
G_LibDoc.Close()
|
||
End If
|
||
gLogNode = New LogNode($"{RsNode.Msg}{vbCrLf}{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End Try
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
End Function
|
||
'输出日志
|
||
Public Sub InpotMessage1(PictureNum As String)
|
||
If Isdisply Then
|
||
Dim gLogNode As LogNode
|
||
gLogNode = New LogNode(PictureNum, RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Blue)
|
||
G_Log.AddLogNode(gLogNode)
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Public Function HandleNodeInformation3(node As RedisInfoNode) As Boolean
|
||
InpotMessage1("1、开始生成文件")
|
||
Dim oldTime As DateTime = Now
|
||
Dim MaterialPath As String = M_MaterialPath & node.MaterialLibraryName
|
||
Dim RsNode As New RedisSendNode
|
||
RsNode.User = node.User
|
||
RsNode.ProjectName = node.ProjectName
|
||
RsNode.ProjectId = node.ProjectId
|
||
RsNode.PictureNum = node.PictureNum
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Process = node.Process
|
||
RsNode.Guid = node.Guid
|
||
Dim RMNode As New RedisMsgNode
|
||
RMNode.MsgType = 1
|
||
RMNode.MsgNode = RsNode
|
||
|
||
Dim gLogNode As LogNode
|
||
Dim ProjectPath As String
|
||
Dim locionbuf(), indexbuf() As String
|
||
Dim fshp, shp, lhp, rhp, chp, clhp As Shape
|
||
Dim x#, y#, w#, h#
|
||
Dim dx As Double, dy As Double
|
||
Dim destLayer As Layer
|
||
Dim MLibDoc As Document
|
||
Dim li As New List(Of (Shape, Shape))
|
||
Dim ServerFilePath As String = "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" '
|
||
'''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
'查找素材库
|
||
InpotMessage1("2、检测模版素材库是否存在")
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "模版素材库不存在!"
|
||
|
||
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode("模版素材库不存在", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
|
||
'''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
Try
|
||
|
||
Try
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
MLibDoc = APP.CreateDocument()
|
||
InpotMessage1("3、打开模板库并创建新文件等待构建图像")
|
||
Catch ex As Exception
|
||
|
||
APP = New Application()
|
||
Thread.Sleep(1000)
|
||
APP.Visible = False
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
MLibDoc = APP.CreateDocument()
|
||
End Try
|
||
APP.EventsEnabled = False
|
||
APP.Optimization = True
|
||
|
||
'APP.EventsEnabled = True
|
||
'APP.Optimization = False
|
||
'APP.Refresh()
|
||
ProjectPath = $"{ServerFilePath}{node.ProjectName}\{Now:yyyyMMdd}"
|
||
'判断项目文件夹是否存在
|
||
InpotMessage1("4、创建项目文件夹")
|
||
If Not Directory.Exists(ProjectPath) Then
|
||
'MsgBox("项目文件夹不存在")
|
||
'创建文件夹
|
||
Directory.CreateDirectory(ProjectPath)
|
||
End If
|
||
|
||
|
||
'查找模板
|
||
InpotMessage1("5、开始查找模板图像")
|
||
locionbuf = node.TemplateNameIndex.Split("_")
|
||
Dim npage As Page
|
||
Dim page As Page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
'''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
Dim layer As Layer = page.Layers(CInt(locionbuf(1)))
|
||
Dim nlayer As Layer
|
||
'''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
shp = layer.Shapes(CInt(locionbuf(2)))
|
||
'''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
If IsNothing(shp) OrElse Not node.TemplateName.Trim.Equals(shp.Name.Trim) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.TemplateNotExist
|
||
RsNode.Msg = "未找到模板信息！！"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode("未找到模板信息！！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
|
||
|
||
Return False
|
||
Else
|
||
'将模板复制到新文档
|
||
'''Console.WriteLine($"到达节点5耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
InpotMessage1("6、开始拷贝模版图像到目标文件")
|
||
shapeCopy(shp)
|
||
npage = MLibDoc.Pages(1)
|
||
nlayer = MLibDoc.ActiveLayer
|
||
''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
fshp = nlayer.Paste()
|
||
InpotMessage1("7、拷贝模版图像到目标文件")
|
||
If Not String.IsNullOrEmpty(node.LogoPosition) Then
|
||
MaterialPath = M_MaterialPath & node.LogoFileName
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = $"Logo素材库不存在!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode($"Logo素材库不存在!", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
InpotMessage1("8、查找Logo图像")
|
||
Dim cshape, vshape As Shape
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
vshape = fshp.Shapes(CInt(node.LogoPosition))
|
||
indexbuf = node.LogoIndexNumber.Split("_")
|
||
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
cshape = layer.Shapes(CInt(indexbuf(2)))
|
||
InpotMessage1("9、开始拷贝Logo图像")
|
||
shapeCopy(cshape)
|
||
''Console.WriteLine($"到达节点9耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
cshape = nlayer.Paste()
|
||
''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
'Console.WriteLine($"logo:{cshape.Name} 复制完成{ cshape.LeftX},{cshape.TopY}！")
|
||
|
||
InpotMessage1("10、拷贝Logo图像到目标文件")
|
||
cshape.OrderToFront()
|
||
vshape.Visible = True
|
||
vshape.Selected = True
|
||
x = vshape.CenterX - cshape.CenterX
|
||
y = vshape.CenterY - cshape.CenterY
|
||
cshape.Move(x, y)
|
||
|
||
|
||
'cshape.SetPosition(vshape.LeftX, vshape.TopY)
|
||
'cshape.SetSize(vshape.SizeWidth, vshape.SizeHeight)
|
||
'Dim Stretchbuf As (Double, Double) = GetScale(cshape.SizeWidth, cshape.SizeHeight, vshape.SizeWidth, vshape.SizeHeight)
|
||
'cshape.Stretch(Stretchbuf.Item1, Stretchbuf.Item2)
|
||
Console.WriteLine($"{cshape.Name}_{cshape.CenterX}_{cshape.CenterY}->{vshape.Name}_{vshape.CenterX}_{vshape.CenterY }")
|
||
InpotMessage1("11、设置Logo图像在目标文件的为位置")
|
||
li.Add((cshape, vshape))
|
||
End If
|
||
|
||
End If
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
Dim ctdic As New List(Of (Shape, Shape))
|
||
Dim Uctdic As New Dictionary(Of Integer, List(Of Shape）)
|
||
'遍历node.MaterialDic
|
||
|
||
'APP.EventsEnabled = True
|
||
'APP.Optimization = False
|
||
'APP.Refresh()
|
||
InpotMessage1("12、开始构建单体")
|
||
For Each item In node.PatternList
|
||
' ''Console.WriteLine(item.ShapeNumber)
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
MaterialPath = M_MaterialPath & item.FileName
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = $"单体素材库不存在!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode($"单体素材库不存在!", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
InpotMessage1($"打开单体所在文件{vbCrLf}{MaterialPath}")
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
InpotMessage1($"开始查找单体")
|
||
indexbuf = item.ShapeNumber.Split("_")
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialPositionNotExist
|
||
lhp = fshp.Shapes(CInt(item.IndexNumber))
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
rhp = layer.Shapes(CInt(indexbuf(2)))
|
||
InpotMessage1($"开始拷贝单体{rhp.Name}")
|
||
'延时20个毫秒
|
||
''Console.WriteLine(rhp.Name)
|
||
''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
shapeCopy(rhp)
|
||
''Console.WriteLine($"到达节点5耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
rhp = nlayer.Paste()
|
||
''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
rhp.Name = rhp.Name & "_" & item.IndexNumber
|
||
|
||
'单体先挪到槽位
|
||
InpotMessage1($"拷贝单体:{rhp.Name} 到目标文件")
|
||
li.Add((rhp, lhp))
|
||
|
||
|
||
'再将素材挪到指定的小槽位
|
||
For Each LocationNode In item.LocationList
|
||
''Console.WriteLine(LocationNode.ShapeNumber)
|
||
If LocationNode.ShapeType = 0 Then
|
||
InpotMessage1($"开始创建字体图像:{LocationNode.ShapeNumber} 到目标文件")
|
||
Dim remark As String() = LocationNode.Remark.Split("_")
|
||
|
||
clhp = rhp.Shapes(CInt(LocationNode.IndexNumber))
|
||
chp = CreateTextImage1(nlayer, LocationNode.ShapeNumber, LocationNode)
|
||
|
||
If IsNothing(chp) Then
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = "生成文本图像失败!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode("生成文本图像失败！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
InpotMessage1($"创建字体图像:{LocationNode.ShapeNumber} 到目标文件")
|
||
|
||
chp.Name = chp.Name & "_" & item.IndexNumber & "_" & LocationNode.IndexNumber
|
||
ctdic.Add((chp, clhp))
|
||
If Not String.IsNullOrEmpty(LocationNode.LineNumber) Then
|
||
Dim chpli As List(Of Shape)
|
||
Dim LineNumber As Integer = CInt(LocationNode.LineNumber)
|
||
If Uctdic.ContainsKey(LineNumber) Then
|
||
chpli = Uctdic(LineNumber)
|
||
chpli.Add(chp)
|
||
Else
|
||
chpli = New List(Of Shape)
|
||
chpli.Add(chp)
|
||
Uctdic.Add(LineNumber, chpli)
|
||
End If
|
||
|
||
End If
|
||
|
||
|
||
|
||
|
||
Else
|
||
|
||
MaterialPath = M_MaterialPath & LocationNode.FileName
|
||
InpotMessage1($"开始检测素材库文件是否存在:{MaterialPath} ")
|
||
If Not File.Exists(MaterialPath) Then
|
||
|
||
RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
RsNode.Msg = $"图标素材库不存在!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
gLogNode = New LogNode($"图标素材库不存在!", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End If
|
||
InpotMessage1($"打开素材库文件:{MaterialPath} ")
|
||
G_LibDoc = APP.OpenDocument(MaterialPath, False)
|
||
InpotMessage1($"开始查找素材 ")
|
||
clhp = rhp.Shapes(CInt(LocationNode.IndexNumber))
|
||
indexbuf = LocationNode.ShapeNumber.Split("_")
|
||
|
||
page = G_LibDoc.Pages(CInt(indexbuf(0)))
|
||
layer = page.Layers(CInt(indexbuf(1)))
|
||
chp = layer.Shapes(CInt(indexbuf(2)))
|
||
InpotMessage1($"开始拷贝素材 ")
|
||
'延时10个毫秒
|
||
'延时20个毫秒
|
||
|
||
'''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
''Console.WriteLine(chp.Name)
|
||
|
||
'延时50ms
|
||
''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
shapeCopy(chp)
|
||
''Console.WriteLine($"到达节点9耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
chp = nlayer.Paste()
|
||
InpotMessage1($"拷贝素材 {chp.Name}到目标文件")
|
||
'Dim chpcolor As New VGCore.color '
|
||
Dim chpcolor As Color = New Color
|
||
Dim colorint As (Integer, Integer, Integer) = HexToRgb(LocationNode.ShapeColor)
|
||
chpcolor.RGBAssign(colorint.Item1, colorint.Item2, colorint.Item3)
|
||
Dim chpcolor1 As IVGColor = chp.Fill.UniformColor
|
||
chp.Fill.ApplyUniformFill(chpcolor)
|
||
InpotMessage1($"设置素材 {chp.Name}图像颜色")
|
||
''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
chp.Name = chp.Name & "_" & item.IndexNumber & "_" & LocationNode.IndexNumber
|
||
ctdic.Add((chp, clhp))
|
||
End If
|
||
|
||
Next
|
||
'这里要先把单体移到对应位置
|
||
InpotMessage1($"开始设置单体位置")
|
||
rhp.OrderToFront()
|
||
lhp.Visible = True
|
||
x = lhp.CenterX - rhp.CenterX
|
||
y = lhp.CenterY - rhp.CenterY
|
||
rhp.Move(x, y)
|
||
clhp = rhp.Shapes(rhp.Shapes.Count)
|
||
clhp.Delete() ' = False
|
||
'将替换的元素移到对应位置
|
||
InpotMessage1($"开始设置该单体内的素材图像位置")
|
||
For Each nitem In ctdic
|
||
|
||
nitem.Item1.OrderToFront()
|
||
|
||
x = nitem.Item2.CenterX - nitem.Item1.CenterX
|
||
y = nitem.Item2.CenterY - nitem.Item1.CenterY
|
||
nitem.Item1.Move(x, y)
|
||
'ctdic.Add((chp, clhp))
|
||
|
||
'item.Item1.Selected = True
|
||
nitem.Item2.Delete()
|
||
InpotMessage1($"设置素材{nitem.Item1.Name} 图像位置")
|
||
Next
|
||
ctdic.Clear()
|
||
'对齐
|
||
Dim topl As Single = 0
|
||
InpotMessage1($"开始设素材图像顶部对齐")
|
||
For Each Uitem In Uctdic
|
||
For i = 0 To Uitem.Value.Count - 1
|
||
If i = 0 Then
|
||
topl = Uitem.Value(0).TopY
|
||
End If
|
||
Uitem.Value(i).TopY = topl
|
||
Next
|
||
Next
|
||
InpotMessage1($"素材图像顶部对齐完毕")
|
||
Uctdic.Clear()
|
||
Next
|
||
|
||
|
||
'''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.BuildImageFail
|
||
InpotMessage1($"开始删除单体槽位")
|
||
For Each mitem In li
|
||
'Console.WriteLine(mitem.Item1.Name)
|
||
'Console.WriteLine(mitem.Item2.Name)
|
||
mitem.Item2.Delete()
|
||
Next
|
||
InpotMessage1($"单体槽位删除完毕")
|
||
li.Clear()
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
'''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
'Dim sr As ShapeRange = APP.ActiveSelectionRange
|
||
InpotMessage1($"13、开始组合整个图像")
|
||
fshp = nlayer.Shapes.All().Group()
|
||
'shp = sr.Group()
|
||
fshp.Name = node.TemplateName
|
||
|
||
|
||
|
||
'page = G_LibDoc.Pages(CInt(locionbuf(0)))
|
||
'SetIconToCentered(page, shp)
|
||
'''Console.WriteLine($"到达节点11耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
RsNode.Status = RedisSendNode.StatusType.SaveFileFail
|
||
fshp.Selected = True
|
||
InpotMessage1($"14、开始将整个图像移动至中心位置")
|
||
SetIconToCentered(npage, fshp)
|
||
'Dim sel As ShapeRange = APP.ActiveSelectionRange
|
||
APP.EventsEnabled = True
|
||
APP.Optimization = False
|
||
APP.Refresh()
|
||
|
||
'fshp.SetSize(Math.Abs(fshp.SizeWidth) * 10000, Math.Abs(fshp.SizeHeight) * 10000)
|
||
InpotMessage1($"15、开始保存图像成文件")
|
||
'0-预览小图 1-生成文件
|
||
Select Case node.Process
|
||
Case 0
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.png"
|
||
Dim Ef As ExportFilter = MLibDoc.ExportBitmap(ProjectPath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
RsNode.ImagePath = ProjectPath.Replace(ServerFilePath, "")
|
||
Case 1
|
||
ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.cdr"
|
||
Dim ssao As New StructSaveAsOptions
|
||
ssao.Filter = VGCore.cdrFilter.cdrCDR
|
||
ssao.Range = VGCore.cdrExportRange.cdrSelection
|
||
MLibDoc.SaveAs(ProjectPath, ssao)
|
||
|
||
|
||
InpotMessage1($"16、保存图像成plt文件")
|
||
ProjectPath = ProjectPath.Replace(".cdr", ".plt")
|
||
'ssao.Filter = VGCore.cdrFilter.cdrPLT
|
||
'ssao.Range = VGCore.cdrExportRange.cdrSelection
|
||
'MLibDoc.FullFileName = ProjectPath
|
||
'MLibDoc.SaveAs(ProjectPath, ssao)
|
||
|
||
'fshp.SizeWidth = fshp.SizeWidth * 10000
|
||
'fshp.SizeHeight = fshp.SizeHeight * 10000
|
||
|
||
Dim originalUnit As cdrUnit
|
||
originalUnit = MLibDoc.Unit
|
||
' 将文档单位设置为毫米
|
||
MLibDoc.Unit = VGCore.cdrUnit.cdrMillimeter
|
||
|
||
'1. 宽高（mm）
|
||
Dim wMm As Double = Format(fshp.SizeWidth, "0.000")
|
||
Dim hMm As Double = Format(fshp.SizeHeight, "0.000")
|
||
fshp.GetSize(wMm, hMm)
|
||
hMm = (hMm * 100) ' / 304.8
|
||
wMm = (wMm * 100) '/ 304.8
|
||
|
||
|
||
'fshp.Scale
|
||
'fshp.SizeWidth = wMm
|
||
'fshp.SizeHeight = hMm
|
||
'fshp.SetSizeEx(fshp.CenterX, fshp.CenterY, wMm, hMm)
|
||
fshp.SetSize(wMm, hMm)
|
||
'4. 打印
|
||
Console.WriteLine($"宽 : {wMm:F2} mm")
|
||
Console.WriteLine($"高 : {hMm:F2} mm")
|
||
'Console.WriteLine($"X 放大倍数: {scaleX:F2}")
|
||
'Console.WriteLine($"Y 放大倍数: {scaleY:F2}")
|
||
'Console.WriteLine($"比例锁定 : {locked}")
|
||
|
||
|
||
Dim opt As New StructExportOptions
|
||
opt.MaintainAspect = True
|
||
'opt.ResolutionX = 100
|
||
'opt.ResolutionY = 100
|
||
'opt.SizeX = wMm
|
||
'opt.SizeY = hMm
|
||
opt.AntiAliasingType = VGCore.cdrAntiAliasingType.cdrSupersampling
|
||
'MLibDoc.Export(ProjectPath, VGCore.cdrFilter.cdrPLT, VGCore.cdrExportRange.cdrSelection, opt)
|
||
Dim Ef As ExportFilter = MLibDoc.ExportEx(ProjectPath, VGCore.cdrFilter.cdrPLT, VGCore.cdrExportRange.cdrSelection, opt)
|
||
Ef.Finish()
|
||
|
||
RsNode.CdrPath = ProjectPath.Replace(ServerFilePath, "")
|
||
Case Else
|
||
MLibDoc.Close()
|
||
G_LibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.UnknownFail
|
||
RsNode.Msg = "位置操作!!"
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
Return False
|
||
End Select
|
||
InpotMessage1($"16、保存图像成文件完成")
|
||
|
||
G_LibDoc.Close()
|
||
MLibDoc.Close()
|
||
RsNode.Status = RedisSendNode.StatusType.Success
|
||
RsNode.Msg = "Ok"
|
||
InpotMessage1($"17、关闭素材库和目标文件")
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
InpotMessage1($"18、向Redis写入生成成功信息")
|
||
Return True
|
||
Catch ex As Exception
|
||
APP.EventsEnabled = True
|
||
APP.Optimization = False
|
||
APP.Refresh()
|
||
Select Case RsNode.Status
|
||
Case RedisSendNode.StatusType.MaterialPositionNotExist
|
||
RsNode.Msg = "素材位置不存在!!"
|
||
Case RedisSendNode.StatusType.MaterialNotExist
|
||
RsNode.Msg = "素材不存在!!"
|
||
Case RedisSendNode.StatusType.BuildImageFail
|
||
RsNode.Msg = "生成图像失败!!"
|
||
Case RedisSendNode.StatusType.SaveFileFail
|
||
RsNode.Msg = "保存文件失败!!"
|
||
End Select
|
||
|
||
RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode))
|
||
|
||
If Not IsNothing(MLibDoc) Then
|
||
MLibDoc.Close()
|
||
End If
|
||
|
||
If Not IsNothing(G_LibDoc) Then
|
||
G_LibDoc.Close()
|
||
End If
|
||
gLogNode = New LogNode($"{RsNode.Msg}{vbCrLf}{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End Try
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' 计算缩放因子
|
||
''' </summary>
|
||
''' <param name="imgW">图像原始宽度</param>
|
||
''' <param name="imgH">图像原始高度</param>
|
||
''' <param name="slotW">槽位宽度</param>
|
||
''' <param name="slotH">槽位高度</param>
|
||
''' <param name="mode">0=填满 1=完整 2=拉伸</param>
|
||
''' <returns>（scaleX, scaleY）</returns>
|
||
Public Function GetScale(imgW As Double, imgH As Double, slotW As Double, slotH As Double, Optional mode As Integer = 1) As (Double, Double)
|
||
Dim sx As Double = slotW / imgW
|
||
Dim sy As Double = slotH / imgH
|
||
|
||
' Return mode switch
|
||
'{
|
||
' 0 => (Math.Max(sx, sy), Math.Max(sx, sy)), // 填满（保持比例）
|
||
' 1 => (Math.Min(sx, sy), Math.Min(sx, sy)), // 完整（保持比例）
|
||
' 2 => (sx, sy), // 强制拉伸
|
||
' _ => (sx, sy)
|
||
'};
|
||
Select Case mode
|
||
Case 0
|
||
Return (Math.Max(sx, sy), Math.Max(sx, sy))
|
||
Case 1
|
||
Return (Math.Min(sx, sy), Math.Min(sx, sy))
|
||
Case 2
|
||
Return (sx, sy)
|
||
Case Else
|
||
Return (sx, sy)
|
||
End Select
|
||
|
||
End Function
|
||
|
||
'創建字體圖像
|
||
Public Function CreateTextImage(nlayer As Layer, ShapeNumber As String, remark As String()) As Shape
|
||
Dim chp As Shape
|
||
Dim txtsize As Single
|
||
If Not txtsize.TryParse(remark(1), txtsize) Then
|
||
Return Nothing
|
||
End If
|
||
Try
|
||
chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, remark(0), txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, remark(0), txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'Dim chpcolor As New VGCore.Color
|
||
Dim chpcolor As Color = New Color
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
chp.Fill.ApplyUniformFill(chpcolor)
|
||
Return chp
|
||
Catch ex As Exception
|
||
Return Nothing
|
||
End Try
|
||
|
||
|
||
End Function
|
||
|
||
'創建字體圖像
|
||
Public Function CreateTextImage2(nlayer As Layer, ShapeNumber As String, remark As String()) As Shape
|
||
Dim chp As Shape
|
||
Dim txtsize As Single
|
||
If Not txtsize.TryParse(remark(1), txtsize) Then
|
||
Return Nothing
|
||
End If
|
||
Try
|
||
chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, remark(0), txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, remark(0), txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'Dim chpcolor As New VGCore.Color
|
||
Dim chpcolor As Color = New Color
|
||
chpcolor.RGBAssign(0, 0, 0)
|
||
chp.Fill.ApplyUniformFill(chpcolor)
|
||
Return chp
|
||
Catch ex As Exception
|
||
Return Nothing
|
||
End Try
|
||
|
||
|
||
End Function
|
||
Public Function CreateTextImage1(nlayer As Layer, ShapeNumber As String, LocationNode As LocationList) As Shape
|
||
|
||
Dim chp As Shape
|
||
Dim txtsize As Single
|
||
If Not txtsize.TryParse(LocationNode.ShapeFontSize, txtsize) Then
|
||
Return Nothing
|
||
End If
|
||
Try
|
||
chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, LocationNode.ShapeFont, txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'chp = nlayer.CreateArtisticText(0, 0, ShapeNumber, cdrTextLanguage.cdrLanguageNone, cdrTextCharSet.cdrCharSetDefault, remark(0), txtsize, cdrFontStyle.cdrNormalFontStyle)
|
||
'Dim chpcolor As New VGCore.Color
|
||
Dim chpcolor As Color = New Color
|
||
Dim colorint As (Integer, Integer, Integer) = HexToRgb(LocationNode.ShapeColor)
|
||
chpcolor.RGBAssign(colorint.Item1, colorint.Item2, colorint.Item3)
|
||
|
||
chp.Fill.ApplyUniformFill(chpcolor)
|
||
chp.ConvertToCurves()
|
||
Return chp
|
||
Catch ex As Exception
|
||
Return Nothing
|
||
End Try
|
||
|
||
|
||
End Function
|
||
Public Sub shapeCopy(shp As Shape)
|
||
Try
|
||
shp.Copy()
|
||
Catch ex As Exception
|
||
''Console.WriteLine($"图像[{shp.Name}]复制失败！")
|
||
shapeCopy(shp)
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
'处理节点信息
|
||
'Public Function HandleNodeInformation(node As RedisInfoNode) As Boolean
|
||
' Dim gLogNode As LogNode
|
||
' Dim ProjectPath As String
|
||
' Dim MaterialPath As String = M_MaterialPath & node.MaterialLibraryName
|
||
' Dim RsNode As New RedisSendNode
|
||
' RsNode.User = node.User
|
||
' RsNode.ProjectName = node.ProjectName
|
||
' RsNode.ProjectId = node.ProjectId
|
||
' RsNode.PictureNum = node.PictureNum
|
||
|
||
' Dim oldTime As DateTime = Now
|
||
|
||
' '判断素材库是否存在
|
||
' If Not File.Exists(MaterialPath) Then
|
||
' 'MsgBox("素材库不存在")
|
||
|
||
' RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist
|
||
' RsNode.Msg = "素材库不存在!"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
|
||
' gLogNode = New LogNode("素材库不存在", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' Return False
|
||
' End If
|
||
|
||
|
||
' ProjectPath = $"{M_TplPath}{node.ProjectName}\{Now:yyyyMMdd}"
|
||
' '判断项目文件夹是否存在
|
||
' If Not Directory.Exists(ProjectPath) Then
|
||
' 'MsgBox("项目文件夹不存在")
|
||
' '创建文件夹
|
||
' Directory.CreateDirectory(ProjectPath)
|
||
' End If
|
||
|
||
' '''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
|
||
' ' Dim srcDoc As Document '素材文件
|
||
' Dim NewDoc As Document '成平文件
|
||
|
||
' Dim destLayer As Layer
|
||
|
||
' Dim shp As Shape = Nothing
|
||
|
||
' Dim dic As Dictionary(Of String, (Integer, Integer, Integer))
|
||
|
||
' 'Dim app As New Application() '打开CorelDRAW并显示
|
||
' '''Console.WriteLine($"到达节点2耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' Try
|
||
' 'Thread.Sleep(2000)
|
||
' 'APP.documents.CloseAll()
|
||
|
||
' '打开素材文件
|
||
|
||
' '''Console.WriteLine($"到达节点11耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
' 'Thread.Sleep(500)
|
||
|
||
' '创建新的成平文件
|
||
|
||
' NewDoc = APP.CreateDocument()
|
||
' '''Console.WriteLine($"到达节点10耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
' '查询素材数据并以键值对保存
|
||
' dic = Gettbl_iconlibrary(node.MaterialLibraryName)
|
||
' If IsNothing(dic) OrElse dic.Count = 0 Then
|
||
' RsNode.Status = RedisSendNode.StatusType.GetMaterialFromDBFail
|
||
' RsNode.Msg = $"获取数据库素材失败！"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
' Return False
|
||
' End If
|
||
|
||
' '''Console.WriteLine($"到达节点3耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' 'Thread.Sleep(500)
|
||
' destLayer = NewDoc.Pages(1).Layers(2)
|
||
|
||
' If queryThenIconTonewDoc(node.TemplateName, dic, G_LibDoc, destLayer, NewDoc.Pages(1)) Then
|
||
|
||
' '''Console.WriteLine($"到达节点4耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' For Each item In node.MaterialDic
|
||
' If queryThenIconTonewDoc(item.Value, dic, G_LibDoc, destLayer) Then
|
||
' '''Console.WriteLine($"到达节点5耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
' If ReplaceTheCorrespondingImage(node.TemplateName, item.Key, item.Value, destLayer) Then
|
||
' NewDoc.Close()
|
||
|
||
|
||
' RsNode.Status = RedisSendNode.StatusType.MaterialPositionNotExist
|
||
' RsNode.Msg = $"未找到素材放置位置:'{item.Key}' ！"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
|
||
' gLogNode = New LogNode($"未找到素材放置位置:'{item.Key}' ！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' Return False
|
||
' End If
|
||
|
||
' Else
|
||
|
||
' NewDoc.Close()
|
||
|
||
|
||
' RsNode.Status = RedisSendNode.StatusType.MaterialNotExist
|
||
' RsNode.Msg = $"未找到素材:'{item.Value}' !"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
|
||
|
||
' gLogNode = New LogNode($"未找到素材:'{item.Value}' ！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' Return False
|
||
' End If
|
||
|
||
' Next
|
||
' '''Console.WriteLine($"到达节点6耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
|
||
' Else
|
||
|
||
' NewDoc.Close()
|
||
|
||
|
||
' RsNode.Status = RedisSendNode.StatusType.TemplateNotExist
|
||
' RsNode.Msg = $"未找到模板'{node.TemplateName}'！！"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
|
||
' gLogNode = New LogNode($"未找到模板'{node.TemplateName}'！！", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' Return False
|
||
' End If
|
||
|
||
' SetIconName(node.TemplateName, destLayer)
|
||
' destLayer.SelectableShapes.All.Group().Name = node.TemplateName
|
||
' '''Console.WriteLine($"到达节点7耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.cdr"
|
||
|
||
' MaterialPath = ProjectPath.Replace(".cdr", ".jpg")
|
||
|
||
' '// 4) 导出 JPG
|
||
' Dim Ef As ExportFilter = NewDoc.ExportBitmap(MaterialPath, VGCore.cdrFilter.cdrPNG)
|
||
' Ef.Finish()
|
||
|
||
' NewDoc.SaveAs(ProjectPath)
|
||
' '''Console.WriteLine($"到达节点8耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' NewDoc.Close()
|
||
|
||
|
||
|
||
' RsNode.ImagePath = MaterialPath
|
||
' RsNode.CdrPath = ProjectPath
|
||
' RsNode.Status = RedisSendNode.StatusType.Success
|
||
' RsNode.Msg = "成功"
|
||
' RedisPublishMessage(JsonConvert.SerializeObject(RsNode))
|
||
|
||
|
||
' gLogNode = New LogNode($"'{node.TemplateName.Replace("Mode_", "")}'图像文件生成完毕！！！", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' 'gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' '''Console.WriteLine($"到达节点9耗时：{(Now - oldTime).TotalMilliseconds}毫秒")
|
||
|
||
' Return True
|
||
|
||
' Catch ex As Exception
|
||
|
||
' If Not IsNothing(NewDoc) Then
|
||
' ' NewDoc.Close()
|
||
' End If
|
||
|
||
|
||
' gLogNode = New LogNode(ex.Message, RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' Return False
|
||
' End Try
|
||
|
||
|
||
|
||
|
||
' Return True
|
||
|
||
'End Function
|
||
|
||
'将hex转为rgb
|
||
Public Function HexToRgb(hex As String) As (Integer, Integer, Integer)
|
||
Try
|
||
If String.IsNullOrEmpty(hex) Then Return (255, 255, 255)
|
||
Dim r As Integer = Convert.ToInt32(hex.Substring(1, 2), 16)
|
||
Dim g As Integer = Convert.ToInt32(hex.Substring(3, 2), 16)
|
||
Dim b As Integer = Convert.ToInt32(hex.Substring(5, 2), 16)
|
||
Return (r, g, b)
|
||
Catch ex As Exception
|
||
Return (255, 255, 255)
|
||
End Try
|
||
|
||
End Function
|
||
Public Function Gettbl_iconlibrary(Version As String) As Dictionary(Of String, (Integer, Integer, Integer))
|
||
Dim dic As New Dictionary(Of String, (Integer, Integer, Integer))
|
||
Dim npgsqldb As DbExecutor = New DbExecutor(DbExecutor.DbTypeEnum.Mysql, LocalConnString)
|
||
|
||
Dim gLogNode As LogNode
|
||
'将列表中的数据库语句组装成事务语句
|
||
Dim transStr As String = $"select * from `Cdr_library`.`tbl_iconlibrary` where `Version` ='{Version}';"
|
||
|
||
|
||
'插入数据库
|
||
' Using db As New DbExecutor(DbExecutor.DbTypeEnum.npgsql, LocalConnString)
|
||
Dim dt As DataTable
|
||
|
||
Try
|
||
npgsqldb.Open()
|
||
|
||
' npgsqldb.ExecuteDataTable(transStr)
|
||
dt = npgsqldb.ExecuteDataTable(transStr)
|
||
'遍历行添加数据到dic
|
||
For Each row As DataRow In dt.Rows
|
||
If Not dic.ContainsKey(row("KeyName").ToString()) Then
|
||
dic.Add(row("KeyName").ToString(), (row("PageNumber"), row("LayerNumber"), row("Shapenumber")))
|
||
Else
|
||
dic.Item(row("KeyName").ToString()) = (row("PageNumber"), row("LayerNumber"), row("Shapenumber"))
|
||
End If
|
||
|
||
Next
|
||
npgsqldb.Close()
|
||
Catch ex As Exception
|
||
If Not IsNothing(npgsqldb) Then
|
||
npgsqldb.Close()
|
||
End If
|
||
|
||
|
||
'AddLogMessage($"写入酒店日志异常！")
|
||
gLogNode = New LogNode($"获取素材失败!{vbCrLf}{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return Nothing
|
||
End Try
|
||
'gLogNode = New LogNode($"获取素材成功!{vbCrLf}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
''gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
'G_Log.AddLogNode(gLogNode)
|
||
Return dic
|
||
End Function
|
||
|
||
|
||
Public Sub SetIconToCentered(page As Page, nshape As Shape)
|
||
Dim totalW As Double, totalH As Double
|
||
totalW = page.SizeWidth
|
||
totalH = page.SizeHeight
|
||
Dim docCX As Double, docCY As Double
|
||
docCX = totalW / 2
|
||
docCY = totalH / 2
|
||
|
||
nshape.SetPosition(docCX - nshape.SizeWidth / 2, totalH - nshape.SizeHeight / 2)
|
||
'nshape.CenterX = page.Width / 2
|
||
'nshape.CenterY = page.Height / 2
|
||
'nshape.Move(docCX, docCY)
|
||
End Sub
|
||
''' <summary>
|
||
'''
|
||
''' </summary>
|
||
''' <param name="iconnameA">被替换的图像</param>
|
||
''' <param name="iconnameB">用来替换的图像名</param>
|
||
''' <param name="destLayer"></param>
|
||
''' <returns></returns>
|
||
'替换对应图像
|
||
Public Function ReplaceTheCorrespondingImage(TemplateName As String, iconnameA As String, iconnameB As String, destLayer As Layer) As Boolean
|
||
Dim gLogNode As LogNode
|
||
Dim shpA, shpB As Shape
|
||
Dim x#, y#, w#, h#
|
||
Dim dx As Double, dy As Double
|
||
For Each shp As Shape In destLayer.Shapes
|
||
'''Console.WriteLine(shp.Name)
|
||
If shp.Name.Equals(TemplateName.Trim) Then
|
||
For Each shp2 As Shape In shp.Shapes
|
||
If shp2.Name.Equals(iconnameA.Trim) Then
|
||
shpA = shp2
|
||
Exit For
|
||
End If
|
||
Next
|
||
|
||
End If
|
||
If shp.Name.Equals(iconnameB.Trim) Then
|
||
shpB = shp
|
||
End If
|
||
Next
|
||
|
||
If shpA Is Nothing Then
|
||
Return False
|
||
End If
|
||
If shpB Is Nothing Then
|
||
Return True
|
||
End If
|
||
|
||
|
||
x = shpA.CenterX - shpB.CenterX
|
||
y = shpA.CenterY - shpB.CenterY
|
||
|
||
dx = shpA.LeftX
|
||
dy = shpA.TopY
|
||
'''Console.WriteLine(shpA.Name)
|
||
|
||
shpB.Move(x, y)
|
||
|
||
shpA.Delete()
|
||
|
||
End Function
|
||
|
||
'设置图像名称
|
||
Public Function SetIconName(iconname As String, destLayer As Layer) As Boolean
|
||
For Each shp As Shape In destLayer.Shapes
|
||
If shp.Name.Equals(iconname.Trim) Then
|
||
If shp.Type = cdrShapeType.cdrGroupShape Then
|
||
shp.Ungroup()
|
||
End If
|
||
|
||
End If
|
||
Next
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' 查找图像并拷贝到目标图层 中
|
||
''' </summary>
|
||
''' <param name="iconname"></param>
|
||
''' <param name="srcDoc"></param>
|
||
''' <param name="NewDoc"></param>
|
||
''' <returns></returns>
|
||
Public Function queryThenIconTonewDoc(iconname As String, dic As Dictionary(Of String, (Integer, Integer, Integer)), srcDoc As Document, destLayer As Layer, Optional fpage As Page = Nothing) As Boolean
|
||
|
||
If String.IsNullOrEmpty(iconname) Then Return True
|
||
Dim val As (Integer, Integer, Integer)
|
||
Dim nshape As Shape
|
||
If dic.ContainsKey(iconname.Trim) Then
|
||
val = dic(iconname.Trim)
|
||
Else
|
||
Return False
|
||
End If
|
||
Dim page As Page = srcDoc.Pages(val.Item1)
|
||
Dim layer As Layer = page.Layers(val.Item2)
|
||
Dim shape As Shape = layer.Shapes(val.Item3)
|
||
' srcDoc.Pages(val.Item1).Layers(val.Item2).Shapes(val.Item3).Copy()
|
||
'nshape.Copy()
|
||
|
||
shape.Copy()
|
||
nshape = destLayer.Paste()
|
||
If Not IsNothing(fpage) Then
|
||
SetIconToCentered(fpage, nshape)
|
||
End If
|
||
Return True
|
||
|
||
|
||
|
||
'遍历素材文件内的所有图层
|
||
|
||
'For Each nPage As Page In srcDoc.Pages
|
||
' '''Console.WriteLine(nPage.Name)
|
||
' '遍历图层内的所有图像
|
||
' For Each Layer As Layer In nPage.Layers
|
||
' '''Console.WriteLine(Layer.Name)
|
||
' For Each Shape As Shape In Layer.Shapes
|
||
' '''Console.WriteLine(Shape.Name)
|
||
' '判断模板图像是否存在
|
||
' If Shape.Name.Equals(iconname.Trim) Then
|
||
' Shape.Copy()
|
||
' nshape = destLayer.Paste()
|
||
' If Not IsNothing(fpage) Then
|
||
' SetIconToCentered(fpage, nshape)
|
||
|
||
' End If
|
||
' Return True
|
||
' End If
|
||
|
||
|
||
' Next
|
||
' Next
|
||
|
||
'Next
|
||
'Return False
|
||
|
||
End Function
|
||
|
||
|
||
|
||
|
||
'获取系统缓存参数
|
||
Public Sub GetSeting()
|
||
'刷新系统缓存
|
||
My.Settings.Reload()
|
||
'获取系统缓存参数
|
||
'ComboBox1.Text = My.Settings.SerialPortName
|
||
'ComboBox2.Text = My.Settings.BaudRate
|
||
If My.Settings.THigh = 0 OrElse My.Settings.TWide = 0 Then
|
||
Else
|
||
Me.Height = My.Settings.THigh
|
||
Me.Width = My.Settings.TWide
|
||
End If
|
||
|
||
|
||
G_Subscribe = My.Settings.G_Subscribe
|
||
G_Publish = My.Settings.G_Publish
|
||
ToolStripTextBox2.Text = G_Subscribe
|
||
ToolStripTextBox1.Text = G_Publish
|
||
|
||
'Dim dic As Dictionary(Of Integer, (String, String, String))
|
||
'dic = JsonConvert.DeserializeObject(Of Dictionary(Of Integer, (String, String, String)))(My.Settings.GTable)
|
||
'If IsNothing(dic) OrElse dic.Count = 0 Then Return
|
||
|
||
|
||
'JsonConvert.SerializeObject(m_Applicationconfig)
|
||
End Sub
|
||
'保存系统缓存参数
|
||
Public Sub SaveSeting()
|
||
|
||
'刷新系统缓存
|
||
My.Settings.Reload()
|
||
'获取系统缓存参数
|
||
'My.Settings.SerialPortName = ComboBox1.Text
|
||
'My.Settings.BaudRate = ComboBox2.Text
|
||
My.Settings.THigh = Me.Height
|
||
My.Settings.TWide = Me.Width
|
||
My.Settings.G_Subscribe = G_Subscribe
|
||
My.Settings.G_Publish = G_Publish
|
||
Dim dic As New Dictionary(Of Integer, (String, String, String))
|
||
|
||
'My.Settings.GTable = JsonConvert.SerializeObject(dic)
|
||
My.Settings.Save()
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
Public Sub initRedisPublisher()
|
||
If Not IsNothing(G_Redislish) AndAlso G_Redislish.IsConnected Then
|
||
G_Redislish.CloseConnection()
|
||
End If
|
||
' 替换为你的 Redis 连接字符串
|
||
'Dim connectionString = "127.0.0.1:6379"
|
||
Try
|
||
G_Redislish = New RedisSubscriber(M_Redisip, M_Redisport, M_Redispassword)
|
||
Catch ex As Exception
|
||
MsgBox($"redis发布初始化失败:{ex.Message}")
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Public Sub RedisPublishMessage(message As String)
|
||
If String.IsNullOrEmpty(G_Publish) Then
|
||
MsgBox("未设置发布频道")
|
||
Return
|
||
End If
|
||
If String.IsNullOrEmpty(message) Then
|
||
MsgBox("未输入发布内容")
|
||
Return
|
||
End If
|
||
If G_Redislish.IsConnected Then
|
||
Dim gLogNode As LogNode
|
||
Try
|
||
G_Redislish.PublishMessage(G_Publish, message)
|
||
gLogNode = New LogNode($"Redis:{G_Publish}: {message}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Catch ex As Exception
|
||
'MsgBox($"redis发布失败:{ex.Message}")
|
||
gLogNode = New LogNode(ex.Message, RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
End Try
|
||
|
||
Else
|
||
MsgBox("redis未连接")
|
||
End If
|
||
End Sub
|
||
Public Sub RedisPublishMessage1(key As String, message As String)
|
||
If String.IsNullOrEmpty(G_Publish) Then
|
||
MsgBox("未设置发布频道")
|
||
Return
|
||
End If
|
||
If String.IsNullOrEmpty(message) Then
|
||
MsgBox("未输入发布内容")
|
||
Return
|
||
End If
|
||
|
||
Dim gLogNode As LogNode
|
||
Try
|
||
Dim config As ConfigurationOptions = New ConfigurationOptions()
|
||
config.EndPoints.Add(M_Redisip, M_Redisport) ' 设置Redis服务器地址和端口
|
||
config.Password = M_Redispassword ' 设置Redis密码
|
||
config.AbortOnConnectFail = False ' 连接失败时不中止
|
||
Dim conn = ConnectionMultiplexer.Connect(config)
|
||
Dim db = conn.GetDatabase(0)
|
||
db.StringSet(key, message)
|
||
|
||
gLogNode = New LogNode($"Redis:{G_Publish}: {message}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Catch ex As Exception
|
||
'MsgBox($"redis发布失败:{ex.Message}")
|
||
gLogNode = New LogNode(ex.Message, RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
||
If String.IsNullOrEmpty(ToolStripTextBox2.Text) Then
|
||
MsgBox("请输入订阅频道")
|
||
Return
|
||
Else
|
||
G_OldSubscribe = G_Subscribe
|
||
G_Subscribe = ToolStripTextBox2.Text.Trim
|
||
End If
|
||
If String.IsNullOrEmpty(ToolStripTextBox1.Text) Then
|
||
MsgBox("请输入发布频道")
|
||
Return
|
||
Else
|
||
G_Publish = ToolStripTextBox1.Text.Trim
|
||
End If
|
||
|
||
|
||
initRedisSubscriber(G_Subscribe, G_OldSubscribe)
|
||
|
||
initRedisPublisher()
|
||
End Sub
|
||
Public Sub initRedisSubscriber(Subscribe As String, OldSubscribe As String)
|
||
If String.IsNullOrEmpty(Subscribe) Then
|
||
MsgBox("未设置订阅频道")
|
||
Return
|
||
End If
|
||
|
||
If Not IsNothing(G_RedisSub) AndAlso G_RedisSub.IsConnected Then
|
||
' 取消订阅并关闭连接
|
||
G_RedisSub.UnsubscribeFromChannel(OldSubscribe)
|
||
G_RedisSub.CloseConnection()
|
||
End If
|
||
|
||
|
||
|
||
' 替换为你的 Redis 连接字符串
|
||
' Dim connectionString = "127.0.0.1:10079,password="
|
||
Try
|
||
G_RedisSub = New RedisSubscriber(M_Redisip, M_Redisport, M_Redispassword)
|
||
|
||
' 定义消息处理程序
|
||
Dim messageHandler As Action(Of RedisChannel, RedisValue) = Sub(channel, message)
|
||
'将消息输出添加到队列
|
||
|
||
Dim gLogNode As LogNode
|
||
Dim g_CallInfoNode As RedisMsgNode
|
||
Try
|
||
g_CallInfoNode = JsonConvert.DeserializeObject(Of RedisMsgNode)(message)
|
||
Catch ex As Exception
|
||
'MsgBox($"消息解析失败:{ex.Message}")
|
||
gLogNode = New LogNode(ex.Message, RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End Try
|
||
|
||
If IsNothing(g_CallInfoNode) Then
|
||
gLogNode = New LogNode($"【序列化失败】Redis:{channel}: {message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
|
||
gLogNode = New LogNode($"Redis:{channel}: {message}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
G_Log.AddLogNode(gLogNode)
|
||
M_RedisQueue.Enqueue(g_CallInfoNode)
|
||
|
||
'RuningLog.OutputLogsToTheControl(RichTextBox1, New RuningLogConfig($"Redis接收到来自 {channel} 的消息: {message}", System.Drawing.Color.DarkOrange, 12), 1)
|
||
''''Console.WriteLine($"接收到来自 {channel} 的消息: {message}")
|
||
End Sub
|
||
|
||
' 订阅频道
|
||
G_RedisSub.SubscribeToChannel(Subscribe, messageHandler)
|
||
Catch ex As Exception
|
||
MsgBox($"订阅失败:{ex.Message}")
|
||
End Try
|
||
|
||
|
||
'' 发布消息示例
|
||
''''Console.WriteLine("发布测试消息...")
|
||
'G_RedisSub.PublishMessage("testChannel", "Hello from publisher!")
|
||
|
||
'' 保持程序运行以接收更多消息
|
||
''''Console.WriteLine("按任意键退出...")
|
||
'''Console.ReadKey()
|
||
|
||
End Sub
|
||
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
|
||
If RichTextBox1.Lines.Length > 2147000000 Then
|
||
RichTextBox1.Clear()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||
RichTextBox1.Clear()
|
||
Dim dic As New Dictionary(Of String, String)
|
||
'dic.Add("a", "1")
|
||
''将dic 序列化成字符串
|
||
'Dim json As String = JsonConvert.SerializeObject(dic)
|
||
''控制台输出(json)
|
||
''''Console.WriteLine(json)
|
||
End Sub
|
||
|
||
Private Sub CorelDRAW_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
|
||
SaveSeting()
|
||
RedisClose()
|
||
If Not IsNothing（M_EventThread） AndAlso M_EventThread.IsAlive Then
|
||
M_EventThread.Abort()
|
||
End If
|
||
If Not IsNothing（G_Log） Then
|
||
G_Log.CloseThread()
|
||
End If
|
||
End Sub
|
||
|
||
'关闭redis
|
||
Public Sub RedisClose()
|
||
If Not IsNothing(G_RedisSub) AndAlso G_RedisSub.IsConnected Then
|
||
G_RedisSub.UnsubscribeFromChannel(G_Subscribe)
|
||
G_RedisSub.CloseConnection()
|
||
End If
|
||
If Not IsNothing(G_Redislish) AndAlso G_Redislish.IsConnected Then
|
||
G_Redislish.CloseConnection()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||
'打开文件选择器 选择cDR后缀的文件
|
||
Dim ServerFilePath As String = "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" ' "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" '
|
||
Dim OpenFileDialog1 As New OpenFileDialog()
|
||
OpenFileDialog1.Filter = "CorelDRAW Files (*.cdr)|*.cdr"
|
||
Dim srcDoc As Document '素材文件
|
||
Dim MaterialPath As String
|
||
Dim strbuf() As String
|
||
Dim li As New List(Of String)
|
||
Dim Version As String
|
||
Dim Location As String
|
||
Dim icontype As Integer
|
||
Dim pint, lint, Sint, Locationint, nsint, typeid As Integer
|
||
Dim gLogNode As LogNode
|
||
Dim ProjectPath As String
|
||
Dim SafeFileName As String
|
||
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
|
||
|
||
|
||
Dim fid As Integer = AddFileToSQL(OpenFileDialog1.SafeFileName)
|
||
If fid = -1 Then
|
||
gLogNode = New LogNode($"获取FId失败，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
'创建以文件名去除后缀 命名的文件夹
|
||
SafeFileName = OpenFileDialog1.SafeFileName.Substring(0, OpenFileDialog1.SafeFileName.LastIndexOf("."))
|
||
ProjectPath = ServerFilePath & "\" & SafeFileName
|
||
If Not Directory.Exists(ProjectPath) Then
|
||
Directory.CreateDirectory(ProjectPath)
|
||
End If
|
||
If Not Directory.Exists(ProjectPath & "\iconlibrary\") Then
|
||
Directory.CreateDirectory(ProjectPath & "\iconlibrary\")
|
||
End If
|
||
|
||
|
||
MaterialPath = OpenFileDialog1.FileName
|
||
srcDoc = APP.OpenDocument(MaterialPath, False)
|
||
'Version=文件名称
|
||
Version = srcDoc.Name
|
||
|
||
|
||
'遍历素材文件内的所有图层
|
||
Dim nshape As Shape
|
||
pint = 0
|
||
lint = 0
|
||
Sint = 0
|
||
nsint = 0
|
||
Dim xm, hm, wm As Double
|
||
Dim modeindex As Integer = 0
|
||
'遍历所有页
|
||
For Each nPage As Page In srcDoc.Pages
|
||
'''Console.WriteLine("PAGE:" & nPage.Name)
|
||
pint = pint + 1
|
||
lint = 0
|
||
'遍历图层内的所有图层
|
||
For Each Layer As Layer In nPage.Layers
|
||
'''Console.WriteLine("Layer:" & Layer.Name)
|
||
lint = lint + 1
|
||
Sint = 0
|
||
'遍历图层内的所有形状
|
||
For Each Shape As Shape In Layer.Shapes
|
||
Sint = Sint + 1
|
||
If String.IsNullOrEmpty(Shape.Name) Then Continue For
|
||
'''Console.WriteLine("Shape:" & Shape.Name)
|
||
strbuf = Shape.Name.Split("_")
|
||
If strbuf.Length < 2 Then Continue For
|
||
Location = $"{pint}_{lint}_{Sint}"
|
||
Select Case strbuf(0).ToLower
|
||
Case "Mode".ToLower
|
||
Dim modepath As String = $"{ProjectPath}\Mode\"
|
||
If Not Directory.Exists(modepath) Then
|
||
Directory.CreateDirectory(modepath)
|
||
End If
|
||
|
||
Dim Direction As String
|
||
|
||
Direction = strbuf(1).Replace("连体", "").Trim
|
||
If Not Double.TryParse(Direction, xm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If Not Double.TryParse(strbuf(4), wm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If Not Double.TryParse(strbuf(5), hm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If strbuf(2).Equals("横向") OrElse strbuf(2).Equals("竖向") Then
|
||
Direction = strbuf(2).Trim
|
||
Else
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
|
||
modepath = $"{SafeFileName}\Mode\{Shape.Name}.png"
|
||
|
||
nsint = AddModeToSql(Shape.Name, fid, Location, Direction, xm, wm, hm, strbuf(3), modepath)
|
||
modepath = $"{ProjectPath}\Mode\{Shape.Name}.png"
|
||
If nsint = -1 Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
Dim schpcolor As New Color
|
||
schpcolor.RGBAssign(255, 255, 255)
|
||
schpcolor = SetImageStyle(Shape, True, schpcolor)
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
SetImageStyle(Shape, False, schpcolor)
|
||
Shape.Selected = False
|
||
If modeindex = 0 Then
|
||
'更新 tbl_cdr_file表
|
||
Shape.Selected = True
|
||
modepath = $"{ProjectPath}\Mode\ShapeName.png"
|
||
Dim NEf As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
NEf.Finish()
|
||
Shape.Selected = False
|
||
modepath = $"{SafeFileName}\Mode\ShapeName.png"
|
||
Dim sql As String = $"UPDATE `Cdr_library`.`tbl_cdr_file` SET `PreviewPath` = '{modepath.Replace("\", "\\")}' WHERE `ID` = {fid};{vbCrLf}"
|
||
li.Add(sql)
|
||
End If
|
||
|
||
Locationint = 0
|
||
For Each nshape In Shape.Shapes
|
||
Locationint = Locationint + 1
|
||
If nshape.Name.Contains("Trench_") Then
|
||
|
||
Dim cstrbuf As String() = nshape.Name.Split("_")
|
||
If Not Double.TryParse(cstrbuf(2), wm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If Not Double.TryParse(cstrbuf(3), hm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_trench` (`MID`,`TrenchName`,`SizeH`,`SizeW`,`IndexNum`)VALUES({nsint},'{nshape.Name.Trim}',{hm},{wm},{Locationint});{vbCrLf}")
|
||
|
||
ElseIf nshape.Name.Contains("Logo_") Then
|
||
|
||
Dim cstrbuf As String() = nshape.Name.Split("_")
|
||
If Not Double.TryParse(cstrbuf(3), wm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If Not Double.TryParse(cstrbuf(4), hm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
'判断 第3个元素 是否为R或L
|
||
If cstrbuf(2).Trim.ToLower = "l" Then
|
||
li.Add($"UPDATE `Cdr_library`.`tbl_model` SET `LOGO_L` = '{Locationint}',`LOGO_L_W` = {wm},`LOGO_L_H` = {hm} WHERE `ID` = {nsint};{vbCrLf}")
|
||
ElseIf cstrbuf(2).Trim.ToLower = "r" Then
|
||
'更新 tbl_model 表
|
||
li.Add($"UPDATE `Cdr_library`.`tbl_model` SET `LOGO_R` = '{Locationint}',`LOGO_R_W` = {wm},`LOGO_R_H` = {hm} WHERE `ID` = {nsint};{vbCrLf}")
|
||
End If
|
||
|
||
|
||
|
||
|
||
End If
|
||
Next
|
||
|
||
|
||
Case "Mono".ToLower
|
||
Dim modepath As String = $"{ProjectPath}\Mono"
|
||
If Not Directory.Exists(modepath) Then
|
||
Directory.CreateDirectory(modepath)
|
||
End If
|
||
|
||
modepath = $"{SafeFileName}\Mono\{Shape.Name}.png"
|
||
nsint = AddMonoToSQL(Shape.Name, fid, Location, modepath)
|
||
modepath = $"{ProjectPath}\Mono\{Shape.Name}.png"
|
||
If nsint = -1 Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
Dim schpcolor As New Color
|
||
schpcolor.RGBAssign(255, 255, 255)
|
||
schpcolor = SetImageStyle(Shape, True, schpcolor)
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
SetImageStyle(Shape, False, schpcolor)
|
||
Shape.Selected = False
|
||
|
||
Dim dic As New Dictionary(Of String, Integer)
|
||
Locationint = 0
|
||
Dim Keygroup As Integer = 1
|
||
Dim KeygroupID As Integer = 0
|
||
For Each nshape In Shape.Shapes
|
||
|
||
|
||
Locationint = Locationint + 1
|
||
If nshape.Name.Contains("location_") Then
|
||
Dim cstrbuf As String() = nshape.Name.Split("_")
|
||
If dic.ContainsKey(cstrbuf(2).Trim) Then
|
||
KeygroupID = dic(cstrbuf(2).Trim)
|
||
Else
|
||
Keygroup = Keygroup + 1
|
||
KeygroupID = Keygroup
|
||
dic.Add(cstrbuf(2).Trim, Keygroup)
|
||
End If
|
||
|
||
If Not Double.TryParse(cstrbuf(3), wm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
If Not Double.TryParse(cstrbuf(4), hm) Then
|
||
gLogNode = New LogNode($"图像{Shape.Name}异常，上传素材失败!{vbCrLf}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return
|
||
End If
|
||
typeid = GetIconType(cstrbuf(1).Trim)
|
||
If typeid = 3 Then
|
||
If cstrbuf.Length > 5 Then
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_location` (`PID`,`LocationName`,`Type`,`SizeH`,`SizeW`,`IndexNum`,`lineNumber`,`KeyGroup`)VALUES({nsint},'{nshape.Name.Trim}','{typeid}',{hm},{wm},{Locationint},'{cstrbuf(5).Trim}',{KeygroupID});{vbCrLf}")
|
||
|
||
Else
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_location` (`PID`,`LocationName`,`Type`,`SizeH`,`SizeW`,`IndexNum`,`KeyGroup`)VALUES({nsint},'{nshape.Name.Trim}','{typeid}',{hm},{wm},{Locationint},{KeygroupID});{vbCrLf}")
|
||
|
||
End If
|
||
Else
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_location` (`PID`,`LocationName`,`Type`,`SizeH`,`SizeW`,`IndexNum`,`KeyGroup`)VALUES({nsint},'{nshape.Name.Trim}','{typeid}',{hm},{wm},{Locationint},{KeygroupID});{vbCrLf}")
|
||
End If
|
||
End If
|
||
Next
|
||
|
||
Case "Icon".ToLower
|
||
Dim chpcolor As New Color
|
||
Dim ShapeName As String = Shape.Name.Trim
|
||
ShapeName = ShapeName.Replace("%", "").Replace("/", "").Replace(":", "").Replace("*", "").Replace("?", "").Replace("""", "").Replace("<", "").Replace(">", "").Replace("|", "").Replace("+", "")
|
||
|
||
chpcolor.RGBAssign(0, 0, 0)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Dim modepath As String = $"{ProjectPath}\iconlibrary\{ShapeName}.png"
|
||
|
||
Console.WriteLine(modepath)
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
Dim KeyNamebuf As String() = Shape.Name.Trim.Split("_")
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Shape.Selected = False
|
||
modepath = $"{SafeFileName}\iconlibrary\{ShapeName}.png"
|
||
modepath = modepath.Replace("\", "\\")
|
||
'文件名不能包含以下字符：反斜杠(\)、正斜杠(/)、冒号(:)、星号(*)、问号(?)、双引号(")、小于号(<)、大于号(>)、竖线(|)，以及点(.)或百分号(%)作为名称。
|
||
icontype = 1
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_iconlibrary` (`IconType`,`KeyName`,`FID`,`Shapenumber`,`PreviewPath`,`NameCN`,`NameEn`)VALUES({icontype},'{Shape.Name.Trim}',{fid},'{Location}','{modepath}','{KeyNamebuf(1) }','{KeyNamebuf(2) }');{vbCrLf}")
|
||
|
||
Case "Txt".ToLower
|
||
Dim chpcolor As New Color
|
||
chpcolor.RGBAssign(0, 0, 0)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Dim modepath As String = $"{ProjectPath}\iconlibrary\{Shape.Name}.png"
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Shape.Selected = False
|
||
modepath = $"{SafeFileName}\iconlibrary\{Shape.Name}.png"
|
||
modepath = modepath.Replace("\", "\\")
|
||
|
||
icontype = 2
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_iconlibrary` (`IconType`,`KeyName`,`FID`,`Shapenumber`,`PreviewPath`)VALUES({icontype},'{Shape.Name.Trim}',{fid},'{Location}','{modepath}');{vbCrLf}")
|
||
Case "TxtEn".ToLower
|
||
Dim chpcolor As New Color
|
||
chpcolor.RGBAssign(0, 0, 0)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Dim modepath As String = $"{ProjectPath}\iconlibrary\{Shape.Name}.png"
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Shape.Selected = False
|
||
modepath = $"{SafeFileName}\iconlibrary\{Shape.Name}.png"
|
||
modepath = modepath.Replace("\", "\\")
|
||
|
||
icontype = 3
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_iconlibrary` (`IconType`,`KeyName`,`FID`,`Shapenumber`,`PreviewPath`)VALUES({icontype},'{Shape.Name.Trim}',{fid},'{Location}','{modepath}');{vbCrLf}")
|
||
'Case "IconB".ToLower
|
||
' icontype = 5
|
||
' li.Add($"INSERT INTO `Cdr_library`.`tbl_iconlibrary` (`IconType`,`KeyName`,`Version`,`Shapenumber`)VALUES({icontype},'{Shape.Name.Trim}','{Version.Trim}','{Location}');{vbCrLf}")
|
||
Case "Logo".ToLower
|
||
Dim chpcolor As New Color
|
||
chpcolor.RGBAssign(0, 0, 0)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Dim modepath As String = $"{ProjectPath}\iconlibrary\{Shape.Name}.png"
|
||
Shape.Selected = True
|
||
Dim Ef As ExportFilter = srcDoc.ExportBitmap(modepath, VGCore.cdrFilter.cdrPNG, VGCore.cdrExportRange.cdrSelection, VGCore.cdrImageType.cdrRGBColorImage)
|
||
Ef.Finish()
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
Shape.Fill.ApplyUniformFill(chpcolor)
|
||
Shape.Selected = False
|
||
modepath = $"{SafeFileName}\iconlibrary\{Shape.Name}.png"
|
||
modepath = modepath.Replace("\", "\\")
|
||
icontype = 4
|
||
li.Add($"INSERT INTO `Cdr_library`.`tbl_iconlibrary` (`IconType`,`KeyName`,`FID`,`Shapenumber`,`PreviewPath`)VALUES({icontype},'{Shape.Name.Trim}',{fid},'{Location}','{modepath}');{vbCrLf}")
|
||
|
||
Case Else
|
||
Continue For
|
||
End Select
|
||
|
||
|
||
If li.Count >= 500 Then
|
||
If AddLogMessageToSQL(li) Then
|
||
li.Clear()
|
||
Else
|
||
srcDoc.Close()
|
||
Return
|
||
End If
|
||
End If
|
||
Next
|
||
Next
|
||
|
||
Next
|
||
|
||
If AddLogMessageToSQL(li) Then
|
||
li.Clear()
|
||
Else
|
||
srcDoc.Close()
|
||
Return
|
||
End If
|
||
srcDoc.Close()
|
||
|
||
End If
|
||
|
||
End Sub
|
||
'设置图片样式
|
||
Private Function SetImageStyle(Shape As Shape, isTransparent As Boolean, Transparentcolor As Color)
|
||
'设置图像背景色为透明
|
||
Dim Transparent As Integer
|
||
Dim chpcolor As New Color
|
||
Dim result As New Color
|
||
Dim r, g, b, a As Integer
|
||
If isTransparent Then
|
||
|
||
Transparent = 100
|
||
chpcolor.RGBAssign(102, 102, 102)
|
||
|
||
Else
|
||
Transparent = 0
|
||
chpcolor.RGBAssign(255, 255, 255)
|
||
End If
|
||
For i As Integer = 1 To Shape.Shapes.Count
|
||
If i = Shape.Shapes.Count Then
|
||
|
||
Select Case Shape.Shapes(i).Fill.UniformColor.Type
|
||
Case cdrColorType.cdrColorCMYK
|
||
Dim C As Double, M As Double, Y As Double, K As Double
|
||
C = Shape.Shapes(i).Fill.UniformColor.CMYKCyan
|
||
M = Shape.Shapes(i).Fill.UniformColor.CMYKMagenta
|
||
Y = Shape.Shapes(i).Fill.UniformColor.CMYKYellow
|
||
K = Shape.Shapes(i).Fill.UniformColor.CMYKBlack
|
||
result.CMYKAssign(C, M, Y, K)
|
||
Case cdrColorType.cdrColorRGB
|
||
r = Shape.Shapes(i).Fill.UniformColor.RGBRed
|
||
g = Shape.Shapes(i).Fill.UniformColor.RGBGreen
|
||
b = Shape.Shapes(i).Fill.UniformColor.RGBBlue
|
||
result.RGBAssign(r, g, b)
|
||
Case Else
|
||
result.RGBAssign(255, 255, 255)
|
||
End Select
|
||
|
||
'Shape.Shapes(i).Transparency.ApplyUniformTransparency(Transparent)
|
||
Shape.Shapes(i).Fill.ApplyUniformFill(Transparentcolor)
|
||
|
||
Else
|
||
Shape.Shapes(i).Fill.ApplyUniformFill(chpcolor)
|
||
End If
|
||
Next
|
||
|
||
|
||
Return result
|
||
|
||
|
||
|
||
End Function
|
||
|
||
'获取类型信息
|
||
Private Function GetIconType(Shapetype As String) As Integer
|
||
Select Case Shapetype.ToLower
|
||
Case "Icon".ToLower
|
||
Return 1
|
||
Case "Txt".ToLower
|
||
Return 2
|
||
Case "TxtEn".ToLower
|
||
Return 3
|
||
'Case "IconB".ToLower
|
||
' Return 5
|
||
Case "Logo".ToLower
|
||
Return 5
|
||
Case Else
|
||
Return 0
|
||
End Select
|
||
End Function
|
||
|
||
Public Function AddModeToSql(modename As String, fid As Integer, Location As String, Direction As String, xm As Integer, wm As Integer, hm As Integer, Colorstr As String, PreviewPath As String) As Integer
|
||
Dim npgsqldb As DbExecutor = New DbExecutor(DbExecutor.DbTypeEnum.Mysql, LocalConnString)
|
||
|
||
Dim transStr As String
|
||
Dim transStr1 As String
|
||
Dim dt As DataTable
|
||
Dim result As Integer = -1
|
||
PreviewPath = PreviewPath.Replace("\", "\\")
|
||
transStr = $"INSERT INTO `Cdr_library`.`tbl_model` (`FID`,`ModelName`,`Direction`,`SizeH`,`SizeW`,`Color`,`PanelCount`,`ShapeNumber`,`PreviewPath`)VALUES({fid},'{modename}','{Direction}',{hm},{wm},'{Colorstr}',{xm},'{Location}','{PreviewPath}');{vbCrLf}"
|
||
transStr1 = $"select * From `Cdr_library`.`tbl_model` where `FID`={fid} and `ModelName`='{modename}'"
|
||
|
||
Try
|
||
npgsqldb.Open()
|
||
npgsqldb.ExecuteNonQuery(transStr)
|
||
dt = npgsqldb.ExecuteDataTable(transStr1)
|
||
If dt.Rows.Count > 0 Then
|
||
result = dt.Rows(0).Item("ID")
|
||
End If
|
||
npgsqldb.Close()
|
||
Catch ex As Exception
|
||
If Not IsNothing(npgsqldb) Then
|
||
npgsqldb.Close()
|
||
End If
|
||
End Try
|
||
|
||
Return result
|
||
End Function
|
||
|
||
Private Function AddMonoToSQL(Mononame As String, Fid As Integer, Location As String, PreviewPath As String) As Integer
|
||
Dim npgsqldb As DbExecutor = New DbExecutor(DbExecutor.DbTypeEnum.Mysql, LocalConnString)
|
||
|
||
Dim strbuf As String() = Mononame.Split("_")
|
||
Dim transStr As String
|
||
Dim transStr1 As String
|
||
Dim dt As DataTable
|
||
Dim result As Integer = -1
|
||
Dim xm, hm, wm As Double
|
||
PreviewPath = PreviewPath.Replace("\", "\\")
|
||
If strbuf.Length > 3 Then
|
||
If Not Double.TryParse(strbuf(2), wm) Then
|
||
Return result
|
||
End If
|
||
If Not Double.TryParse(strbuf(3), hm) Then
|
||
Return result
|
||
End If
|
||
transStr = $"INSERT INTO `Cdr_library`.`tbl_pattern` (`FID`,`PatternName`,`ShapeNumber`,`SizeW`,`SizeH`,`PreviewPath`)VALUES({Fid},'{Mononame}','{Location}',{wm},{hm},'{PreviewPath}');{vbCrLf}"
|
||
Else
|
||
Return result
|
||
End If
|
||
transStr1 = $"select * From `Cdr_library`.`tbl_pattern` where `FID`={Fid} and `PatternName`='{Mononame}'"
|
||
|
||
Try
|
||
npgsqldb.Open()
|
||
npgsqldb.ExecuteNonQuery(transStr)
|
||
dt = npgsqldb.ExecuteDataTable(transStr1)
|
||
If dt.Rows.Count > 0 Then
|
||
result = dt.Rows(0).Item("ID")
|
||
End If
|
||
npgsqldb.Close()
|
||
Catch ex As Exception
|
||
If Not IsNothing(npgsqldb) Then
|
||
npgsqldb.Close()
|
||
End If
|
||
End Try
|
||
|
||
Return result
|
||
End Function
|
||
|
||
'录入文件到数据表
|
||
Private Function AddFileToSQL(filenmae As String, Optional username As String = "TestUser", Optional Remark As String = "") As Integer
|
||
Dim npgsqldb As DbExecutor = New DbExecutor(DbExecutor.DbTypeEnum.Mysql, LocalConnString)
|
||
Dim gLogNode As LogNode
|
||
Dim strbuf As String() = filenmae.Split("_")
|
||
Dim transStr As String
|
||
Dim transStr1 As String
|
||
Dim transStr2 As String
|
||
Dim dt As DataTable
|
||
Dim result As Integer = -1
|
||
If strbuf.Length > 3 Then
|
||
transStr = $"INSERT INTO `Cdr_library`.`tbl_cdr_file` (`Company`,`Series`,`FileName`,`Version`,`Remark`,`User`,`UpdateTime`)VALUES('{strbuf(0)}','{strbuf(1)}','{filenmae}','{strbuf(3)}','{Remark}','{username}','{Now.ToString("yyyy-MM-dd HH:mm:ss") }');{vbCrLf}"
|
||
ElseIf strbuf.Length > 4 Then
|
||
transStr = $"INSERT INTO `Cdr_library`.`tbl_cdr_file` (`Company`,`Series`,`FileName`,`Version`,`Remark`,`User`,`UpdateTime`,`Remark`)VALUES('{strbuf(0)}','{strbuf(1)}','{filenmae}','{strbuf(3)}','{Remark}','{username}','{Now.ToString("yyyy-MM-dd HH:mm:ss") }','{strbuf(4)}');{vbCrLf}"
|
||
|
||
Else
|
||
transStr = $"INSERT INTO `Cdr_library`.`tbl_cdr_file` (`Company`,`Series`,`FileName`,`Version`,`Remark`,`User`,`UpdateTime`)VALUES('未知','未知','{filenmae}','未知','{Remark}','{username}','{Now.ToString("yyyy-MM-dd HH:mm:ss")}');{vbCrLf}"
|
||
End If
|
||
transStr1 = $"select * From `Cdr_library`.`tbl_cdr_file` where `FileName`='{filenmae}'"
|
||
|
||
Try
|
||
npgsqldb.Open()
|
||
dt = npgsqldb.ExecuteDataTable(transStr1)
|
||
If dt.Rows.Count > 0 Then
|
||
Return -1
|
||
End If
|
||
npgsqldb.ExecuteNonQuery(transStr)
|
||
dt = npgsqldb.ExecuteDataTable(transStr1)
|
||
If dt.Rows.Count > 0 Then
|
||
result = dt.Rows(0).Item("ID")
|
||
End If
|
||
npgsqldb.Close()
|
||
Catch ex As Exception
|
||
If Not IsNothing(npgsqldb) Then
|
||
npgsqldb.Close()
|
||
End If
|
||
End Try
|
||
|
||
Return result
|
||
End Function
|
||
|
||
'添加一天数据如果数据超过500条则插入到数据库中
|
||
Private Function AddLogMessageToSQL(msglist As List(Of String)) As Boolean
|
||
'最大条数 = 500
|
||
Dim npgsqldb As DbExecutor = New DbExecutor(DbExecutor.DbTypeEnum.Mysql, LocalConnString)
|
||
|
||
Dim gLogNode As LogNode
|
||
'将列表中的数据库语句组装成事务语句
|
||
Dim transStr As String = String.Join("", msglist.ToArray)
|
||
|
||
|
||
'插入数据库
|
||
' Using db As New DbExecutor(DbExecutor.DbTypeEnum.npgsql, LocalConnString)
|
||
|
||
Try
|
||
npgsqldb.Open()
|
||
npgsqldb.BeginTransaction()
|
||
npgsqldb.ExecuteNonQuery(transStr)
|
||
npgsqldb.CommitTransaction()
|
||
msglist.Clear()
|
||
npgsqldb.Close()
|
||
Catch ex As Exception
|
||
If Not IsNothing(npgsqldb) Then
|
||
npgsqldb.RollbackTransaction()
|
||
npgsqldb.Close()
|
||
End If
|
||
|
||
|
||
'AddLogMessage($"写入酒店日志异常！")
|
||
gLogNode = New LogNode($"上传素材失败!{vbCrLf}{ex.Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
Return False
|
||
End Try
|
||
gLogNode = New LogNode($"上传素材成功!{vbCrLf}", RuningLog.LogType.e_info, RuningLog.LogMode.e_fileandRichTextBox)
|
||
'gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
G_Log.AddLogNode(gLogNode)
|
||
' End Using
|
||
'清空列表
|
||
Return True
|
||
End Function
|
||
Public Isdisply As Boolean = False
|
||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||
Isdisply = Not Isdisply
|
||
'Dim srcDoc， destDoc1， destDoc2 As Document '素材文件
|
||
'Dim OpenFileDialog1 As New OpenFileDialog()
|
||
'OpenFileDialog1.Filter = "CorelDRAW Files (*.cdr)|*.cdr"
|
||
'Dim MaterialPath As String
|
||
'Dim oldTime As DateTime
|
||
'Dim shp, nshp As Shape
|
||
|
||
'If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
|
||
' oldTime = Now
|
||
' MaterialPath = OpenFileDialog1.FileName
|
||
' srcDoc = APP.OpenDocument(MaterialPath, False)
|
||
' shp = srcDoc.Pages(1).Layers(2).Shapes(19)
|
||
' ''Console.WriteLine("打开库文件耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' destDoc1 = APP.OpenDocument(M_MaterialPath & "test1.cdr", False)
|
||
' destDoc1.Close()
|
||
' ''Console.WriteLine("打开关闭目标文件耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' destDoc1 = APP.OpenDocument(M_MaterialPath & "test1.cdr", False)
|
||
' ''Console.WriteLine("打开目标文件耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' '循环复制图像到目标文件
|
||
' shp.Copy()
|
||
' For i = 1 To 10
|
||
' destDoc1.Pages(1).Layers(2).Paste()
|
||
' Next
|
||
' ''Console.WriteLine("复制耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' destDoc1.Save()
|
||
' destDoc1.Close()
|
||
' ''Console.WriteLine("保存耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
|
||
|
||
' destDoc1 = APP.CreateDocument()
|
||
|
||
' ''Console.WriteLine("创建新文件耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' For i = 1 To 10
|
||
' destDoc1.Pages(1).Layers(2).Paste()
|
||
' Next
|
||
' ''Console.WriteLine("复制耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
' Dim srcFile1 As String = M_MaterialPath & "test2.cdr"
|
||
' destDoc1.SaveAs(srcFile1)
|
||
' destDoc1.Close()
|
||
' ''Console.WriteLine("保存耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
|
||
' srcDoc.Close()
|
||
' ''Console.WriteLine("关闭库耗时：" & (Now - oldTime).TotalMilliseconds & "ms")
|
||
'End If
|
||
End Sub
|
||
''把剩余的数据也插入到数据库中
|
||
'Private Sub AddLogMessageToSQL(ByRef msglist As List(Of String), npgsqldb As DbExecutor)
|
||
' If msglist.Count = 0 Then Return
|
||
' Dim transStr As String = String.Join("", msglist.ToArray)
|
||
' '插入数据库
|
||
' ' Using db As New DbExecutor(DbExecutor.DbTypeEnum.npgsql, LocalConnString)
|
||
' npgsqldb.Open()
|
||
' Try
|
||
' npgsqldb.BeginTransaction()
|
||
' npgsqldb.ExecuteNonQuery(transStr)
|
||
' npgsqldb.CommitTransaction()
|
||
' msglist.Clear()
|
||
' Catch ex As Exception
|
||
' npgsqldb.RollbackTransaction()
|
||
' AddLogMessage($"写入酒店日志异常！")
|
||
' gLogNode = New LogNode($"【序列化失败】Redis:{channel}: {Message}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox)
|
||
' gLogNode.SetLogColor(System.Drawing.Color.Red)
|
||
' G_Log.AddLogNode(gLogNode)
|
||
' End Try
|
||
' npgsqldb.Close()
|
||
' 'End Using
|
||
'End Sub
|
||
|
||
|
||
|
||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
|
||
Dim srcDoc As Document
|
||
Dim destDoc As Document
|
||
Dim destDoc1 As Document
|
||
Dim srcLayer As Layer
|
||
Dim destLayer As Layer
|
||
Dim shp, nshp As Shape
|
||
Dim srcFile As String
|
||
Dim destFile As String
|
||
Dim srPaste As New ShapeRange
|
||
Dim boxShape As Shape, sh As Shape
|
||
Dim dx As Double, dy As Double
|
||
Dim srcFile1 As String = "C:\Canvas\ms_2.cdr"
|
||
destFile = "C:\Canvas\ms_1.cdr"
|
||
srcFile = "C:\Canvas\Test_3.cdr"
|
||
Dim app As New Application()
|
||
app.Visible = False
|
||
Thread.Sleep(2000)
|
||
Dim nn As Integer = 0
|
||
Dim x#, y#, w#, h#
|
||
'Dim doc As Document = app.OpenDocument(tplPath, False)
|
||
'Dim doc1 As Document = app.OpenDocument(imgFolder, False)
|
||
|
||
Try
|
||
srcDoc = app.OpenDocument(srcFile, False)
|
||
' '延时(1000)
|
||
Thread.Sleep(500)
|
||
destDoc = app.OpenDocument(destFile, False)
|
||
Thread.Sleep(500)
|
||
srcLayer = srcDoc.Pages(1).Layers("Layer_1")
|
||
|
||
destLayer = destDoc.Pages(1).Layers("Key_8")
|
||
If destLayer Is Nothing Then
|
||
destLayer = destDoc.Pages(1).Layers.Add("Key_8")
|
||
End If
|
||
|
||
For Each shp In srcLayer.Shapes
|
||
'If nn = 0 Then
|
||
' nn = nn + 1
|
||
' Continue For
|
||
'End If
|
||
If nn < 8 Then
|
||
|
||
nn = nn + 1
|
||
|
||
'''Console.WriteLine(shp.Name)
|
||
shp.Copy()
|
||
shp = destLayer.Paste()
|
||
|
||
For Each nshp In destLayer.Shapes
|
||
If nshp.Name.Equals($"Kuan_{nn}") Then
|
||
|
||
|
||
x = nshp.CenterX - shp.CenterX
|
||
y = nshp.CenterY - shp.CenterY
|
||
'w = nshp.SizeWidth
|
||
'h = nshp.SizeHeight
|
||
|
||
'Dim st = destLayer.CreateArtisticText(
|
||
' x, y,
|
||
' "X=" & Format(x, "0.0") & vbCrLf &
|
||
' "Y=" & Format(y, "0.0") & vbCrLf &
|
||
' "W=" & Format(w, "0.0") & vbCrLf &
|
||
' "H=" & Format(h, "0.0"))
|
||
'st.Fill.UniformColor.CMYKAssign(0, 0, 0, 100) '黑色文字
|
||
|
||
dx = nshp.LeftX
|
||
dy = nshp.TopY
|
||
|
||
shp.Move(x, y)
|
||
Thread.Sleep(500)
|
||
End If
|
||
Next nshp
|
||
|
||
'shp.MoveToLayer(,)
|
||
Else
|
||
Exit For
|
||
End If
|
||
|
||
Next shp
|
||
destLayer.Shapes.All().Group()
|
||
|
||
destDoc.SaveAs(srcFile1)
|
||
|
||
srcDoc.Close()
|
||
destDoc.Close()
|
||
destDoc1 = app.OpenDocument(srcFile1, False)
|
||
'Dim opt As StructExportOptions = New StructExportOptions()
|
||
'opt.ImageType = cdrImageType.cdrDuotoneImage
|
||
|
||
'opt.JPEGQuality = 90
|
||
'opt.ResolutionX = 300 ' // 300 dpi
|
||
'opt.ResolutionY = 300
|
||
'opt.MaintainAspect = True
|
||
'opt.AntiAliasing = cdrAntiAliasingType.cdrNormalAntiAliasing
|
||
srcFile1 = srcFile1.Replace(".cdr", ".png")
|
||
|
||
'// 4) 导出 JPG
|
||
Dim Ef As ExportFilter = destDoc1.ExportBitmap(srcFile1, VGCore.cdrFilter.cdrPNG)
|
||
Ef.Finish()
|
||
'destDoc1.Close()
|
||
|
||
Catch ex As Exception
|
||
If srcDoc IsNot Nothing Then srcDoc.Close()
|
||
If destDoc IsNot Nothing Then destDoc.Close()
|
||
If destDoc1 IsNot Nothing Then destDoc1.Close()
|
||
'''Console.WriteLine(ex.Message)
|
||
End Try
|
||
|
||
End Sub
|
||
End Class
|