程序我实在写不下去了，帮帮我吧！！！

zmeng

程序我实在写不下去了，帮帮我吧！！！(关于文档切换、打印的设置)我身边也没有VL的书，哪位有空帮我一下，我以前从写过关于文档方面的程序！！！谢谢了！ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ObjectDCL_LoadArx ()
(if (not (member "objectdcl.arx" (arx)))
(arxload "objectdcl.arx" "ObjectDCL.arx not found.")
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:hp5000(/ dwg_list num docs doc_open)
(VL-LOAD-COM)
(ObjectDCL_LoadArx)

(setq dwg_list(Odcl_MultiFileDialog
(list "AutoCAD Files|*.dwg;*.dxf"
)
"Select the AutoCAD file(s) Print to 12F-HP5000-1(A3)"
":\Drawings"
));setq (setq num 0)
(repeat(length dwg_list)
(setq docs (vla-get-documents (vlax-get-acad-object))))
(setq odwg (vla-open docs (nth num dwg_list)))
(vla-put-activedocument (vlax-get-acad-object) odwg)
;以下是写不出来的部分................
;(setq clayout(vla-item(vla-get-layouts(vla-get-activedocument (vlax-get-acad-object)))"Model"))
;(vla-put-plottype clayout acextents)
;(vla-put-standardscale clayout acScaleToFit)
(VLA-PLOTTODEVICE (VLA-GET-PLOT (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))) "\\\\tpts13\\12F-hp5000-1")
;;.....................到这为止.
(setq num (1+ num))
)

meflying

不要将打开的文档设到当前文档（记得我这样说过，就是没有人看），open 返回的odwg就是你后面需要操作DOC对象（即代替你程序中(vla-get-activedocument .......)，而且，你应该将vla-get-activedocument ....返回的对象放到一个变量里，后面调用这个变量就可以了，不要每次都通过函数返回吧。。。），就是所有要使用DOC对象的地方你只要使用odwg变量就可以了

zmeng

谢谢你了，我知道了！！！！！！！！！