PDF文件保存位置-Ne
大家好，目前，我正在使用下面的lisp“创建PDF文件”非常快，我从这个论坛得到。这是一个非常好和有用的lisp。我不知道这口吃是谁写的。多亏了他。
但目前PDF文件正在创建DWG文件路径所在的位置。每次我都会手动将创建的PDF文件复制粘贴到我想要的其他文件夹中。
是否可以将PDF文件保存路径位置更改为除DWG文件路径之外的其他默认位置。。？此外，我想创建的“PDF文件名”将是“dwg布局名称（每个单独的布局名称）”。请帮我解决这个。。。我不熟悉写Lisp程序。。。
实例DWG文件路径为“E:\Raj\drawings”，但PDF文件将保存在“E:\Raj\PDF files”中
(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) 可能会调整此行：
(command "_N" (strcat (getvar 'DWGPREFIX) "PDF Files\\" (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y") 你好，MSasu。谢谢你的帮助。但它不起作用。未创建PDF文件。。。 您的原始代码似乎还有一些其他问题；请找到修复方法：
(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))) "_N" "_Y")
(setvar 'CMDECHO cm)
(princ)
)
(vl-load-com) (princ) 相同的东西位不同的代码
(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" )
你好，MSasu。。谢谢，但它不工作，我得到错误消息“未知命令”N。
使用此代码时未知命令“Y”。。。 嗨，比格尔，谢谢你的帮助。。但我得到了一个错误消息“error:bad argument type:stringp nil”。。。
仅供参考。。将为每个项目创建DWG和PDF文件位置（两个文件夹） Rajeshmuthu，我已经强制将提示显示到下面的代码中；请运行它并在调用命令后将文本窗口（按）上打印的所有行张贴在此处。
(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) 你好，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键获取帮助。 是我的错，我也没有在布局中测试代码。因此，请在下面找到一个固定版本，并为不便之处感到抱歉。
(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)
页:
[1]
2