乐筑天下

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

将Dwg转换为Pdf。pc3打印到默认目录。

[复制链接]

67

主题

248

帖子

2

银币

中流砥柱

Rank: 25

铜币
516
发表于 2017-1-18 10:51:42 | 显示全部楼层 |阅读模式
我正在尝试编写一个脚本,使用“Dwg到Pdf”将其打印到.Pdf。AutoCAD LT 2013附带的pc3驱动程序。该脚本可以工作,但将.pdf打印到与.dwg文件相同的目录中
如果使用Acrobat驱动程序打印,则可以指定“默认”目录。但是,Adobe驱动程序并不以矢量文件的形式打印,它们始终是光栅文件。CAD驱动程序确实保留了矢量
您知道如何让CAD驱动程序始终打印到默认目录吗<克雷格

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

51

主题

613

帖子

9

银币

中流砥柱

Rank: 25

铜币
815
发表于 2017-1-19 08:52:49 | 显示全部楼层
我不认为有一个变量可以控制默认的DWG到PDF的绘图位置。如果您正在运行一个脚本,您应该能够传递目录。
(command "-plot""y" "" "DWG到PDF.pc3 " "纸张大小" " I " " L " " N " " E " " F " " " " Y " " Plot style . CTB " " Y " " " "文件位置" " N" "Y")
回复

使用道具 举报

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-1-19 10:02:42 | 显示全部楼层

对于脚本中的文件位置...您将如何将其放置在 C:\Drive?
回复

使用道具 举报

67

主题

248

帖子

2

银币

中流砥柱

Rank: 25

铜币
516
发表于 2017-1-19 10:08:01 | 显示全部楼层
我今天很忙,但希望明天能回到这里
回复

使用道具 举报

51

主题

613

帖子

9

银币

中流砥柱

Rank: 25

铜币
815
发表于 2017-1-19 11:40:56 | 显示全部楼层
深入阅读,这可能是不可能的,因为你需要传递整个路径,包括文件名。我没有脚本经验,不知道你是否能够拉变量?
回复

使用道具 举报

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-1-20 08:14:49 | 显示全部楼层
今天早上我四处寻找...找到了这个...看起来它能帮助我们找到正确的方向。
http://www . CAD tutor . net/forum/show thread . PHP?69132-打印-LISP-帮助...& highlight =打印-LISP
回复

使用道具 举报

67

主题

248

帖子

2

银币

中流砥柱

Rank: 25

铜币
516
发表于 2017-1-20 14:40:50 | 显示全部楼层
以下是我一直在使用的,但遗憾的是,我仍然无法将其打印到“C:\ACAD”文件夹。
-情节;是;; Adobe PDF with Layers;CSI_(11.00 x 17.00英寸);英寸;景观;否;窗口;-0.6,-0.2232; 15.8233,10.1435;适合;0.00,0.00;是;;否;否;否;;否;是
我希望它像现在一样运行,并为. pdf赋予与CAD相同的名称,它确实做到了。但是,它将文件放置在与. dwg文件相同的目录中。
craigr
回复

使用道具 举报

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-1-20 14:43:47 | 显示全部楼层
我一直在玩这个例行公事。我喜欢它的地方是它将它打印到我的默认文件夹中。但是我仍然试图弄清楚一些问题。
  1. (defun c:PDF ( / cm )
  2. ;;http://www.cadtutor.net/forum/showthread.php?84744-PDF-file-saving-location-Need-help/page3
  3.     (setq cm (getvar 'CMDECHO))
  4.     (setvar 'CMDECHO 0)
  5.     (command "_.-plot" "_Y"
  6.         (if (= 1 (getvar 'TILEMODE)) "Model" (getvar 'CTAB))
  7.         "DWG To PDF.pc3" "ARCH full bleed D (36.00 x 24.00 Inches)"
  8.         "_I" "_L" "_N" "_E" "1:1" "_C" "_Y" "A.Structurepoint.ctb" "_Y"
  9.     )
  10.     (if (= 1 (getvar 'TILEMODE))
  11.         (command "_A")
  12.         (command "_N" "_Y" "_N")
  13.     )
  14.     (command (strcat (getvar 'DWGPREFIX) "PDF files\" (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y")
  15.     (setvar 'CMDECHO cm)
  16. ;;    (princ)
  17. )
  18. (vl-load-com)
  19. ;;(princ)

回复

使用道具 举报

67

主题

248

帖子

2

银币

中流砥柱

Rank: 25

铜币
516
发表于 2017-1-20 14:54:23 | 显示全部楼层
对我来说,Lisp例程对我没有帮助。可悲的是,我处理的是2013 LT,不支持Lisps。
所以基本上,我必须想出“绕谷仓走很长的路”来达到我的目标。
我相信这是可以做到的,我会继续寻找解决方案。克雷格尔
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 19:07 , Processed in 0.709213 second(s), 81 queries .

© 2020-2025 乐筑天下

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