[求助]：请问能不能在Lisp中Open打开DWG的图啊?

raohuan

请问能不能在Lisp中Open打开DWG的图啊?

snsj

最初由 raohuan 发布
[B]请问能不能在Lisp中Open打开DWG的图啊? [/B]

[php]
;;;|打开文件并激活文件的VBA方法
(defun opfile (dwgname)   
    (vl-cmdf "vbastmt" (strcat "AcadApplication.Documents.Open (\"" dwgname "\")"))
  )
************************************************************************
;;;|打开文件的vla方法
(defun opfile (fl)
  (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fl :VLAX-TRUE))
)
[/php]

urljit

snsj：给个通俗的解答，好吗？

lsjjm

或者:
(defun opendwg (dwgname)               
  (setq doc (vla-get-documents (vlax-get-acad-object)))
  (setq dwgdoc (vla-open doc dwgname))
  (vla-activate dwgdoc)
)

CADghost

楼上的，能解释一下你的具体内容吗？

raohuan

谢谢各位老大！问题解决了^_^
不好意思！还有一个问题想请教：我一次打开了几张图，在处理完一些命令后，怎样才能关闭其中一张呢？

fylinwater

snsj   你的第二个方法好像有问题
打开图形后图形变为了只读
P.S.  楼上

2. 
   
3. ;; (dd_ColseThisFile)
   
4. ;;  关闭图形
   
5. (defun dd_ColseThisFile ( /  item cur)   
   
6.   (vlax-for item (vla-get-documents (vlax-get-acad-object))
   
7.     (if ( = (vla-get-active item) :vlax-false)
   
8.        (princ);;(vla-close item :vlax-false) ;; 可以关闭全部
   
9.       (setq cur item)
   
10.     )
    
11.   )
    
12.   (vla-sendcommand cur  "_.CLOSE " )
    
13.   )
    
14. 【、
    

<br /> ;; (dd_ColseThisFile)<br /> ;;  关闭图形<br /> (defun dd_ColseThisFile ( /  item cur)    <br />   (vlax-for item (vla-get-documents (vlax-get-acad-object))<br />     (if ( = (vla-get-active item) :vlax-false)<br />        (princ);;(vla-close item :vlax-false) ;; 可以关闭全部<br />       (setq cur item)<br />     )<br />   )<br />   (vla-sendcommand cur  "_.CLOSE " )<br />   )<br /> 【、<br />

JOSDENNIS

fylinwater  你的程序可不可以改進少少. 就是關閉是不存盤關閉的.

shisj

我都看不懂，看来要好好提高一下了

fylinwater

不过发现用这样的关闭和保存的函数在文档启动时无法执行，（执行了但是没有效果）
还得用其他办法了

P.S. 保存图形的函数

2. 
   
3. (defun dd_SaveThisFile ()   
   
4.   (vlax-for item (vla-get-documents (vlax-get-acad-object))
   
5.     (if ( = (vla-get-active item) :vlax-false)
   
6.        (princ);;(vla-close item :vlax-false)
   
7.       (setq cur item)
   
8.     )
   
9.   )
   
10.   (vla-sendcommand cur  "_.QSAVE " )
    
11.   )
    

<br /> (defun dd_SaveThisFile ()    <br />   (vlax-for item (vla-get-documents (vlax-get-acad-object))<br />     (if ( = (vla-get-active item) :vlax-false)<br />        (princ);;(vla-close item :vlax-false)<br />       (setq cur item)<br />     )<br />   )<br />   (vla-sendcommand cur  "_.QSAVE " )<br />   )<br />

darkblue

那要实现局部加载，应该怎么办？

雪山飞狐(lzh)

局部加载用ObjectDBx实现

darkblue

斑主，我对ObjectDBx了解很少，能不能详细介绍一下啊。谢谢了先！！！

雪山飞狐(lzh)

ObjectDBX有两种版本，一种是完全不需要AutoCAD，可单独运行，但它只能通过VC++来开发。

另外一种是ActiveX。可以在VB、VBA、及VL中使用，它可以做到在打开AutoCAd的情况下不打开图形而对图形进行编辑。

通过VBA的智能提示可以了解ObjectDbx提供的功能

基本与Document类相似，但要弱一些

不能调用选择集

不能使用Save方法

在VBA中引用ObjectDBx类
键入下列代码
Sub t4()
Dim a As AxDbDocument
Set a = Application.GetInterfaceObject("ObjectDBX.AxDbDocument")
a.


End Sub
再键入a.通过智能提示了解ObjectDBx类

darkblue

那打开以后是什么样子呢？好像不能在autocad的窗口里显示，也好像不能往里面写东西