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

zmeng · 发表于 2004-8-5 15:36:00

程序我实在写不下去了，帮帮我吧！！！(关于文档切换、打印的设置)我身边也没有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 " 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 · 发表于 2004-8-5 17:44:00

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

zmeng · 发表于 2004-8-6 09:40:00

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

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

发表回复

精选推荐