第9章_CAD文字與表格的使用.pdf

第第9 9章章 二次開發(fā)及二次開發(fā)及AutoLISPAutoLISP AutoCAD AutoCAD 二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用 AutoLISPAutoLISP語言基礎(chǔ)語言基礎(chǔ)語言基礎(chǔ)語言基礎(chǔ) Visual LISP Visual LISP 基礎(chǔ)基礎(chǔ)基礎(chǔ)基礎(chǔ) DCLDCL基礎(chǔ)基礎(chǔ)基礎(chǔ)基礎(chǔ) AutoCAD AutoCAD 二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用二次開發(fā)在化工制圖中的應(yīng)用 二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性 幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介 化工化工化工化工AutoCADAutoCAD二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟 二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性二次開發(fā)的目的及必要性 AutoCAD軟件作為CAD工業(yè)的旗幟產(chǎn)品 以其強(qiáng)大的功能得到廣大用戶的 青睞 它具有精確的坐標(biāo)系 能夠完成各種圖形的精確繪制 任意縮放和修 改 支持?jǐn)?shù)字化儀的精確輸入 盡管如此 由于AutoCAD是作為一個(gè)通用的繪 圖軟件而設(shè)計(jì)開發(fā)的 但各行各業(yè)都有自己的行業(yè)和專業(yè)標(biāo)準(zhǔn) 許多單位也有 自己的技術(shù)規(guī)格和企業(yè)標(biāo)準(zhǔn) 化工行業(yè)也不例外 有著大量的各種圖紙?jiān)O(shè)計(jì)標(biāo) 準(zhǔn) 因而 AutoCAD不可能完全滿足每一用戶的具體應(yīng)用要求 但是 AutoCAD具有開放的體系結(jié)構(gòu) 它允許用戶和開發(fā)者在幾乎所有方面對(duì)其進(jìn)行 擴(kuò)充和修改 同時(shí)可以利用多種開發(fā)語言 開發(fā)可以自動(dòng)完成某一繪制任務(wù)的 軟件 可大大提高繪制速度 改善工作效率 以上工作可稱之為AutoCAD的二 次開發(fā)技術(shù) 也就說AutoCAD二次開發(fā)技術(shù)主要包括兩個(gè)方面 一方面是對(duì)它 的功能進(jìn)行擴(kuò)充和修改 如修改或增加菜單 進(jìn)行各種定制工作 另一方面是 利用開發(fā)工具編寫能夠完成特殊任務(wù)的自動(dòng)繪制軟件 如下面將介紹的通過人 機(jī)交互界面輸入必要的數(shù)據(jù)后 系統(tǒng)自動(dòng)完成法蘭的繪制 就屬于這一類型 在化工繪圖中 我們需要的也是有關(guān)這一方面的開發(fā)軟件 它能最大限度地滿 足用戶的特殊需要 通過調(diào)用各種已經(jīng)開發(fā)好的專用零件圖繪制軟件 加快繪 制速度 提高工作效率 尤其重要的是 可以將大量的計(jì)算工作交給計(jì)算機(jī)去 完成 這樣 不僅提高了繪圖速度 同時(shí)也提高了繪制精度 避免了人為的計(jì) 算錯(cuò)誤 目前很多化工技術(shù)人員對(duì)AutoCAD的使用一般還僅限于它自身的各種繪圖 功能 使用鼠標(biāo)手工繪制各種圖件 對(duì)其強(qiáng)大的二次開發(fā)功能還沒有進(jìn)行深入 使用 如果能使用AutoCAD的二次開發(fā)技術(shù)開發(fā)出一套軟件 讓AutoCAD自動(dòng) 繪制我們目前使用的各種圖件 就可以大大提高作圖效率 發(fā)揮出AutoCAD的 強(qiáng)大圖形編輯 修改功能 對(duì)圖件中的各種元素進(jìn)行任意修改 滿足各種不同 的圖件格式和繪圖標(biāo)準(zhǔn) 由此可見 對(duì)于一個(gè)化工技術(shù)人員來說 學(xué)會(huì)自己開 發(fā)AutoCAD二次應(yīng)用軟件顯得十分必要 因?yàn)檫@將大大減少具體的繪制工作 而可以將主要精力集中到設(shè)備的設(shè)計(jì)中去 從而加快化工設(shè)備的開發(fā)速度 近幾年來 隨著計(jì)算機(jī)軟 硬件技術(shù)的飛速發(fā)展及其應(yīng)用的普及 也帶來 了化工領(lǐng)域使用計(jì)算機(jī)的浪潮 首先是各課程教學(xué)使用了CAI課件 學(xué)生們可 以清楚地看到各種物質(zhì)的具體顏色 并可以看到動(dòng)畫反應(yīng) 讓學(xué)生們能夠形象 生動(dòng)地上課 然后是各種實(shí)驗(yàn)仿真軟件的出現(xiàn) 讓學(xué)生們不用親自下到工廠 也不用浪費(fèi)任何原料 在沒有危險(xiǎn)的情況下就可以完成對(duì)實(shí)驗(yàn)過程或者是生產(chǎn) 流程的學(xué)習(xí)和實(shí)習(xí) 同時(shí)計(jì)算機(jī)可以對(duì)反應(yīng)進(jìn)行模擬 對(duì)實(shí)驗(yàn)數(shù)據(jù)的擬合都大 大方便了化工工作者 隨之誕生的各種化工專用軟件 給化學(xué)工業(yè)的發(fā)展注入 了新鮮血液 使化學(xué)工業(yè)的發(fā)展如虎添翼 目前 隨著化學(xué)工業(yè)的進(jìn)一步向前發(fā)展 各種新的機(jī)械設(shè)備被人們?cè)O(shè)計(jì)和 制造 這些設(shè)備的工程圖都是一件很大的工程 比如一個(gè)完整熱交換器圖紙 就需要一個(gè)專人1 2天的工夫才能完成 利用AutoCAD的二次開發(fā)技術(shù) 可以 編出對(duì)熱交換器的圖進(jìn)行批處理的程序 只需通過簡(jiǎn)單的人機(jī)會(huì)話 計(jì)算機(jī)能自 動(dòng)繪制出圖紙 這也是化工技術(shù)人員學(xué)習(xí)掌握AutoCAD二次開發(fā)技術(shù)的目的之 所在 隨著化學(xué)工業(yè)的不斷日新月異 對(duì)設(shè)備圖紙繪制的速度要求也將越來越 快 利用AutoCAD二次開發(fā)技術(shù)開發(fā)而成的軟件直接繪制各種設(shè)備的技術(shù)將在 化學(xué)工業(yè)中得到更加廣泛的應(yīng)用 其開發(fā)技術(shù)必將伴著化學(xué)工業(yè)一起發(fā)展 幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介幾種主要的二次開發(fā)語言簡(jiǎn)介 AutoLISP AutoLISP語言是AutoCAD所支持的一種內(nèi)嵌式語言 它由美國(guó)Autodesk公 司開發(fā) 其目的是使用戶十分方便地利用AutoLISP編程語言對(duì)AutoCAD進(jìn)行 二次開發(fā) 它采用了與LISP語言中的Common LISP最近的語法和習(xí)慣約定 同 時(shí)又針對(duì)AutoCAD增加了許多新的功能 使用戶可以直接調(diào)用幾乎全部的 AutoCAD命令 因此它既具有一般高級(jí)語言的基本結(jié)構(gòu)和功能 又具有 AutoCAD強(qiáng)大的圖形處理能力 是目前計(jì)算機(jī)輔助設(shè)計(jì)和繪圖中較廣泛采用的 語言之一 Visual LISP Visual LISP 簡(jiǎn)稱VLISP 是為加速AutoLISP程序開發(fā)而設(shè)計(jì)的強(qiáng)有力的 工具 它提供了一個(gè)完整的集成開發(fā)環(huán)境 包括編譯器 調(diào)試器及其他工具 它可以顯著地提高自定義AutoCAD的效率 Visual LISP提供的主要工具有 文本編輯器 格式編排器 語法檢查器 源代碼調(diào)試器 檢驗(yàn)和監(jiān)視工具 文 件編譯器 工程管理系統(tǒng) 快捷相關(guān)幫助與自動(dòng)匹配功能和智能化控制臺(tái)等 Visual LISP克服了AutoLISP一直以來開發(fā)中所存在的諸多不便和某些局限 性 從語言方面看 Visual LISP對(duì)AutoLISP語言進(jìn)行了擴(kuò)展 可以通過 Microsoft ActiveX Automation接口與對(duì)象交互 同時(shí) 通過實(shí)現(xiàn)事件反應(yīng)器函 數(shù) 還擴(kuò)展了AutoLISP響應(yīng)事件的能力 VisualLISP已經(jīng)被完整地集成到 AutoCAD中 VBA VBA Visual Basic for Application 最早是建立在Office 97中的標(biāo)準(zhǔn)宏語 言 由于它在開發(fā)方面的易用性且功能強(qiáng)大 許多軟件開發(fā)商都將其嵌入自己 的應(yīng)用程序中 作為一種開發(fā)工具提供給用戶使用 而AutoCAD VBA就是集成 在AutoCAD中的Visual Basic開發(fā)環(huán)境 與VB的主要區(qū)別是VBA在與AutoCAD 相同的進(jìn)程空間中運(yùn)行 提供了與AutoCAD關(guān)聯(lián)的快捷的編程環(huán)境 程序設(shè)計(jì) 直觀快捷 它還提供了與其它可使用VBA應(yīng)用程序集成的能力 可以作為其它 應(yīng)用程序如Word或Excel的自動(dòng)化控制器 可以看出 VBA是其中編程很為快 捷方便的一種 對(duì)于非計(jì)算機(jī)專業(yè)而更多熟悉VB編程語言的人來說 可以很快 就掌握它 ADS ADS的全名是AutoCAD Development System 它是AutoCAD的C語言開發(fā) 系統(tǒng) ADS本質(zhì)上是一組可以用C語言編寫AutoCAD應(yīng)用程序的頭文件和目標(biāo) 庫 它直接利用用戶熟悉的各種流行的C語言編譯器 將應(yīng)用程序編譯成可執(zhí) 行的文件在AutoCAD環(huán)境下運(yùn)行 這種可以在AutoCAD環(huán)境中直接運(yùn)行的可執(zhí) 行文件叫做ADS應(yīng)用程序 ADS由于其速度快 又采用結(jié)構(gòu)化的編程體系 因 而很適合于高強(qiáng)度的數(shù)據(jù)處理 如二次開發(fā)的機(jī)械設(shè)計(jì)CAD 工程分析CAD 建筑結(jié)構(gòu)CAD 土木工程CAD 化學(xué)工程CAD 電氣工程CAD等 ObjectARX ObjectARX是一種嶄新的開發(fā)AutoCAD應(yīng)用程序的工具 她以C 為編程 語言 采用先進(jìn)的面向?qū)ο蟮木幊淘?提供可與AutoCAD直接交互的開發(fā)環(huán) 境 能使用戶方便快捷地開發(fā)出高效簡(jiǎn)潔的AutoCAD應(yīng)用程序 ObjectARX并 沒有包含在AutoCAD中 可在AutoDESK公司網(wǎng)站中去下載 其最新版本是 ObjectARX for AutoCAD 2005 它能夠?qū)utoCAD的所有事務(wù)進(jìn)行完整的 先 進(jìn)的 面向?qū)ο蟮脑O(shè)計(jì)與開發(fā) 并且開發(fā)的應(yīng)用程序速度更快 集成度更高 穩(wěn)定性更強(qiáng) ActiveX Automation ActiveX技術(shù)來源于 OLE Object Linking and Embedding 技術(shù) OLE最初 是對(duì)象鏈接與嵌入 后來發(fā)展成為復(fù)合文檔技術(shù) 包括文字 圖片 聲音 動(dòng) 畫片和視頻等媒體可以共同存在于一個(gè)文檔中 它們可以由不同的應(yīng)用程序產(chǎn) 生 同時(shí)也可以在該文檔中編輯 如果應(yīng)用程序支持OLE文檔 則在不同應(yīng)用 程序之間的切換由OLE自動(dòng)完成 OLE技術(shù)和其它技術(shù)共同作用 從而實(shí)現(xiàn)不 同應(yīng)用程序之間的無縫鏈接 自動(dòng)化技術(shù) Automation 允許一個(gè)應(yīng)用程序驅(qū)動(dòng)另外一個(gè)程序 驅(qū)動(dòng)程 序被稱為自動(dòng)化客戶 另一個(gè)為自動(dòng)化服務(wù)器 自動(dòng)化技術(shù)后來發(fā)展成為 ActiveX Automation Visual Java Java是最早由Sun公司創(chuàng)建的一種頗具魅力的程序設(shè)計(jì)語言 她是針對(duì)嵌 入系統(tǒng)而設(shè)計(jì)的 像許多開發(fā)語言一樣 Java是一組實(shí)時(shí)庫的集合 可為軟件 開發(fā)者提供多種工具來創(chuàng)建軟件 管理用戶接口 進(jìn)行網(wǎng)絡(luò)通訊 發(fā)布應(yīng)用程 序等 對(duì)AutoCAD用戶和開發(fā)者而言 Java代表著新一代的編程語言 它主要 用于開發(fā)出全新的優(yōu)秀產(chǎn)品 化工化工化工化工AutoCADAutoCAD二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟二次軟件開發(fā)的思路及步驟 化工AutoCAD二次軟件的開發(fā)和其它軟件的開發(fā)一樣 均需遵循一定的 規(guī)律 一般來說 一個(gè)完善的AutoCAD二次軟件開發(fā)過程可以分成4個(gè)階段的 內(nèi)容 它們分別是系統(tǒng)規(guī)劃 系統(tǒng)開發(fā) 系統(tǒng)運(yùn)行與維護(hù) 系統(tǒng)更新 而系統(tǒng) 規(guī)劃又可以分成3個(gè)方面的內(nèi)容 它們分別是戰(zhàn)略規(guī)劃 需求分析 資源分 配 在這個(gè)階段 我們主要任務(wù)是確定所需要開發(fā)軟件的目的 使用對(duì)象 使 用者的要求 開發(fā)者目前的能力及擁有的資源 軟件開發(fā)的第二階段是系統(tǒng)開 發(fā) 它包括系統(tǒng)分析 系統(tǒng)設(shè)計(jì) 系統(tǒng)實(shí)施 這時(shí)的主要任務(wù)根據(jù)第一階段已 經(jīng)做的工作基礎(chǔ)上 提出所開發(fā)軟件的邏輯方案 確定系統(tǒng)開發(fā)中每一步的內(nèi) 容和任務(wù) 在此基礎(chǔ)上 再進(jìn)行系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì) 提出系統(tǒng)總體布局的方 案 至此 軟件開發(fā)工作還停留在邏輯開發(fā)狀態(tài) 尚未進(jìn)入具體的編碼工作 軟件開發(fā)完成第二階段的系統(tǒng)設(shè)計(jì)后 就進(jìn)入了實(shí)質(zhì)性的編碼工作 也 就是說進(jìn)入了系統(tǒng)的實(shí)施階段 這時(shí)要完成各種編碼工作 完善系統(tǒng)各個(gè)接口 之間的聯(lián)絡(luò) 改善界面的友好程度 對(duì)整個(gè)軟件進(jìn)行組裝及調(diào)試 最后完成交 付使用前的各項(xiàng)工作 如該保密的部分需要進(jìn)行封裝 可以公開的部分需要做 好友善的人機(jī)界面 軟件開發(fā)的第三階段是運(yùn)行和維護(hù)階段 一般對(duì)于規(guī)模較小的軟件 對(duì) 這方面的考慮就比較少 比如我們自己經(jīng)常開發(fā)一些小軟件來解決一些實(shí)際 問題 就較少考慮以后的維護(hù) 一般只要滿足目前的應(yīng)用就可以了 但對(duì)于 一個(gè)完善的軟件來說 就需要考慮實(shí)際運(yùn)行過程中出現(xiàn)的各種情況 并有解 決方案及維護(hù)方法 這樣 就會(huì)使得一個(gè)看上去較小的軟件 也會(huì)變得復(fù)雜 起來 但這種復(fù)雜為使用和維護(hù)帶來了方便 提高了軟件對(duì)付外來情況的能 力 提高了軟件的使用壽命 實(shí)際上等于節(jié)約了軟件使用成本 任何一個(gè)軟件 總有它更新的時(shí)候 此時(shí) 進(jìn)入了軟件開發(fā)的第4階段 即系統(tǒng)更新階段 在新的情況下 對(duì)原有的系統(tǒng)進(jìn)行更新開發(fā) AutoLISPAutoLISP語言基礎(chǔ)語言基礎(chǔ)語言基礎(chǔ)語言基礎(chǔ) 基本運(yùn)算基本運(yùn)算 基本函數(shù)基本函數(shù) 編程中常用的分支及條件判斷函數(shù)編程中常用的分支及條件判斷函數(shù) 常用的繪圖命令常用的繪圖命令 AutoLISP命令調(diào)用過程命令調(diào)用過程 加法 加法 格式 功能 求出所列數(shù)的總和 實(shí)例 20 30 結(jié)果為50 15 10 結(jié)果為5 減法 減法 格式 功能 求出第一個(gè)數(shù)逐次減去后面數(shù)的差 實(shí)例 120 30 50 結(jié)果為40 15 10 結(jié)果為25 乘法 乘法 格式 功能 求出所列數(shù)的乘積 實(shí)例 20 30 結(jié)果為600 1 5 10 2 結(jié)果為 30 除法 除法 格式 功能 求出第一個(gè)數(shù)逐次除以后面數(shù)的商 實(shí)例 20 結(jié)果為20 130 2 結(jié)果為65 3 30 由于表中的兩個(gè)元素均為整型數(shù) 結(jié)果也為整型 數(shù) 故結(jié)果為0 3 0 30 結(jié)果為0 1 30 6 9 系統(tǒng)顯示被0除 原因在于表 6 9 的值為0 基基基 基 本本本 本 運(yùn)運(yùn)運(yùn) 運(yùn) 算算算算 自然數(shù)求冪 自然數(shù)求冪 格式 exp 功能 求e的次冪值 e 2 71828 實(shí)例 exp 2 0 結(jié)果為7 3890561 exp 0 結(jié)果為1 普通數(shù)求冪 普通數(shù)求冪 格式 expt 功能 求的 次方值 實(shí)例 expt 2 3 結(jié)果為8 求自然對(duì)數(shù) 求自然對(duì)數(shù) 格式 log 功能 求的自然對(duì)數(shù) 要求必須大于零 實(shí)例 log 10 0 結(jié)果為2 3025851 求平方根 求平方根 格式 sqrt 功能 求的平方根 要求必須大于零 實(shí)例 sqrt 4 0 結(jié)果為2 0 基基基 基 本本本 本 運(yùn)運(yùn)運(yùn) 運(yùn) 算算算算 求絕對(duì)值 求絕對(duì)值 格式 abs 功能 求的絕對(duì)值 實(shí)例 abs 3 結(jié)果為3 求最大值 求最大值 格式 max 功能 求 的最大值 實(shí)例 max 2 3 4 10 結(jié)果為10 求余數(shù) 求余數(shù) 格式 rem 功能 求整除的余數(shù) 若參數(shù)多于兩個(gè) 則將整除后 的余數(shù)再整除 求出余數(shù) 以此類推 實(shí)例 rem 50 9 4 結(jié)果為1 基基基 基 本本本 本 運(yùn)運(yùn)運(yùn) 運(yùn) 算算算算 正弦函數(shù)SIN 正弦函數(shù)SIN 格式 sin 其中 用弧度表示 功能 求的正弦值 實(shí)例 sin pi 2 結(jié)果為1 余弦函數(shù)COS 余弦函數(shù)COS 格式 cos 其中 用弧度表示 功能 求余弦值 實(shí)例 cos pi 2 結(jié)果為0 正切TAN 正切TAN 格式 tan 其中 用弧度表示 功能 求正切值 實(shí)例 tan pi 4 結(jié)果為1 反正切函數(shù)ATAN 反正切函數(shù)ATAN 格式 atan 功能 求反正切值 單位為弧度 為 2 2 實(shí)例 atan 1 結(jié)果為0 785398 即 4 實(shí)例 cos pi 2 結(jié)果為0 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) 取整函數(shù)FIX 取整函數(shù)FIX 格式 fix 功能 求的整數(shù)部分 相當(dāng)于高級(jí)語言中的 INT 數(shù) 語句 實(shí)例 fix 7 8 結(jié)果為7 fix 7 8 結(jié)果為 7 fix 9 結(jié)果為9 實(shí)型化函數(shù)FLOAT 實(shí)型化函數(shù)FLOAT 格式 float 功能 求轉(zhuǎn)化為實(shí)型數(shù) 不考慮該數(shù)原來的類型 實(shí)例 float 3 結(jié)果為3 0 float 3 3 結(jié)果為3 3 賦值函數(shù)SETQ 賦值函數(shù)SETQ 格式 setq 功能 將表達(dá)式的值賦給變量 變量和表達(dá)式需成對(duì)出現(xiàn) 實(shí)例 setq a 10 結(jié)果 a 10 setq s it 結(jié)果 s it setq b 123 c 10 d 45 結(jié)果 b 123 c 10 d 45 setq t 34 45 結(jié)果 t 79 setq P1 34 45 setq p1 30 40 確定點(diǎn)P1的坐標(biāo) setq p2 300 400 確定點(diǎn)P2的坐標(biāo) command line p1 p2 繪制從P1點(diǎn)到P2點(diǎn)的直線 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) 取表中第一元素CAR函數(shù) 取表中第一元素CAR函數(shù) 格式 car 表必須為引用表而非標(biāo)準(zhǔn)表 但可以是簡(jiǎn)單表 也 可以是嵌套表 功能 提取的頂層第一個(gè)元素 實(shí)例 car 1 3 5 結(jié)果為1 car 1 3 6 5 結(jié)果為 1 3 取表中除第一元素外其它元素的CDR函數(shù) 取表中除第一元素外其它元素的CDR函數(shù) 格式 cdr 表必須為引用表而非標(biāo)準(zhǔn)表 但可以是簡(jiǎn)單表 也可 以是嵌套表 功能 提取的除頂層第一個(gè)元素外的其它元素 實(shí)例 cdr 1 3 5 結(jié)果為 3 5 cdr 1 3 6 5 結(jié)果為 6 5 CAR和CDR的組合函數(shù) CAR和CDR的組合函數(shù) CAR和CDR可以任意組合 其組合深度可達(dá)4層 執(zhí)行時(shí)從右到左依次執(zhí)行 若搞錯(cuò)次序 其結(jié)果必然出錯(cuò) 4個(gè)層次的組合形式為CAR CXXR CXXXR CXXXXR 其中X既可以是A也可以是D 例如 cadr 2 1 2 3 34 結(jié)果為 1 2 3 caadr 2 11 6 2 3 34 結(jié)果為 11 6 caaadr 2 11 6 2 3 34 結(jié)果為11 caaddr 2 11 6 2 3 3 4 結(jié)果3 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) LAST函數(shù) LAST函數(shù) 格式 last 表必須為引用表而非標(biāo)準(zhǔn)表 但可以是簡(jiǎn)單表 也可以 是嵌套表 功能 提取的頂層中最后一個(gè)元素 實(shí)例 last 1 2 3 結(jié)果為3 last 12 3 4 5 結(jié)果為 4 5 NTH函數(shù) NTH函數(shù) 格式 nth 表必須為引用表而非標(biāo)準(zhǔn)表 但可以是簡(jiǎn)單表 也可以是嵌套表 功能 提取中第個(gè)元素 注意第一個(gè)元素的序號(hào)為0號(hào) 以此類推 實(shí)例 nth 2 2 3 4 5 5 結(jié)果為 4 5 nth 3 2 3 4 5 5 結(jié)果為5 LIST函數(shù) LIST函數(shù) 格式 list 功能 將所有的按原位置構(gòu)成新表 可用于確定點(diǎn)的坐標(biāo)位置 實(shí)例 list 2 3 5 6 結(jié)果為 2 3 5 6 list 2 3 結(jié)果為 2 3 下面是一個(gè)利用list確定點(diǎn)的位置 繪制圓的小程序 setq p1 list 222 33 setq p2 list 200 300 command circle p2 160 command circle p1 160 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) ATOF函數(shù) ATOF函數(shù) 格式 atof 功能 將轉(zhuǎn)換成實(shí)型數(shù) 返回實(shí)型數(shù) 實(shí)例 atof 23 返回結(jié)果為23 0 ASCII函數(shù) ASCII函數(shù) 格式 ascii 功能 將中第一個(gè)字符轉(zhuǎn)換成ASCII碼 并返回該值 實(shí)例 ascii b c 返回結(jié)果為98 CHR函數(shù) CHR函數(shù) 格式 chr 功能 將ASCII碼為的轉(zhuǎn)換成相應(yīng)字符 并返回該字符 實(shí)例 chr 69 返回結(jié)果為 E chr 80 返回結(jié)果為 P ITOA函數(shù) ITOA函數(shù) 格式 itoa 功能 將轉(zhuǎn)換成整數(shù)字符串 實(shí)例 itoa 5 返回結(jié)果為 5 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) ATOI函數(shù) ATOI函數(shù) 格式 atoi 功能 將轉(zhuǎn)換成整數(shù) 返回值截去小數(shù)部分 實(shí)例 atoi 45 4 返回結(jié)果為45 atoi 5 6 返回結(jié)果為 5 atoi 7 返回結(jié)果為7 atoi 34 6ac 返回結(jié)果為34 atoi df43 45 返回結(jié)果為0 說明 當(dāng)數(shù)字串中有非數(shù)字字符時(shí) 則轉(zhuǎn)換到第一個(gè)非數(shù)字原子時(shí)終止 STRCAT函數(shù) STRCAT函數(shù) 格式 strcat 功能 將按先后順序頭尾相連起來 組成一個(gè)新的字符串 實(shí)例 strcat bc etr ty 返回結(jié)果為 bcetrty 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) 20 SUBSTR函數(shù) 20 SUBSTR函數(shù) 格式 substr 功能 從中提取一個(gè)子串 該子串從起點(diǎn)的字符位置開始 由連續(xù) 個(gè)字符組成 若缺省 則到字符串結(jié)束 實(shí)例 substr b212c 2 3 返回結(jié)果為 212 substr b2er12c 2 返回結(jié)果為 2er12c 21 READ函數(shù) 21 READ函數(shù) 格式 read 功能 將轉(zhuǎn)化成表或原子 文件處理時(shí)經(jīng)常使用 實(shí)例 read ad 返回結(jié)果為AD read b 返回結(jié)果為B read a b 返回結(jié)果為 A B read 3 4 返回結(jié)果為 3 4 基基基 基 本本本 本 函函函 函 數(shù)數(shù)數(shù)數(shù) 編程中常用的分支及條件判斷函數(shù)編程中常用的分支及條件判斷函數(shù)編程中常用的分支及條件判斷函數(shù)編程中常用的分支及條件判斷函數(shù) 在程序編寫中經(jīng)常會(huì)用到一些條件判斷函數(shù)及循環(huán)函數(shù) 沒有這些函數(shù) 就 難以完成一個(gè)理想的程序 下面將一些在編程中使用程度較高的函數(shù)介紹一下 關(guān)系運(yùn)算函數(shù) 關(guān)系運(yùn)算函數(shù) 關(guān)系運(yùn)算函數(shù)是編程中分支及條件判斷函數(shù)的基礎(chǔ) 它對(duì)數(shù)值型表達(dá)式的大 小進(jìn)行比較 表達(dá)式可以是兩個(gè)或兩個(gè)以上 其返回值是邏輯變量 比較運(yùn)算成 立 則返回T 不成立則返回nil 常作為條件用于條件判斷語句和循環(huán)判斷語句 中 這一點(diǎn)將在下面講解中提到 AutoLISP共有6種關(guān)系運(yùn)算函數(shù) 它們分別是 等于 不等于 大于 大于等于 其中 等于的關(guān)系函數(shù) 其表達(dá)式只能兩個(gè) 下面是6種關(guān)系函數(shù)的實(shí)際例子 2 4 5 6 返回結(jié)果T 8 7 3 9 返回結(jié)果nil 全程比較 8 7 3 1 返回結(jié)果T 2 2 返回結(jié)果T s b 返回結(jié)果nil 1 2 3 返回結(jié)果T 1 1 3 返回結(jié)果nil 只比較前面兩個(gè)表達(dá)式 5 5 1 返回結(jié)果T 邏輯運(yùn)算函數(shù) 邏輯運(yùn)算函數(shù) AutoLISP共有3種邏輯運(yùn)算函數(shù) 分別是邏輯和AND 邏輯或OR 邏輯非 NOT 下面通過實(shí)例說明其應(yīng)用 and a d c 3 返回結(jié)果nil 只要有一個(gè)表達(dá)式為假 則返回nil and d c 返回結(jié)果nil setq a 3 b 4 返回結(jié)果4 返回最后一個(gè)賦值 and a b 返回結(jié)果T 由于前面給a b賦了值 and 3 5 返回結(jié)果nil or 1 2 a b 返回結(jié)果T 只要有一個(gè)表達(dá)式為真 則返回T or 4 2 6 9 返回結(jié)果T 二分支條件函數(shù) 二分支條件函數(shù)IF 格式 if 功能 對(duì)進(jìn)行運(yùn)算 若成立 則執(zhí)行 否則 執(zhí)行 兩者必居其一 所以稱之為二分支條件函數(shù) 是 在編程中經(jīng)常用到的條件判斷函數(shù) 下面是幾個(gè)實(shí)際例子 if 1 3 3 5 測(cè)試式不成立 執(zhí)行第二個(gè)表達(dá)式 第二個(gè)表達(dá)式為原子 返回5 if 1 3 setq a 2 setq a 9 測(cè)試式成立 執(zhí)行第一個(gè)表達(dá)式 返回2 if 1 3 yes 測(cè)試式不成立 但無第二個(gè)表達(dá)式 返回nil if 1 yes no 測(cè)試表達(dá)式為1 雖然不為T 但也不為nil 仍執(zhí)行第一表達(dá)式 返回 yes 多分支條件函數(shù) 多分支條件函數(shù)COND 前面二分支條件函數(shù)只能解決兩種結(jié)果中選一種的條件判斷 若有多個(gè) 條件中選一 則需用COND函數(shù) 格式 cond 該函數(shù)的參數(shù)為任意數(shù)目的表 每個(gè)表有兩個(gè)元素 第一個(gè)元素為測(cè)試 式 第二個(gè)元素為結(jié)果 功能 對(duì)每一個(gè)支表中的依次進(jìn)行運(yùn)算 若 成立 則執(zhí)行該支表對(duì)應(yīng)的 停止后面的測(cè)試工作 否則 繼 續(xù)執(zhí)行 直到最后一個(gè)分支條件 順序控制函數(shù) 順序控制函數(shù)PROGN 常和IF函數(shù)一起使用 使其在某一條件下 順序執(zhí)行多個(gè)表達(dá)式 格式 progn 功能 按順序執(zhí)行多個(gè)表達(dá)式 并返回最后表達(dá)式求值結(jié)果 表達(dá)式需為 標(biāo)準(zhǔn)表 常見測(cè)試函數(shù) 常見測(cè)試函數(shù) ZEROP函數(shù)用于判斷測(cè)試項(xiàng)是否為零 若為零 則返回T 否則返回nil MINUSP函數(shù)用于判斷測(cè)試項(xiàng)是否為負(fù) 若為負(fù) 則返回T 否則返回nil NUMBERP函數(shù)用于判斷測(cè)試項(xiàng)是否為數(shù) 若為數(shù) 則返回T 否則返回nil ATOM函數(shù)用于判斷測(cè)試項(xiàng)是否為原子 若為原子數(shù) 則返回T 否則返回 nil LISTP函數(shù)用于判斷測(cè)試項(xiàng)是否為表 若為表 則返回T 否則返回nil 循環(huán)函數(shù) 循環(huán)函數(shù) 在各種程序編寫中 循環(huán)語句是不可缺少的 AutoLISP的兩種主要循環(huán)函 數(shù)是WHILE函數(shù)和REPEAT函數(shù) 下面分別介紹之 WHILE WHILE函數(shù) 格式 while 標(biāo)準(zhǔn)表1 標(biāo)準(zhǔn)表2 功能 先對(duì)測(cè)試表達(dá)式進(jìn)行測(cè)試 若其值不為nil 則依次執(zhí)行下面的各個(gè) 標(biāo)準(zhǔn) 表 執(zhí)行完各 標(biāo)準(zhǔn)表 后 再返回來對(duì)測(cè)試表達(dá)式進(jìn)行測(cè)試 直至測(cè)試表達(dá)式為nil 停止循環(huán)執(zhí)行 REPEAT REPEAT函數(shù) 格式 repeat 標(biāo)準(zhǔn)表1 標(biāo)準(zhǔn)表2 功能 按該定的次數(shù)進(jìn)行循環(huán)計(jì)算式為nil 停止循環(huán)執(zhí)行 常用的繪圖命令常用的繪圖命令常用的繪圖命令常用的繪圖命令 常用的交互命令 常用的交互命令 在程序編寫中經(jīng)常要用到一些交互式命令 通過交互命令 可提高程序的人 機(jī)對(duì)話能力 AutoLISP也提供了一些常見的交互命令 下面分別介紹 輸入整型數(shù) 輸入整型數(shù)GETINT 格式 getint 提示 功能 該函數(shù)提示用戶輸入一個(gè)整型數(shù) 并返回該數(shù) 常和賦值函數(shù)SETQ合用 實(shí)例 setq n getint n 等待用戶輸入一個(gè)整型數(shù) 并將該數(shù)賦值給n 輸入實(shí)型數(shù) 輸入實(shí)型數(shù)GETREAL 格式 getreal 提示 功能 該函數(shù)提示用戶輸入一個(gè)整型數(shù) 并返回該數(shù) 常和賦值函數(shù)SETQ合用 實(shí)例 setq a getreal a 等待用戶輸入一個(gè)實(shí)型數(shù) 并將該數(shù)賦值給a 輸入字符串 輸入字符串GETSTRING 格式 getstring 提示 功能 該函數(shù)提示用戶輸入一個(gè)字符串 并返回該數(shù) 常和賦值函數(shù)SETQ合用 實(shí)例 setq m getstring your name 等待用戶輸入一個(gè)字符串 并將該字符串 賦值給m 若輸入xiaodong 返回 xiaodong 需要注意的是輸入字符串時(shí) 千萬別用空格 鍵 否則只把空格鍵以前的內(nèi)容作為輸入的字符串 輸入點(diǎn) 輸入點(diǎn)GETPOINT 格式 getpoint 基點(diǎn) 提示 功能 該函數(shù)提示用戶輸入一個(gè)點(diǎn) 若有基點(diǎn) 這將從基點(diǎn)到輸入的點(diǎn)之間畫一條直 線拖動(dòng)直線 但命令執(zhí)行過后消失 實(shí)例 setq P1 getpoint 40 50 第二點(diǎn) 等待用戶從鍵盤輸入點(diǎn)或用光標(biāo)選點(diǎn) 輸入距離值 輸入距離值GETDIST 格式 getdist 提示 功能 該函數(shù)提示用戶輸入一個(gè)距離值 實(shí)例 setq tspac getdist 輸入距離 等待用戶從鍵盤輸入某一數(shù)值 點(diǎn)的確定 點(diǎn)的確定 確定點(diǎn)的位置 是進(jìn)行各種繪制工作的基礎(chǔ) 除了前面介紹的用getpoint函數(shù)外 還可 以用下面幾種方法確定點(diǎn) 通過繪制直線的小程序加以說明驗(yàn)證 實(shí)例 setq p1 30 40 用禁止求值表 確定P1點(diǎn)的位置 setq p2 300 400 command line p1 p2 直線的繪制 直線的繪制LINE 格式 command line P1 P2 P3 條件 功能 將P1 P2 P3 等點(diǎn)用直線連接起來 其中 條件 可缺省 若條件中輸入 c 則繪制的將是封閉曲線 多義線繪制 多義線繪制 格式 command pline w 條件 功能 將P1 P2 P3 等點(diǎn)用各種曲線連接起來 其中 條件 可缺省 若條件中輸 入 c 則繪制的將是封閉曲線 矩形繪制 矩形繪制 格式 command rectang 倒角 C 標(biāo)高 E 圓角 F 厚度 T 寬度 W 尺寸 D 功能 繪制符合格式中定義的矩形 圓的繪制 圓的繪制 格式 command circle 三點(diǎn) 3P 兩點(diǎn) 2P 相切 相切 半徑 T 圓心 功能 繪制符合格式中定義的圓 默認(rèn)的輸入方式是圓心 半徑 其它輸入方式需根 據(jù)具體選定的形式而定 交點(diǎn)的確定 交點(diǎn)的確定 格式 inters 功能 求和所確定的直線和和所確定的直線的交點(diǎn) 若存在則返回交點(diǎn) 若不存在 則返回nil 如果有任選項(xiàng) 且該項(xiàng)為nil 則可求延長(zhǎng)線的 交點(diǎn) 圖層的設(shè)置 圖層的設(shè)置 格式 command layer m c l lw 功能 設(shè)置和格式中描述相符合的圖層 除圖層名為不可缺省外 其它均可采用默認(rèn) 值 當(dāng)調(diào)用圖層時(shí) 可只采用格式中的前4項(xiàng) 剖面線繪制 剖面線繪制 格式 command batcht 功能 將 按格式中定義的要求進(jìn)行填充 其中 和 可默 認(rèn) 有多種獲取方法 如果是填充剛繪制好的實(shí)體 則可用entlast命令 尺寸標(biāo)注 尺寸標(biāo)注 格式 command dim 功能 和 之間按標(biāo)注模式標(biāo)注尺寸 若標(biāo)注內(nèi)容缺省 則按 默認(rèn)方式標(biāo)注 文本書寫 文本書寫 格式 command text 功能 將文字內(nèi)容按格式中的定義書寫出來 如缺省 則以左下角為起 點(diǎn) AutoLISP命令調(diào)用過程命令調(diào)用過程 首先將AUTOLISP的程序用任何一種ASCII碼文本編輯器來編輯 在 DOS環(huán)境下可采用EDIT編輯 在WINDOWS環(huán)境下可用附件中的記事本編 輯 并注意在保存時(shí)以 LSP為后綴 一般的調(diào)用過程如下 用編輯器編寫好 以 LSP存盤 在AutoCAD中的命令中輸入 Load 盤符 子目錄 文件名 回車 輸入 文件名 參數(shù)1 參數(shù)2 注意參數(shù)和參數(shù)之間不要加逗 號(hào) 回車 在AutoCAD的界面上自動(dòng)生成圖 Visual LISP Visual LISP 基礎(chǔ)基礎(chǔ)基礎(chǔ)基礎(chǔ) 安裝安裝安裝安裝 啟動(dòng)啟動(dòng)啟動(dòng)啟動(dòng) 編輯編輯編輯編輯 調(diào)試調(diào)試調(diào)試調(diào)試 安裝安裝安裝安裝 Visual LISP無需單獨(dú)安裝 我們?cè)诎惭bAutoCAD 2004時(shí)已經(jīng)將其 捆綁按安裝在一起 只要在使用時(shí)調(diào)用它即可 這為我們省了不少安 裝軟件過程中的麻煩 同時(shí)也使得該軟件和AutoCAD之間的關(guān)系更加 緊密 尤其是Visual LISP中的部分Auto LISP程序幾乎可以移植到任何 版本的AutoCAD中 而不受版本先后的影響 啟動(dòng)啟動(dòng)啟動(dòng)啟動(dòng) 啟動(dòng)Visual LISP有兩種方法 但都需首先啟動(dòng)AutoCAD軟件 第一種方法是從AutoCAD菜單中選擇 工具 AutoLisp Visual Lisp編輯器 第二中方法是在AutoCAD命令行中輸入 vlisp 啟動(dòng) Visual Lisp編輯器 編輯編輯編輯編輯 Visual LISP的程序在編輯窗口進(jìn)行編輯 編輯時(shí) 系統(tǒng)會(huì)自動(dòng)進(jìn)行 一些識(shí)別 并將其顯示成不同的顏色 如括號(hào)是紅色 函數(shù)是藍(lán)色 如 果想輸?shù)氖歉鞣N函數(shù) 一般為表中第一項(xiàng) 但輸完后系統(tǒng)沒有自動(dòng)變成 藍(lán)色 則說明你輸錯(cuò)了 雙引號(hào)內(nèi)的繪圖命令為粉紅色 包括雙引號(hào)本 身 各種變量是黑色 數(shù)字是綠色 掌握這些規(guī)律對(duì)減少編程中的錯(cuò)誤 很有幫助 在編程過程中 如果遇到一些較為生疏的函數(shù) 可以通過系 統(tǒng)的幫助功能加以解決 調(diào)試調(diào)試調(diào)試調(diào)試 調(diào)試是編程工作中一項(xiàng)十分重要又非常繁重的工作 在沒有Visual LISP之前 Auto LISP程序的調(diào)試是十分困難的 常常找不到問題之所在 幸好有了Visual LISP 使調(diào)試工作有了質(zhì)的飛躍 利用其提供的調(diào)試工具 和專用工具 一般可以較快地找到問題 系統(tǒng)調(diào)試中最常見的錯(cuò)誤是缺少 括號(hào)或有多余括號(hào) 其次是錯(cuò)誤函數(shù)或命令 常常是繪圖命令輸錯(cuò) 因?yàn)?若函數(shù)錯(cuò)誤 在編寫中可以根據(jù)顏色判斷 還有列表缺陷 被零除及函數(shù) 被取消 對(duì)函數(shù)被取消這種現(xiàn)象有點(diǎn)特殊 因?yàn)樗⒉皇钱?dāng)前所編的程序 有問題 而是在上一次調(diào)試過程中 所編程序存在缺陷 使的AutoCAD處 于命令等待狀態(tài) 這時(shí) 需要通過視圖轉(zhuǎn)換 激活A(yù)utoCAD 取消命令等 待狀態(tài) 就可以了 根據(jù)我們自己開發(fā)程序的經(jīng)驗(yàn) 認(rèn)為調(diào)試工作需和整 個(gè)軟件的開發(fā)工作結(jié)合起來 在程序開發(fā)的步驟上考慮到調(diào)試工作問題 以采用從下到上的程序編程工作為佳 結(jié)合該方法 作者推薦如下的編程 調(diào)試步驟 將整個(gè)軟件分解成功能相對(duì)獨(dú)立的功能塊 再將功能塊分解成若干 個(gè)小程序 將小程序中的每一個(gè)語句 按照先后次序進(jìn)行編輯 在編輯過程中 首先利用顏色的改變 糾正一些明顯的錯(cuò)誤 如果對(duì)某一語句把握不大 可直接加載該語句 判斷系統(tǒng)能否通過 關(guān)于加載運(yùn)行可通過選中需要加 載的語句 點(diǎn)擊專用工具中欄中的第二個(gè)工具 一般情況下 以編完相對(duì) 較完整的一段語句后 再將這段進(jìn)行加載運(yùn)行較好 如所有的賦值語句 一段語句編寫完成 加載運(yùn)行結(jié)果正確 則進(jìn)入下一段語句的編寫 如正 確 但根據(jù)錯(cuò)誤提示可明顯找到問題的 則修改后再加載運(yùn)行 如無法根 據(jù)錯(cuò)誤提示找到問題的 則可以采用調(diào)試工具欄中的各種方法進(jìn)行錯(cuò)誤查 找 如仍無法查到 則需逐句加載 但在逐句加載中 需要補(bǔ)充對(duì)加載語 句中所需變量值的設(shè)定工作 通過以上工作 將小程序全局調(diào)通 并進(jìn)行 封裝 將同一功能的小程序進(jìn)行組裝 并進(jìn)行調(diào)試 調(diào)試完成 將功能程 序進(jìn)行封裝 將不同功能的功能程序進(jìn)行組裝 并進(jìn)行全局調(diào)試 調(diào)試通過 完 成軟件基本開發(fā)工作 根據(jù)客戶應(yīng)用的各種情況 對(duì)軟件進(jìn)行各種測(cè)試 對(duì)發(fā)現(xiàn)問題進(jìn)行 修改 最后得到完善軟件 并將其封裝 DCLDCL基礎(chǔ)基礎(chǔ)基礎(chǔ)基礎(chǔ) 定義定義定義定義 控件控件控件控件 程序編輯程序編輯程序編輯程序編輯 軟件調(diào)試及加載軟件調(diào)試及加載軟件調(diào)試及加載軟件調(diào)試及加載 定義定義定義定義 對(duì)話框是人機(jī)交互的主要界面之一 它具有良好的視覺效果 操作方便 直觀 輸入數(shù)據(jù)與順序無關(guān) 當(dāng)我們