[求助]：如何在一张图纸里查询另一张图纸里的变量

zk_hisen · 发表于 2004-11-25 07:58:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何在一张图纸里查询另一张图纸里的变量？有些变量都是保存在图面里的，那么我打开一张图纸时，同时又需要得到另一张图纸里的某个变量，如何查询？请教各位高手！

LUCAS · 发表于 2004-11-25 12:26:46

某个变量---請確實指出是那個变量!

zk_hisen · 发表于 2004-11-25 15:07:36

比如说，我打开drawing1.dwg，它的cecolor是白色，这时我在drawing1.dwg里插入drawing2.dwg，drawing2.dwg里的cecolor是红色，这个时候我如何通过命令或函数在drawing1.dwg里查询drawing2.dwg里的cecolor变量。因为cecolor变量是保存为图文件中的。好多变量也都是保存在图文件中的，我想知道。

LUCAS · 发表于 2004-11-26 08:27:00

這是一些ObjectDBX的限制, ObjectDBX不能存取變數,但有外掛acadX.arx則可以存取變數(但現在要收費了)
Here are some assumptions that I am going on from my results. If anyone can
verify them I would appreciate it.
1.) You cannot use setvariable or getvariable functions in the ObjectDBX
file, but commands that depend on these settings adopt the values from the
activedocument in the AutoCAD application.
2.) There is no ActiveUCS, active layer, or active color in the ObjectDBX
file, and these again are adopted from the activedocument in the AutoCAD
application.
3.) You can only use the saveas method to save the ObjectDBX file.
4.) You cannot use the close method to close an ObjectDBX file.
5.) When you use the open method on the dbx_document (opened ObjectDBX file)
it closes the existing file without saving it. ObjectDBX essentially works
with only 1 drawing file at a time.
;;;Do not use (vla-* methods with ObjectDBX.AxDbDocument, or any
;;;other object in the AxDb15Lib type library.
;;;(vla-*) methods are intended for use with AutoCAD's Automation
;;;model, not with ObjectDBX (the two are very similar, leading
;;;one to believe that (vla-*) methods apply to both, but in fact,
;;;they don't, and in cases where (vla-*) methods do work, it is
;;;purely by accident).
;;有外掛acadX.arx可用下列程序-------未更新---我也沒有acadX.arx 8-(
(defun REGISTEROBJECTDBX (/ DBXSERVER) ;by Tony Tanzillo
(cond
((vl-registry-read
"HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
)
)
((not (setq DBXSERVER (findfile "AxDb15.dll")))
(alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
)
(t
(startapp "regsvr32.exe" (strcat "/s "" DBXSERVER """))
(or
(vl-registry-read
"HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
)
(alert
"Error: Failed to register ObjectDBX ActiveX services."
)
)
)
)
)
(arxload "acadx.arx" NIL)
(defun DBXGETVAR (DWGNAME VARNAME / XDB DBXDOC *ACAD* RES)
(if (not (REGISTEROBJECTDBX))
(exit)
)
(vl-load-com)
(setq *ACAD* (vlax-get-acad-object))
(setq DBXDOC
(vla-getinterfaceobject
*ACAD*
"ObjectDBX.AxDbDocument"
)
)
(setq XDB
(vla-getinterfaceobject
*ACAD*
"AcadX.Database"
)
)
(vlax-invoke-method DBXDOC 'open DWGNAME)
(vlax-put-property
XDB
'DATABASE
(vlax-get-property DBXDOC 'DATABASE)
)
(setq RES
(vlax-invoke-method
XDB
'GETVARIABLE
VARNAME
)
)
(vlax-release-object XDB)
(vlax-release-object DBXDOC)
RES
)
(DBXGETVAR "11.DWG""CECOLOR")

這是一些ObjectDBX的限制, ObjectDBX不能存取變數,但有外掛acadX.arx則可以存取變數(但現在要收費了) 
 
Here are some assumptions that I am going on from my results.  If anyone can 
verify them I would appreciate it. 
1.) You cannot use setvariable or getvariable functions in the ObjectDBX 
file, but commands that depend on these settings adopt the values from the 
activedocument in the AutoCAD application. 
2.) There is no ActiveUCS, active layer, or active color in the ObjectDBX 
file, and these again are adopted from the activedocument in the AutoCAD 
application. 
3.) You can only use the saveas method to save the ObjectDBX file. 
4.) You cannot use the close method to close an ObjectDBX file. 
5.) When you use the open method on the dbx_document (opened ObjectDBX file) 
it closes the existing file without saving it.  ObjectDBX essentially works 
with only 1 drawing file at a time. 
;;;Do not use (vla-* methods with ObjectDBX.AxDbDocument, or any 
;;;other object in the AxDb15Lib type library. 
;;;(vla-*) methods are intended for use with AutoCAD's Automation 
;;;model, not with ObjectDBX (the two are very similar, leading 
;;;one to believe that (vla-*) methods apply to both, but in fact, 
;;;they don't, and in cases where (vla-*) methods do work, it is 
;;;purely by accident). 
 
 
;;有外掛acadX.arx可用下列程序-------未更新---我也沒有acadX.arx   8-( 
(defun REGISTEROBJECTDBX (/ DBXSERVER)        ;by Tony Tanzillo 
  (cond 
    ((vl-registry-read 
       "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID" 
     ) 
    ) 
    ((not (setq DBXSERVER (findfile "AxDb15.dll"))) 
     (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)") 
    ) 
    (t 
     (startapp "regsvr32.exe" (strcat "/s "" DBXSERVER """)) 
     (or 
       (vl-registry-read 
         "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID" 
       ) 
       (alert 
         "Error: Failed to register ObjectDBX ActiveX services." 
       ) 
     ) 
    ) 
  ) 
) 
(arxload "acadx.arx" NIL) 
(defun DBXGETVAR (DWGNAME VARNAME / XDB DBXDOC *ACAD* RES) 
   (if (not (REGISTEROBJECTDBX)) 
    (exit) 
  ) 
 
  (vl-load-com) 
  (setq *ACAD* (vlax-get-acad-object)) 
  (setq        DBXDOC 
         (vla-getinterfaceobject 
           *ACAD* 
           "ObjectDBX.AxDbDocument" 
         ) 
  ) 
  (setq        XDB 
         (vla-getinterfaceobject 
           *ACAD* 
           "AcadX.Database" 
         ) 
  ) 
  (vlax-invoke-method DBXDOC 'open DWGNAME) 
  (vlax-put-property 
    XDB 
    'DATABASE 
    (vlax-get-property DBXDOC 'DATABASE) 
  ) 
  (setq        RES 
         (vlax-invoke-method 
           XDB 
           'GETVARIABLE 
           VARNAME 
         ) 
  ) 
  (vlax-release-object XDB) 
  (vlax-release-object DBXDOC) 
  RES 
) 
 (DBXGETVAR "11.DWG""CECOLOR")

xxxyzxx · 发表于 2004-11-26 08:54:30

LUCAS 的方法是好，但我觉得不直观，能否有工具能对比两个DWG中的不同的变量，并能打印出来（从纸面看可以选自己想保留的）？

LUCAS · 发表于 2004-11-26 12:34:58

You cannot use setvariable or getvariable functions in the ObjectDBX(XREF-------BLOCK)

zk_hisen · 发表于 2004-11-26 14:14:00

那就是AutoCAD公司在定制开发标准的时候就加以限制了？就没有一点办法了吗？版主说的我不是很明白，小弟只是刚入门，很想就在lisp里面找到答案。我真的很急呀。帮帮忙啦，各位高人！！！

LUCAS · 发表于 2004-11-29 08:16:32

;;當然有辦法,衹是得到另一張圖的變數有甚麼用??
;;雖然objectdbx沒有保存SetVariable和讀取GetVariable系統變量的方法
;;但它有DXFIn和DXFOut兩個方法,轉個彎就可取得系統變量

zk_hisen · 发表于 2004-11-29 22:57:02

感谢斑竹的关注，其实小弟想编写一个简单的面积计算程序，要求对每一个封闭图形进行面积计算，然后再把它们分别作为外部参照插到总图中，再次计算所有面积之和。因为以前看到有篇文章说CAD的每个图文件可以保存15个用户定义变量，所以我就想把单个图形的面积保存。然后在总图中查询这个变量，再求和。恳求斑竹告知小弟lisp中实现方法，因为目前我还没有接触VL打头的程序设计。
抑或斑竹有针对小弟问题更好的解决办法，也请不吝赐教！谢谢了。

LUCAS · 发表于 2004-11-30 08:22:55

;;提問要以目的為基準,勿聽傳言!! 8-)
;;保存資料不一定要變數,xdata,xrecord,ldata,SummaryInfo會更方便
;;你早說出來可能問題就解決了!
;;在summaryinfo第一欄記錄面積資料
;;FOR R2005+
;;By 龍龍仔(LUCAS)
(defun C:INFO (/ SUM KEY VALUE)
(setq SUM (vla-get-summaryinfo
(vla-get-database
(vla-get-activedocument (vlax-get-acad-object))
)
)
)
(if (> (vla-numcustominfo SUM) 0)
(vla-setcustombyindex SUM 0 "面積" 1200) ;寫資料
(vla-addcustominfo SUM "面積" 1200) ;寫資料
)
(vla-getcustombyindex SUM 0 'KEY 'VALUE) ;讀資料
(list KEY VALUE)
)
;;讀xref---summaryinfo第一欄記錄資料
(defun C:READ_XREF_INFO (/ OBJ SUM KEY VALUE)
(setq OBJ (vlax-ename->vla-object (car (entsel "\nSelect xref: "))))
(if (vlax-property-available-p OBJ 'PATH)
(progn
(setq
SUM (vla-get-summaryinfo
(vla-get-xrefdatabase
(vla-item
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-get-name OBJ)
)
)
)
)
(if (> (vla-numcustominfo SUM) 0)
(progn
(vla-getcustombyindex SUM 0 'KEY 'VALUE)
(list KEY VALUE)
)
)
)
)
)

;;提問要以目的為基準,勿聽傳言!!  8-) 
;;保存資料不一定要變數,xdata,xrecord,ldata,SummaryInfo會更方便 
;;你早說出來可能問題就解決了! 
;;在summaryinfo第一欄記錄面積資料 
;;FOR R2005+ 
;;By 龍龍仔(LUCAS) 
(defun C:INFO (/ SUM KEY VALUE) 
  (setq        SUM (vla-get-summaryinfo 
              (vla-get-database 
                (vla-get-activedocument (vlax-get-acad-object)) 
              ) 
            ) 
  ) 
  (if (> (vla-numcustominfo SUM) 0) 
    (vla-setcustombyindex SUM 0 "面積" 1200) ;寫資料 
    (vla-addcustominfo SUM "面積" 1200)        ;寫資料 
  ) 
  (vla-getcustombyindex SUM 0 'KEY 'VALUE) ;讀資料 
  (list KEY VALUE) 
) 
 
;;讀xref---summaryinfo第一欄記錄資料 
(defun C:READ_XREF_INFO        (/ OBJ SUM KEY VALUE) 
  (setq OBJ (vlax-ename->vla-object (car (entsel "\nSelect xref: ")))) 
  (if (vlax-property-available-p OBJ 'PATH) 
    (progn 
      (setq 
        SUM (vla-get-summaryinfo 
              (vla-get-xrefdatabase 
                (vla-item 
                  (vla-get-blocks 
                    (vla-get-activedocument (vlax-get-acad-object)) 
                  ) 
                  (vla-get-name OBJ) 
                ) 
              ) 
            ) 
      ) 
      (if (> (vla-numcustominfo SUM) 0) 
        (progn 
          (vla-getcustombyindex SUM 0 'KEY 'VALUE) 
          (list KEY VALUE) 
        ) 
      ) 
    ) 
  ) 
)

zk_hisen · 发表于 2004-11-30 12:43:50

好感激版主，你真是个热心的好版主。谢谢！我好好学习学习。我还没有接触过VAL－类的程序呢。我只是初学者，但是我有信心成为高手。向版主致敬！！！

账号		自动登录	找回密码
密码			立即注册

[求助]：如何在一张图纸里查询另一张图纸里的变量

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块