核心问题排查 #

你遇到的重复全图打印、页数异常，本质是打印范围未正确绑定当前图框，以及可能存在循环遍历实体错误（116页大概率是误遍历了非图框实体）。以下是针对性的解决步骤：

1. 精准筛选目标图框LWPOLYLINE #

先锁定正确的图框对象，避免误选其他多段线：

; 替换"FRAME_LAYER"为你的图框实际图层名
(setq frame_ss (ssget "X" '((0 . "LWPOLYLINE") (8 . "FRAME_LAYER"))))
(if frame_ss
  (progn
    (setq cnt (sslength frame_ss))
    (repeat cnt
      (setq ent (ssname frame_ss (setq cnt (1- cnt))))
      ; 后续打印逻辑放在此处
    )
  )
)

这段代码只选中指定图层的LWPOLYLINE，从根源避免遍历错误导致的页数异常。

2. 循环内单独绑定当前图框 #

每次循环必须确保只有当前图框被选中，清除之前的选择集：

; 清空之前的选择集
(sssetfirst nil nil)
; 单独选中当前图框实体
(sssetfirst nil (ssadd ent))

3. 正确配置-plot的打印范围参数 #

不要依赖zoom视图调整范围，直接在-plot中指定**"对象"**作为打印范围，完全复现手动打印的交互流程（以中文CAD为例）：

(command "-plot"
        "是" ; 确认启动打印
        "DWG To PDF.pc3" ; 打印机配置文件
        "ISO A4" ; 替换为你的图框对应图纸尺寸
        "模型" ; 打印布局（若为布局空间则填写布局名）
        "对象" ; 关键：打印范围设为当前选中对象
        "是" ; 选择打印到文件
        "C:\\你的输出路径\\批量打印.pdf" ; PDF输出路径
        "是" ; 追加到现有文件（实现多页PDF的核心设置）
        "" ; 打印比例：按图纸空间自动缩放
        "居中" ; 居中打印
        "否" ; 不打印线宽（按需调整）
        "" ; 打印样式表（按需指定）
        "是" ; 确认执行打印
)

注：如果是英文CAD，将中文参数替换为对应英文（如"是"→"Y"，"对象"→"Objects"，"居中"→"Centered"）。

4. 避免视图重置干扰 #

不要在循环内使用REGEN，会打乱选择集和视图状态。若需刷新显示，用REDRAW替代，且放在选中图框之后：

(redraw ent 1) ; 高亮当前图框，确保CAD识别选中状态

5. 验证循环逻辑 #

打印前添加调试代码，确认每次循环处理的是正确图框：

(princ (strcat "正在打印图框ID：" (itoa (entget ent (list -1))) "\n"))

如果输出的实体数量是6，说明遍历逻辑正确；如果是116，说明ssget筛选条件有误，检查图层名或实体类型是否匹配。

内容的提问来源于stack exchange，提问作者Cho-YoungHo