乐筑天下

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

[编程交流] PDF到预定义文件夹

[复制链接]

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:47:07 | 显示全部楼层
你为什么重复发帖?答案在你的另一个帖子里。
回复

使用道具 举报

0

主题

24

帖子

24

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 16:52:33 | 显示全部楼层
doh!我留下了我的纸张尺寸。测试中的ctb文件,将其更改为您自己的值
回复

使用道具 举报

13

主题

56

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-5 16:54:16 | 显示全部楼层
 
 
你好澄清
 
1) 如我上一篇关于错误的帖子所示,请注意,它基于我自己的设置和值。
 
2) 它与“”无关。与第一篇文章一样,我指出了“”,这样它将基于单个图形原始窗口点。
因为lisp适用于所有图形。除了我需要PDF文件去另一个文件夹
 
作为实验,我使用值0,0,0来查看它是否有效。
这是Lisp程序
  1. (defun c:pp (/ fnm fl)
  2. (while (null fnm)
  3. (or (snvalid (setq fnm (vl-string-trim " " (getstring T "\nFilename: "))))
  4.      (progn (princ "\n** Invalid Filename **")
  5.             (setq fnm nil)
  6.      )
  7. )
  8. )
  9. (initget "D Documents")
  10. (setq fl (getkword "\nSpecify Save Location [D/DOcuments] <Other>: "))
  11. (cond
  12. ((eq fl "D")(setq fnm (strcat "c:\\pdf\" fnm ".pdf")))
  13. ((eq fl "Documents")(setq fnm (strcat (getenv "userprofile") "\\My Documents\" fnm ".pdf")))
  14. ( T (setq fnm (getfiled "Specify Save Location" fnm "pdf" 1)))
  15. )
  16. (command "tilemode" "0")
  17. (command "-plot" "y" "" "Dwg To PDF.pc3" "ISO expand A4 (210.00 x 297.00 MM)" "M" "P" "N" "W" "0,0" "0,0" "1:1" "C" "Y" "test.ctb" "Y" "N" "N" "N" fnm "N" "Y")
  18. (princ)
  19. )

 
错误仍然是一样的。
 
 
Lisp程序还有什么问题吗?
 
谢谢
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:57:14 | 显示全部楼层
2件事“0,0”、“0,0”和“1:1”
Try(getvar“extmin”)(getvar“extmax”)
和“1=1”
 
我有大约6个Lisp用于打印,它们一直都很有效,但我们有固定大小的标题栏,所以窗口是首选选项。
回复

使用道具 举报

13

主题

56

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-5 17:00:52 | 显示全部楼层
谢谢比格尔。问题是,当几年前有人创建图形时,1个布局中有几个大小不同的标题栏。
因此,我不能使用(getvar“extmin”)(getvar“extmax”)。
 
像这样的画有上百幅。
 
如果位置相同,至少我可以使用相同的窗口坐标,但不是,它们都在这些图形之间的不同位置。
 
为了减轻打印的痛苦,在绘图中唯一可以保存的优雅之处是绘图设置中的绘图区域被正确地窗口化为我需要PDF的绘图。
 
因此,当我使用PDF时,我需要相应地基于我的PDF设置(根据我在第一篇文章中的LISP,例如,纸张大小、打印样式…)除绘图区域外。
 
有什么解决方案吗?
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:02:45 | 显示全部楼层
好的,更多的参与是的,是的,但更多的如果和但是,你可以在一个空间里做多个标题栏,甚至向下,他们都是不同的,看看我最近的帖子。您可以找到标题栏,获取其信息,然后绘制它。问题是你想把大约5个不同的程序捆绑成一个无所不能的程序。归根结底,一次只解决一个问题。我有16个不同的情节例程,最近已经不时地被削减到我们的日常用品约4。根据需要使用一些定制的。
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 17:06:15 | 显示全部楼层
我合并了你的两个线程。
回复

使用道具 举报

0

主题

24

帖子

24

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 17:09:07 | 显示全部楼层
 
如果你有一个可以使用的lisp,你所需要做的就是去掉它要求你输入文件名的部分,并用你想要的完整路径和文件名替换绘图答案中的变量(fnm)-例如,请参阅本线程的第9篇文章,你能确认你试过这段代码吗?
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:13:24 | 显示全部楼层
下面是两个查找标题栏的代码示例,它需要将这两个标题栏合并为一个适合您需要的标题栏。
 
http://www.cadtutor.net/forum/showthread.php?100977-pagesetup-with-lisp-with-multi-layout-A3-A0-A1
在布局中打印多个标题。lsp
回复

使用道具 举报

13

主题

56

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2022-7-5 17:17:35 | 显示全部楼层
 
我将其修改为我的设置。它确实保存了PDF,但是
1) 未创建文件夹。
2) 相反,它将PDF保存到文档文件中
3) PDF名称保存为N,而不是fie名称
 
  1. 8
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 16:48 , Processed in 0.408043 second(s), 70 queries .

© 2020-2025 乐筑天下

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