From 65b7d96aa20507b27af96ff95d21d646508e46e6 Mon Sep 17 00:00:00 2001 From: chenzhihao <1798906853@qq.com> Date: Thu, 8 Jan 2026 15:46:48 +0800 Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E5=AF=B9=E9=9D=A2=E6=9D=BF?= =?UTF-8?q?=E6=A8=A1=E5=9E=8B=E9=98=B4=E5=BD=B1=E6=95=88=E6=9E=9C=E7=9A=84?= =?UTF-8?q?=E5=A4=84=E7=90=86?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CorelDRAW.vb | 493 +++++++++++++++++++++++++++++++++++++++++++++-- RedisInfoNode.vb | 14 ++ 2 files changed, 488 insertions(+), 19 deletions(-) diff --git a/CorelDRAW.vb b/CorelDRAW.vb index e5269b4..e1a66f9 100644 --- a/CorelDRAW.vb +++ b/CorelDRAW.vb @@ -11,15 +11,16 @@ Imports VGCore Public Class CorelDRAW Public M_Redisip As String = "127.0.0.1" - Public M_Redisport As Integer = 6379 '10079 ' 10079 - Public M_Redispassword As String = "" ' "blw@redis-ser@123" ' "" ' + Public M_Redisport As Integer = 6379 ' 10079 '10079 ' 10079 + Public M_Redispassword As String = "" '"blw@redis-ser@123" ' "blw@redis-ser@123" ' "" ' 'redis消息队列 Public M_RedisQueue As Queue '事件处理线程 Public M_EventThread As Thread - + '服务器文件路径 + Private M_ServerPath As String = "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" '"D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' '素材库路径 - Private M_MaterialPath As String = "D:\Canvas\material\" ' "R:\Canvas\material\" ' + Private M_MaterialPath As String = "D:\Canvas\material\" ' "R:\Canvas\material\" ' "R:\Canvas\material\" ' '成平文件路径 Private M_TplPath As String = "D:\CorelDRAW\" Public G_RedisSub, G_Redislish As RedisSubscriber @@ -51,7 +52,7 @@ Public Class CorelDRAW 'End If APP = New Application() Thread.Sleep(300) - APP.Visible = False + APP.Visible = True ' Dim MaterialPath As String = M_MaterialPath & "素材模板.cdr" 'G_LibDoc = APP.OpenDocument(MaterialPath, False) G_Log = New RuningLog(RichTextBox1, System.Windows.Forms.Application.StartupPath & "\log") @@ -74,7 +75,8 @@ Public Class CorelDRAW DisposeRedisMsgNode1(MsgNode) Case 2 Dim MsgNode = JsonConvert.DeserializeObject(Of PreviewRoomTypePanel)(item.MsgNode.ToString) - DisposeRedisMsgNode2(MsgNode) + DisposeRedisMsgNode3(MsgNode) + 'DisposeRedisMsgNode2(MsgNode) End Select End If @@ -125,7 +127,8 @@ Public Class CorelDRAW End Sub Sub DisposeRedisMsgNode2(node As PreviewRoomTypePanel) Dim gLogNode As LogNode - Dim filedir As String = "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" + + Dim filedir As String = M_ServerPath ' "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" Dim RsNode As New RedisSendNode RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist @@ -139,8 +142,6 @@ Public Class CorelDRAW G_Log.AddLogNode(gLogNode) Dim doc As Document Try - - doc = APP.CreateDocument() doc.Unit = cdrUnit.cdrMillimeter ' 设置单位为毫米 @@ -386,6 +387,378 @@ Public Class CorelDRAW End Try End Sub + Sub DisposeRedisMsgNode3(node As PreviewRoomTypePanel) + Dim gLogNode As LogNode + + Dim filedir As String = M_ServerPath ' "D:\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 + Dim hotelText, hotelnodeText As Shape + Dim nodeText As String + Dim bProject As Project = Nothing + Dim remark As String() = {"思源黑体", "36"} + 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("2、打开总览框 模板 拷贝模版") + Dim overviewFilePath As String = Path.Combine(M_MaterialPath, "BLV_总览框.cdr") + Dim overviewDoc As Document = Nothing + Dim previewBox As Shape = Nothing + + Dim hotelName As String = "" + + If Not File.Exists(overviewFilePath) Then + RsNode.Status = RedisSendNode.StatusType.MaterialLibraryNotExist + RsNode.Msg = $"未找到文件{vbCrLf}BLV_总览框.cdr!!" + RedisPublishMessage1(RsNode.PictureNum, JsonConvert.SerializeObject(RMNode)) + gLogNode = New LogNode($"BLV_总览框.cdr文件不存在:：{ overviewFilePath}", RuningLog.LogType.e_Error, RuningLog.LogMode.e_fileandRichTextBox) + gLogNode.SetLogColor(System.Drawing.Color.Red) + G_Log.AddLogNode(gLogNode) + doc.Close() + Return + Else + InpotMessage1("3、处理标题信息") + + If node.project IsNot Nothing AndAlso node.project.Count > 0 Then + hotelName = node.project(0).hotel_name + bProject = node.project(0) + Else + RsNode.Status = RedisSendNode.StatusType.SerializeFail + RsNode.Msg = $"未找到标题信息!!" + 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) + doc.Close() + Return + End If + + Dim chpcolor As Color = New Color + chpcolor.RGBAssign(0, 140, 140) + Dim ZcdrDoc As Document = APP.OpenDocument(overviewFilePath, False) + If ZcdrDoc.Pages.Count > 0 AndAlso ZcdrDoc.Pages(1).ActiveLayer.Shapes.Count > 0 Then + hotelText = ZcdrDoc.Pages(1).ActiveLayer.Shapes(1) + '将hotelText 拷贝到doc + InpotMessage1("将总览框拷贝文件中") + shapeCopy(hotelText) + hotelText = doc.ActiveLayer.Paste() + '设置总览框图形中心点与文档中心点一致 + hotelText.CenterX = doc.ActivePage.CenterX + hotelText.CenterY = doc.ActivePage.CenterY + hotelText.TopY = doc.ActivePage.TopY + '设置总览框图形原点 为垂直居上水平居中 + + ZcdrDoc.Close() + '查找hotelText中名称为 Frame_Blv_Overview 的形状 + For Each shape As Shape In hotelText.Shapes + If shape.Name.ToLower.Equals("Project_Title".ToLower) Then + '遍历其子形状，查找名称为 PreviewBox 的形状 + + For Each childShape As Shape In shape.Shapes + nodeText = "" + '当名称分别为Txt_EnglishFont、Txt_SocketSeries、Txt_ChineseFont、Txt_SwitchSeries、Txt_Data、Txt_Protocol、Txt_SocketSizeText、Txt_SwitchSizeText、Txt_ProjectName时 + Select Case childShape.Name.ToLower + Case "Txt_EnglishFont".ToLower + nodeText = $"{bProject.en_font} {bProject.en_font_size.ToString}PT" + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + '移动到childShape对象中心位置 + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_SocketSeries".ToLower + nodeText = bProject.socket_series + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_ChineseFont".ToLower + nodeText = $"{bProject.cn_font} {bProject.cn_font_size.ToString}PT" + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_SwitchSeries".ToLower + nodeText = bProject.switch_series + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_Data".ToLower + nodeText = node.RecordDate + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_Protocol".ToLower + nodeText = bProject.protocol + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_SocketSizeText".ToLower + nodeText = bProject.SocketSizeText.Replace("_", vbCrLf) + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_SwitchSizeText".ToLower + nodeText = bProject.SwitchSizeText.Replace("_", vbCrLf) + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + Case "Txt_ProjectName".ToLower + nodeText = bProject.project_name + hotelnodeText = CreateTextImage2(doc.ActiveLayer, nodeText, remark) + hotelnodeText.Fill.ApplyUniformFill(chpcolor) + hotelnodeText.CenterX = childShape.CenterX + hotelnodeText.CenterY = childShape.CenterY + End Select + Next + Exit For + End If + Next + Else + RsNode.Status = RedisSendNode.StatusType.MaterialNotExist + RsNode.Msg = $"未找到文件{vbCrLf}{overviewFilePath}{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) + doc.Close() + Return + End If + + + End If + + InpotMessage1("4、标题信息处理完成") + + Dim currentY As Double = hotelText.CenterY - 20 ' 标题底部向下50mm + + InpotMessage1("5、数据分组处理") + 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("6、房型分类处理") + 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("7、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("8、属性文本生成") + + + 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("9、图文组合") + + 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("10、文档保存") + 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($"11、向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 + ''' ''' 检测图库文件命名及内容是否符合规范 ''' @@ -1274,7 +1647,7 @@ Public Class CorelDRAW 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\" ' + Dim ServerFilePath As String = M_ServerPath '"R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic\" ' '''Console.WriteLine($"到达节点1耗时：{(Now - oldTime).TotalMilliseconds}毫秒") '查找素材库 InpotMessage1("2、检测模版素材库是否存在") @@ -1305,11 +1678,11 @@ Public Class CorelDRAW APP = New Application() Thread.Sleep(1000) APP.Visible = False - G_LibDoc = APP.OpenDocument(MaterialPath, False) + G_LibDoc = APP.OpenDocument(MaterialPath, True) MLibDoc = APP.CreateDocument() End Try - APP.EventsEnabled = False - APP.Optimization = True + 'APP.EventsEnabled = False + 'APP.Optimization = True 'APP.EventsEnabled = True 'APP.Optimization = False @@ -1629,9 +2002,9 @@ Public Class CorelDRAW InpotMessage1($"14、开始将整个图像移动至中心位置") SetIconToCentered(npage, fshp) 'Dim sel As ShapeRange = APP.ActiveSelectionRange - APP.EventsEnabled = True - APP.Optimization = False - APP.Refresh() + 'APP.EventsEnabled = True + 'APP.Optimization = False + 'APP.Refresh() 'fshp.SetSize(Math.Abs(fshp.SizeWidth) * 10000, Math.Abs(fshp.SizeHeight) * 10000) InpotMessage1($"15、开始保存图像成文件") @@ -1643,6 +2016,23 @@ Public Class CorelDRAW Ef.Finish() RsNode.ImagePath = ProjectPath.Replace(ServerFilePath, "") Case 1 + + For Each shnode In fshp.Shapes + '查找名称为Mode_的子节点 + If shnode.Name.Contains("Mode_") Then + '倒序遍历其子节点 + Dim xvbnode As Shape + For i = shnode.Shapes.Count To 1 Step -1 + xvbnode = shnode.Shapes.Item(i) + '将子节点中名称带有Effect _ 的节点删除 + If xvbnode.Name.Contains("Effect") Then + xvbnode.Delete() + End If + Next + End If + + Next + ProjectPath = $"{ProjectPath}\{node.TemplateName.Replace("Mode_", "")}_{Now:yyyyMMddHHmmss}.cdr" Dim ssao As New StructSaveAsOptions ssao.Filter = VGCore.cdrFilter.cdrCDR @@ -2538,7 +2928,7 @@ Public Class CorelDRAW Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click '打开文件选择器 选择cDR后缀的文件 - Dim ServerFilePath As String = "D:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" ' "R:\IIS ROOT\BLWLog\Web\wwwroot\PanelSelectionPic" ' + Dim ServerFilePath As String = M_ServerPath ' "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 '素材文件 @@ -2553,6 +2943,7 @@ Public Class CorelDRAW Dim ProjectPath As String Dim SafeFileName As String Dim errorMessage As String + Dim xvbnode As Shape If OpenFileDialog1.ShowDialog() = DialogResult.OK Then ' 上传前检查文件是否符合规范 @@ -2616,11 +3007,23 @@ Public Class CorelDRAW Location = $"{pint}_{lint}_{Sint}" Select Case strbuf(0).ToLower Case "Mode".ToLower + + + For i = Shape.Shapes.Count To 1 Step -1 + xvbnode = Shape.Shapes.Item(i) + '将子节点中名称带有Effect _ 的节点删除 + If xvbnode.Name.Contains("Effect") Then + xvbnode.Visible = False + End If + Next + 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 @@ -2661,15 +3064,18 @@ Public Class CorelDRAW G_Log.AddLogNode(gLogNode) Return End If + + Dim schpcolor As New Color schpcolor.RGBAssign(255, 255, 255) - schpcolor = SetImageStyle(Shape, True, schpcolor) + schpcolor = SetImageStyle1(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) + SetImageStyle1(Shape, False, schpcolor) Shape.Selected = False If modeindex = 0 Then + modeindex = modeindex + 1 '更新 tbl_cdr_file表 Shape.Selected = True modepath = $"{ProjectPath}\Mode\ShapeName.png" @@ -2904,6 +3310,55 @@ Public Class CorelDRAW End If End Sub + Private Function SetImageStyle1(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 Shape.Shapes(i).Name.ToLower.Contains("IconB".ToLower) 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 SetImageStyle(Shape As Shape, isTransparent As Boolean, Transparentcolor As Color) '设置图像背景色为透明 diff --git a/RedisInfoNode.vb b/RedisInfoNode.vb index b01a94a..d6864a2 100644 --- a/RedisInfoNode.vb +++ b/RedisInfoNode.vb @@ -115,6 +115,8 @@ Public Class PreviewRoomTypePanel Public Property panels As List(Of Panel) Public Property picNum As String Public Property project As List(Of Project) + Public Property RecordDate As String + End Class Public Class Panel @@ -143,4 +145,16 @@ Public Class Project Public Property report_id As String Public Property room_data_json As String Public Property room_type_count As Integer + + Public Property protocol As String + Public Property project_name As String + Public Property switch_series As String + Public Property socket_series As String + Public Property cn_font As String + Public Property cn_font_size As Double + Public Property en_font As String + Public Property en_font_size As Double + Public Property SwitchSizeText As String + Public Property SocketSizeText As String + End Class