plot:to-pdf

说明:打印

用法:

 (plot:to-pdf tufu zongheng pt1 pt2 file-name)

参数:tufu;zongheng;pt1;pt2;file-name

返回值:

示例:

(defun plot:to-pdf ( tufu zongheng pt1 pt2 file-name
		     / minpoint maxpoint oldosmode )
  "打印到PDF文件。参数： 图幅 纵横 第一点 第二点 输出文件名。"
  (cond
   (is-zwcad
    (if (null (and
	       (findfile (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDFzw.pc5"))
	       (findfile (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDFzw.pmp"))))
	(if (and (findfile (strcat (@:package-path "base")"VitalPDFzw.pc5"))
		 (findfile (strcat (@:package-path "base")"VitalPDFzw.pmp")))
	    (progn
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDFzw.pmp")
			    (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDFzw.pmp"))
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDFzw.pc5")
			    (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDFzw.pc5"))
	      )
	  (progn
	    (@::load-module 'pkgman)
	    (@::down-pkg-file (@:uri) "base/VitalPDFzw.pc5" @:*edition*)
	    (@::down-pkg-file (@:uri) "base/VitalPDFzw.pmp" @:*edition*)
	    (@::alert "下载PDF打印配置文件，请稍候...")
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDFzw.pmp")
			  (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDFzw.pmp"))
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDFzw.pc5")
			  (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDFzw.pc5"))
	    
	    (sleep 3)))))
   (is-gcad
    (if (null (and
	       (findfile (strcat(system:dir  (getvar "roamablerootprefix")) "Plot\\VitalPDFg.pc3"))
	       (findfile (strcat (system:dir (getvar "roamablerootprefix")) "Plot\\PMP\\VitalPDFg.pmp"))))
	(if (and (findfile (strcat (@:package-path "base")"VitalPDFg.pc3"))
		 (findfile (strcat (@:package-path "base")"VitalPDFg.pmp")))
	    (progn
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDFg.pmp")
			    (strcat (system:dir (getvar "roamablerootprefix")) "Plot\\PMP\\VitalPDFg.pmp"))
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDFg.pc3")
			    (strcat (system:dir (getvar "roamablerootprefix")) "Plot\\VitalPDFg.pc3"))
	      )
	  (progn
	    (@::load-module 'pkgman)	      
	    (@::down-pkg-file (@:uri) "base/VitalPDFg.pc3" @:*edition*)
	    (@::down-pkg-file (@:uri) "base/VitalPDFg.pmp" @:*edition*)
	    (@::alert "下载PDF打印配置文件，请稍候...")
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDFg.pmp")
			  (strcat(system:dir  (getvar "roamablerootprefix")) "Plot\\PMP\\VitalPDFg.pmp"))
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDFg.pc3")
			  (system:dir (strcat (getvar "roamablerootprefix")) "Plot\\VitalPDFg.pc3"))
	    
	    (sleep 3)))))
   ((null (and
	       (findfile (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDF.pc3"))
	       (findfile (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDF.pmp"))))
	(if (and (findfile (strcat (@:package-path "base")"VitalPDF.pc3"))
		 (findfile (strcat (@:package-path "base")"VitalPDF.pmp")))
	    (progn
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDF.pmp")
			    (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDF.pmp"))
	      (vl-file-copy (strcat (@:package-path "base") "VitalPDF.pc3")
			    (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDF.pc3"))
	      )
	  (progn
	    (@::load-module 'pkgman)
	    (@::down-pkg-file (@:uri) "base/VitalPDF.pc3" @:*edition*)
	    (@::down-pkg-file (@:uri) "base/VitalPDF.pmp" @:*edition*)
	    (@::alert "下载PDF打印配置文件，请稍候...")
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDF.pmp")
			  (strcat (getvar "roamablerootprefix") "Plotters\\PMP Files\\VitalPDF.pmp"))
	    (vl-file-copy (strcat (@:package-path "base") "VitalPDF.pc3")
			  (strcat (getvar "roamablerootprefix") "Plotters\\VitalPDF.pc3"))
	    
	    (sleep 3)))))
  
  (cond
   (is-zwcad (setq path-ctb (strcat (getvar "roamablerootprefix") "Printstyle\\")))
   (is-gcad (setq path-ctb (strcat (getvar "roamablerootprefix") "PrintStyles\\")))
   (t (setq path-ctb (strcat (getvar "roamablerootprefix") "Plotters\\Plot Styles\\"))))
  
  (if (null (findfile (strcat path-ctb (@:get-config 'base:ctb))))
      (progn
	(princ (strcat "没有发现打印样式表文件: " (@:get-config 'base:ctb) "\n 将使用 monochrome.ctb."))
	(@:set-config 'base:ctb "monochrome.ctb")
	))
  
  
  (push-var nil)
  (setvar "filedia" 0)
  ;;(command "ucs" "w")  (setvar "osmode" 0)

(setq minpoint (list (min (nth 0 pt1) (nth 0 pt2))
		       (- (min (nth 1 pt1) (nth 1 pt2)) 0.01)
		       0))
  (setq maxpoint (list (+ (max (nth 0 pt1) (nth 0 pt2)) 0.01)
		       (max (nth 1 pt1) (nth 1 pt2))
		       0))
  ;;(setq minpoint p1)(setq maxpoint p2)  ;;布局空间采用不同的方法  (if (= (getvar "ctab") "Model")
      (command "-plot" "y" "" (@:get-config 'base:plotter-pdf) tufu "M"
	       zongheng "n" "w" minpoint maxpoint "f" "c" "y" (@:get-config 'base:ctb) "y" "a"
	       file-name "n" "y" )
      (command "-plot" "y" "" (@:get-config 'base:plotter-pdf) tufu "M"
	       zongheng "n" "w" minpoint maxpoint "f" "c" "y" (@:get-config 'base:ctb) "y" "n" "n" "n"
	       file-name "n" "y" )

)
  (pop-var))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

plot:to-pdf

上传记录