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

陨落

根据baitang36老师的帖子：http://bbs.mjtd.com/thread-189458-1-1.html

以及帖子下各位大神（如mj000,直接大白话讲出了实现这个功能的原理)的讨论，我写出了生成任意尺寸pdf纸张的lisp程序。纯lisp源码



包含两个函数：pc3_add_pdfsize----生成pc3和与其绑定的pmp文件，其中包含自定义的图纸尺寸和名称
pmp_add_picsize-----生成pmp文件，其中包含自定义的图纸尺寸和名称
在写批量打印程序的时候，有了这两个函数，就可以随心所欲地添加自定义尺寸了

ludaweb

;;感谢 baitang36 陨落 mj000 等等大神，我做个实际使用的例子。

kucha007

感谢大佬分享，梳理了一遍代码
rtos会受到DIMZIN的影响，做了点调整。
感觉生成PMP改一下就可以生成多个图纸了~

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)
                        )

lxl217114

这分享奉献精神就很棒

你有种再说一遍

其实不光是这样打印,而是全程自动化,
首先要制作标准目录,标准图框(可拉伸,但是块名要有共同前缀),然后标准图签(字段),制作它们是为了好搜索,达到O(1)时间复杂度.


然后发送给服务器,
服务器自动创建多个cad进程进行切割任务,
然后会进入最后一次校验目录和图签是否对应(是否一个图框内存在多个图签,是否和目录不匹配等等),
再开图纸,乱序单张打印,因为图名是PDF名,完成后通过目录序号合并PDF,
服务器再根据配置自动发送PDF附件到邮箱,给自己和他人检查,
服务器邮箱等待回复,通过回复指定编号的打印机,进行纸张打印...

小小一个打印就可以降低人力检查图签和目录不一致的情况.


然后你又想检查平立剖的面号剖号...
可以制作一个json存储一个map用来校验.
选中图纸图签,右键新建索引,产生一个可超链接的图块.
这样简化了超链接的使用,重点是出图时候校验索引是否存在断开冲突...

所以还需要什么个图纸集...
万物皆可校验...
越做越大...
逃...

yefei812678

感谢分享感谢分享感谢分享

wudechao

感谢分享,如果用cad默认pc3和pmp目录，可以改为如下。
(defun c:tt ()
  (setq wid (getdist "\n输入宽度")
    hit (getdist "\n 输入高度")
  )
  (princ (strcat (rtos wid 2 2) " x " (rtos hit 2 2)))
  (setq path-rootfolder (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder"))
  (setq path-pc3 (strcat path-rootfolder "Plotters\\"))
  (setq path-pmp (strcat path-pc3 "PMP Files\\"))
  (setq pmp-name (strcat path-pmp "zpdf.pmp"))
  (setq pc3-name (strcat path-pc3 "zpdf.pc3"))
  (pc3_add_pdfsize pmp-name "mysize123" wid hit pc3-name)
)

ludaweb

厉害，佩服楼主的钻研精神，原来不一定非要解密再加密，直接明码就行。

sandyvs

感谢各位大神！话说怎么增加像素尺寸？就是要打印成图片

marcoyuwen

富有且慷慨

xinxirong

这个pmp pc3不需要zip压缩一下？

陨落

xinxirong 发表于 2024-3-20 10:55
这个pmp pc3不需要zip压缩一下？

妙就妙在这里，根本不需要压缩。。这就是baitang36和mj000两位高手公布出来的秘密。