PDF文件保存位置-Ne

rajeshmuthu · 发表于 2022-7-5 18:52:40

大家好，

目前，我正在使用下面的lisp“创建PDF文件”非常快，我从这个论坛得到。这是一个非常好和有用的lisp。我不知道这口吃是谁写的。多亏了他。

但目前PDF文件正在创建DWG文件路径所在的位置。每次我都会手动将创建的PDF文件复制粘贴到我想要的其他文件夹中。
是否可以将PDF文件保存路径位置更改为除DWG文件路径之外的其他默认位置。。？此外，我想创建的“PDF文件名”将是“dwg布局名称（每个单独的布局名称）”。请帮我解决这个。。。我不熟悉写Lisp程序。。。

实例DWG文件路径为“E:\Raj\drawings”，但PDF文件将保存在“E:\Raj\PDF files”中

copy

(defun c:test12 ( / cm )
   (setq cm (getvar 'CMDECHO))
   (setvar 'CMDECHO 0)
   (command "_.-plot" "_y"
       (if (= 1 (getvar 'TILEMODE)) "Model" (getvar 'CTAB))
       "DWG To PDF.pc3" "ARCH D (36.00 x 24.00 Inches)"
       "_M" "_L" "_N" "_E" "_F" "_C" "_Y" "monochrome.ctb" "_Y"
   )
   (if (= 1 (getvar 'TILEMODE))
       (command "_A")
       (command "_N" "_Y")
   )
   (command "_N" (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y")
   (setvar 'CMDECHO cm)
   (princ)
)
(vl-load-com) (princ)

MSasu · 发表于 2022-7-5 18:57:04

可能会调整此行：

copy

(command "_N" (strcat (getvar 'DWGPREFIX) [color=magenta]"PDF Files\"[/color] (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y")

rajeshmuthu · 发表于 2022-7-5 19:00:48

你好，MSasu。谢谢你的帮助。但它不起作用。未创建PDF文件。。。

MSasu · 发表于 2022-7-5 19:04:59

您的原始代码似乎还有一些其他问题；请找到修复方法：

copy

(defun c:test12 ( / cm )
   (setq cm (getvar 'CMDECHO))
   (setvar 'CMDECHO 0)
   (command "_.-plot" "_y"
       (if (= 1 (getvar 'TILEMODE)) "Model" (getvar 'CTAB))
       "DWG To PDF.pc3" "ARCH D (36.00 x 24.00 Inches)"
       "_M" "_L" "_N" "_E" "_F" "_C" "_Y" "monochrome.ctb" "_Y"
   )
   (if (= 1 (getvar 'TILEMODE))
       (command "_A")
       (command "_N" "_Y")
   )
   (command (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME))) [color=red]"_N" "_Y"[/color])
   (setvar 'CMDECHO cm)
   (princ)
)
(vl-load-com) (princ)

BIGAL · 发表于 2022-7-5 19:07:16

相同的东西位不同的代码

copy

(setq pdfname (strcat (getvar "dwgprefix") dwgname "-" name)) ;change pdfname to 
(setq pdfname (strcat "your directory" dwgname "-" name)) ; name is layoutab name
(COMMAND "-PLOT"  "Y"  "" "dwg to Pdf"
       "Iso full bleed A3 (420.00 x 297.00 MM)" "m"    "LANDSCAPE"  "N"   "W"  "-6,-6"    "807,560" "1=2"  "C"
       "y"          "Designlasercolour.ctb" "Y"        "n"    "n"    "n"   pdfName "N" "y"      )

rajeshmuthu · 发表于 2022-7-5 19:11:17

你好，MSasu。。谢谢，但它不工作，我得到错误消息“未知命令”N。
使用此代码时未知命令“Y”。。。

rajeshmuthu · 发表于 2022-7-5 19:12:04

嗨，比格尔，谢谢你的帮助。。但我得到了一个错误消息“error:bad argument type:stringp nil”。。。

仅供参考。。将为每个项目创建DWG和PDF文件位置（两个文件夹）

MSasu · 发表于 2022-7-5 19:15:24

Rajeshmuthu，我已经强制将提示显示到下面的代码中；请运行它并在调用命令后将文本窗口（按）上打印的所有行张贴在此处。

copy

(defun c:test12 ( / cm )
   (setq cm (getvar 'CMDECHO))
   (setvar 'CMDECHO 1)
   (command "_.-plot" "_y"
       (if (= 1 (getvar 'TILEMODE)) "Model" (getvar 'CTAB))
       "DWG To PDF.pc3" "ARCH D (36.00 x 24.00 Inches)"
       "_M" "_L" "_N" "_E" "_F" "_C" "_Y" "monochrome.ctb" "_Y"
   )
   (if (= 1 (getvar 'TILEMODE))
       (command "_A")
       (command "_N" "_Y")
   )
   (command (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME))) "_N" "_Y")
   (setvar 'CMDECHO cm)
   (princ)
)
(vl-load-com) (princ)

rajeshmuthu · 发表于 2022-7-5 19:21:06

你好，MSasu，

这是您需要的详细信息，供您使用。。。

命令：test12
_.-打印详细的打印配置？[是/否]：_y
输入布局名称或[？]：R-9输入输出设备名称或[？]PDF>：DWG到PDF。pc3输入纸张大小或[？]：
拱门D（36.00 x 24.00英寸）输入纸张单位[英寸/毫米]
：u M输入绘图方向[纵向/横向]：\u L
情节颠倒？[是/否]：输入绘图区域
[显示/范围/布局/视图/窗口]：\u E输入打印比例（打印
毫米=绘图单位）或[拟合]：输入打印偏移（x，y）或
：_C打印与打印样式？[是/否]：_Y输入打印样式表名称或[？]（输入。表示无）：单色。ctb公司
使用线宽打印？[是/否]：用打印比例Y缩放线宽？
[是/否]：\N是否先打印图纸空间？[是/否]：\u Y隐藏纸张空间
物体？[是/否]：C:\Documents and Settings\RAJ\Desktop\R-9
命令：未知命令“N”。按F1键获取帮助。

命令：\u Y未知命令“Y”。按F1键获取帮助。

MSasu · 发表于 2022-7-5 19:21:51

是我的错，我也没有在布局中测试代码。因此，请在下面找到一个固定版本，并为不便之处感到抱歉。

copy

(defun c:test12 ( / cm )
   (setq cm (getvar 'CMDECHO))
   (setvar 'CMDECHO 0)
   (command "_.-plot" "_y"
       (if (= 1 (getvar 'TILEMODE)) "Model" (getvar 'CTAB))
       "DWG To PDF.pc3" "ARCH D (36.00 x 24.00 Inches)"
       "_M" "_L" "_N" "_E" "_F" "_C" "_Y" "monochrome.ctb" "_Y"
   )
   (if (= 1 (getvar 'TILEMODE))
       (command "_A")
       (command "_N" "_Y" "_N")
   )
   (command (strcat (getvar 'DWGPREFIX) "PDF files\" (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y")
   (setvar 'CMDECHO cm)
   (princ)
)
(vl-load-com) (princ)

[编程交流] PDF文件保存位置-Ne

发表回复

精选推荐