PDF作成の自動化・省力化 [6] (CADのPDF化 : LISPスクリプト部分)

[5]で作成したSdsTest.dllの関数をLISPから利用する例

---------------------------------------------------------------------------

(defun c:pdfprint(
  / ctrlsaveas pdfpath hprocess pdfwriter ret)
 
  (setq ctrlsaveas "D:\\..........\\CtrlSaveas.exe")  ; 「PDF作成の自動化・省力化 [3]」で作成
  (setq pdfpath "D:\\........\\PDFファイル名.pdf")  ; 出力ファイルパス
 
  (setq pdfwriter "いきなりPDF Professional")
  ;(setq pdfwriter "クセロPDF2")
 
  (xload "SdsTest")    ; SdsTest.dllをロードする
 
  ; CtrlSaveas.exe起動
  (setq hprocess (sdstest_createprocess ctrlsaveas pdfpath 30 pdfwriter))
  ; 印刷実行
  (command "-print" "yes" "" pdfwriter "" "M" "L" "No" "" "" "" "" "" "No" "Yes" "No" "No" "Yes")
  ; 印刷終了を待つ
  (setq ret (sdstest_waitforprocess hprocess 5))
  (if (= ret 0)
    (progn
      (if (/= (findfile pdfpath) nil)
        (print (strcat "PDFが作成されました : " pdfpath))
      )
    )
  )
  (if (= ret 1)
    (print "PDF作成がタイムアウトしました")
  )
  (print "終わり")
 
  (xunload "SdsTest")
)

---------------------------------------------------------------------------
このスクリプトによって現在開いているCAD図面をPDF化することができる。

[実行結果の例]
: pdfprint
sdstest_createprocess: D:\*****\CtrlSaveas.exe "D:\*****\XXXXX.pdf" 30 "いきなりPDF Professional"
プロセスハンドル=648
648
: -print
詳細な印刷環境設定 <Yes>/No: yes
レイアウト名を入力 or [?] <Model>:
出力デバイス名を入力 or [?] <いきなりPDF Professional>: いきなりPDF Professional
用紙サイズを入力 or [?] <A3>:

(途中省略)

印刷結果をファイルに出力 Yes/<No>: No
印刷を開始します <Yes>/No: Yes
プロセスハンドル=648
プロセスが正常に終了しました。
"PDFが作成されました : D:\\*****\\XXXXX.pdf"
"終わり"
"SdsTest"

===========================================================================
今まで制作してきたコードをシェイプアップした上で実運用に乗せてみますが、果たして現場でうまくいくだろうか？？