摘要：中國悠久的歷史創(chuàng)造了燦爛的古代文化，而古建筑便是其重要組成部分。仿古建筑設計是對中國古建筑的保護和傳承。在仿古建筑設計中，對計算機輔助設計技術進行開發(fā)，可以提高設計效率，優(yōu)化設計方案，縮短設計周期，減少設計人員繁雜的操作，對仿古建筑設計有十分重要的意義。本文就如何利用AutoCAD中的VisualLISP集成開發(fā)環(huán)境實現(xiàn)參數(shù)化繪圖作了簡要說明。
關鍵詞：中國古建筑，仿古建筑，Auto，LISP語言，參數(shù)化繪圖

中國古建筑是我國悠久文化遺產(chǎn)的重要組成部分，是古代勞動人民偉大創(chuàng)造的結晶。“仿古建筑”就是把有特色的中國建筑的舊形式加以改造后適應現(xiàn)代化的使用要求,將舊的形式和新的科學技術兩者有機的結合,以不破壞老環(huán)境而又搞新建筑為目的的一種新的“建筑方法”及“建筑形式”。它是建筑藝術的創(chuàng)新。仿古建筑設計是中國現(xiàn)代建筑設計的一個重要組成部分。
仿古建筑設計是一門融科技、藝術、文化、哲學于一體的學科。仿古建筑既是一件商品，更是一件藝術品。古建筑的一些要素要得到充分體現(xiàn)，仿古建筑設計必須有古建筑的要素。而CAD在仿古建筑設計中的自動化程度不高，操作煩瑣，效率較低。
AutoLISP語言嵌套與于AutoCAD內(nèi)部。它是LISP語言和AutoCAD有機結合的產(chǎn)物。AutoLISP是為二次開發(fā)AutoCAD而專門設計的編程語言。
AutoLISP采用了和CommonLISP最相近的語法和習慣，既具有CommonLISP的特性，又針對AutoCAD增加了許多功能。它可以把AutoLISP程序和AutoCAD的繪圖命令結合起來，使設計和繪圖完全融為一體，還實現(xiàn)對AutoCAD當前數(shù)據(jù)庫的直接訪問、修改。AutoLISP方便了對屏幕圖形的實時修改、參數(shù)化設計和交互設計，為在繪圖領域應用人工智能提供了方便。
AutoLISP語言最典型的應用之一就是實現(xiàn)參數(shù)化繪圖的程序設計，包括鼠標拖動程序和尺寸驅動程序。鼠標驅動程序可以方便用戶直接讀取AutoCAD的輸入設備，鼠標拖動應用了AutoLISP語言的GRREAD[<track>]函數(shù)，任選項“追蹤光標移動”存在且為真時，調(diào)整所需的參數(shù)值可自動改變屏幕圖形的屬性。尺寸驅動程序的功能是通過改變實體標注的尺寸值來實現(xiàn)自動修改圖形尺寸。迄今為止，大部分參數(shù)化程序都是針對二維平面圖編制的。實際上，可以利用AutoLISP實現(xiàn)立體圖的參數(shù)化繪圖。
VisualLISP是Autodesk公司從AutoCADR14起提供給用戶的可視化、功能強大的開發(fā)程序的集成開發(fā)環(huán)境，它包括了編譯器、調(diào)試器和其他工具，可以顯著的提高編寫LISP程序的效率。VisualLISP提供了文本編輯器、格式編排器、語法檢查器、源代碼調(diào)試器、檢驗和監(jiān)視工具、工程管理系統(tǒng)、文件編譯器和智能控制臺等。
VisualLISP己經(jīng)被完整地集成到AotoCAD中，而且具有簡單易學，使用了流行的有色代碼編輯器和完善的調(diào)試工具等優(yōu)點。作為開發(fā)工具，VisualLISP提供了一個完整的集成開發(fā)環(huán)境(IDE)，包括編譯器、調(diào)試器和其他工具，可以提高自定義AutoCAD的效率。另外，VISualLISP提供了發(fā)布用AutoLISP編寫的獨立應用程序的工具。VisualLISP沒有任何特殊的硬件需求，能運行AutoCAD系統(tǒng)即可運行VisualLISP。
VisualLISP的集成開發(fā)環(huán)境(IDE)包括一個VisualLISPConsole窗口、一個Trace窗口、數(shù)個文檔窗口以及調(diào)試程序的Watch窗口等。文檔窗口中可以很方便地進行源程序的輸入和編輯，還可以在COnsole窗口里輸入一條或多條LISP語句，來查看執(zhí)行的效果。語法檢查器可以用來檢查AutoL工SP程序結構錯誤和內(nèi)部函數(shù)中的變元錯誤。綜合檢查器提供對數(shù)據(jù)結構中變量和表達式的值的瀏覽和編輯功能。文件編譯器可以把AutoLISP源程序編譯成二進制格式文件，使程序的運行速度加快，并增強了應用程序的安全性。visua1LISP的源程序文件(.LSP)，或被編譯文件(.FAS)可以利用系統(tǒng)提供的ApplicaionWizard軟件打包成一個單一的ADS或ARX模塊。
在仿古建筑設計中實現(xiàn)參數(shù)化繪圖是CAD的發(fā)展方向，它能極大的提高工作效率，特別是繪制大量重復的圖樣。如AutoCADVisualLISP自帶的教程《花園小路》，它教授使用者如何用VisualLISP語言編程，讓計算機根據(jù)使用者輸入的參數(shù)自動繪圖。而仿古建筑設計中要有斗拱作、大屋頂作、油漆彩畫作等要素，下圖是作者根據(jù)VisualLISP語言編程，讓計算機自動繪制的一個油漆彩畫作中常見的紅色的五角星。見圖1
程序如下：
(defunc:5js()
(setqos(getvar“osmode”)
cmdcho(getvar“cmdcho”))
(setvar“osmode”0)
(setvar“cmdcho”0)
(tsc)
(setqpt1(getpoint“n插入點”))
(setqpt2(polarpt1(angtof“-108”)(sc28.9086)))
(setqpt3(polarpt2pi(sc28.9086)))
(setqpt4(polarpt3(angtof“-36.00”)(sc28.9086)))
(setqpt5(polarpt4(angtof“-108”)(sc28.9086)))
(setqpt6(polarpt5(angtof“36”)(sc28.9086)))
(setqpt7(polarpt6(angtof“-36”)(sc28.9086)))
(setqpt8(polarpt7(angtof“108”)(sc28.9086)))
(setqpt9(polarpt8(angtof“36”)(sc28.9086)))
(setqpt10(polarpt9pi(sc28.9086)))
(command“color”“r”)
(command“pline”pt1pt2pt3pt4pt5pt6pt7pt8pt9pt10“c”)
(setqs1(entlast))
(command“-bhatch”“p”“s”“s”s1“”“”)
(setvar“osmode”os)
(setvar“cmdecho”cmdcho)
)
;比例因子
(defuntsc()
(if(=js-scalenil)
(setqjs-scale1)
)
(setqinp(getreal(strcat“n輸入比例因子<”
(rtosjs-scale)

 1/2    1 2 下一頁 尾頁