你好
你们能告诉我为什么我在互联网上用各种各样的语言拼凑出的下列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)
- )
| 
置顶卡
