自动判断图幅打印pdf

w245272914

经测试 2007版不能使用   、

選取物件: 找到 1 個

選取物件:  不明的指令「DWG TO PDF.PC3」。請按 F1 取得說明。
不明的指令「ISO EXPAND A2 (594.00 X 420.00 瑭譙)」。請按 F1 取得說明。
不明的指令「M」。請按 F1 取得說明。
不明的指令「L」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「W」。請按 F1 取得說明。
不明的指令「F」。請按 F1 取得說明。
不明的指令「C」。請按 F1 取得說明。
不明的指令「Y」。請按 F1 取得說明。
不明的指令「MONOCHROME.CTB」。請按 F1 取得說明。
不明的指令「Y」。請按 F1 取得說明。
不明的指令「A」。請按 F1 取得說明。
不明的指令「D:\.U+56FE.U+53F7_.U+56FE.U+7EB8名.U+79F0」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「Y」。請按 F1 取得說明。
1

war32

w245272914 发表于 2017-12-22 11:36
经测试 2007版不能使用   、

選取物件: 找到 1 個

打印命令使用的是CAD本身的-plot命令，没装2007的版本，无法测试，可在CAD里输入"-plot"以后根据提示调整最后调用command命令时的相关参数即可

w245272914

war32 发表于 2017-12-22 15:38
打印命令使用的是CAD本身的-plot命令，没装2007的版本，无法测试，可在CAD里输入"-plot"以后根据提示调整 ...

大神能否帮忙修改下批量打印程序，感谢你了，大哥哥~


不良原因：附件是lisp程序与模版DWG
该程序有一个缺点不能智能识别打印纵向或者横向的图纸
在程序中设置了 （     "p"           ; 輸入圖形方向(縱向:P 橫向  )
只能縱向打印，而有些图纸是有纵向与横向的


所以需要改成类似你贴子的程序，这样智能化。

war32

w245272914 发表于 2017-12-22 16:08
大神能否帮忙修改下批量打印程序，感谢你了，大哥哥~

CAD版本不同，未做测试，根据打印时的p1，p3坐标判断纵向还是横向即可。
;判断横向还是纵向,p纵向，l横向
                (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))
                (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )
                (if (> y x) (setq st "p") (setq st "l"))

w245272914

war32 发表于 2017-12-22 17:03
CAD版本不同，未做测试，根据打印时的p1，p3坐标判断纵向还是横向即可。
;判断横向还是纵向,p纵向，l横 ...

感谢，我去测试下。:P

w245272914

war32 发表于 2017-12-22 17:03
CAD版本不同，未做测试，根据打印时的p1，p3坐标判断纵向还是横向即可。
;判断横向还是纵向,p纵向，l横 ...

大神，谢谢了，经过我的测试已经OK   哈哈~~

超级感谢~

w245272914

war32 发表于 2017-12-22 17:03
CAD版本不同，未做测试，根据打印时的p1，p3坐标判断纵向还是横向即可。
;判断横向还是纵向,p纵向，l横 ...

    哥~有批量处理多个DWG文件吗？ 每处理一个DWG就会自动保存在工作目录，可以实现这个功能不

w245272914

war32  哥，有时间的话帮我再看看呀，你帮忙改了可以自动判断横纵方向的程序后，我又遇到了一个问题。问题一、程序运行的结果图片，可以再用函数自动保存PDF文件到该文件目录吗？
问题二、可以多个DWG文件，批量自动打印PDF到该文件目录吗？
能否帮帮我，哥~
解决一个问题也好~~  

w245272914

war32 ：哥们，能否帮忙看看，该程序有什么办法自动保存到该文件目录呀。我每次运行完命令都要点下保存。

war32

w245272914 发表于 2018-1-8 15:04
war32 ：哥们，能否帮忙看看，该程序有什么办法自动保存到该文件目录呀。我每次运行完命令都要点下保存。

(getvar "DWGPREFIX")，通过系统变量获得当前文件的路径位置，然后给文件名，放到command命令下方应该就可以