[LISP]請教一個LISP打印程序問題！！！

alan_cmh

我是一名繪圖員，嚐試在編制一些小程序來提高AutoCAD的工作效率，近日在編制一個
小程序時遇到一個問題，請各位高手指教！
我廠是個家具廠，廠裡的習慣是先在一個文件裡面畫出主三視圖，然後在同一個文件
畫出配件圖，配件已經根據名稱分好圖層，便於拷貝出來畫配件圖，配件沒有進行縮
放而是對標准圖框進行縮放來適配配件，我想編一個程序，在事先指定好打印配件文
件A4.pc3後，只需框遷圖框便可用不同的比例打印A4幅面的圖紙，可是下面的程序好
像總是出毛病，特別是(del_tempview) 函數，只要運行它，就會導致AutoCAD 2004
退出，不知何故，請各位指點一下！
(程序默認打印方向為Landscape,　默認打印類型表為monchrome,可以更改)

;c:pw3
;have a4.pc3 file
;can specify polt dirction and polt style table (acad or monchrome)                 ;

;;;;;;;;;;;;;;;;;;;
;;(get_plot_color)

(defun get_plot_color ()
  (initget "Acad Monochrome")
  (setq        plot_color
         (getkword
           "\nSpecify plot style table [Acad/Monochrome] <M>:"
         )
  )
  (if (null plot_color)
    (setq plot_color "Monochrome")
  )
  (get_plot_set)
)

;;;;;;;;;;;;;;;;;;;;;;;;
;;(get_plot_dir)

(defun get_plot_dir ()
  (initget "ortrait Landscape" )
  (setq        plot_dir
         (getkword
           "\nSpecify plot dirction [Portrait/Landscape] <L>: "
         )
  )
  (if (null plot_dir)
    (setq plot_dir "Landscape")
  )
    (get_plot_set)
)

;;;;;;;;;;;;;;;;;;;;;;;;
;;(get_plot_window)
(defun get_plot_window ()
  ;;save a tmpview for plot windows
  (setq pwPT1 (getpoint "\nSpecify plot window first corner:"))
  (setq pwPT2
         (getcorner "\nSpecify plot window opposite corner:" Pwpt1)
  )
  (command "-VIEW" "Window" "tmpview" pwPT1 pwPT2)
)

;;;;;;;;;;;;;;
(defun del_tempview ()
  (command "-VIEW" "Delete" "tmpview")
)

;;;;;;;;;;;;;;;;
(defun start_plot()
(command "-plot"   "y"       "model"         "a4.pc3"  "a4"
           "Millimeters"       plot_dir         "no"           "view"    "tmpview"
           "fit"     "center"  "yes"         plot_color "yes"     ""
           ""             ""               "Y"
          )
)

;;
;;(get_plot_set)
(defun get_plot_set()
(psave)save sys var
   (Setvar "cmdecho" 0)
  (initget "c d")
  (setq        plot_set
         (getkword
           "\n Change plot setting [Dirction/depend Color]:"
         )
  )
;;;  ;
  (if (null plot_set)
    (get_plot_window)
    (start_plot)
  )
;;;  ;
  (if (= plot_set "c")
    (get_plot_color)
  )
;;;  ;
   (if (= plot_set "d")
    (get_plot_dir)
  )

  (prestore);restore sys var
  (princ)
  )


;;
(defun c:pw3 ();Specify
   (setq plot_dir "Landscape")
(setq plot_color "Monochrome")
(get_plot_set)
(get_plot_window)
  (start_plot)
;(del_tempview)
  (princ)
  )

meflying

程序很乱，下面这个函数未给出（这个还不重要）
(prestore)
这句话也不知道什么意思
(psave)save sys var

还有这里，如果选择了C或D，将执行(start_plot)，都已经还是打印了，那后面的语句还有什么意义吗？而且你的主函数里还有打印，这样不就两次打印了。建议这里使用cond函数
  (if (null plot_set)
    (get_plot_window)
    (start_plot)
  )

BDYCAD

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11253

alan_cmh

不好意思,應該是 (psave);save sys var，少了一個注釋符號";"
(psave)是一個全局保存系統變量函數
(prestore)是一個全局恢復系統變量函數

下面是我以前的打印程序，只能指定打印方向,不能指定打印類型表,
因為在A4打印方式下，我經常需要更改的只有打印方向和打印類型表
我的目的是啟動命令後，直接回車後可窗選打印，或指定兩種設置,可以
直接告訴我應該怎麼實現的源碼嗎？

關於(del_tempview)函數會導致AutoCAD退出還請指教，謝謝!!!


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun get_plot_window ()
  ;;save a tmpview for plot windows
  (setq pwPT1 (getpoint "\nSpecify plot window first corner:"))
  (setq pwPT2
         (getcorner "\nSpecify plot window opposite corner:" Pwpt1)
  )
  (command "-VIEW" "Window" "tmpview" pwPT1 pwPT2)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun del_tempview ()
  (command "-VIEW" "Delete" "tmpview")
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:pw ()
  (psave)
  (Setvar "cmdecho" 0)
  (initget "ortrait Landscape")
  (setq        plot_dir
         (getkword
           "\nSpecify plot dirction [Portrait/Landscape] <L>: "
         )
  )
  (if (null plot_dir)
    (setq plot_dir "Landscape")
  )
(get_plot_window)
  (command "-plot"   "y"       "model"         "a4.pc3"  "a4"
           "Millimeters"       plot_dir         "no"           "view"    "tmpview"
           "fit"     "center"  "yes"         ""           "yes"     ""
           ""             ""               "Y"
          )
                                        ;(del_tempview)
  (prestore)
  (princ)
)

秋枫

试试这个，也许比你期望的更多～～～：）

使用上如有不明可以按“帮助"

这个程序是用vl的activex功能写的，与你的命令行方式完全不同。

alan_cmh

謝謝秋楓，但我由於工作原因，用的是繁體系統，不能正確顯示BatchPlot對話框，能不能給個
英文的

秋枫

这是源代码，你打开batchplot.dcl文件自己改改吧～～～～～

龙龙仔

發現程序問題
(defun SetDefaultValues ()
    (setq
      dclvalues        (list (cons 'Frame "LzFrameRadio")
                      (cons 'BlockName (cdr (assoc 2 (tblnext "block" T))))

;;-----------------------------------------------------
;;由於圖檔中第一個圖塊為無名圖塊
;;指令: (tblnext "block" t)
;;((0 . "BLOCK") (2 . "*U3") (70 . 1) (4 . "") (10 0.0 0.0 0.0) (-2 . <圖元名稱:
;;400f5120>))
;;由於(2 . "*U3")以至下列程序出錯
;; (defun SetDlgValues        ()
;;      (if blocklist
;;        (progn (start_list "BlockNameEdit")
;;               (foreach blockname blocklist (Add_list blockname))
;;               (end_list)
;;        )
;;     )
;;      (if (getvalue 'Blockname)
;;這裡出錯(set_tile "BlockNameEdit" (itoa (vl-position (getvalue 'Blockname) Blocklist)))
;;     )
;;-----------------------------------------------------
                  
                      (cons 'Output "lotRadio")
                      (cons 'FrameCount 0)
                      (cons 'PlotScale "Auto")
                      (cons 'Copies "1")
                      (cons 'LayoutPrefix "BP_")
                      (cons 'PlotFilePrefix (strcat (vl-filename-base (getvar "dwgname")) "_"))
                      (cons 'PlotFileFolder (getvar "dwgprefix"))
                      (cons 'DeletePlotFile "0")
                      (cons 'DeleteLayout "0")
                      (cons 'MSLineScale "1")
                      (cons 'SelectedFrames nil)
                )
    )
  )


由於程序使用了(vl-catch-all-apply 'SetDlgValues nil)
錯誤訊息便沒有了,這個BUG可真花了點時間!

秋枫

龙龙仔发表于2003-12-3 7:52:00發現程序問題
(defun SetDefaultValues ()
     (setq
       dclvalues (list (cons &#39;Frame &quot;LzFrameRadio&quot;)
                       (cons &#39;BlockName (cdr (assoc 2

非常感谢～～～送你鲜花～

我调试程序的时候的确是去掉vl-catch-all-apply调的
加个这个是为了出错处理方便一点，可以保证出错后后面的代码仍然可以得到执行，比如(command "U" "end")之类的必须执行的代码，使用传统的方式很麻烦。

我个人很喜欢这个函数, 有点类似其它高级语言中的“异常(exception)”处理。

aeo000000

我用objectdcl也写了一个



上面的女人是把图拽进去预览的