请教明经版主

baozhiliang

请问明经总版主，您的这个程序怎样使用，真的能实现对未打开文档操作吗？
现在我想对300多张图纸进行块提取操作，能在不打开图纸的情况下把图纸中所有块用WBLOCK写出吗？
LISP也可以利用ObjectDBX对未打开的图形进行操作
(vl-load-com)

(setq *objectdbx* "ObjectDBX.AxDbDocument")

(defun RegServer (server)
   (startapp  
      "regsvr32.exe"
      (strcat "/s \"" server "\"")
   )
)

;; Get CLSID from ProgID

(defun GetClassID (ProgID)
   (vl-registry-read  
      (strcat "HKEY_CLASSES_ROOT\\" progid "\\CLSID")
   )
)

;; Register ObjectDBX ActiveX services,  
;; if not already registered.

(defun RegisterObjectDBX ( / server)
   (cond
      (  (GetClassID *ObjectDBX*))  
      (  (not (setq server (findfile "AxDb15.dll")))
         (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)"))
      (t (regserver server)
         (or
            (GetClassID *ObjectDBX*)
            (alert "Error: Failed to register ObjectDBX ActiveX services.")
         )
      )
   )
)

mccad

baozhiliang