lisp编程：请问高手们，打印时打印机/绘图仪里的特性里的自定义图纸尺寸如何用代码...

无尽的手残

有个图纸不是标准的图框，是加长任意值的，在打印成pdf图纸时，不是要选图纸尺寸吗，我想通过图纸上的框来自定义一个加长的绘图仪配置的自定义尺寸。简单来说就是打印时，打印机/绘图仪里的特性里的自定义图纸尺寸如何用代码来控制.

diablobo

需要看用啥pdf打印机。
如果是DWG to PDF.pc3，只能自定义打印图纸，程序里编程去匹配图纸。以下是匹配代码：

2.     (setq  tmpList1   (vl-sort  (append (list Plot_Height) '(307 430 605 850))    '< )；图纸高度
   
3.              tk_Height  (nth    (1+ (vl-position Plot_Height tmpList1))     tmpList1)
   
4.              tmpList2   (vl-sort   (append (list Plot_Width)
   
5.                        '(220   450    550  650   750   850    1050  1150  1250  1350  1450  1550  1650 1750 1850 1950 2050))；图纸宽度
   
6.                        '< )
   
7.               tk_Width   (nth    (1+ (vl-position Plot_Width tmpList2))      tmpList2)
   
8.              Plot_paper (strcat (rtos tk_Width 2 0)   "x"   (rtos tk_Height 2 0)  )；图纸名称，如450x307，打印机里自定义图纸命名一致
   
9.     )

    (setq  tmpList1   (vl-sort  (append (list Plot_Height) '(307 430 605 850))    '< )；图纸高度<br />              tk_Height  (nth    (1+ (vl-position Plot_Height tmpList1))     tmpList1)<br />              tmpList2   (vl-sort   (append (list Plot_Width)<br />                        '(220   450    550  650   750   850    1050  1150  1250  1350  1450  1550  1650 1750 1850 1950 2050))；图纸宽度<br />                        '< )<br />               tk_Width   (nth    (1+ (vl-position Plot_Width tmpList2))      tmpList2)<br />              Plot_paper (strcat (rtos tk_Width 2 0)   "x"   (rtos tk_Height 2 0)  )；图纸名称，如450x307，打印机里自定义图纸命名一致<br />     )