乐筑天下

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

[编程交流] Lisp打印

[复制链接]

2

主题

9

帖子

7

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 17:36:46 | 显示全部楼层 |阅读模式
大家好,
 
 
我有一个lisp脚本,我已经成功地使用它在AutoCAD Elec 2014中打印到PDF。我们升级到AE 2017,现在它在每个绘图上等待我点击文件中的某个地方,然后它进入下一个。
 
 
这是我的剧本:
  1. (defun c:PLOTPDFLISP ( / cm )
  2.    (setq cm (getvar 'CMDECHO))
  3.    (setvar 'CMDECHO 0)
  4.    (command "-plot"
  5. "Yes"                         ;Detailed plot configuration? [Yes/No] <No>: Y
  6. "Layout1"                           ;Enter a layout name or [?] <0_01a>:
  7. "Acade - DWG To PDF.pc3"              ;Enter an output device name or [?] <DWG To PDF.pc3>:
  8. "ANSI full bleed B (17.00 x 11.00 Inches)" ;Enter paper size or [?] <ISO full bleed A3>:
  9. "Inches"                 ;Enter paper units [inches/Millimeters] <Millimeters>:
  10. "Landscape"                  ;Enter drawing orientation [Por.../Lan...] <Lan...>:
  11. "Yes"                         ;Plot upside down? [Yes/No] <No>:
  12. "Extents"                     ;Enter plot area [D.../E.../L.../V.../W...] <Window>:
  13. "1:2.00"                 ;Enter plot scale or [Fit] <1=1>:
  14. "Center"                     ;Enter plot offset (x,y) or [Center] <Center>:
  15. "Yes"                        ;Plot with plot styles? [Yes/No] <Yes>:
  16. "-Palette DHSI ANSI D 12217.stb"   ;Enter plot style table name or [?] <>:
  17. "Yes"                        ;Plot with lineweights? [Yes/No] <Yes>:
  18. "Yes"                         ;Scale lineweights with plot scale? [Yes/No] <No>:
  19. "No"                         ;Plot paper space first? [Yes/No] <No>:
  20. "No"                         ;Hide paperspace objects? [Yes/No] <No>:
  21. (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)))
  22. "No"                        ;Save changes to page setup [Yes/No]? <N> y
  23. "Yes"                        ;Proceed with plot [Yes/No] <Y>:
  24. )
  25.    (setvar 'CMDECHO cm)
  26.    (princ)
  27. )
  28. (vl-load-com) (princ)

 
 
我使用“项目范围实用程序”运行一个脚本,该脚本为项目中的每个dwg调用此lisp文件。它确实将项目中的每个dwg打印为pdf,但我必须单击dwg才能转到下一个,我不知道为什么。
 
 
有人知道为什么会这样吗?
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:58:05 | 显示全部楼层
建议删除defun函数另存为PLOTPDFLISPA A,以自动删除vl load com(不需要)。这是128个DWG的多行脚本
 
  1. eg _.open "P:\2014 Project\2014073-1" (LOAD "PLOTpdf-K") CLOSE Y
回复

使用道具 举报

2

主题

9

帖子

7

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 18:11:02 | 显示全部楼层
 
 
 
我不认为我捡起了你放下的东西。也许再给我说一点?我想我理解得很慢。
 
 
谢谢
回复

使用道具 举报

2

主题

9

帖子

7

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 18:14:23 | 显示全部楼层
由于它正在等待我的点击或其他操作,我只是在调用lisp的脚本中添加了一个“CLOSE”,效果很好。不过,我还是想听听你的建议。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 18:33:37 | 显示全部楼层
我刚刚保存了一个额外的命令调用,通过将其设置为C:defun,你意味着一个类型化的命令,我有一个(plotpdf)作为lisp的最后一行,因此defun仍然用于定位变量。上面的行重复128次。你的版本是
 
_.打开“P:\2014 Project\2014073-1”(加载“PLOTpdflisp”)PLOTpdflisp CLOSE Y
 
手动只需在当前绘图上拖放pdf-k pdf即可生成。手动方法是因为它是一个独特的项目v,是我们正常的标准方法。
回复

使用道具 举报

2

主题

9

帖子

7

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 18:43:58 | 显示全部楼层
哦,我明白你的意思了。
 
 
我没想到你可以直接拖放到当前的图形上。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 03:35 , Processed in 0.615958 second(s), 64 queries .

© 2020-2025 乐筑天下

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