nlao 发表于 2022-7-6 09:18:16

PDF plot lisp帮助

你好
 
你们能告诉我为什么我在互联网上用各种各样的语言拼凑出的下列Lisp在更改选项卡时不更新选项卡信息吗?
 
我用这个脚本快速绘制了几个PDF,并试图让它来填充我的名字,我喜欢使用AutoCAD DWG到PDF打印机,因为它生成的文件比CutePDF小得多,质量更好,但它没有给我e对话框,好吧,我制作了这个lisp来做到这一点!
 
这是一个工作版本,我也想让它从当前布局块中删除属性,但我很困惑如何做到这一点,因为块名称根据大小而变化。Block\u nameA3、Block\u nameA2等。
 
我希望它为我填充的最后一个字符串以这种格式给出了名称,
 
[来自路径][来自选项卡名称][来自属性]
 
然而,所有这些都可以从属性中提取,这些属性可能会或可能不会使事情变得更简单。
 
我有几个关于纸张尺寸的Lisp,这一个在A3纸上绘制A1。
 
 
(DEFUN C:WAA1A3PDF ()
(setq FILEPATHNAME (getvar "DWGPREFIX"))
(setq PDFPREFIX (substr FILEPATHNAME 13 5))
(setq PDFMID (getvar "CTAB"))
(setq PDFNAME (strcat PDFPREFIX " " PDFEND))
(SETVAR "CMDECHO" 0)
(COMMAND "-PLOT"
   "Y"
   ""
   "DWG TO PDF.PC3"
   "ISO A3 (420.00 x 297.00 MM)"
   "M"
   "L"
   "N"
   "E"
   "1:2"
   "CEN"
   "Y"
   "monochrome.ctb"
   "Y"
   "N"
   "N"
   "N"
   (getfiled "Save File as..." PDFNAME "pdf" 1)
      
   "N"
   "Y"
)
(SETVAR "CMDECHO" 1)
(PRINC)
)
页: [1]
查看完整版本: PDF plot lisp帮助