天下第三 发表于 2008-5-8 14:02:00

DBX问题

<p><font size="2"><font face="宋体"><font color="#003300">论坛已有：<p><font size="2"><font face="宋体"><font color="#003300">&nbsp;<a title="《利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块》
作者：龙龙仔
发表于：2003-7-25 9:58:00
最后发贴：好程序，可以好..." href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884">利用ObjectDbx技术在当前图形中插入其它未打开的图</a>形中的图块</font></font></font></p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884</a></p><p><font size="2"><font face="宋体"><font color="#003300">那么，反向操作如何进行，即：<p><font size="2"><font face="宋体"><font color="#003300">把当前图形中的BLOCK插入其它未打开的图形中</font>
                                                                                        </font></font></p></font></font></font></p><p><font size="2"><font face="宋体"><font color="#003300">把当前图形中的BLOCK插入其它未打开的图形中</font>
                                                        </font></font></p></font></font></font></p><p><font size="2"><font face="宋体"><font color="#003300">&nbsp;<a title="《利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块》
作者：龙龙仔
发表于：2003-7-25 9:58:00
最后发贴：好程序，可以好..." href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884">利用ObjectDbx技术在当前图形中插入其它未打开的图</a>形中的图块</font></font></font></p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884</a></p><p><font size="2"><font face="宋体"><font color="#003300">那么，反向操作如何进行，即：<p><font size="2"><font face="宋体"><font color="#003300">把当前图形中的BLOCK插入其它未打开的图形中</font>
                                                        </font></font></p></font></font></font></p><p><font size="2"><font face="宋体"><font color="#003300">把当前图形中的BLOCK插入其它未打开的图形中</font>
                        </font></font></p>

danxingpen 发表于 2008-5-8 14:11:00

同样的函数copyobjects,,,,只不过里面的参数改动下:<br/><font color="red">(</font><font color="blue">vla-copyobjects</font>    rdwg<br/>    <font color="red">(</font><a target="_black" href="../object/autolisp/vlax-safearray-fill.htm"><font color="blue">vlax-safearray-fill</font></a><br/>      <font color="red">(</font><a target="_black" href="../object/autolisp/vlax-make-safearray.htm"><font color="blue">vlax-make-safearray</font></a><br/>        vlax-vbobject<br/>        '<font color="red">(</font><font color="green">0</font> . <font color="green">0</font><font color="red">)</font><br/>      <font color="red">)</font><br/>      <font color="red">(</font><a target="_black" href="../object/autolisp/list.htm"><font color="blue">list</font></a> SB<font color="red">)</font><br/>    <font color="red">)</font><br/>    <font color="red">(</font><font color="blue">vla-get-modelspace</font> dbxdwg<font color="red">)</font><br/>  <font color="red">)</font><br/>

龙龙仔 发表于 2008-5-8 17:02:00


;;(DBX-COPYBLOCKTO (findfile "d:/dwg/12345.dwg") "123")
;;注意:dwgname圖檔不能在打開狀態
(defun DBX-COPYBLOCKTO (DWGNAME    BLKNAME    /   BLOCKS
   DBXDOC    *ACAD*   BLKACADDOCUMENT
   CURBLOCKS
         )
(setq *ACAD*      (vlax-get-acad-object)
ACADDOCUMENT (vla-get-activedocument *ACAD*)
CURBLOCKS    (vla-get-blocks ACADDOCUMENT)
BLK      (vla-item CURBLOCKS BLKNAME)
DBXDOC      (vla-getinterfaceobject
         *ACAD*
         (strcat "ObjectDBX.AxDbDocument."
          (substr (getvar "acadver") 1 2)
         )
       )
)
(vla-open DBXDOC DWGNAME)
(setq BLOCKS (vla-get-blocks DBXDOC))
(vla-copyobjects
    ACADDOCUMENT
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbobject '(0 . 0))
      (list (vla-item CURBLOCKS BLKNAME))
    )
    BLOCKS
)
(vla-saveas DBXDOC DWGNAME)
(vlax-release-object DBXDOC)
)

citykunan 发表于 2008-5-9 15:35:00

<p>龙兄总有惊人之举 ：）</p>

天下第三 发表于 2008-5-9 17:08:00

本帖最后由 作者 于 2008-5-9 17:09:52 编辑 <br /><br /> <p>原来是要先<font color="#ff0000">(</font><font color="#0000ff">vla-open</font> DBXDOC DWGNAME<font color="#ff0000">)</font><br/>再<font color="#ff0000">(</font><font color="#0000ff">vla-get-blocks</font> DBXDOC<font color="#ff0000">)</font><font color="#ff0000">)</font></p><p><font color="#ff0000">谢谢龙龙仔！！！</font><br/>&nbsp;&nbsp; </p>

davide888 发表于 2013-11-20 15:55:30

龙龙仔 发表于 2008-5-8 17:02 static/image/common/back.gif


不知道为什么，我用不了，谁可以告诉我。“未找到主键”
页: [1]
查看完整版本: DBX问题