大家好!
目前我使用下面的代码“创建PDF文件”很快,这是一个非常好且有用的代码,我不知道是谁写的这个代码,首先感谢他!
但在使用时还是发现有一些不足,不能选择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 "_N" (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME))) "_Y" "_Y")
- (setvar 'CMDECHO cm)
- (princ)
- )
- (vl-load-com) (princ)
|