[求助]：请教用lisp怎样修改以下的选项？

gjt1244

如图所示：

gjt1244

如图

lijiao

(command ".plot" ............)

xyp1964

可参考偶的PDF打印程序：
[php]
(defun c:pdf (/ pt1 pt2 ro)
  ;;(cmdla0)
  (setvar "ORTHOMODE" 0)
  ;;取消正交状态
  (prompt "\n\t生成A2幅面PDF彩色文件，线宽0.18")
  (pt-zw)
  (if (< (abs (- (car pt1) (car pt2)))
         (abs (- (cadr pt1) (cadr pt2)))
      )
    (setq ro "Y")
    (setq ro "N")
  )
  (command
    "-plot"
    "y"
    "model"
    "Adobe PDF.pc3";用户已定义的打印机配置名称
    "A2"
    "M"
    (if        (= ro "Y")
      "p"
      "L"
    )
    "N"
    "w"
    pt1
    pt2
    "fit"
    "c"
    "y"
    "acad-w015原色.ctb";用户已定义的打印样式表
    "y"
    "As displayed"
    "n"
    "y"
    "y"
  )
  ;;(cmdla1)
)
(defun pt-zw ()
  (setvar "OSMODE" 1)
  (setq        pt1 (getpoint "\n\t左下角（打印范围） : ")
        pt2 (getcorner pt1 "\n\t右上角（打印范围） : ")
  )
  (command "zoom" "w" pt1 pt2)
)
[/php]

gjt1244

最初由 xyp1964 发布
[B]可参考偶的PDF打印程序：
[php]
(defun c:pdf (/ pt1 pt2 ro)
  ;;(cmdla0)
  (setvar "ORTHOMODE" 0)
  ;;取消正交状态
  (prompt "\n\t生成A2幅面PDF彩色文件，线宽0.18")
  (pt-zw)
  (if (< (abs (- (ca... [/B]

谢谢楼主，收获不少，但你的这个lisp是用在模型空间打印的；
我们就常常要在图纸空间进行打印，可否有关于这方面的lisp？
另外想问一个问题：如果用lisp怎样切换到指定的图纸空间上？（存在多个图纸空间）
用 (setvar "tilemode" 0)只能切换到第一个图纸空间

xyp1964

"model" 改为 "布局1" "布局2"  ……

gjt1244

最初由 xyp1964 发布
[B]"model" 改为 "布局1" "布局2"  …… [/B]

谢谢指教，又学到东西了！但如果按照楼主的做法，虽然是改变了所要布局的打印配置，但说到底也不能切换到想到的图纸空间；
例如：我在模型空间执行lisp，需要改变了布局2的打印配置，但并不能切换到布局2，也就是执行完lisp后所在的仍然是模型空间而不是布局2；