캐드 위치도 자동으로 캡쳐 해주는 위습이 따로 존재 하나요 ?

실행하시기전에 D드라이브에 JpgPlot 이라는 이름의 폴더를 하나 만들고 실행하세요.

(defun c:JJJ ( / point1 point2 Ploter paperDir PlotLt ps)

(setq point1 (getpoint “n인쇄범위 선택 : “))

(setq point2 (getcorner point1 “n다음 선택 : “))

(setq Ploter “PublishToWeb JPG.pc3”) ;;플롯장치

(setq paperDir “P”) ;;용지방향 가로

(setq ps “acad.ctb”)   ;;펜스타일

(setq PlotLt “yes”)   ;;객체 선가중치 사용 여부

(setq Fname “D:\JpgPlot\JPG”)  ;; 저장경로및 파일명

      (setq d (rtos (getvar “cdate”) 2 7))  ;;저장파일명 겹치지않게 현재 -시분초-로 저장

      (setq d1 (substr d 5 4)

            t1 (substr d 10 7)

            r1 (strcat d1 “-” t1))

(setq Fname (strcat Fname r1) )

(setq Fname (strcat Fname “.jpg”) )

(command “-PLOT” “Y” “” Ploter “VGA (480.00 x 640.00 픽셀)” paperDir “N” “Window” point1 point2 “Fit” “C” “Y” ps  PlotLt “A” fname “N” “Y”  )