(defun c:mypt ()
(setq ss (ssget '((0 . "LWPOLYLINE")(62 . 5))))
(setq ss-list (WJM_SS2LST ss))

(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)

)
(setq preferenceSel (vla-get-Preferences AcadObject))
(setq fileSel (vla-get-Files preferenceSel))

(setq filedir(vla-get-PrinterConfigPath fileSel));_打印機.
(setq plots (vl-directory-files filedir "*.pc3"))
(setq style (myp:get_properties plots))
(setq style (substr style 1 (- (strlen style) 4)))

(setq filedir(vla-get-PrinterStyleSheetPath fileSel));_打印樣式.
(setq plot-styles (vl-directory-files filedir "*.ctb"))
(setq plot (myp:get_properties plot-styles))
(setq plot (substr plot 1 (- (strlen plot) 4)))

(foreach en ss-list
(progn
(setq obj (vlax-ename->vla-object en))
(vla-getboundingbox obj 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(command "_.PLOT"
   "Y";_是否需要詳細打印配置？[是(Y)/否(N)] <否>: y
   "";_輸入布局名或 [?] <模型>:
   plot;_輸入輸出設備的名稱或 [?] <在 網管 上自動 HP LaserJet 5100 PCL 6>:
   "A3";_輸入圖紙尺寸或 [?] <A3>:
  
   "m";_輸入圖紙單位 [英寸(I)/毫米(M] <毫米>:
   "L";_輸入圖形方向 [縱向(P)/橫向(L)] <橫向>:
   "N";_是否反向打印？[是(Y)/否(N)] <否>:
   "W";_輸入打印區(qū)域 [顯示(D)/范圍(E)/圖形界限(L)/視圖(V)/窗口(W)] <范圍>: w
   pt1;_輸入窗口的左下角 <0.000000,0.000000>: 輸入窗口的右上角 <0.000000,0.000000>:
   pt2;_輸入窗口的右上角 <0.000000,0.000000>:
   "f";_輸入打印比例 (打印的 毫米=圖形單位) 或 [布滿(F)] <Fit>: fit
   "c";_輸入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
   "Y";_是否按樣式打印？[是(Y)/否(N)] <是>:
   style;_輸入打印樣式表名稱或 [?] (輸入 . 表示無) <hp5100.ctb>:
   "Y";_是否打印線寬？[是(Y)/否(N)] <是>:
   "N";_是否刪除隱藏線？[是(Y)/否(N)] <否>:
   "N" ;_是否打印到文件 [是(Y)/否(N)] <N>: y
   "Y";_是否保存模型選項卡的修改 .
   "Y";_是否繼續(xù)打印 .
   )
(princ "n*********************n")
)
)
)