LISP也可以利用ObjectDBX对未打开的图形进行操作

mccad

1. (vl-load-com)
   
2. 
   
3. (setq *objectdbx* "ObjectDBX.AxDbDocument")
   
4. 
   
5. (defun RegServer (server)
   
6.    (startapp
   
7.       "regsvr32.exe"
   
8.       (strcat "/s \"" server "\"")
   
9.    )
   
10. )
    
11. 
    
12. ;; Get CLSID from ProgID
    
13. 
    
14. (defun GetClassID (ProgID)
    
15.    (vl-registry-read
    
16.       (strcat "HKEY_CLASSES_ROOT\\" progid "\\CLSID")
    
17.    )
    
18. )
    
19. 
    
20. ;; Register ObjectDBX ActiveX services,
    
21. ;; if not already registered.
    
22. 
    
23. (defun RegisterObjectDBX ( / server)
    
24.    (cond
    
25.       (  (GetClassID *ObjectDBX*))
    
26.       (  (not (setq server (findfile "AxDb15.dll")))
    
27.          (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)"))
    
28.       (t (regserver server)
    
29.          (or
    
30.             (GetClassID *ObjectDBX*)
    
31.             (alert "Error: Failed to register ObjectDBX ActiveX services.")
    
32.          )
    
33.       )
    
34.    )
    
35. )

(vl-load-com)<br /> <br /> (setq *objectdbx* "ObjectDBX.AxDbDocument")<br /> <br /> (defun RegServer (server)<br />    (startapp <br />       "regsvr32.exe"<br />       (strcat "/s \"" server "\"")<br />    )<br /> )<br /> <br /> ;; Get CLSID from ProgID<br /> <br /> (defun GetClassID (ProgID)<br />    (vl-registry-read <br />       (strcat "HKEY_CLASSES_ROOT\\" progid "\\CLSID")<br />    )<br /> )<br /> <br /> ;; Register ObjectDBX ActiveX services, <br /> ;; if not already registered.<br /> <br /> (defun RegisterObjectDBX ( / server)<br />    (cond<br />       (  (GetClassID *ObjectDBX*)) <br />       (  (not (setq server (findfile "AxDb15.dll")))<br />          (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)"))<br />       (t (regserver server)<br />          (or<br />             (GetClassID *ObjectDBX*)<br />             (alert "Error: Failed to register ObjectDBX ActiveX services.")<br />          )<br />       )<br />    )<br /> )

highflybird

例如下面的例子，是对没打开的图形进行文字式样替换，在某些情况下很有用。

1. (defun c:ttt(/ cadVer name dbx styles)
   
2.   (setq CadVer (substr (getvar "acadver") 1 2))
   
3.   (setq name (strcat "ObjectDBX.AxDbDocument." CadVer))  
   
4.   (setq dbx (vlax-create-object name))                                 ;;创建dbx对象
   
5.   (vla-open dbx "D:/work/test.dwg")                                      
   
6.   (setq styles (vla-get-TextStyles dbx))
   
7.   (vlax-for n styles
   
8.     (if (/= (vla-get-bigfontfile n) "")
   
9.       (vla-put-bigfontfile n "hztxt.shx")                                        ;;替换成hztxt.
   
10.     )
    
11.     (vla-put-fontfile n "c:/windows/fonts/SimFang.TTF")               ;;替换成仿宋体
    
12.   )
    
13.   (vla-saveas dbx "D:/work/test.dwg")
    
14.   (princ)
    
15. )
    

(defun c:ttt(/ cadVer name dbx styles)<br />   (setq CadVer (substr (getvar "acadver") 1 2))<br />   (setq name (strcat "ObjectDBX.AxDbDocument." CadVer))  <br />   (setq dbx (vlax-create-object name))                                 ;;创建dbx对象<br />   (vla-open dbx "D:/work/test.dwg")                                      <br />   (setq styles (vla-get-TextStyles dbx))<br />   (vlax-for n styles<br />     (if (/= (vla-get-bigfontfile n) "")<br />       (vla-put-bigfontfile n "hztxt.shx")                                        ;;替换成hztxt.<br />     )<br />     (vla-put-fontfile n "c:/windows/fonts/SimFang.TTF")               ;;替换成仿宋体<br />   )<br />   (vla-saveas dbx "D:/work/test.dwg")<br />   (princ)<br /> )<br />

ahwx0814

老大，举个例子吧，看不懂怎么用，怎么才能得到其他cad文件的指针呢？

Gu_xl

回复 ahwx0814 的帖子

去我的博客看看吧，里面有个"利用ObjectDBX技术不打开CAD文件替换文字"例子!

xuexicad1960

回复 Gu_xl 的帖子

对不打开cad图形文件，替换其中的文字的问题，我已找了几天了，今天看到Gu_xl 的博客里有“利用ObjectDBX技术不打开CAD文件替换文字"，试了试出现下面的情况
命令: gxl-RePlaceText1
程序编制byGu_xl,2010年7月
输入源文字：西安80坐标系
输入要替换的文字：北京1954
继续输入替换文字[Yes/No]<Yes>:n
替换方式[仅替换文本<0>/仅替换块中文本<1>/全部替换<2>]仅替换文本<0>0
；错误: no function definition: GXL-FILE-GETFOLDER
不知道是为什么 ，还请Gu_xl 帮助看看，谢谢！

Gu_xl

回复 xuexicad1960 的帖子

去这下载通用函数：
http://u.sohu.com/download/10/13009522634827141620161

xuexicad1960

回复 Gu_xl 的帖子


通用函数已下载，程序也正常运行了，无论我用哪个替换方式0、1、2最后都显示共完成0处文本替换！莫非程序对文本样式还有要求吗？
为了说明问题，附文字样图一份。
由于沟通出现问题，图廓外坐标系\ 高程系有时要进行变更，所以出现了替换文字的问题。由于刚学习autolisp，解决这样的问题还很困难，到这里来学习。

xuexicad1960

"利用ObjectDBX技术不打开CAD文件替换文字"，出现上面的情况是我  输入源文字：西安80坐标系 这里出现失误，原图是   西安80坐标系。  我理解错了少输入了个“。”   源文字要输入一整句，不可输入部分。谢谢Gu_xl 版主的程序，我收藏了。

millermin

想参照你的程序，编个不开文件，关闭图层。技术上可行吗？谢谢。

flowerson

Gu_xl 发表于 2011-3-30 19:24
回复 ahwx0814 的帖子

去我的博客看看吧，里面有个"利用ObjectDBX技术不打开CAD文件替换文字"例子!

版主，你的博客怎么是锁定状态的？