乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 29|回复： 1

[综合讨论] 脚本打印

[复制链接]
dar2162

1

主题

1

帖子

0

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 23:20:58 | 显示全部楼层 |阅读模式
我正在寻找一种自动绘图的方法。
 
我绘制的每幅图都有相同的4种布局，名称如下：CP1、CU1、3L1、3L2。我总是需要按照以下约定绘制三个文档。
 
[图纸名称]-CP.pdf这只包含CP1页。
[图纸名称]-CU。pdf这只包含CU1页。
[图纸名称]-3L。pdf包含第3L1和3L2页。
 
这些图形的打印应始终保存在我的文件路径中较高的一级。一、 e.AutoCad文件的路径为//工程图纸/AutoCAD/和PDF应保存到//工程图纸/。
 
有谁能建议一条正确的道路来实现这一过程的自动化？
 
干杯
丹
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-7 01:13:25 | 显示全部楼层
这是一个开始，这是最新的版本将做你想要的它绘制一个范围，这样你可以做布局1或2-3等。你需要单独下载Ghostscript，因为它将pdf的组合成1。
 
  2. ;Plots layouts by range
  3. ; By Alan H Feb 2014
  4. (defun AH:pltlays ( / val1 val2 plotnames dwgname lendwg pdfname lay numlay numend dwgpre)
  5. (SETVAR "PDMODE" 0)
  6. (setvar "plottransparencyoverride" 2)
  7. (setvar "fillmode" 1)
  8. (setvar "textfill" 1)
  9. (setq plotnames '())
  10. ; check that pdf directory exists
  11. (setq dwgpre (strcat (getvar "dwgprefix") "\pdf"))
  12. (if (= (vl-file-directory-p dwgpre) nil)
  13. (vl-mkdir dwgpre)
  14. )
  15. (SETQ LAYOUTS (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object))))
  16. (SETQ COUNT (- (VLA-GET-COUNT LAYOUTS) 1))
  17. (if (not AH:getval2) (load "getvals3"))
  18. (ah:getval2 "Enter start tab number" 6 4 "1" "Enter end tab number" 6 4 (RTOS COUNT 2 0))
  19. (setq numlay (ATOI val1))
  20. (setq numend (ATOI val2))
  21. (setq len (+ (- numend numlay) 1))
  22. (setq dwgname (GETVAR "dwgname"))
  23. (setq lendwg (strlen dwgname))
  24. (setq dwgname (substr dwgname 1 (- lendwg 4)))
  25. (repeat len
  26. (vlax-for lay LAYOUTS
  27. (if (= numlay (vla-get-taborder lay))
  28.  (setvar "ctab" (vla-get-name lay))
  29. ) ; if
  30. (setq pdfname (strcat dwgpre "\" dwgname "-" (getvar "ctab") ".pdf" ))
  31. ) ; for
  32. (setvar "textfill" 1)
  33. (setvar "fillmode" 1)
  34. (setvar "PLOTTRANSPARENCYOVERRIDE" 2)
  35.    (COMMAND "-PLOT"  "Y"  "" "dwg to Pdf"
  36.        "Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE"  "N"   "W"  "-6,-6" "807,560" "1=2"  "C"
  37.        "y" "Designlasercolour.ctb" "Y" "n" "n" "n" pdfName "N" "y"
  38.    )
  40. (setq numlay (+ numlay 1))
  41. (setq plotnames (cons pdfname plotnames))
  42. ) ; end repeat
  43. (setq trgfile (strcat (getvar "dwgprefix") "pdf\" dwgname "-D" val1 "-D" val2 ".pdf")) 
  44. (setq plotnames (reverse plotnames))
  45. (IF (= (length plotnames) 1)
  46. (princ)
  47. (progn
  48. (if (not combinepdf)(load "mergepdfs"))
  49. (combinepdf gsExe plotnames trgFile )
  50. )
  51. )
  52. ) ; defun
  53. (AH:pltlays)
  55. (princ)

 
  2. ;MergePdfs
  3. ;Merges multiple pdf (or eps) files into one
  4. ;Requires the installatoion of Ghostscript 
  5. ; make a batch file ?
  6. ;gs -sDEVICE=pdfwrite \
  7. ;    -dNOPAUSE -dBATCH -dSAFER \
  8. ;    -sOutputFile=combined.pdf \
  9. ;    first.pdf \
  10. ;    second.pdf \
  11. ;    third.pdf [...]
  12. ;Ghostscript ([url]http://www.ghostscript.com/[/url]) can be used to combine PDFs.
  13. ; Something like this should work: by Roy_043
  14. (defun KGA_String_Join (strLst delim)
  15. (if strLst
  16. (apply
  17. 'strcat
  18. (cons
  19. (car strLst)
  20. (mapcar '(lambda (a) (strcat delim a)) (cdr strLst))
  21. )
  22. )
  23. ""
  24. )
  25. )
  26. ; (CombinePdf 
  27.  (setq gsexe "C:\\Program Files\\gs\\gs9.19\\bin\\gswin64c.exe")
  28. ; (setq srcFilelst  '("D:\\Tmp\\A.pdf" "D:\\Tmp\\B.pdf"))
  29. ; (setq trgfile "C:\\Acadtemp\\Total.pdf")
  30. ; )
  31. ; Note: Existing trgFile will be overwritten.
  32. (defun CombinePdf (gsExe srcFileLst trgFile)
  33. (startapp 
  34. (strcat
  35. gsExe " "
  36. "-sDEVICE=pdfwrite -dBATCH -dNOPAUSE -dQUIET  "
  37. "-sOutputFile="" trgFile "" "
  38. """ (KGA_String_Join srcFileLst "" "") """
  39. )
  40. )
  41. )

 
还有这个
  2. ; Input  Dialog box with variable title
  3. ; multiple lines of dcl input supported
  4. ; add extra lines if required by copying code defun
  5. ; By Alan H 2015
  6. (vl-load-com)
  7. ; 1 line dcl
  8. ; sample code (ah:getval1 "Line 1" 5 4)
  9. (defun AH:getval1 (title width limit def1 / fo fname)
  10. ; you can hard code a directory if you like for dcl file
  11. (setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  12. (write-line "ddgetval : dialog {" fo)
  13. (write-line " : row {" fo)
  14. (write-line ": edit_box {" fo)
  15. (write-line (strcat "    key = "  (chr 34) "key1" (chr 34) ";") fo)
  16. (write-line  (strcat " label = "  (chr 34) title (chr 34) ";"  )   fo)
  17. ; these can be replaced with shorter value etc
  18. (write-line (strcat "     edit_width = " (rtos width 2 0) ";" ) fo)
  19. (write-line (strcat "     edit_limit = " (rtos limit 2 0) ";" ) fo)
  20. (write-line "   is_enabled = true;" fo)
  21. (write-line "    }" fo)
  22. (write-line "  }" fo)
  23. (write-line "ok_only;}" fo)
  24. (close fo)
  25. (setq dcl_id (load_dialog  fname))
  26. ; pt is a list 2 numbs -1 -1 centre ('(20 20))
  27. ;(not (new_dialog "test" dch "" *screenpoint*)) 
  28. (if (not (new_dialog "ddgetval" dcl_id))
  29. (exit))
  30. (set_tile "key1" (setq val1 def1))
  31. (action_tile "key1" "(setq val1 $value)")
  32. (mode_tile "key1" 3)
  33. (start_dialog)
  34. (done_dialog)
  35. (unload_dialog dcl_id)
  36. ; returns the value of val1 as a string
  37. (vl-file-delete fname)
  38. ) ; defungetval1
  39. ; 2 line dcl
  40. ; sample code (ah:getval2 "Line 1" 5 4 "Line2" 8 7)
  41. (defun AH:getval2 (title1 width1 limit1 def1 title2 width2 limit2 def2 / fo fname)
  42. (setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  43. (write-line "ddgetval2 : dialog {" fo)
  44. (write-line " : column {" fo)
  45. (write-line ": edit_box {" fo)
  46. (write-line (strcat "    key = " (chr 34) "key1" (chr 34) ";") fo)
  47. (write-line  (strcat " label = "  (chr 34) title1 (chr 34) ";" ) fo)
  48. (write-line (strcat "     edit_width = " (rtos width1 2 0) ";" ) fo)
  49. (write-line (strcat "     edit_limit = " (rtos limit1 2 0) ";" ) fo)
  50. (write-line "   is_enabled = true ;" fo)
  51. (write-line "    }" fo)
  52. (write-line "spacer_1 ;" fo)
  53. (write-line ": edit_box {" fo)
  54. (write-line (strcat "    key = " (chr 34) "key2" (chr 34) ";") fo)
  55. (write-line (strcat " label = "  (chr 34) title2 (chr 34) ";"  ) fo)
  56. (write-line (strcat "     edit_width = " (rtos width2 2 0) ";" ) fo)
  57. (write-line (strcat "     edit_limit = " (rtos limit2 2 0) ";" ) fo)
  58. (write-line "   is_enabled = true ;" fo)
  59. (write-line "    }" fo)
  60. (write-line "    }" fo)
  61. (write-line "spacer_1 ;" fo)
  62. (write-line "ok_only;}" fo)
  63. (close fo)
  64. ; code part
  65. (setq dcl_id (load_dialog  fname))
  66. (if (not (new_dialog "ddgetval2" dcl_id))
  67. (exit))
  68. (mode_tile "key1" 3)
  69. (set_tile "key1" (setq val1 def1))
  70. (action_tile "key1" "(setq val1 $value)")
  71. (mode_tile "key2" 3)
  72. (set_tile "key2" (setq val2 def2))
  73. (action_tile "key2" "(setq val2 $value)")
  74. (start_dialog)
  75. (done_dialog)
  76. (unload_dialog dcl_id)
  77. ; returns the value of val1 and val2 as strings
  78. (vl-file-delete fname)
  79. ) ; defungetval2
  80. ; 3 line dcl
  81. ; sample code (ah:getval3 "Line 1" 5 4 "0.9" "Line 2" 8 7 "wow" "Line 3" 6 4 "123")
  82. (defun AH:getval3 (title1 width1 limit1 def1 title2 width2 limit2 def2 title3 width3 limit3 def3 / fo fname)
  83. (setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  84. (write-line "ddgetval3 : dialog {" fo)
  85. (write-line " : column {" fo)
  86. (write-line ": edit_box {" fo)
  87. (write-line (strcat "    key = " (chr 34) "key1" (chr 34) ";") fo)
  88. (write-line  (strcat " label = "  (chr 34) title1 (chr 34) ";" ) fo)
  89. (write-line (strcat "     edit_width = " (rtos width1 2 0) ";" ) fo)
  90. (write-line (strcat "     edit_limit = " (rtos limit1 2 0) ";" ) fo)
  91. (write-line "   is_enabled = true ;" fo)
  92. (write-line "    }" fo)
  93. (write-line "spacer_1 ;" fo)
  94. (write-line ": edit_box {" fo)
  95. (write-line (strcat "    key = " (chr 34) "key2" (chr 34) ";") fo)
  96. (write-line (strcat " label = "  (chr 34) title2 (chr 34) ";"  ) fo)
  97. (write-line (strcat "     edit_width = " (rtos width2 2 0) ";" ) fo)
  98. (write-line (strcat "     edit_limit = " (rtos limit2 2 0) ";" ) fo)
  99. (write-line "   is_enabled = true ;" fo)
  100. (write-line "    }" fo)
  101. (write-line "spacer_1 ;" fo)
  102. (write-line ": edit_box {" fo)
  103. (write-line (strcat "    key = " (chr 34) "key3" (chr 34) ";") fo)
  104. (write-line (strcat " label = "  (chr 34) title3 (chr 34) ";"  ) fo)
  105. (write-line (strcat "     edit_width = " (rtos width3 2 0) ";" ) fo)
  106. (write-line (strcat "     edit_limit = " (rtos limit3 2 0) ";" ) fo)
  107. (write-line "   is_enabled = true ;" fo)
  108. (write-line "    }" fo)
  109. (write-line "    }" fo)
  110. (write-line "spacer_1 ;" fo)
  111. (write-line "ok_only;}" fo)
  112. (close fo)
  113. ; code part
  114. (setq dcl_id (load_dialog  fname))
  115. (if (not (new_dialog "ddgetval3" dcl_id))
  116. (exit))
  117. (mode_tile "key1" 3)
  118. (set_tile "key1" (setq val1 def1))
  119. (action_tile "key1" "(setq val1 $value)")
  120. (mode_tile "key2" 3)
  121. (set_tile "key2" (setq val2 def2))
  122. (action_tile "key2" "(setq val2 $value)")
  123. (mode_tile "key3" 3)
  124. (set_tile "key3" (setq val3 def3))
  125. (action_tile "key3" "(setq val3 $value)")
  126. (start_dialog)
  127. (done_dialog)
  128. (unload_dialog dcl_id)
  129. ; returns the value of val1 val2 and val3 as strings
  130. (vl-file-delete fname)
  131. ) ; defungetval3
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 05:15 , Processed in 0.671834 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表