增加对面板模型阴影效果的处理
This commit is contained in:
493
CorelDRAW.vb
493
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
|
||||
|
||||
''' <summary>
|
||||
''' 检测图库文件命名及内容是否符合规范
|
||||
''' </summary>
|
||||
@@ -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)
|
||||
'设置图像背景色为透明
|
||||
|
||||
Reference in New Issue
Block a user