lisp源码：生成任意尺寸的pdf纸张

wudechao

经过不懈努力，autocad2008，autocad2014，autocad2024也支持(autocad2020不行，不明原因崩溃)。修改楼主的代码，用(strcat " user_defined_model_pathname=\"" (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder") "\Plotters\\PMP Files\\DWG To PDF.pmp\n")
    代替" user_defined_model_pathname=\"C:\\Users\\loki\\AppData\\Roaming\\Autodesk\\AutoCAD 2013 - Simplified Chinese\\R19.0\\chs\\Plotters\\PMP Files\\DWG To PDF.pmp\n"
用(strcat "driver_pathname=\"" (getenv "ACADDRV") "\\pdfplot" (itoa (- (atoi (substr (getvar "ACADVER") 1 2)) 8)) ".hdi\n")
    代替" driver_pathname=\"C:\\Program Files\\Autodesk\\AutoCAD 2013\\drv\\pdfplot11.hdi\n"
还有个补充必须把以前测试版本生成的的同名的pc3和pmp删除（比如我这个lisp生成的zpdf.pc3和zpdf.pmp），否则以前代码崩溃的现在也崩溃（估计是覆盖不完全）。

szhorse

ludaweb 发表于 2024-3-21 09:40
;;感谢 baitang36 陨落 mj000 等等大神，我做个实际使用的例子。

感谢！
在cad2014中可以使用。
在cad2020中，提示
请指定图框范围第一个角点：
请指定图框范围另一个角点：
错误：发生意外。

sandyvs

szhorse 发表于 2024-3-22 08:45
感谢！
在cad2014中可以使用。
在cad2020中，提示

看27楼，一个是桌面文件夹的位置，一个是打印机配置搜索路径只保留默认那一个

wudechao

我修改后的这两个函数对auotcad2020还是崩溃，但是其它cad版本，比如cad2008,cad2014,cad2024没有问题。

szhorse

sandyvs 发表于 2024-3-22 09:09
看27楼，一个是桌面文件夹的位置，一个是打印机配置搜索路径只保留默认那一个

我改成下面的样子，cad2020、2024依然是提示“错误：发生意外。”


                        ;;临时截图放在桌面，方便取用
;                        (vla-plottofile plot (strcat (getenv "UserProfile") "\\Desktop\\临时截图.png"))   ;截图保存至C:\Users\Administrator\Desktop\临时截图.png
                        (vla-plottofile plot (strcat (vla-item (vlax-get (vlax-create-object "WScript.Shell" ) 'SpecialFolders) "Desktop") "\\临时截图.png"))   ;截图保存至D:\Personal\Desktop\临时截图.png
                        (if (and pc3fname (setq pc3fname (findfile pc3fname)))
                                (vl-file-delete pc3fname)
                        )
                        (if (and pmpfname (setq pmpfname (findfile pmpfname)))
                                (vl-file-delete pmpfname)
                        )

sandyvs

szhorse 发表于 2024-3-22 12:56
我改成下面的样子，cad2020、2024依然是提示“错误：发生意外。”

op看下，文件-打印机支持文件路径-打印机配置搜索路径

sandyvs

wudechao 发表于 2024-3-21 23:56
经过不懈努力，autocad2008，autocad2014，autocad2024也支持(autocad2020不行，不明原因崩溃)。修改楼主的 ...

我的2020没问题

朦胧Design

大佬/。。。

caaooo

wudechao 发表于 2024-3-21 23:56
经过不懈努力，autocad2008，autocad2014，autocad2024也支持(autocad2020不行，不明原因崩溃)。修改楼主的 ...

建议尝试一下这几个代码，你会有意外的感觉:P

(getenv "PrinterDescDir")
(getenv "PrinterConfigDir")
(getenv "PrinterDescDir")

szhorse

sandyvs 发表于 2024-3-22 14:33
op看下，文件-打印机支持文件路径-打印机配置搜索路径

C:\Users\用户名\APPDATA\ROAMING\AUTODESK\AUTOCAD 2020\R23.1\CHS\PLOTTERS

可能是系统环境的原因，家里电脑2014也出现这个错误