[讨论]：如何将图框打印设置顺序

它山之石

[php]
(defun A1 ()
  (command
    "-plot"                                ;命令行执行打印
    "y"                                        ;是否需要详细打印配置？[是(Y)/否(N)] <否>: y
    "model"                                ;输入布局名或 [?] <模型>:
;;;下面为用户已定义的打印机配置名称
    "tds300_hy.pc3"                        ;输入输出设备的名称或 [?] <\\printer3\HP LaserJet 5000 Series PCL 6>:
;;;以下为图纸尺寸，必须与配置文件中相同，如只输入“A0”会出错
    "A1 (860.00 x 610.00 毫米)"                ;输入图纸尺寸或 [?] <A3>:
    "M"                                        ;输入图纸单位 [英寸(I)/毫米(M] <毫米>:
    (if        (= ro "Y")                        ;输入图形方向 [纵向(P)/横向(L)] <横向>:
      "p"
      "L"
    ) ;_ 结束if
    "N"                                        ;是否反向打印？[是(Y)/否(N)] <否>:
    "w"                                        ;输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <窗口>:
    pt1                                        ;输入窗口的左下角 <-1375541.640277,50438.400149>:
    pt2                                        ;输入窗口的右上角 <-1184391.640277,139538.400149>:
    "1=100"                                ;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <Fit>:
;;;以下为打印偏移值，必须输入全称“居中打印(c)”或“圆心”或“0，0”等，如只输入“C”会出错。
    "0,0"                                ;输入打印偏移 (x,y) 或 [居中打印(C)] <圆心>:
    "y"                                        ;是否按样式打印？[是(Y)/否(N)] <是>:
;;;以下为用户已定义的打印样式表
    "tds300_hy.ctb"                        ;输入打印样式表名称或 [?] (输入 . 表示无) <HP5000_HY.CTB>:
    "y"                                        ;是否打印线宽？[是(Y)/否(N)] <是>:
    "As displayed"                        ;输入着色打印设置 [按显示(A)/线框(W)/消隐(H)/渲染(R)] <按显示>:
    "y"                                        ;是否打印到文件 [是(Y)/否(N)] <N>:
;;;以下当打印到文件时确定文件名，调试程序用。
    ""
    "y"                                        ;是否保存对页面设置的更改 [是(Y)/否(N)]? <N>
    "y"                                        ;是否继续打印？[是(Y)/否(N)] <Y>: Y
  ) ;_ 结束command
) ;_ 结束defun
[/php]