{"id":1003,"date":"2022-03-26T00:55:00","date_gmt":"2022-03-26T00:55:00","guid":{"rendered":"https:\/\/262235.xyz\/?p=1003"},"modified":"2022-03-26T00:55:00","modified_gmt":"2022-03-26T00:55:00","slug":"1003","status":"publish","type":"post","link":"https:\/\/lyvba.com\/index.php\/2022\/03\/26\/1003\/","title":{"rendered":"CorelDRAW VBA \u62fc\u7248\u529f\u80fd\u5b9e\u73b0 &#8212; \u7269\u4ef6\u6392\u5217\u62fc\u7248\u7b80\u5355\u4ee3\u7801"},"content":{"rendered":"<p><img decoding=\"async\" src=\"https:\/\/lyvba.com\/wp-content\/uploads\/2022\/03\/1478425559.webp\" alt=\"295916658.webp\" title=\"295916658.webp\"><\/p>\n<h2>\u526a\u8d34\u677f\u8f93\u5165\u5c3a\u5bf8\u548c\u62fc\u7248\u6570\u91cf\u95f4\u9694\uff0c\u529f\u80fd\u6f14\u793a\u89c6\u9891<\/h2>\n<p><img decoding=\"async\" src=\"https:\/\/lyvba.com\/wp-content\/uploads\/2022\/03\/2725902706.gif\" alt=\"CDR_PB.gif\" title=\"CDR_PB.gif\"><\/p>\n<h2><code>arrange.bas<\/code> \u5148\u6765\u770b CorelDRAW \u7269\u4ef6\u6392\u5217\u62fc\u7248\u7b80\u5355\u4ee3\u7801<\/h2>\n<p>\u4ee5\u4e0b\u6e90\u7801\u6309\u8bbe\u7f6e\u7684\u62fc\u7248\u8ddd\u79bb\u5b9e\u73b0\u6309\u884c3\u52174\u95f4\u96943mm\u62fc\u7248, <code>OrigSelection.StepAndRepeat<\/code>\u65b9\u6cd5\u5728\u8303\u56f4\u5185\u521b\u5efa\u5f53\u524d\u9009\u62e9\u7684\u7269\u4ef6\u7684\u591a\u4e2a\u526f\u672c\u3002<code>CreateShapeRangeFromArray<\/code> \u65b9\u6cd5\u53c2\u6570\u662f <code>dup1, OrigSelection<\/code>\uff0c\u5c31\u662f\u628a\u5f53\u524d\u9009\u62e9\u7684\u7269\u4ef6\u548c\u521a\u624d\u5efa\u7acb\u7684\u526f\u672c\u5efa\u7acb\u4e00\u4e2a\u5f62\u72b6\u8303\u56f4\uff0c\u7136\u540e\u518d\u628a\u8fd9\u4e2a\u8303\u56f4\u518d\u6b21\u5411\u4e0b\u5efa\u7acb\u66f4\u591a\u7684\u526f\u672c\u3002<\/p>\n<pre><code>Sub arrange()\n\n    ActiveDocument.Unit = cdrMillimeter\n    Bleed = 2\n    line_len = 3\n\n    Size = 50   '\u5c3a\u5bf8 50x50mm\n    sp = 3      '\u95f4\u9694 3mm\n    row = 3     ' \u62fc\u7248 3 x 4\n    List = 4\n\n    '\/\/ \u5f53\u524d\u9009\u62e9\u7269\u4ef6 \u6309\u884c3\u52174\u95f4\u96943mm\u62fc\u7248\n    Dim OrigSelection As ShapeRange\n    Set OrigSelection = ActiveSelectionRange\n\n    '\/\/ StepAndRepeat \u65b9\u6cd5\u5728\u8303\u56f4\u5185\u521b\u5efa\u591a\u4e2a\u5f62\u72b6\u526f\u672c\n    Dim dup1 As ShapeRange\n    Set dup1 = OrigSelection.StepAndRepeat(row - 1, Size + sp, 0#)\n    Dim dup2 As ShapeRange\n    Set dup2 = ActiveDocument.CreateShapeRangeFromArray _\n         (dup1, OrigSelection).StepAndRepeat(List - 1, 0#, -(Size + sp))\nEnd Sub<\/code><\/pre>\n<h2>\u62fc\u7248\u7269\u4ef6\u6e90\u7801\u603b\u4f53\u8fd8\u662f\u6bd4\u8f83\u7b80\u5355\uff0c\u4e3a\u4e86\u5b9e\u9645\u5de5\u4f5c\u9700\u8981\uff0c\u6211\u4eec\u6765\u5efa\u7acb\u526a\u8d34\u677f\u63a7\u5236\u8f93\u5165\u53c2\u6570\uff0c\u5b8c\u6210\u66f4\u52a0\u7075\u6d3b\u548c\u65b9\u4fbf\u7684\u529f\u80fd\u3002<\/h2>\n<ul>\n<li><code>GetClipBoardString<\/code> \u51fd\u6570\u7528\u6765\u8bfb\u53d6\u526a\u8d34\u677f\u6587\u672c\uff0c\u628a\u5176\u4e2d\u7684\u6570\u5b57\u8f6c\u6362\u6210\u7a0b\u5e8f\u7684\u8f93\u5165\u3002<\/li>\n<li><code>CreateRectangle<\/code> \u4f7f\u7528\u7b2c\u4e00\u7ec4\u6570\u5b57\u6765\u753b\u4e00\u4e2a\u77e9\u5f62 <code>s1<\/code>\uff0c\u7136\u540e <code>s1.StepAndRepeat(row - 1, sw + sp, 0#)<\/code>\u5efa\u7acb\u526f\u672c\uff0c\u5728\u9646\u7eed\u5b8c\u6210\u62fc\u7248\u529f\u80fd\u3002<\/li>\n<li>\n<p>\u5982\u679c\u526a\u8d34\u677f\u6ca1\u6709\u6570\u5b57\u53c2\u6570\uff0c\u4ee3\u7801\u4f1a\u9519\u8bef\uff0c\u6240\u4ee5\u4f7f\u7528 <code>On Error GoTo ErrorHandler<\/code> \u8f6c\u5230\u9519\u8bef\u5904\u7406\uff0c\u663e\u793a\u4f7f\u7528\u65b9\u6cd5<\/p>\n<pre><code>'\/\/ CorelDRAW \u7269\u4ef6\u6392\u5217\u62fc\u7248\u7b80\u5355\u4ee3\u7801\nSub arrange()\n  On Error GoTo ErrorHandler\n  ActiveDocument.Unit = cdrMillimeter\n  row = 3     ' \u62fc\u7248 3 x 4\n  List = 4\n  sp = 0       '\u95f4\u9694 0mm\n\n  Dim Str, arr, n\n  Str = GetClipBoardString\n\n  ' \u66ff\u6362 mm x * \u6362\u884c TAB \u4e3a\u7a7a\u683c\n  Str = VBA.Replace(Str, \"mm\", \" \")\n  Str = VBA.Replace(Str, \"x\", \" \")\n  Str = VBA.Replace(Str, \"*\", \" \")\n  Str = VBA.Replace(Str, Chr(13), \" \")\n  Str = VBA.Replace(Str, Chr(9), \" \")\n\n  Do While InStr(Str, \"  \") '\u591a\u4e2a\u7a7a\u683c\u6362\u6210\u4e00\u4e2a\u7a7a\u683c\n      Str = VBA.Replace(Str, \"  \", \" \")\n  Loop\n\n  arr = Split(Str)\n\n  Dim x As Double\n  Dim y As Double\n  x = Val(arr(0))\n  y = Val(arr(1))\n\n  If UBound(arr) &gt; 2 Then\n  row = Val(arr(2))     ' \u62fc\u7248 3 x 4\n  List = Val(arr(3))\n      If UBound(arr) &gt; 3 Then\n          sp = Val(arr(4))       '\u95f4\u9694\n      End If\n  End If\n\n  Dim s1 As Shape\n  '\/\/ \u5efa\u7acb\u77e9\u5f62 Width  x Height \u5355\u4f4d mm\n  Set s1 = ActiveLayer.CreateRectangle(0, 0, x, y)\n\n  '\/\/ \u586b\u5145\u989c\u8272\u65e0\uff0c\u8f6e\u5ed3\u989c\u8272 K100\uff0c\u7ebf\u6761\u7c97\u7ec60.3mm\n  s1.Fill.ApplyNoFill\n  s1.Outline.SetProperties 0.3, OutlineStyles(0), CreateCMYKColor(0, 100, 0, 0), ArrowHeads(0), _\n      ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#\n\n  sw = x\n  sh = y\n\n  '\/\/ StepAndRepeat \u65b9\u6cd5\u5728\u8303\u56f4\u5185\u521b\u5efa\u591a\u4e2a\u5f62\u72b6\u526f\u672c\n  Dim dup1 As ShapeRange\n  Set dup1 = s1.StepAndRepeat(row - 1, sw + sp, 0#)\n  Dim dup2 As ShapeRange\n  Set dup2 = ActiveDocument.CreateShapeRangeFromArray _\n       (dup1, s1).StepAndRepeat(List - 1, 0#, (sh + sp))\n\n  Exit Sub\nErrorHandler:\n   MsgBox \"\u8bb0\u4e8b\u672c\u8f93\u5165\u6570\u5b57,\u793a\u4f8b: 50x50 4x3 ,\u590d\u5236\u5230\u526a\u8d34\u677f\u518d\u8fd0\u884c\u5de5\u5177!\"\n  On Error Resume Next\nEnd Sub\n\nPrivate Function GetClipBoardString() As String\n  On Error Resume Next\n  Dim MyData As New DataObject\n  GetClipBoardString = \"\"\n  MyData.GetFromClipboard\n  GetClipBoardString = MyData.GetText\n  Set MyData = Nothing\nEnd Function<\/code><\/pre>\n<\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>\u526a\u8d34\u677f\u8f93\u5165\u5c3a\u5bf8\u548c\u62fc\u7248\u6570\u91cf\u95f4\u9694\uff0c\u529f\u80fd\u6f14\u793a\u89c6\u9891 arrange.bas \u5148\u6765\u770b CorelDRAW \u7269\u4ef6 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10,12],"tags":[67],"class_list":["post-1003","post","type-post","status-publish","format-standard","hentry","category-soft","category-learn","tag-vba"],"_links":{"self":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts\/1003","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/comments?post=1003"}],"version-history":[{"count":0,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/posts\/1003\/revisions"}],"wp:attachment":[{"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/media?parent=1003"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/categories?post=1003"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lyvba.com\/index.php\/wp-json\/wp\/v2\/tags?post=1003"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}