输出PDF 文件，如何不弹出文件名对话框

brainstorm

想做一个批量输出PDF 的插件，PDF 文件名为属性快对应标签的属性值，如何不弹出cad 原则文件名称的对话框，用alisp 或vlisp 实现

Lisphk

要输文件名的地方，直接给文件名不行吗

brainstorm

好像不行 我看了秋枫的源码 试了试也不行，网上有帖子说用command 的方法 还有说先自动生成PDF 再改名称的

newer

brainstorm 发表于 2017-9-8 00:05

你不用COMMAND方法，你用的是什么方法呢？ 代码贴上来吧。

brainstorm

用的是帮助文件的代码，把打印机提示覆盖文件不选就可以了
可是新问题来了，只能打印一次，cad提示：已经有一个打印或发布作业在后台进行处理。一次只能处理一个作业... ...

2. (defun c:tt()
   
3.     ;; This example allows the user to define an area in the current layout to plot
   
4.     ;; and displays a plot preview of the defined area.
   
5.     ;;
   
6.     ;; * Note: You will have to exit the plot preview
   
7.     ;;  before the VBA example will stop and control will be returned
   
8.     (setq acadObj (vlax-get-acad-object))
   
9.     (setq doc (vla-get-ActiveDocument acadObj))
   
10. 
    
11.     ;; Get first point in window
    
12.     (setq point1 (vlax-variant-value (vla-GetPoint (vla-get-Utility doc) nil "Click the lower-left of the window to plot.")))
    
13. 
    
14.     ;; Change this to a 2D array by removing the Z position
    
15.     (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
16.     (vlax-safearray-put-element pointTemp1 0 (vlax-safearray-get-element point1 0))
    
17.     (vlax-safearray-put-element pointTemp1 1 (vlax-safearray-get-element point1 1))
    
18.    
    
19.     ;; Get second point in window
    
20.     (setq point2 (vlax-variant-value (vla-GetCorner (vla-get-Utility doc) point1 "Click the upper-right of the window to plot.")))
    
21. 
    
22.     ;; Change this to a 2D array by removing the Z position
    
23.     (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
24.     (vlax-safearray-put-element pointTemp2 0 (vlax-safearray-get-element point2 0))
    
25.     (vlax-safearray-put-element pointTemp2 1 (vlax-safearray-get-element point2 1))
    
26.    
    
27.     ;; Send information about window to current layout
    
28.     (vla-SetWindowToPlot (vla-get-ActiveLayout doc) pointTemp1 pointTemp2)
    
29.    
    
30.     ;; Read back window information
    
31.     (vla-GetWindowToPlot (vla-get-ActiveLayout doc) 'point1 'point2)
    
32. 
    
33.     (setq point1 (vlax-safearray->list point1)
    
34.                  point2 (vlax-safearray->list point2))
    
35.   
    
36.     (alert (strcat "Press any key to plot the following window:"
    
37.                    "\nLower Left: " (rtos (nth 0 point1) 2) ", " (rtos (nth 1 point1) 2)
    
38.                    "\nUpper Right: " (rtos (nth 0 point2) 2) ", " (rtos (nth 1 point2) 2)))
    
39.    
    
40.     ;; Make sure the instruction is to plot a view, not some other plot style
    
41.     (vla-put-PlotType (vla-get-ActiveLayout doc) acWindow)
    
42.    
    
43.     ;; Send Plot To Window - A plot device must be set before a preview can be created
    
44.     (vla-put-ConfigName (vla-get-ActiveLayout doc) "adobe PDF.pc3")
    
45.     ;(vla-DisplayPlotPreview (vla-get-Plot doc) acFullPreview)
    
46.   (vla-PlotToDevice (vla-get-Plot doc))
    
47. )

(defun c:tt()<br />     ;; This example allows the user to define an area in the current layout to plot<br />     ;; and displays a plot preview of the defined area.<br />     ;;<br />     ;; * Note: You will have to exit the plot preview<br />     ;;  before the VBA example will stop and control will be returned<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     ;; Get first point in window<br />     (setq point1 (vlax-variant-value (vla-GetPoint (vla-get-Utility doc) nil "Click the lower-left of the window to plot.")))<br /> <br />     ;; Change this to a 2D array by removing the Z position<br />     (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />     (vlax-safearray-put-element pointTemp1 0 (vlax-safearray-get-element point1 0))<br />     (vlax-safearray-put-element pointTemp1 1 (vlax-safearray-get-element point1 1))<br />     <br />     ;; Get second point in window<br />     (setq point2 (vlax-variant-value (vla-GetCorner (vla-get-Utility doc) point1 "Click the upper-right of the window to plot.")))<br /> <br />     ;; Change this to a 2D array by removing the Z position<br />     (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />     (vlax-safearray-put-element pointTemp2 0 (vlax-safearray-get-element point2 0))<br />     (vlax-safearray-put-element pointTemp2 1 (vlax-safearray-get-element point2 1))<br />     <br />     ;; Send information about window to current layout<br />     (vla-SetWindowToPlot (vla-get-ActiveLayout doc) pointTemp1 pointTemp2)<br />     <br />     ;; Read back window information<br />     (vla-GetWindowToPlot (vla-get-ActiveLayout doc) 'point1 'point2)<br /> <br />     (setq point1 (vlax-safearray->list point1)<br />                  point2 (vlax-safearray->list point2))<br />   <br />     (alert (strcat "Press any key to plot the following window:"<br />                    "\nLower Left: " (rtos (nth 0 point1) 2) ", " (rtos (nth 1 point1) 2)<br />                    "\nUpper Right: " (rtos (nth 0 point2) 2) ", " (rtos (nth 1 point2) 2)))<br />     <br />     ;; Make sure the instruction is to plot a view, not some other plot style<br />     (vla-put-PlotType (vla-get-ActiveLayout doc) acWindow)<br />     <br />     ;; Send Plot To Window - A plot device must be set before a preview can be created<br />     (vla-put-ConfigName (vla-get-ActiveLayout doc) "adobe PDF.pc3")<br />     ;(vla-DisplayPlotPreview (vla-get-Plot doc) acFullPreview)<br />   (vla-PlotToDevice (vla-get-Plot doc))<br /> )

brainstorm

找到办法了，还是上面代码，可能我哪里写错了。

brainstorm

找到办法了，还是上面代码，可能我哪里写错了。大致思路就是，用adobe pdf. Pc3配置文件，配置文件选自动覆盖，这样会在我的文档下生成一个pdf 文件，但是由于生成文件与lisp 不同步，需要加个循环判断文件是否已经生成，如果生成pdf 文件，将其改名，再进行下一步，现在就就担心没有出现错误，没有生成pdf 文件，陷入死循环

brainstorm

有办法配置pdf 打印机默认生文件的名称么

Lisphk

brainstorm 发表于 2017-9-8 17:43

生成文件后，你代码还需做什么吗？ 不做，就退出呗。

brainstorm

Lisphk 发表于 2017-9-8 20:26

因为PDF 打印机默认生成文件名是同一个文件，所以要批量打印，必须先把已经生成的文件重命名，否则就被覆盖了

kqqt6236

楼主怎么解决的