本帖最后由 xiaoyingzi 于 2025-9-3 11:00 编辑
采用自定义pc3及ctb的方式，免去了繁琐设置纸张、线宽、颜色，
利用系统自带打印机打印出高清的JPG和png
wmf格式的输出则是通过wmfout在布局视口输出，
因为在模型及图纸空间切换，所以wmf的打印很慢
也不支持复制到粘贴板
总体支持两种打印方式，截图和批打模式，
自定义纸张支持短边、比例、和自动识别三种方式
程序主体来自明经论坛陈伟，只是修改增加功能
http://bbs.mjtd.com/thread-192610-1-1.html
自定义pc3及ctb详见帖子：
[经验] 【原创】用纯lisp实现打印任意尺寸pdf
http://bbs.mjtd.com/thread-189458-1-1.html
[经验] lisp源码：生成任意尺寸的pdf纸张
http://bbs.mjtd.com/thread-189649-1-1.html
转化ctb文件用到明经论坛高飞鸟制作的工具“PIA文件大师”
http://bbs.mjtd.com/thread-189589-1-1.html
自定义ctb函数
http://bbs.mjtd.com/thread-193281-1-1.html
wmf格式的输出则是通过wmfout在布局视口输出，源码来自帖子：
http://bbs.mjtd.com/thread-179473-1-1.html
http://bbs.mjtd.com/thread-191100-1-1.html
程序命令qq，可自行修改
网友答: 粘贴没有图片是啥问题，网友答: 本帖最后由 dcl1214 于 2025-9-22 21:04 编辑
图片到剪切板应该调用这个exe
网友答:
(if (= plotmode 0)
(setq basePath (getvar "\\打印图片\\"))
(setq basePath (strcat (GetdesktopPath) "\\"))
)
这部分改成
(setq basePath (getvar "TEMPPREFIX"))网友答: 本帖最后由 kozmosovia 于 2025-9-2 22:08 编辑
WMF输出不需要用布局视口，直接整个Model做成块再按照视口边界裁剪后输出。
高清JPG或者PNG，可以修改绘图窗口的高宽为指定像素，直接调用JPGOUT或者PNGOUT生成，不需要用到打印。
网友答:
复制到粘贴板这里，经常失效，没找到稳定有效的方法网友答: 很给力，谢谢分享网友答: 感谢楼主，先下载看看网友答: vldos-writefile函数一直报错网友答: 感谢分享很不错，如果能有不保存文件选项，只需要在粘贴板上,那就更完美了，网友答: 好用，怎么修改命令呢网友答:
采用自定义pc3及ctb的方式，免去了繁琐设置纸张、线宽、颜色，
利用系统自带打印机打印出高清的JPG和png
wmf格式的输出则是通过wmfout在布局视口输出，
因为在模型及图纸空间切换，所以wmf的打印很慢
也不支持复制到粘贴板
总体支持两种打印方式，截图和批打模式，
自定义纸张支持短边、比例、和自动识别三种方式
程序主体来自明经论坛陈伟，只是修改增加功能
http://bbs.mjtd.com/thread-192610-1-1.html
自定义pc3及ctb详见帖子：
[经验] 【原创】用纯lisp实现打印任意尺寸pdf
http://bbs.mjtd.com/thread-189458-1-1.html
[经验] lisp源码：生成任意尺寸的pdf纸张
http://bbs.mjtd.com/thread-189649-1-1.html
转化ctb文件用到明经论坛高飞鸟制作的工具“PIA文件大师”
http://bbs.mjtd.com/thread-189589-1-1.html
自定义ctb函数
http://bbs.mjtd.com/thread-193281-1-1.html
wmf格式的输出则是通过wmfout在布局视口输出，源码来自帖子：
http://bbs.mjtd.com/thread-179473-1-1.html
http://bbs.mjtd.com/thread-191100-1-1.html
程序命令qq，可自行修改
网友答: 粘贴没有图片是啥问题，网友答: 本帖最后由 dcl1214 于 2025-9-22 21:04 编辑
图片到剪切板应该调用这个exe
- (defun $放置图片到剪切板$ (tp-path / extpath exepath zt shell)
- (if (and tp-path (findfile tp-path))
- (if (setq exepath (findfile "ImageToClipboard.exe"));放在运行目录，所以，直接用findfile就可以找到
- (progn
- (setClipText tp-path)
- (setq Shell (vlax-create-object "wscript.shell"))
- (if (not (vl-catch-all-error-p
- (vl-catch-all-apply
- 'vlax-invoke
- (list Shell 'run (strcat exepath " " (vl-prin1-to-string tp-path)) 2 1)
- )
- )
- )
- (setq zt t)
- )
- (and shell (vlax-release-object shell))
- )
- (alert
- "中线CAD组件ImageToClip.exe找不到了
- 该文件在C:\Changli_harness_software路径下
-
- 请注意可恶的杀毒软件！此插件是中线CAD自主开发，还未给杀毒软件公司交保护费，可能有被删除的危险？
- 请联系开发人员！"
- )
- )
- )
- zt
- )
网友答:
楼主，如何设置桌面不生成文件
(if (= plotmode 0)
(setq basePath (getvar "\\打印图片\\"))
(setq basePath (strcat (GetdesktopPath) "\\"))
)
这部分改成
(setq basePath (getvar "TEMPPREFIX"))网友答: 本帖最后由 kozmosovia 于 2025-9-2 22:08 编辑
WMF输出不需要用布局视口，直接整个Model做成块再按照视口边界裁剪后输出。
高清JPG或者PNG，可以修改绘图窗口的高宽为指定像素，直接调用JPGOUT或者PNGOUT生成，不需要用到打印。
网友答:
清水白粥 发表于 2025-9-2 23:15
粘贴没有图片是啥问题，
复制到粘贴板这里，经常失效，没找到稳定有效的方法网友答: 很给力，谢谢分享网友答: 感谢楼主，先下载看看网友答: vldos-writefile函数一直报错网友答: 感谢分享很不错，如果能有不保存文件选项，只需要在粘贴板上,那就更完美了，网友答: 好用，怎么修改命令呢网友答: