안녕하세요
여러개의 Dwg file 을 “PDF”file 로 보내고 싶습니다.
(1) 번은 VB 에서 명령이고,
(2) 번은 리습 내용입니다.
(1) VB 에서 lisp을Loading 해서 “TT”를 시행 시키려고 합니다.
그런데 “tt”가 실행되지 않습니다.
하지만 도면이 열려있는 상태에서 command 란에 “TT” 를 입력하면 PDF fle 을 만듭니다.
많은 도면을 계속 지켜보고 “TT” 입력시킬 수도 없고 ㅠ,ㅠ
무슨 문제 인가요?
부탁 좀 드리겠습니다.
(1)
AcadCmd “(load ” & “””c:/temp/temp””” + “)”
AcadCmd “tt”
(2) c:temptemp.lsp
;;;————————–
(defun c:tt()
(vMtoPSet)
(command “-export” “PDF” “e” “n” dd)
(princ “-exportted to pdf”)
)
;;;————————–
(defun vMtoPSet()
(vl-load-com)
(setq dd (strcat “c:/temp/pdf/” (vl-filename-base (getvar “dwgname”)) “_svec”))
(setq LayObj (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
(vla-put-StyleSheet LayObj “PID_BM_COLOR.ctb”)
(vla-put-ConfigName LayObj “DWG To PDF.pc3”)
)