[求助]：能否不打开图纸而知道其图幅大小

hhxh

能否不打开图纸而知道其图幅大小，或知道其LIMITS，plt文件好象可以

cy956

不打开？即使是打开的:

除非你严格按limit画图，否则limit无用；
除非你每个dwg只画一张图，否则也很难硬求图幅大小；

以前见过一个lsp，先定义了几个图框，
便于不同图框之间的切换，copy....

长清

最初由 hhxh 发布
[B]能否不打开图纸而知道其图幅大小，或知道其LIMITS，plt文件好象可以 [/B]

如果安装有ACAD,最简单的办法就是用VB来实现，不需要知道LIMITS化，不需要画图框。具体办法就是用GetBoundingBox计算每一个实体的box,用迭代的办法来计算图形的最左下角和最右上角。主要应用是成批打印。我很懒，程序你自己写。

实际上，还是打开了图形，只不过是用了acad对象的visible属性而没有打开图形界面而已，可以节省一点时间。

老蔡说的图框办法不错，特别是在一个文件中画了多个图，条件是图框是你自己画的。

明经通道

其实LISP及VBA均可以通过ObjectDBX在不打开图形的情况下对图形进行操作(哦，打开AutoCAD就可以，不必打开图形)。
明经社区有一贴有介绍。
http://www.mjtd.com/bbs/ShowAnno ... otID=977&ID=977

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

<br /> (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 /> )<br /> <br />

xkcjf_1219

高，实在是高，全是高人啊，让我大开眼界！佩服佩服！！