欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

用數據庫管理AutoCAD的圖塊和實(shí)現查詢(xún)插入操作

主題詞：AutoCAD, 圖塊，數據庫，查詢(xún)

上海港口機械廠(chǎng) 劉啟衛

本文介紹一個(gè)用數據庫管理和實(shí)現查詢(xún)插入AutoCAD圖塊的方法。

問(wèn)題的提出

眾所周知，一個(gè)AutoCAD圖形中的圖塊BLOCK，可以用WBLOCK命令寫(xiě)到磁盤(pán)上成為DWG文件。磁盤(pán)上的DWG文件可以用INSERT命令插人到圖形中形成圖塊。管理圖塊，實(shí)際也就是管理DWG文件。

AutoCAD的INSERT插入圖塊功能十分有用，可以大大簡(jiǎn)化和加快繪圖的工作。當某個(gè)具體的AutoCAD二次開(kāi)發(fā)應用需要用大量的圖塊時(shí)，圖塊的命名和存放管理就需要費一些心思了。DOS文件名限制在8個(gè)字符，用來(lái)標識一個(gè)以圖塊描述的設計對象的標準代號往往不夠用，當然更談不上記錄圖塊的屬性性質(zhì)的數據了。而設計時(shí)經(jīng)常需要考慮和引用一個(gè)用圖塊描述的設計對象的屬性數據和完整的標準代號，名稱(chēng)，安裝和使用性能參數等等。一般來(lái)說(shuō)，設計任務(wù)常常需要以某些參數為準則選擇適當的以圖塊描述的設計對象插入圖中。例如：給一個(gè)電動(dòng)機配一個(gè)公稱(chēng)扭矩大于300N。m，許用轉速大于2800轉/分，軸孔直徑=32毫米的聯(lián)軸器。就是說(shuō)要按一定條件經(jīng)過(guò)查詢(xún)搜索，找到一個(gè)滿(mǎn)足要求的圖形用INSERT命令插入當前編輯的圖形形成圖塊BLOCK。最好設計者不必關(guān)心這個(gè)圖塊是存放在什么地方，只要按設計意圖指定需要什么樣的東西，就自動(dòng)從數據庫中把它選擇出來(lái)插到圖上。

解決問(wèn)題的途徑

上述功能可以在DOS或Windows環(huán)境下分別用幾種方法實(shí)現。在DOS環(huán)境下，需要把圖塊的屬性數據存入數據庫，把圖塊的文件訪(fǎng)問(wèn)路徑存入數據庫。在Windows環(huán)境下還可以把AutoCAD圖形文件作為OLE對象以鏈接或嵌入方式存入ODBC數據庫。要在DOS版或者Windows版AutoCAD環(huán)境中實(shí)現用LISP語(yǔ)言訪(fǎng)問(wèn)數據庫的功能。

在Windows版AutoCAD環(huán)境下可以利用AutoCAD提供的有關(guān)程序，利用Windows的DDE（動(dòng)態(tài)數據交換）功能實(shí)現訪(fǎng)問(wèn)ODBC數據庫。由于AutoCAD還不能直接從ODBC數據庫中用INSERT命令插入圖塊，因此如果用ODBC數據庫而且用了嵌入的存放方式，雖然可以把大量獨立的文件集中存放在一個(gè)大的數據庫中，但仍然要解決需要INSERT插人操作時(shí)，過(guò)濾掉OLE嵌入對象的圖元表現數據，把DWG文件數據輸出到一個(gè)臨時(shí)DWG文件中，然后才能用INSERT命令插入。而在AutoCAD環(huán)境中通過(guò)DDE途徑操縱ODBC數據庫，把OLE嵌入對象輸出到臨時(shí)文件中是困難曲折而且耗費資源的。

本文介紹的方法

本文介紹的方法是利用一個(gè)LISP語(yǔ)言訪(fǎng)問(wèn)DBASE/Foxpro數據庫的接口程序LISPBASE為支持手段實(shí)現的。在DOS環(huán)境下，圖塊以分立的DWG文件的形式存放，在數據庫中存放訪(fǎng)問(wèn)路徑。在Windows環(huán)境下，可以進(jìn)一步用OLE功能以鏈接或嵌人方式存放DWG文件，LISPBASE for Windows 提供一個(gè)專(zhuān)用函數解決OLE嵌人對象輸出到臨時(shí)文件的問(wèn)題。在數據庫中以嵌人方式存放DWG圖塊時(shí)，要把圖塊插入到當前編輯的圖形文件中還有一個(gè)途徑。就是直接讀取OLE對象數據，過(guò)濾掉OLE嵌入對象的圖元表現數據，把DWG文件的ENTITY數據用LISP語(yǔ)言提供的函數構造成BLOCK表并插入圖形文件中。這個(gè)方案的實(shí)現所需要的函數將在LISPBASE的新版本中提供。Windows環(huán)境方案的優(yōu)點(diǎn)是可以進(jìn)一步實(shí)現圖文并茂的工程文檔設計和管理集成系統。缺點(diǎn)是系統開(kāi)銷(xiāo)大，如果希望建立工程文檔設計和管理集成系統，微機應配備16兆內存。用DOS環(huán)境的方案優(yōu)點(diǎn)是速度快，開(kāi)銷(xiāo)小。唯一的缺點(diǎn)是無(wú)法利用Windows的OLE功能實(shí)現圖文并茂的工程文檔設計和管理集成系統。而這樣一個(gè)集成系統對一個(gè)小組以上規模的設計或生產(chǎn)單位的效益是十分顯著(zhù)的。

具體實(shí)現時(shí)需要預先準備好數據庫：

第一步。

設計和建立管理所有圖塊文件的數據庫。對于沒(méi)有采用OLE嵌入方式在數據庫中存放AutoCAD圖形的方案來(lái)說(shuō)，必須仔細考慮建立有條理的DOS子目錄結構準備存放AutoCAD圖形。每個(gè)子目錄下的圖形文件在200以下為好。管理所有圖塊文件的數據庫結構可以根據各單位的具體情況設計。例如可以設計成如下的結構：

Field Field Name Type Width Dec

1 DRAWING_ID Character 16

2 DESIGNER Character 6

3 DESIGNDATE Date 8

4 DRAW_SIZE Character 2

5 SCALE Character 5

6 WEIGHT Numeric 8 2

7 SIZE Character 20

8 PATH Character 32

9 PICTURE General 10

這個(gè)結構是針對Foxpro for Windows 2.5 設計的。使用了通用字段以OLE鏈接或嵌人對象的方式存放AutoCAD圖形的數據。如果不使用Windows版的Foxpro和AutoCAD，可以不建立這個(gè)通用字段。

利用LISPBASE數據庫接口可以在每建立一個(gè)圖塊后向數據庫填寫(xiě)必要的屬性數據和文件訪(fǎng)問(wèn)路徑。建立系列圖塊，可以充分利用市場(chǎng)上對AutoCAD二次開(kāi)發(fā)編制的各種參數設計和尺寸驅動(dòng)設計程序。

第二步。

針對每個(gè)圖塊系列，建立對應結構的屬性數據庫。例如：彈性圓柱銷(xiāo)聯(lián)軸器（JB108-60），可以設計如下結構：

Structure for database: JB108-60.DBF

Field Field Name Type Width Dec

1 型號 Character 8

2 許用扭矩 Numeric 6

3 許用轉速 Numeric 5

4 軸孔尺寸 Numeric 3

5 B Numeric 3

6 D Numeric 3

7 D1 Numeric 3

8 A Numeric 3

9 B1 Numeric 3

10 C Numeric 3

11 L1 Numeric 3

12 L2 Numeric 3

13 D3 Numeric 3

14 D4 Numeric 3

15 A1 Numeric 3

16 材料 Character 6

17 重量 Numeric 6 2

18 慣性矩 Numeric 6 3

19 Drawing_id Character 16

其中第19個(gè)字段Drawing_id是和圖形數據庫連接的關(guān)鍵字?？梢栽试S多個(gè)聯(lián)軸器公用一個(gè)圖塊。然后輸入數據。

第三步。

建立管理所有圖塊系列的目錄數據庫。數據庫結構建議如下：

Structure for database: BLOCKS.DBF

Field Field Name Type Width Dec

1 DATABASE Character 16

2 STANDARD Character 32

3 NAME Character 32

4 SLIDE_FILE Character 32

5 PICTURE General 10

6 PATH Character 32

其中 DATABASE 字段用于存放各圖塊系列數據庫名的全路徑名；STANDARD 和 NAME 字段用于存放標準和名稱(chēng)；SLIDE_FILE 字段用于存放AUTOCAD的SLIDE文件全路徑或在SLB庫中的名稱(chēng)。

使用時(shí)，1。首先打開(kāi)目錄數據庫選擇要插入的圖塊系列標準——也就是選擇要打開(kāi)的數據庫；2。打開(kāi)選擇的數據庫；3。讀取數據庫結構；4。用對話(huà)框交互式確定各子段的查找條件準則；5。用條件準則查找數據庫；6。如果找到，則通過(guò)Drawing_ID字段在圖塊數據庫中找到圖塊，并插入到當前的圖形中。如果采用了OLE嵌入方式存放圖塊，則輸出到一個(gè)臨時(shí)文件中，然后執行插入操作。

使用LISPBASE數據庫接口函數的部分LISP程序如下：

; 調用 USE 函數，打開(kāi) JB108-60 屬性數據庫，DB_ID 是數據庫編號。

（USE DB_ID "F:\\STANDARD\\JB108-60.DBF")

；調用 LOCATE 函數

；查找滿(mǎn)足條件準則的記錄——也就是：

; 公稱(chēng)扭矩大于300N.m，許用轉速大于2800轉/分，軸孔直徑=32毫米的聯(lián)；軸器。

；REC_ID 是存放記錄號的變量。

(SETQ REC_ID

(LOCATE DB_ID "許用扭矩>300 .AND.

許用轉速>2800 .AND.

軸孔直徑=32"

)

)

；找到滿(mǎn)足上述條件的記錄號在變量 REC_ID 中，如 REC_ID 大于 0

；就是找到了。

；然后就可以調用 GETREC 函數讀取該記錄，放在一個(gè)LISP表REC中，以；便繼續處理。

(SETQ REC (GETREC DB_ID ))

)

具體程序省略。感興趣的讀者可來(lái)信聯(lián)系索取。對于比較大的單位，需要使用ORACLE，SYBASE，INGRESS，SQL-SERVER，等數據庫的情況，可以使用另外一個(gè)AutoCAD Lisp 語(yǔ)言環(huán)境下的ODBC數據庫接口--LISPODBC。由于現在幾乎所有的數據庫都支持ODBC，因此利用LISPODBC可以不受數據庫的限制。

數據庫和AutoCAD圖形屬性標注與材料表的集成

主題詞：AutoCAD, 屬性，材料表，數據庫

上海港口機械廠(chǎng) 劉啟衛

本文介紹一個(gè)使AutoCAD圖形中的屬性標注標注和材料表與數據庫保持一致的方法。用AutoCAD環(huán)境下的LISPBASE數據庫接口實(shí)現的。

問(wèn)題的提出

眾所周知，一個(gè)AutoCAD圖形中往往會(huì )有許多具有屬性性質(zhì)的標注，如裝圖的零件號標注，外購件的型號數量，材料表，標題欄等等。這些數據往往需要同時(shí)存放在管理數據庫中，因此出現一個(gè)問(wèn)題：如何及時(shí)地，便捷地，可靠地使AutoCAD圖形中的屬性數據和數據庫中的數據保持一致。這一問(wèn)題解決得不好往往會(huì )因差錯造成很大的經(jīng)濟損失。另外，最好還能完全自動(dòng)地，對設計者透明地解決這一問(wèn)題。 AutoCAD提供了兩個(gè)方法解決這種問(wèn)題。一個(gè)是把屬性數據寫(xiě)入一個(gè)文本文件后再用數據庫的Append 命令加入數據庫；另外一個(gè)是用ASE功能解決。前一方法不方便，很難解決圖形和管理數據庫的雙向更新問(wèn)題。后一方法主要是交互式地操作的，不便用LISP編程。均有一定局限性。

解決對圖形進(jìn)行編輯后自動(dòng)存入數據庫問(wèn)題的方法

本文介紹的方法是利用一個(gè)LISP語(yǔ)言訪(fǎng)問(wèn)DBASE/Foxpro數據庫的接口程序LISPBASE為支持手段實(shí)現的。方法如下：

1。在AutoCAD環(huán)境下，對需要輸入數據庫并和數據庫保持一致的屬性數據，設計適當的結構，用Attribute圖塊的方式插入圖形。如裝配圖上的零件號標注和外購件標注，不要用Text圖形元素畫(huà)到圖上，而應該針對具體對象設計Attribute圖形元素，然后插入圖中。

2。編制一個(gè)提取所有屬性圖形元素的Lisp語(yǔ)言程序，在需要時(shí)（結束工作）掃描圖形，把特定的Attribute圖形元素收集到Lisp表中，然后利用LispBase數據庫接口提供的函數，打開(kāi)管理數據庫，對數據庫進(jìn)行更新。

注意數據庫中應該設計一個(gè)存放AutoCAD圖形元素 Handle 的子段，把每個(gè)Attribute的Handle記錄在數據庫中，以便在數據庫中修改數據，然后更新圖形中的Attribute數據。

解決對數據庫修改以后自動(dòng)更新CAD圖形問(wèn)題的方法

1。在ACAD.LSP自動(dòng)執行程序中編寫(xiě)查找數據庫中圖紙編號的程序。

2。打開(kāi)一個(gè)已經(jīng)存在的圖形時(shí)，自動(dòng)執行在數據庫中查找圖紙編號；如果找到，自動(dòng)讀出該圖有關(guān)的屬性數據和材料表，根據每個(gè)Attribute的Handle對圖形中Attribute進(jìn)行更新。

上述方法對標題欄，和明細表同樣適用。而保持圖紙和管理數據庫內容的一致是圖檔管理系統中極為重要的必不可少的功能。

具體程序省略。感興趣的讀者可來(lái)信聯(lián)系索取。對于比較大的單位，需要使用ORACLE，SYBASE，INGRESS，SQL-SERVER，等數據庫的情況，可以使用另外一個(gè)AutoCAD Lisp 語(yǔ)言環(huán)境下的ODBC數據庫接口--LISPODBC。由于現在幾乎所有的數據庫都支持ODBC，因此利用LISPODBC可以不受數據庫的限制。

主題詞：AutoCAD, 數據庫，工程設計圖表

上海港口機械廠(chǎng) 劉啟衛

設計工作的一個(gè)重要內容就是翻閱查找存放在工程設計手冊和各種標準中的五花八門(mén)的數據表和圖表。這些數據圖表記錄了設計工作必須參照引用的數據和遵守的規范。如何正確和快速地查找引用需要的數據，對提高設計工作的質(zhì)量，標準化程度和工作效率十分重要。本文介紹一個(gè)在A(yíng)utoCAD環(huán)境下實(shí)現的快速翻閱工程設計圖表的通用方法。

各行各業(yè)的工程設計手冊和各種標準中的五花八門(mén)的數據表和圖表有一個(gè)共同特點(diǎn)，就是它們數量很多，格式紛雜，數據表往往附帶有插圖。在A(yíng)utoCAD顯示屏幕上翻閱這類(lèi)圖表需要顯示插圖和可以滾動(dòng)的數據表格。數據表可以選擇幾種存放形式：1。ASCII碼文件-采用LISP語(yǔ)言讀取文件數據。2。直接存放于LISP語(yǔ)言的表中。3。數據庫文件。其中第3種形式只要有了通用的數據庫操縱手段，就有利于數據共享和維護數據的一致性；采用通用的數據庫接口簡(jiǎn)化讀取數據的過(guò)程；有利于利用數據庫特有的索引功能提高從大量數據中進(jìn)行查找的速度；利用數據庫實(shí)現指定搜索條件的查找；維護管理龐雜的數據圖表。因此第3種形式最為理想。在A(yíng)utoCAD環(huán)境內顯示工程設計手冊的圖形一般采用SLD圖形文件方式。SLD圖形文件有兩種存放方式：1。單獨的SLD文件。2。多個(gè)SLD文件裝人SLB庫中。SLB庫形式節省存儲空間且管理容易，但建庫稍有不便。這兩種形式圖形的具體實(shí)現方法在A(yíng)utoCAD的各種手冊教材中都有，本文不再介紹。

在A(yíng)utoCAD屏幕上顯示工程手冊的數據表和圖形一般采用對話(huà)框來(lái)實(shí)現。在A(yíng)utoCAD環(huán)境內顯示對話(huà)框要用對話(huà)框控制語(yǔ)言編制一個(gè)DCL文件和一段填寫(xiě)顯示對話(huà)框數據的LISP語(yǔ)言程序。如果針對工程手冊的每一個(gè)圖表編制一個(gè)DCL對話(huà)框文件，一個(gè)填寫(xiě)顯示對話(huà)框數據的LISP語(yǔ)言程序，則工作量很大，占用磁盤(pán)空間很大，不便于管理。因為工程設計手冊上的圖表雖然格式各異，但也有它們的共同特點(diǎn)?？梢岳盟鼈兊墓餐攸c(diǎn)簡(jiǎn)化程序的編制。筆者編寫(xiě)了一個(gè)通用的用于翻閱工程設計圖表的LISP語(yǔ)言程序--HANDBOOK。實(shí)現的要點(diǎn)是：1。數據存放在DBASE/FOXBASE/FOXPRO格式的數據庫中。2。建立一個(gè)管理所有數據庫的目錄數據庫。3。每次啟動(dòng)翻閱數據庫的程序時(shí)，首先翻閱圖表目錄數據庫，選定某個(gè)圖表后，動(dòng)態(tài)地產(chǎn)生針對不同表格的DCL對話(huà)框語(yǔ)言文件以控制對話(huà)框的顯示外觀(guān)。4。利用我們自己開(kāi)發(fā)的LISPBASE數據庫接口操縱所有數據庫。5。圖形存放在SLB庫中并用目錄數據庫進(jìn)行管理。HANDBOOK源程序如下：

;;;;;;;;;;;;;;;;;;;;; HANDBOOK ;;;;;;;;;;;;;;;;;;;;;;

(defun handbook( / dcl_id templist rlist tempstr name)

(setq dcl_id (load_dialog "handbook"))

(if (not(new_dialog "handbook" dcl_id)) (exit))

(if (null use) (xload"lispbase"))

(setq hbook (use 0 "handbook.dbf"))

(if (/= hbook 0) (exit))

(setq templist (list))

(while (/= (eof hbook) 1)

(setq rlist (getrec hbook))

(setq tempstr (strcat (nth 1 rlist) (nth 2 rlist)))

(setq templist (append templist (list tempstr)))

(skip hbook 1)

)

(start_list "tablelist")

(mapcar 'add_list templist)

(end_list)

(action_tile "accept" "(setq name (select_row))(done_dialog)(princ)")

(action_tile "cancel" "(done_dialog)(unload_dialog dcl_id)(princ)")

(action_tile "tablelist" "(setq name (select_row))(done_dialog)(princ)")

(start_dialog)

(shut hbook)

(unload_dialog dcl_id)

(if (> (length name) 0) (display name))

)

;;;display table;;;;

(defun display( name / tablename filename s l i title str f r rlist

templist tempstr dcl_id sld_name)

(setq tablename (packname (car name)) filename (packname (cadr name)))

(setq fileid (use 0 Filename))

(if (/= fileid 0) (progn (alert "Can't open data table...")(exit)))

(setq s (stru fileid))

(setq l (length s) i 0)

(setq title "" str "------------------------------------")

(while (< i l)

(progn

(setq m (atoi (substr (nth i s) 14 2)))

(if (> m 10)

(setq title (strcat title (substr (nth i s) 1 10) (substr str 1 (- m 10)) " "))

(setq title (strcat title (substr (nth i s) 1 m ) " "))

)

(setq i (1+ i))

)

)

(setq f(open "table.dcl" "w"))

(write-line "table:dialog{" f)

(write-line (strcat " label=\"" tablename "\";") f)

(if (/= (findfile (packname(nth 2 name))) nil)

(progn

(write-line " :boxed_row {" f)

(write-line " :image {" f)

(write-line " key=\"picture1\";" f)

(write-line " color=0;" f)

(write-line " height=10;" f)

(write-line " width=12;" f)

(write-line " }" f)

(if (/= (findfile (packname(nth 3 name))) nil)

(progn

(write-line " :image {" f)

(write-line " key=\"picture2\";" f)

(write-line " color=0;" f)

(write-line " height=10;" f)

(write-line " width=12;" f)

(write-line " }" f)

(if (/= (findfile (packname(nth 4 name))) nil)

(progn

(write-line " :image {" f)

(write-line " key=\"picture3\";" f)

(write-line " color=0;" f)

(write-line " height=10;" f)

(write-line " width=12;" f)

(write-line " }" f)

)

)

)

)

(write-line " }" f)

)

)

(write-line " :list_box{" f)

(write-line (strcat " label=\"" (substr title 1 74) "\";") f)

(write-line " key=\"table\";" f)

(setq m (+ (strlen title) 2))

(if (< m 30) (setq m 30))

(setq testname name)

(if (or (> m 74) (/= (findfile (packname(nth 4 name))) nil)) (setq m 74))

(write-line (strcat " width=" (itoa m) ";") f)

(write-line " }" f)

(write-line " ok_cancel;" f)

(write-line "}" f)

(close f)

(setq dcl_id (load_dialog "table"))

(if (not(new_dialog "table" dcl_id)) (exit))

(setq templist (list) str " ")

(while (= (eof fileid) 0)

(setq tempstr "")

(setq rlist (getrec fileid) i 0)

(while (< i l)

(cond ((= (substr (nth i s) 12 1) "C")

(setq tempstr (strcat tempstr (nth (1+ i) rlist) " ")))

((= (substr (nth i s) 12 1) "N")

(progn

(setq r (rtos (nth (1+ i) rlist) 2 (atoi (substr (nth i s) 17 1))))

(setq sl (strlen r))

(setq tempstr (strcat tempstr (substr str 1 (- (atoi (substr (nth i s) 14 2)) sl)) r " "))

)

)

)

(setq i (1+ i))

)

(setq templist (append templist (list tempstr)))

(skip fileid 1)

)

(start_list "table")

(mapcar 'add_list templist)

(end_list)

(setq sldname (nth 2 name))

(if (/= (findfile sldname) nil)

(set_image sldname "1")

)

(setq sldname (nth 3 name))

(if (/= (findfile sldname) nil)

(set_image sldname "2")

)

(setq sldname (nth 4 name))

(if (/= (findfile sldname) nil)

(set_image sldname "3")

)

(action_tile "accept" "(setq r(get_row))(done_dialog)")

(action_tile "cancel" "(done_dialog)(princ)")

(action_tile "tablelist" "(setq r(get_row))(done_dialog)")

(start_dialog)

(unload_dialog dcl_id)

(shut fileid)

(if (listp r)

(setq r (cdr r))

)

)

;;;;select_row;;;;

(DEFUN select_row(/ recid record )

(setq recid (1+ (atoi (get_tile "tablelist"))))

(goto hbook recid)

(setq record (getrec hbook))

(list (nth 1 record) (nth 3 record) (nth 4 record) (nth 5 record) (nth 6 record))

)

(defun get_row(/ recid )

(setq recid (1+ (atoi (get_tile "table"))))

(goto fileid recid)

(getrec fileid)

)

(defun packname(fn / i j)

(if (/= fn nil)

(progn

(setq i 1 j (strlen fn))

(while (and (/= (substr fn i 1) " ") (<= i j)) (setq i(1+ i)))

(if (<= i j)

(progn

(setq i(1- i))

(setq fn (substr fn 1 i))

)

(setq fn fn)

)

)

)

)

;;;;;;set_image;;;;;;;;;

(defun set_image(sldname id / x y )

(setq x (dimx_tile (strcat "picture" id))

y (dimy_tile (strcat "picture" id)))

(start_image (strcat "picture" id))

(slide_image 0 0 x y sldname)

(end_image)

)

上述程序中使用了若干LISPBASE數據庫接口的函數。

可以把HANDBOOK程序掛在任何AutoCAD的菜單下，以方便用戶(hù)使用。激活HANDBOOK程序后，首先顯示所有數據表的目錄選擇對話(huà)框。下圖是一個(gè)例子：

對于比較大的單位，需要使用ORACLE，SYBASE，INGRESS，SQL-SERVER，等數據庫的情況，可以使用另外一個(gè)AutoCAD Lisp 語(yǔ)言環(huán)境下的ODBC數據庫接口--LISPODBC。由于現在幾乎所有的數據庫都支持ODBC，因此利用LISPODBC可以不受數據庫的限制。

LISPBASE v2.0 是一個(gè)在 AUTOCAD V12 環(huán)境下訪(fǎng)問(wèn)DBASE/ Foxbase / Foxpro 等Xbase 系列數據庫程序。使用 AUTOCAD 內嵌語(yǔ)言 AUTOLISP 的語(yǔ)法。使AUTOLISP 擴充了訪(fǎng)問(wèn)數據庫的功能。LISPBASE 提供了常用的21個(gè)函數。最多可同時(shí)打開(kāi)操作10個(gè)數據庫文件。索引文件使用擴展名為IDX的Fox系列數據庫索引文件，對每個(gè)數據庫文件所打開(kāi)的索引文件打開(kāi)數不限。并且允許多個(gè)用戶(hù)在網(wǎng)絡(luò )工作站上以共享方式訪(fǎng)問(wèn)在網(wǎng)絡(luò )服務(wù)器上的數據庫。LISPBASE 有DOS 和 WINDOWS 兩種版本，分別運行于DOS 或WINDOWS 版AUTOCAD V12 環(huán)境。 LISPBASE的典型應用是編在AUTOLISP語(yǔ)言程序中實(shí)現的。各種設計任務(wù)中的查表，數據記錄，明細表生成等均可利用LISPBASE訪(fǎng)問(wèn)數據庫。我們還可向需要開(kāi)發(fā)參數設計軟件的用戶(hù)提供按用戶(hù)需要定制的表達式求值函數和通用數據庫查表函數--EVALEXPRS 和 SEEKTABLE。

啟動(dòng)了AUTOCAD 后，用(XLOAD "LISPBASE")命令可以把LISPBASE調入內存并和AUTOCAD建立聯(lián)系。然后就可以使用LISPBASE 提供的LISP語(yǔ)法的函數對用戶(hù)建立的 FOXBASE數據庫進(jìn)行操縱了。

注意：LISPBASE.EXE 可執行文件應該在AUTOCAD的搜索路徑中，即在 DOS 批處理命令中的環(huán)境變量設置命令 SET ACAD= ... 的路徑中。

例如有：SET ACAD=C:\\ACAD;C:\\ACAD\\SUPPORT;C:\\ACAD\\FONTS

則 LISPBASE.EXE 可執行文件應該在上述路徑中。

關(guān)于 LISPBASE 的數據類(lèi)型的說(shuō)明

1。LISPBASE 的與數據庫記錄編號有關(guān)的函數受LISP數據類(lèi)型限制，記錄編號在兩字節有符號整數能表示的范圍內。

2。LISPBASE 讀取 DBASE/FOX 系列數據庫的方法：

對數值型字段：字段寬度 >= 4 或有小數點(diǎn)，作為浮點(diǎn)數處理，否則作為整數處理。

日期型字段：作為 8 字符寬度的字符串處理。

邏輯型字段：作為 1 字符寬度的字符串處理。

字符型字段：作為字符串處理。

通用型字段：FOXPRO 2.5 版有通用型字段，讀寫(xiě)時(shí)作為 10 字符寬度的字符串處理。對于插入記錄操作應以空格字符串寫(xiě)出。對于替換記錄操作不應改動(dòng)原來(lái)字段的內容，否則會(huì )出現數據庫內容的不一致現象。

備注型字段：讀寫(xiě)時(shí)作為 10 字符寬度的字符串處理。對于插入記錄操作應以空格字符串寫(xiě)出。對于替換記錄操作不應改動(dòng)原來(lái)字段的內容，否則會(huì )出現數據庫內容的不一致現象。

3。對于 Locate,Sum,Count 等可對數據庫記錄內容和 AutoLisp 變量?jì)热葸M(jìn)行邏輯運算操作的函數，不可對通用型字段和備注型字段進(jìn)行邏輯運算操作。

LISPBASE 的 21個(gè)函數的清單：

1。(use DBFFileID Filename)

use 函數用于以共享方式打開(kāi)數據庫，并使該數據庫和一個(gè)0…9的整數聯(lián)系起來(lái)。

(use DBFFileID Filename) 函數如果成功地打開(kāi)了數據庫，返回 DBFFileID。

Filename 是數據庫文件名字符串。必須是一個(gè)合法的DOS文件名。在路徑中表示子目錄的反斜線(xiàn)必須用兩個(gè)。use 函數可以訪(fǎng)問(wèn)網(wǎng)絡(luò )服務(wù)器上的文件。打開(kāi)數據庫后應盡快關(guān)閉。用戶(hù)編制訪(fǎng)問(wèn)數據庫的程序時(shí)，應檢測是否打開(kāi)數據庫，如果不能打開(kāi)，則經(jīng)過(guò)適當的延時(shí)再試一試打開(kāi)的操作。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…9之間的一個(gè)整數。

如果成功地打開(kāi)了數據庫，函數返回 DBFFileID，否則返回 -1。

例子：(setq FieID (use 1 "f:\\design\\object1\\partlist.dbf" ) )

(if (/= FieID 1) (print "DBF File can't open"))

注解：Filename ,DBFFileID 都可以是 LISP 變量。以下的12個(gè)函數同樣。以下不再重復。

2。(index DBFFileID IndexFilename IndexFilename ...)

index 函數用于打開(kāi)數據庫的索引文件。(index DBFFileID IndexFilename IndexFilename ...) 函數如果成功地打開(kāi)了索引文件，返回 DBFFileID。否則返回 -1。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…9之間的一個(gè)整數。

IndexFilename 是索引文件名字符串。必須是一個(gè)合法的DOS文件名。

索引文件可以同時(shí)打開(kāi)多個(gè)，數量不限。但受內存限制。對打開(kāi)索引文件的數據庫使用 seek 函數進(jìn)行查找時(shí)，LISPBASE 使用第一個(gè)索引文件。對打開(kāi)多個(gè)索引文件的數據庫進(jìn)行插入操作時(shí)，同時(shí)對多個(gè)索引文件更新。注意索引關(guān)鍵字不能包括FOXBASE能夠執行的字符串或數據轉換函數和表達式，如STR()，CHR()，SUBSTR()等。

例子：(index 0 "d:\\prod\\part01.idx" "d:\\prod\\part02.idx" "d:\\prod\\part03.idx")

3。(getrec DBFFileID)

getrec 函數用于取得打開(kāi)的數據庫的當前記錄，getrec 如果執行成功，則返回由數據庫各字段數據構成的一個(gè)表。否則返回 nil 。表的第0個(gè)原子是表示該記錄是否刪除的字符。如已刪除，為 *；如未刪除，為空格。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例子：(setq f 0)

(use f "d:\\product\\part.dbf")

(setq reclst(getrec f))

(print reclst)

函數返回：(" " "MQ25014401 " "A" 4 65.82 "GB3811 " "一金工 " )

4。(skip DBFFileID Skip_Num)

skip 用于從當前數據庫記錄指針的位置移動(dòng)數據庫的記錄指針。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

Skip_Num 是要移動(dòng)的記錄條數?？梢允钦麛?。也可以是負整數。

如果執行成功，函數返回記錄編號。如果正向移動(dòng)記錄指針超出了數據庫的最后一個(gè)記錄，函數返回數據庫記錄數加1的數字。如果負向移動(dòng)記錄指針超出了數據庫的第一個(gè)記錄，函數返回0。對打開(kāi)了索引文件的數據庫同樣如此。

例子：(skip 0 30)

5。(bof DBFFileID)

bof 用于測試記錄指針是否指向文件頭。如果是，返回1，否則返回0。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例子：(if (= (bof 0) 1) (print "File Begen."))

6。(eof DBFFileID)

eof 用于測試記錄指針是否指向文件尾。如果是，返回1，否則返回0。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例子：(if (= (eof 0) 1)(print "File End"))

7。(shut DBFFileID)

shut 函數用于關(guān)閉打開(kāi)的數據庫。如果關(guān)閉成功，返回 DBFFileID，否則返回-1。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例子：(setq f 1)

(use f "personal.dbf")

......

(shut f)

8。(replace DBFFileID RecordList)

replace 用于替換打開(kāi)數據庫的當前記錄。操作如果執行成功，函數返回記錄編號，否則返回0。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

RecordList 是由一個(gè)刪除標記字符和數據庫各字段數據構成的一個(gè)表。刪除標記字符必須是表的第一個(gè)原子。其他各原子的數據類(lèi)型必須與數據庫的各對應字段保持一致。

如果有索引文件打開(kāi)，所有索引關(guān)鍵字字段不允許修改。否則容易造成索引文件的破壞。

例子：(setq reclst (list " " "Q021234 " 5 20.4 ))

(use 0 "part.dbf")

(replace 0 reclst)

(shut 0)

9。(erase DBFFileID)

erase 用于刪除打開(kāi)數據庫的當前記錄。如果該記錄已經(jīng)刪除，則恢復之。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。刪除操作成功，函數返回 DBFFileID，否則返回-1。

例子：(use 5 "part.dbf")

(skip 5 10)

(erase 5)

(shut 5)

10。(insert DBFFileID RecordList)

insert 用于向打開(kāi)的數據庫插入一條記錄。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。操作如果執行成功，函數返回記錄編號，否則返回-1。

RecordList 是由一個(gè)刪除標記字符和數據庫各字段數據構成的一個(gè)表。刪除標記字符必須是表的第一個(gè)原子。其他各原子的數據類(lèi)型必須與數據庫的各對應字段一致。

對打開(kāi)多個(gè)索引文件的數據庫進(jìn)行插入操作時(shí)，同時(shí)對多個(gè)索引文件更新。

例子：(setq reclst (list " " "Q021234 " 5 20.4 ))

(use 0 "part.dbf")

(index 0 "part.idx")

(insert 0 reclst)

(shut 0)

11。(seek DBFFileID SeekString)

seek 用于在打開(kāi)了索引文件的數據庫中進(jìn)行查找。如果找到。函數返回該記錄的記錄號。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

使用 函數之前必須打開(kāi)數據庫和索引文件。

SeekString 是要查找的字符串。

例子：

(setq s "Q03")

(use 0 "part.dbf")

(index 0 "part05.idx")

(setq rcd(seek 0 s))

(if (/= rcd 0)(print rcd)(print "\nNot Found"))

(shut 0)

12。(goto DBFFileID Record_Id)

goto 用于操縱打開(kāi)數據庫的當前記錄號。使之指向 Record_Id，如果 Record 超出了數據庫的最大記錄號或執行不成功，返回 0。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

Record_Id 是要指向的記錄號。對打開(kāi)索引文件的數據庫使用此函數后，索引文件的索引指針會(huì )指向 Record_id。

例子：

13。(recno DBFFileID)

recno 用于返回打開(kāi)數據庫的當前記錄號。如果BOF或EOF為真，返回0。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例子：

14。(gotop DBFFileID)

gotop 用于把打開(kāi)數據庫的當前記錄號指向為數據庫的第一條記錄。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。對于打開(kāi)了索引文件的數據庫文件，當前記錄號指向索引順序的第一條記錄。

例子：

15。(gobott DBFFileID)

gobott 用于把打開(kāi)數據庫的當前記錄號指向為數據庫的最后一條記錄。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。對于打開(kāi)了索引文件的數據庫文件，當前記錄號指向索引順序的最后一條記錄。

例子：

16。(locate DBFFileID ConditionExpress)

locate 用于把打開(kāi)數據庫的當前記錄號指針向后推向滿(mǎn)足條件表達式的第一條記錄，或者說(shuō)是條件表達式為真的記錄。locate 返回記錄號。locate 函數是從當前記錄開(kāi)始操作的。如果要從文件頭開(kāi)始操作，應在 locate 函數執行前執行 gotop。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

ConditionExpress 是由 AutoLisp 變量，數據庫字段，數字，字符串，邏輯運算符，算術(shù)運算符，圓括號等組成的邏輯運算表達式。該表達式與 FoxBase 的相應表達式兼容。

圓括號 ：(，)。

AutoLisp 變量 ：AutoLisp 內部的用戶(hù)建立的變量，可以是整數，浮點(diǎn)數， 字符串類(lèi)型。

數據庫字段 ：Dbase/FoxBase/Foxpro 數據庫的字段名。字段數據類(lèi)型 可以是數字，字符串，邏輯，日期。但不能是備注 (mem) 類(lèi)型和通用(general)類(lèi)型的。

算術(shù)運算符 ：包括 +，-，*，/，取余數%，冪^。

數字 ：可以是整數，浮點(diǎn)數，科學(xué)計數法數值等。

字符串 ：由單引號‘ 引導和結束的任何字符，包括漢字。

邏輯運算符 ： 與： .AND.

或： .OR.

相等： =

大于： >

小于： <

大于等于： >=

小于等于： <=

不等于： <>

各算術(shù)運算和邏輯運算符的優(yōu)先級別遵從一般程序設計語(yǔ)言的規則，可參閱BASIC、C、PASCAL、FORTRAN等參考書(shū)。比較邏輯運算可以用于字符串。

注：邏輯運算表達式的說(shuō)明適用于 SUM 和 COUNT 函數。以下不再重復。

例子：

本例中，Weight,Quantity,Name,Type 為數據庫字段名，N 是 LISP 變量名。

17。(sum DBFFileID [FieldsList] [ConditionExpress])

sum 用于累加數據庫的數值字段的數值。當使用了可選的［ConditionExpress] 參數時(shí)。累加數據庫的數值字段的數值的條件是滿(mǎn)足條件表達式記錄，或者說(shuō)是條件表達式為真的記錄。當使用了可選的 [FieldList] 參數，對 [FieldList]表中的數據庫字段進(jìn)行累加。[FieldList] 參數沒(méi)有提供時(shí)，對所有數值字段累加。函數返回一個(gè)表，表的各項是按照數據庫中數值字段排列的各字段累加數據和。

sum 函數是從當前記錄開(kāi)始操作的。如果要從文件頭開(kāi)始操作，應在 sum 函數執行前執行 gotop。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

ConditionExpress 是由 AutoLisp 變量，數據庫字段，數字，字符串，邏輯運算符，算術(shù)運算符，圓括號等組成的邏輯運算表達式。該表達式與 FoxBase 的相應表達式類(lèi)似。詳細說(shuō)明見(jiàn) locate 參考。

18。(count DBFFileID [ConditionExpress])

count 用于計算數據庫的記錄條數。當使用了可選的［ConditionExpress] 參數時(shí)。計算數據庫的記錄條數的條件是滿(mǎn)足條件表達式的記錄，或者說(shuō)是條件表達式為真的記錄。

函數返回一個(gè)滿(mǎn)足條件表達式的記錄條數的整數。

count 函數是從當前記錄開(kāi)始操作的。如果要從文件頭開(kāi)始操作，應在 count 函數執行前執行 gotop。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

ConditionExpress 是由 AutoLisp 變量，數據庫字段，數字，字符串，邏輯運算符，算術(shù)運算符，圓括號等組成的邏輯運算表達式。該表達式與 FoxBase 的相應表達式類(lèi)似。詳細說(shuō)明見(jiàn) locate 參考。

例：(use 0 "GB3811.dbf")

(setq n (count 0 "A>=1.2"))

(print n)

19。(dbname DBFFileID)

dbname 用于返回數據庫文件名。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例：(use 0 "GB3811.dbf")

(setq dbn (dbname 0))

20。(stru DBFFileID)

stru 用于返回數據庫結構。函數返回一個(gè)表，表的各項是 17 個(gè)字符的字符串。字符1…10 是數據庫字段名，字符 12 是字段數據類(lèi)型，字符14…15是字段寬，字符 17 是數值型字段的小數點(diǎn)位置。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例：(use 0 "GB3811.dbf")

(setq struct (stru 0))

(print struct)

21。(reccnt DBFFileID)

reccnt 用于返回數據庫記錄數。

DBFFileID 是數據庫文件編號。類(lèi)似于FOXBASE的工作區編號。必須是0…

9之間的一個(gè)整數。

例：(use 0 "GB3811.dbf")

(setq n (reccnt 0))

(print n)