(DEFUN C:PO()
(setvar “cmdecho” 0)
(command “osmode” “33” “-PLOTSTAMP” “off” “”)
(setq prints “Haansoft PDF”)
(setq asize “A2”)
(setq asca “F”)
(setq pstyle “W”)
(command “-PLOT” “Y” “” prints asize “M” “L” “” pstyle pause pause asca “C” “” “” “” “” “” “” “” “”)
(command “osmode” “113”)
)
사용중인 pdf 저장용 리습입니다.
문제점이 한도면내에서 해당명령어를 사용하면
저장경로 지정하라고 뜨는데
이 창이 안뜨게 하는 방법과
저장시 파일이름을 미리 스트링으로 받아서 저장되게 하고 싶은데
잘되지 않네요..(두번째 사용시 이미 사용중인 이름이라고 덮어쓰겠냐고 물어봐서…)
pdf 한글 플롯의 한계일까요?
공유
도움이 되시도록 조합했습니다.
(defun c:@pdf_Pl(/ Obj doc lay plt n) ; pdf 출력
(setq Obj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument Obj))
(setq lay (vla-get-ActiveLayout doc))
(setq plt (vla-get-Plot doc))
(vla-put-ConfigName lay “DWG to PDF.pc3”)
(vla-put-StyleSheet lay “가늘게.ctb”)
(vla-put-StandardScale lay acScaleToFit)
(vla-put-CenterPlot lay T)
(vla-put-PlotType lay AcWindow)
(vla-GetPaperSize lay 297 210)
;(vla-put-CanonicalMediaName lay “ISO A4 (297.00 x 210.00 MM)” )
(vla-put-PlotRotation lay 0)
(setq n 0)
(while
(setq p1 (reverse (cdr (reverse (getpoint “인쇄영역점:”)))))
(setq p2 (reverse (cdr (reverse (getcorner p1 “대각선점:”)))))
(vlax-invoke lay ‘setwindowtoplot p1 p2)
; plot publish – BACKGROUNDPLOT 설정값
; 0 ( 전경 전경 )
; 1 ( 배경 전경 )
; 2 ( 전경 배경 )
; 3 ( 배경 배경 )
(setvar “BACKGROUNDPLOT” 0)
(vla-PlotToFile plt (strcat “test” (itoa n)))
(setvar “BACKGROUNDPLOT” 2)
(setq n (1+ n))
);while
);defun
xcsh 님 덕분에 pdf 저장 리습은 완벽히 완성되었습니다.