请教乐筑天下版主

baozhiliang · 发表于 2002-7-23 15:10:00

请问乐筑天下总版主，您的这个程序怎样使用，真的能实现对未打开文档操作吗？
现在我想对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.")
      )
   )
)
)

请教乐筑天下版主

发表回复

精选推荐