[求助]：熟悉vla-get-Documents的高手帮帮我

LUCAS

你認為函數放進去就能用,那我的例子這不要引用.....(版權所有)

aidraft

你把下面的这个LSP文件命名为Batchpro.lsp连同附件process.zip解开后的process.dvb一起放在搜索路径中，记得把你自己的函数插入func里。加载batchpro.lsp, 命令batchpro运行。
[PHP]
(princ "\nType \"Batchpro\" To Use:")
(vl-load-com)
(defun c:BatchPro (/ dir filelst cnt)
  (setq dir (getstring "\nInput Directory: "))
  (setq filelst (vl-directory-files dir "*.dwg" 1))
  (setq cnt (1- (length filelst)))
  (foreach fil filelst
      (princ (strcat "\n正在处理文件" fil "\n请等待……"))
      (Process (strcat dir fil))
      (princ (strcat "\n文件" fil "处理完毕。还有" (itoa cnt) "个文件需要处理。"))
      (setq cnt (1- cnt))
    ) ;foreach
  (princ)
  ) ;defun
;;----------------------------------
(defun Process (fn / users4_hold)
  (vl-load-com)
  (setq users4_hold (getvar "USERS4"))
  (setvar "USERS4" fn)
  (if (not (member "Process" (VxGetLoadedVbaProjs)))
    (vla-LoadDVB Gb:AcO (findfile "Process.dvb")))
  (command "vbarun" "Process")
  (setvar "USERS4" users4_hold)
  (princ)
)
;;这里是你的函数
(defun func ()
;;;  (command "chprop" (SSGET "X") "" "c" 1 "")
  (command "zoom" "E")
)
; -- Function VxGetLoadedVbaProjs
; Returns a list of all loaded VBA-Project names.
; Copyright:
;   2000 MENZI ENGINEERING GmbH, Switzerland
(defun VxGetLoadedVbaProjs  (/ AllPrj IndCnt PrjLst)
  (or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
  (setq AllPrj (vlax-get-property
                 (vla-get-VBE Gb:AcO)
                 'VbProjects
                 )
        IndCnt 1
        )
  (repeat (vla-get-Count AllPrj)
    (setq PrjLst (cons
                   (vla-get-Name (vla-Item AllPrj IndCnt))
                   PrjLst
                   )
          IndCnt (1+ IndCnt)
          )
    )
  (reverse PrjLst)
  )
[/PHP]

梦断江南

具体问题具体分析。。。

aidraft

最初由 梦断江南 发布
[B]具体问题具体分析。。。 [/B]

对啊，这就是我想问清楼主要干什么的原因。

aeo

vba可以做的，用vla基本都可以.

每vla-open一个图，得到它的名称，以后对这名称操作.

aidraft

我公司有一个现成HTTP打印程序，很长，写得不错。后来我就是用上面的方法改成能批量HTTP打印，不用重写该函数，省却不少时间。而且通过对文件对象的操控实现一些功能不容易。比如输出前有时需要把一些图元的draw order 调到上层。

qshxn

十分感谢，谢谢！
可是文件打开的时候有问题，
VBA里fname为空；没有得到值；
能在帮我一次么？这是怎么回事？

aidraft

不会啊，前面SETVAR以给USERS4 赋值

qshxn

wo mingbai le ,xiexie !:)