【DOC】電腦輔助建筑設(shè)計COMPUTER-AIDED

1、電腦輔助建築設(shè)計COMPUTER-AIDED ARCHITECTURAL DESIGN教師：林峰田教授    主題：AutoLISP簡介教材準備：陳鴻勝   一. AutoLISP 是何方神聖? AutoLISP可以在AutoCAD 內(nèi)運作。AutoLISP內(nèi)含於AutoCAD軟體內(nèi)，不需要再灌錄程式。AutoLISP是強化AutoCAD功能最直接的程式語言。AutoLISP易學(xué)、易用，能讓初學(xué)程式設(shè)計的AutoCAD使用者，在短的時間內(nèi)學(xué)成。 二. AutoLISP 程式語言的特質(zhì)分析: 學(xué)習(xí)AutoLISP是非

2、常容易的,對初學(xué)者而言,即使沒有學(xué)習(xí)過任何的程式語言,都能很快的上手,寫出精彩漂亮的AutoLISP程式! 語法簡單 不用特殊的變數(shù)宣告,非常富有彈性,比起其他的程式語言,它的語法可說是非常簡單而有其獨特的風(fēng)格! 功能函數(shù)強大 除一般性的功能函數(shù)外,又擁有為數(shù)不少控制配合AutoCAD的特殊函數(shù),再加上AutoLISP可直接呼叫執(zhí)行所有AutoCAD的指令,以及掌握運用所有的AutoCAD系統(tǒng)變數(shù),功能之強大令人欣喜不已! 撰寫的環(huán)境不挑剔 只要是一般的文書編輯軟體都適用! 如:Windows的記事本、PE2、PE3、DW3、書中仙、漢書、EDIT.等 

3、直譯式程式 不用再作編譯,即寫即測、即測即用,馬上可以在AutoCAD中回應(yīng)效果,馬上就有成就感! 橫跨各作業(yè)平臺 悠然自得,雖然AutoCAD有DOS、Windows版本之分但是AutoLISP卻可在不改寫的原貌下,載入與執(zhí)行!  三.撰寫 AutoLISP 的動機? 欲強化 AutoCAD 原有指令時. 欲創(chuàng)造更有用的 AutoCAD 新指令. 欲簡化繁瑣的環(huán)境設(shè)定或繪圖步驟時. 欲處理參數(shù)式繪圖時. 欲做圖面資料讀檔、寫檔. 欲做 AutoCAD 簡報展示時. 欲達到真正靈活掌控 AutoCAD 時

4、. 欲提昇自己跨上 AutoCAD 高手列車時. 四.AutoLISP 的效益評估?1. 對公司負責(zé)人或設(shè)計主管而言:A. 也許某員工或幹部花了20個小時撰寫一個AutoLISP程式,表面上,這將近三天的時間,他連一張圖都沒有畫,甚至可能偶有發(fā)呆、沈思,若此程式一天可以替公司繪圖部門節(jié)省1小時繪圖時間,那算一算,只要20天就抵銷開發(fā)成本,而20天以後都是賺的,用的愈久,省的愈多！ B. 若員工皆有此動力,在不影響正常工作,鼓勵都來不及,那有壓抑的道理,甚至還要派遣優(yōu)秀人員出去受訓(xùn),學(xué)習(xí)更好的設(shè)計技巧與創(chuàng)意呢？！ C. 千萬不要因為您的不懂或壓抑,SHOW您的權(quán)威與POWER

5、,如此,不但對員工造成打擊,甚至您可能成為阻礙了公司電腦化進步的罪魁禍首 D. 當(dāng)然,若要撰寫的程式很多,內(nèi)部設(shè)計人員的程式功力距離太遠,達成需求的時間反而變得遙遙無期,那倒不如求助於市面上已有的相關(guān) AutoCAD 支援軟體。  2. 對設(shè)計人員而言:A. 得到一筆提昇績效獎金呢? 當(dāng)然,無形中,AutoCAD 高手的封號也將黃功力又往前邁出了一大步,對個人的成長幫助匪淺。B. 半桶水、響叮噹,千萬不要因為會寫 AutoLISP 程式而自傲、孤僻、囂張起來,功力的增長,只是讓您有更多服務(wù)他人、服務(wù)公司的機會,若自恃過重,寧可不要! C. AutoLISP 程式功力的累進,是無遠弗屆

6、的,千萬不要孤芳自賞,人外有人,天外有天,也許您覺得是寶貝加三級的程式,只是其他設(shè)計師基本程式中的一部份罷了! D. 既然 AutoLISP 是 AutoCAD 的最大功臣,當(dāng)然不會輕易被捨棄,如此,您的學(xué)習(xí),保證不會白費! E. 精益求精、虛心求教、用心學(xué)習(xí)、觀摩、決心成為高手  3.對程式本身而言:A. 少少的幾行,卻可能有大大滿意的時候! B. 充份掌握了控制、創(chuàng)造 AutoCAD 的尚方寶劍,讓您在 AutoCAD 的設(shè)計運作中得心應(yīng)手,享受無比的快樂與成就感!    五.如何有效的學(xué)習(xí) AutoLISP ? 先由小程式著手,認識Aut

7、oLISP語法規(guī)定! 瀏覽所有的AutoLISP功能函數(shù),重要的功能函數(shù)要熟記腦海,俗語說的好一回生,二回熟,除非您不用心,否則沒有學(xué)不好的道理! 要懂得偷懶:不要認為在繪圖的過程中,繁瑣的步驟是合理的,困難的繪圖過程是必須忍耐的,試著用AutoLISP解決看看! 多觀摩別人的程式設(shè)計,吸取精華,像海棉一樣=>吸、吸、吸! 動手寫程式比用眼睛看程式,更能夠領(lǐng)略深記腦海! 隨時隨地整理您的程式,並加以註解,以免因時間的飛逝,當(dāng)時用心的成果也煙消雲(yún)散,忘的一乾二淨(jìng)! 期許自己,要由操作者變成創(chuàng)造者!   

8、;     AutoLISP函數(shù)語法簡介 第一類 數(shù)學(xué)運算功能函數(shù) 項目   函數(shù)語法   傳    回 1.1 (+ 數(shù)值 數(shù)值 .) 累計實數(shù)或整數(shù)數(shù)值 1.2 (- 數(shù)值 數(shù)值 .) 減去數(shù)值 1.3 (* 數(shù)值 數(shù)值 .) 所有數(shù)值乘積 1.4 (/ 數(shù)值 數(shù)值 .) 第一個數(shù)值除以第二個以後數(shù)值的商 1.5 (1+ 數(shù)值) 數(shù)值+1 1.6 (1- 數(shù)值) 數(shù)值-1 1.7 (abs 數(shù)值)  數(shù)值的絕對值 1.8 (atan 數(shù)值)

9、反正切值 1.9 (cos 角度) 角度的餘弦值,角度值為弳度 1.10 (exp 數(shù)值) 數(shù)值的指數(shù) 1.11 (expt 基數(shù) 指數(shù)) 基數(shù)的指數(shù)值 1.12 (fix 數(shù)值) 將數(shù)值轉(zhuǎn)換為整數(shù)值 1.13 (float 數(shù)值) 將數(shù)值轉(zhuǎn)換為實數(shù)值 1.14 (gcd 數(shù)值1 數(shù)值2) 二數(shù)值的最大公因數(shù) 1.15 (log 數(shù)值) 數(shù)值的自然對數(shù)值 1.16 (max 數(shù)值 數(shù)值 .) 數(shù)值中的最大值 1.17 (min 數(shù)值 數(shù)值 .) 數(shù)值中的最小值 1.18 pi 常數(shù)p ,其值約為 3.1415926 1.19 (rem 數(shù)值1 數(shù)值2) 二數(shù)值的相除的餘數(shù) 1.20 (sin

10、角度) 角度的正旋值,角度值為弳度 1.21 (sqrt 數(shù)值) 數(shù)值的平方根  第二類 檢驗 & 邏輯運算功能函數(shù) 項目 函數(shù)語法 傳    回 2.1 (= 表示式1 表示式2) 比較表示式1是否等於表示式2適用數(shù)值及字串 2.2 (/= 表示式1 表示式2) 比較表示式1是否大於等於表示式 2 2.3 (< 表示式1 表示式2) 比較表示式 1 是否 <小於 表示式 2 2.4 (<= 表示式1 表示式2) 比較表示式 1 是否 <=小於等於 表示式 2 2.5 (> 表示式1 表示式2) 比較表示式

11、 1 是否 >大於 表示式 2 2.6 (>= 表示式1 表示式2) 比較表示式1是否大於等於表示式2 2.7 ( 數(shù)值) 傳回：數(shù)值的位元not值,(1的補數(shù)) 2.8 (and 表示式1 表示式2) 邏輯and的結(jié)果 2.9 (boole 函數(shù) 整數(shù) 整數(shù)) 位元式布林運算 2.10 (eq 表示式1 表示式2) 比較表示式1與表示式2是否相同, 適用串列比較(實際相同) 2.11 (equal 表示式1 表示式2 差量) 比較表示式1與表示式2是否相同, 差量可省略(內(nèi)容相同)  第三類 轉(zhuǎn)換運算功能函數(shù) 項目 函數(shù)語法 傳  

12、0; 回 3.1 (angtof 字串 模式) 角度值的字串轉(zhuǎn)成實數(shù) 3.2 (angtos 角度 模式 精度) 角度轉(zhuǎn)成的字串值 3.3 (atof 字串) 字串轉(zhuǎn)成實數(shù)值 3.4 (atoi 字串) 字串轉(zhuǎn)成整數(shù)值 3.5 (cvunit 數(shù)值 原始單位 轉(zhuǎn)換單位) 數(shù)值轉(zhuǎn)換單位後的值轉(zhuǎn)換根據(jù) acad.unt 檔案 3.6 (distof 字串 模式) 依模式將字串轉(zhuǎn)成實數(shù)值 3.7 (itoa 整數(shù)) 整數(shù)轉(zhuǎn)成字串 3.8 (rtos 數(shù)值 模式 精度) 實數(shù)轉(zhuǎn)成字串 3.9 (trans 點 原位置 新位置 位移) 轉(zhuǎn)換座標系統(tǒng)值  第四類 串列處理功能函數(shù) 項目

13、 函數(shù)語法 傳    回 4.1 (append 串列 串列 .) 結(jié)合所有串列成一個串列 4.2 (assoc 關(guān)鍵元素 聯(lián)合串列) 依關(guān)鍵元素找尋聯(lián)合串列中關(guān)係資料 4.3 (car 串列) 串列中的第一個元素通常用來求 x 座標 4.4 (cadr 串列) 串列中的第二個元素通常用來求 y 座標 4.5 (caddr 串列) 串列中的第三個元素通常用來求 z 座標 4.6 (cdr 串列) 除去第一個元素後的串列 4.7 (cons 新元素 串列) 將新元素結(jié)合到串列 4.8 (foreach 名稱 串列 表示式) 將串列的每一元素對應(yīng)至名稱再依表示式執(zhí)行回

14、應(yīng) 4.9 (length 串列) 串列內(nèi)的元素數(shù)量 4.10 (list 元素 元素) 將所有元素結(jié)合成一串列 4.11 (listp 元素) 判斷元素是否為一串 4.12 (mapcar 函數(shù) 串列1 串列2 .) 將串列1、串列2、等串列的 元素配合函數(shù),求得新串列 4.13 (member 關(guān)鍵元素 串列) 依關(guān)鍵元素(含)以後的串列 4.14 (nth n 串列) 串列的第n個元素 4.15 (reverse 串列) 將串列元素依順序顛倒過來的串列 4.16 (subst 新項 舊項 串列) 替換新舊串列後的串列  第五類 字串、字元、檔案處理功能函數(shù) 項目 函數(shù)

15、語法 傳    回 5.1 (ascii 字串) 字串第一個字元的ASCII碼 5.2 (chr 整數(shù)) 整數(shù)所對應(yīng)的 ASCII 單一字串 5.3 (close 檔案名稱) 關(guān)閉檔案 5.4 (open 檔名 模式) 開啟檔案代碼,準備讀取或?qū)懭胭Y料 5.5 (read 字串) 串列中的字串的第一組元素 5.6 (read-char 檔案代碼) 經(jīng)由鍵盤或檔案中讀取單一字元 5.7 (read-line 檔案代碼) 經(jīng)由鍵盤或檔案中讀取一行字串 5.8 (strcase 字串 字樣)  轉(zhuǎn)換字串大小寫 5.9 (strcat 字串1 字串2 .) 將各

16、字串結(jié)合成一字串 5.10 (strlen 字串) 字串構(gòu)成的字元數(shù)(即字串長度) 5.11 (substr 字串 起始 長度) 取出子字串 5.12 (wcmatch 字串 格式) T或nil,將字串與通用字符進行比對 5.13 (write-char 數(shù)值 檔案代碼) 將一ASCII字元寫到檔案或螢?zāi)?5.14 (write-line 字串 檔案代碼) 將字串寫到檔案或螢?zāi)簧? 第六類 等待輸入功能函數(shù) 項目 函數(shù)語法 傳    回 6.1 (getangle 基點 提示) 請求輸入十進位角度數(shù)值,回應(yīng)一弳度值提示及參考點可有可無 6.2

17、(getcorner 基點 提示) 請求輸入另一矩框?qū)屈c座標 6.3 (getdist 基點 提示) 請求輸入一段距離 6.4 (getint 提示) 請求輸入一整數(shù)值 6.5 (getkword 提示) 請求輸入關(guān)鍵字 6.6 (getorient 基點 提示) 請求輸入十進位角度,回應(yīng)一弳度值不受angbase、angdir影響 6.7 (getpoint 基點 提示) 請求輸入一個點座標 6.8 (getreal 提示) 請求輸入一實數(shù) 6.9 (getstring 提示) 請求輸入一字串 6.10 (initget 位元 字串) 設(shè)定下次 getxxx 函數(shù)的有效輸入  第

18、七類 幾何運算功能函數(shù) 項目 函數(shù)語法 傳    回 7.1 (angle 點1 點2) 取得二點的角度弳度值 7.2 (distance 點1 點2) 取得二點的距離 7.3 (inters 點1 點2 點3 點4 模式) 取得兩條線的交點 7.4 (osnap 點 模式字串) 依輔助抓點模式取得另一座標點 7.5 (polar 基點 弳度 距離) 依極座標法取得另一座標點 7.6 (textbox 圖元串列) 取得文字串的二對角點座標  第八類 圖元處理功能函數(shù) 項目 函數(shù)語法 傳    回 8.1

19、(entdel 圖元名稱) 刪除或逆刪除圖元 8.2 (entget 圖元名稱 應(yīng)用程式串列) 取出圖元名稱的資料串列 8.3 (entlast) 取出圖形資料中的最後一個圖元 8.4 (entmake 圖元串列) 建立一個新的圖元串列 8.5 (entmod 圖元串列) 依更新的資料串列更新螢?zāi)簧显w 8.6 (entnext 圖元名稱)  找尋圖面中的下一個圖元 8.7 (entsel 提示) 請求選取一個圖元,回應(yīng)包含圖元名稱及選點座標的串列 8.8 (entupd 圖元名稱) 更新螢?zāi)簧涎}元體圖形 8.9 (handent 圖碼) 圖碼的元體名稱 8.10 (nentsel

20、提示)  BLOCK所含副元體圖元資料串列 8.11 (nentselp 提示 點) BLOCK所含副元體圖元資料(以4 x 4矩形表示)   第九類 選擇集、符號表處理功能函數(shù) 項目 函數(shù)語法 傳    回 9.1 (ssadd 圖元名稱 選擇集) 將圖元加入選擇集或建立一新選擇集 9.2 (ssdel 圖元名稱 選擇集) 將圖元自選擇集中移出 9.3 (ssget 模式 點1 點2) 取得一個選擇集 9.4 (ssget "X" 過濾串列) 取得依過濾串列所指定範(fàn)圍的選擇集 9.5 (ssl

21、enth 選擇集) 計算選擇集的圖元個數(shù) 9.6 (ssmemb 圖元名稱 選擇集) 回應(yīng)圖元名稱是否包含於選擇集內(nèi) 9.7 (ssname 選擇集 索引值) 依索引值取出選擇集中的圖元名稱 9.8 (tblnext 符號表名稱 T) 檢視符號表,有效的符號表: "LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK" 9.9 (tblsearch 符號表名稱 符號) 在符號表中蒐尋符號  第十類 AutoCAD 相關(guān)查詢、控制功能函數(shù) 項目 函數(shù)語法 傳

22、    回 10.1 (command "AutoCAD 指令" .) 呼叫執(zhí)行AutoCAD指令 10.2 (findfile 檔名) 傳回：應(yīng)該檔名的路徑及檔名 10.3 (getfiled 標題 內(nèi)定檔名 副檔名 旗號) 透過標準AutoCAD檔案對話DCL交談框求得檔案 10.4 (getenv "環(huán)境變數(shù)") 取得該環(huán)境變數(shù)的設(shè)定值,以字串表示 10.5 (getvar "系統(tǒng)變數(shù)") 取得該系統(tǒng)變數(shù)的設(shè)定值,以字串表示 10.6 (setvar "系統(tǒng)變數(shù)" 值) 設(shè)定該系

23、統(tǒng)變數(shù)的值 10.7 (regapp 應(yīng)用類項) 將目前的AutoCAD圖形登記為一個應(yīng)用程式名稱  第十一類 判斷式、迴圈相關(guān)功能函數(shù) 項目 函數(shù)語法 傳    回 11.1 (if <比較式> <表示式1> 表示式2) 檢算比較式結(jié)果,如果為真,執(zhí)行<表示式1>否則,執(zhí)行<表示式2> 11.2 (repeat 整數(shù) <運算式> <運算式> .) 重複執(zhí)行<整數(shù)>次數(shù) 11.3 (while 標題 內(nèi)定檔名 副檔名 旗號) 透過標準 AutoCAD 檔案對話D

24、CL交談框求得檔案 11.4 (cond "環(huán)境變數(shù)") 取得該環(huán)境變數(shù)的設(shè)定值,以字串表示 11.5 (progn 運算式1 運算式2 .)  連結(jié)其內(nèi)的運算式為一組,常用於配合if、cond等函數(shù)  第十二類 函數(shù)處理、定義、追蹤 & 錯誤處理功能函數(shù) 項目 函數(shù)語法 傳    回 12.1 (*error* 字串) 程式錯誤時的警示訊息 12.2 (alert 字串) 以交談框式顯示出警告字串 12.3 (apply 功能函數(shù) 串列) 將功能函數(shù)與串列結(jié)合後執(zhí)行 12.4 (defun 名稱 引數(shù)串列

25、 表示式 .) 自定函數(shù)或副程式 12.5 (eval 表示式) 傳回:表示式的執(zhí)行結(jié)果 12.6 (exit)  強制退出目前的應(yīng)用程式 12.7 (lambda 引數(shù) 表示式) 定義未具名的函數(shù) 12.8 (progn 運算式1 運算式2 .) 連結(jié)其內(nèi)的運算式為一組,常用於配合if、cond等函數(shù) 12.9 (quit) 強制退出目前的應(yīng)用程式 12.10 (tablet 代碼 列1 列2 列3 方向) 取用或建立對數(shù)位板的校調(diào) 12.11 (trace 函數(shù)) 對函數(shù)設(shè)定追蹤旗號,輔助除錯 12.12 (untrace 函數(shù)) 對函數(shù)設(shè)定解除追蹤旗號   

26、  第十三類 顯示、列印控制功能函數(shù) 項目 函數(shù)語法 傳    回 13.1 (graphscr) 作圖環(huán)境切換到圖形畫面 13.2 (grclear)  暫時清除模前的螢?zāi)划嬅?13.3 (grdraw 起點 終點 顏色 亮顯) 暫時性的畫出一條線 13.4 (grread 追蹤) 由輸入設(shè)備讀取追蹤值 13.5 (grtext 位置 字串 亮顯) 將字串顯示在狀態(tài)列或螢?zāi)还δ鼙砩?13.6 (grvecs 向量串列 轉(zhuǎn)置矩陣) 暫時性的畫出多條線 13.7 (menucmd 字串) 提供在AutoLISP中呼叫各功能表 13.8

27、(prin1 表示式 檔案代碼) 將表示式列印於命令區(qū)或已開啟的檔案,控制碼字元則以"" 為字首展開 13.9 (princ 表示式 檔案代碼) 除控制碼字元則不以 "" 為字首展開外其餘同prin1 13.10 (print 表示式 檔案代碼) 除表示式會往下一新行列出,及一空格外其餘同prin1 13.11 (prompt 訊息) 將訊息顯示於螢?zāi)坏拿顓^(qū),並隨後回應(yīng)一個nil訊息 13.12 (redraw 圖元名稱 模式) 重繪整張圖或依圖元名稱重繪該圖形 13.13 (terpri) 在螢?zāi)簧巷@示新列 13.14 (textscr) 作圖環(huán)境切

28、換到文字畫面 13.15 (textpage) 清除文字畫面文字類似DOS的cls指令 13.16 (vports) 傳回：視窗組態(tài)串列  第十四類 符號、元素、表示式處理功能函數(shù) 項目 函數(shù)語法 傳    回 14.1 (atom 元素) 如果元素不是串列,回應(yīng) T,否則為 nil 14.2 (atoms-family 格式 符號串列) 傳回：一組已定義函數(shù)的符號串列 14.3 (boundp 表示式) 傳回：T或nil,回應(yīng)表示式是否有值存在 14.4  (minusp 元素) 傳回：T 或 nil,元素是否為負值 14.5 (n

29、ot 元素) 傳回：T 或 nil,判定元素是否為 nil 14.6 (null 元素) 傳回：T或nil判定元素是否被賦予nil值 14.7 (numberp 元素) 傳回：T或nil,元素是否為整數(shù)或?qū)崝?shù) 14.8 (. '表示式) 回應(yīng)表示式未檢算前狀態(tài) 14.9 (quote 表示式) 回應(yīng)表示式未檢算前狀態(tài),同'功能 14.10 (set 符號 表示式) 將表示式結(jié)果設(shè)定給帶單引號 ' 符號 14.11 (setq 符號1 表示式1 符號2 表示式2.) 設(shè)定表示式結(jié)果給各符號 14.12 (type 元素) 傳回：元素的資料型態(tài) 143.13 (zerop

30、元素) 傳回：T 或 nil,元素是否為 0 值 <以下略，有進一步興趣者可參閱相關(guān)網(wǎng)站。> 相關(guān)網(wǎng)站AutoLISP 與 AutoCAD 資料站 翔虹AutoCAD技術(shù)中心   討論或應(yīng)用AutoLISP之學(xué)術(shù)論文：AutoLISPR software tools for handling powder X-ray diffraction data in the AutoCADR environment  Computers and Geosciences Volume: 27, Issue: 1, February 1

31、, 2001, pp. 91-95  Ambers, Clifford P.    Kinematic synthesis of adjustable moving pivot four-bar mechanisms for multi-phase motion generation  Mechanism and Machine Theory Volume: 31, Issue: 4, May, 1996, pp. 459-474  Shao, Jie Wang; Sodhi, Raj S.  .adjustable fixed pi

32、vot problems are extended to solve adjustable moving pivot problems. Synthesis examples are presented. Several Turbo Pascal programs are developed for solving the synthesis problems. Many user-defined AutoLISP functions and commands are specially designed for this work.   A voxel visualization

33、and analysis system based on autocad  Computers & Geosciences Volume: 22, Issue: 4, May, 1996, pp. 379-386  Marschallinger, Robert  A collection of AutoLISP programs is presented which enable the visualization and analysis of voxel models by AutoCAD rel. 12/rel. 13. The programs s

34、erve as an interactive, graphical front end for manipulating the results of three-dimensional modeling software producing block estimation.   A low-cost modeller for two-dimensional metal stamping layouts  Journal of Materials Processing Technology Volume: 84, Issue: 1-3, December 1, 1998,

35、 pp. 79-89  Singh, Rajender; Sekhon, G.S.  .modeller is interactive in nature and incorporates autoLISP built functions that are called in the prompt area of autoCAD for generating good quality layouts and presenting them graphically for visual examination by the user. Illustrative example

36、s are included for demonstrating the.   Development of an expert system for the process design of axisymmetric hot steel forging  Journal of Materials Processing Technology Volume: 101, Issue: 1-3, April 14, 2000, pp. 223-230  Kim, Dae-Young; Park, Jong-Jin  .part. It is a rule-b

37、ased system written in Fortran and AutoLISP and operates in the AutoCAD environment. The rules and the structure used in the system are presented and an example of a forging process design performed with the system is discussed in this paper. To compensate for the.  An expert system for optimal

38、 selection of a press for a sheet metal operation  Journal of Materials Processing Technology Volume: 86, Issue: 1-3, February 15, 1999, pp. 131-138  Singh, R.; Sekhon, G.S.  .above machines. The proposed expert system incorporates autoLISP built functions which are called into the pr

39、ompt area of autoCAD. Illustrative examples have been included for demonstrating the usefulness of the proposed expert system. The low cost of the system makes it affordable.      A study of a computer-aided process design system for axisymmetric deep-drawing products  Journal of

40、 Materials Processing Technology Volume: 75, Issue: 1-3, March 1, 1998, pp. 17-26  Park, S.B.; Choi, Y.; Kim, B.M.; Choi, J.C.  .of field experts. The CAD system has been written in AutoLISP on the AutoCAD system with a personal computer. The CAD system is composed of four main modules, wh

41、ich are input, geometrical design, test and rectification and user modification. The input to the system is the drawing of.   Development of an integrated computer-aided process planning system for press working products  Journal of Materials Processing Technology Volume: 111, Issue: 1-3,

42、April 25, 2001, pp. 188-192  Kim, Chul; Kim, B.M.; Choi, J.C.  .The computer-aided process planning system written in AutoLISP on AutoCAD using a personal computer and in I-DEAS Drafting Programming Language on the I-DEAS Master Series Drafting with workstation in hot forging and blanking

43、requires many kinds of technical and empirical skills. An.   A compact and practical CAD/CAM system for the blanking or piercing of irregular shaped-sheet metal products for progressive working  Journal of Materials Processing Technology Volume: 110, Issue: 1, March 1, 2001, pp. 36-46 

44、; Choi, J.C.; Kim, Chul  .experts. The program for the system has been written in AutoLISP on the AutoCAD for strip- and die-layout and in customer tool kit on the SmartCAM software for modeling and post-processing with a personal computer. It is composed of nine modules, which are input and sh

45、ape treatment, flat.   Versioning and configuration management in design using CAD and complex wrapped objects  Artificial Intelligence in Engineering Volume: 14, Issue: 3, July, 2000, pp. 249-260  Miles, J.C.; Gray, W.A.; Carnduff, T.W.; Santoyridis, I.; Faulconbridge, A.  .syst

46、em linked to an Object-Oriented Database (OODB) via AutoLISP and a C+ executable. The interaction model within Describe has been developed to be as simple and flexible as possible and is based on fresults from a design experiment. Within the system, design information is stored as.   vlsip

47、 作業(yè)分析：輸入兩條相互交叉的道路(起點、終點、寬度)後，刪除多餘的線條。(defun c:bbb( )     (gc)     (command "erase" "all" "")     (setq pt1 (getpoint "Enter the first  point of the 1st line :")     (setq

48、 pt2 (getpoint "n Enter the second point of the 1st line :")     (command "_color" "5" )     (command "line" pt1 pt2  "")     (setq line1 (entlast)     (setq rad1 (a

49、ngle pt1 pt2)     (setq width_road (getreal "Enter the width of the road:")     (setq half_width_road  (/ width_road 2)     (setq pt3 (list (+ (car  pt1) (* half_width_road  (sin rad1)      

50、                (- (cadr pt1) (* half_width_road  (cos rad1) )     (setq pt4 (list (- (car  pt1) (* half_width_road  (sin rad1)           &#

51、160;          (+ (cadr pt1) (* half_width_road  (cos rad1) )     (setq pt5 (list (+ (car  pt2) (* half_width_road  (sin rad1)                

52、0;     (- (cadr pt2) (* half_width_road  (cos rad1) )     (setq pt6 (list (- (car  pt2) (* half_width_road  (sin rad1)                      (+ (c

53、adr pt2) (* half_width_road  (cos rad1) )     (command "offset" half_width_road line1  pt3  "")     (command "offset" half_width_road line1  pt4  "")        

54、60; (setq pt7 (getpoint "Enter the first  point of the 2nd line :")     (setq pt8 (getpoint "nEnter the second point of the 2nd line :")     (command "-color" "4")     (command "line"&#

55、160; pt7  pt8 "")     (setq line2 (entlast)     (setq rad3 (angle pt7 pt8)     (setq width_road2 (getreal "Enter the width of the road:")     (setq halfwidth_road2  (/ width_road2 2) &#