cad批量页码lisp

nkmjg

  

1. (defun c:mypt ()
3. (setq ss (ssget '((0 . "LWPOLYLINE")(62 . 5))))
5. (setq ss-list (WJM采用SS2LST ss))
7. (setq AcadObject (vlax-get-acad-object)
9. AcadDocument (vla-get-ActiveDocument AcadObject)
11. mSpace (vla-get-ModelSpace AcadDocument)
13. )
15. (setq preferenceSel (vla-get-Preferences AcadObject))
17. (setq fileSel (vla-get-Files preferenceSel))
19. (setq filedir(vla-get-PrinterConfigPath fileSel));采用打印机.
21. (setq plots (vl-directory-files filedir "*.pc3"))
23. (setq style (myp:get采用properties plots))
25. (setq style (substr style 1 (- (strlen style) 4)))
27. (setq filedir(vla-get-PrinterStyleSheetPath fileSel));采用打印样式.
29. (setq plot-styles (vl-directory-files filedir "*.ctb"))
31. (setq plot (myp:get采用properties plot-styles))
33. (setq plot (substr plot 1 (- (strlen plot) 4)))
35. (foreach en ss-list
37. (progn
39. (setq obj (vlax-ename->vla-object en))
41. (vla-getboundingbox obj 'll 'ur)
43. (setq pt1 (vlax-safearray->list ll))
45. (setq pt2 (vlax-safearray->list ur))
47. (command "采用.PLOT"
49. "Y";采用是否需要详细打印配置？[是(Y)/否(N)] : y
51. "";采用输入布局名或 [?] :
53. plot;采用输入输出设备的名称或 [?] :
55. "A3";采用输入图纸尺寸或 [?] :
57. "m";采用输入图纸单位 [英寸(I)/毫米(M] :
59. "L";采用输入图形方向 [纵向(P)/横向(L)] :
61. "N";采用是否反向打印？[是(Y)/否(N)] :
63. "W";采用输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] : w
65. pt1;采用输入窗口的左下角 <0.000000,0.000000>: 输入窗口的右上角 <0.000000,0.000000>:
67. pt2;采用输入窗口的右上角 <0.000000,0.000000>:
69. "f";采用输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] : fit
71. "c";采用输入打印偏移 (x,y) 或 [居中打印(C)] <0.00,0.00>: c
73. "Y";采用是否按样式打印？[是(Y)/否(N)] :
75. style;采用输入打印样式表名称或 [?] (输入 . 表示无) :
77. "Y";采用是否打印线宽？[是(Y)/否(N)] :
79. "N";采用是否删除隐藏线？[是(Y)/否(N)] :
81. "N" ;采用是否打印到文件 [是(Y)/否(N)] : y
83. "Y";采用是否保存模型选项卡的修改 .
85. "Y";采用是否继续打印 .
87. )
89. (princ "n*********************n")
91. )
93. )
95. )

复制代码