經(jīng)通道 本書討論：（二群號237663263（1000人）貓老師個人 AutoLisp&VisualLisp&不死貓精品（預(yù)覽版不死貓榮譽CADLisp的技術(shù)教望讀者通過本文的閱讀不僅僅是提高開發(fā)的技能，更主要是希望讀者能從學(xué)習(xí)、開發(fā)的角度得到的啟發(fā)。2D平面世界坐標系。Lisp開發(fā)分區(qū)資深會員、Autodesk中國區(qū)技術(shù)觀察員、國內(nèi)首位AutoLisp、VisualLisp線上教學(xué)老師。貓老師主要作品包括國內(nèi)首套完整VisualLisp（12小時以上已申請國家著作權(quán)專利2011Z11L045208、Lisp實現(xiàn)多線程、Lisp函數(shù)與反研究（可以幫助加密但謝絕任何方式求、可視化DCL框開發(fā)工具、自動編碼VisualLisp開發(fā)小助手、Lisp圖形分析代碼自動、Lisp源代碼加密工具等，最后當然還有這本嘍。第一章概述學(xué)習(xí)的意CADCAD軟件上進行定制修改，功能的目前幾乎所有行業(yè)都有自己的行業(yè)軟件，輔助CAD進行專業(yè)繪圖工作。但作效率、二次開發(fā)代替CAD手工畫圖提高繪圖效率。學(xué)習(xí)目解決CAD應(yīng)用難題。思想準要再用兩天或的時間來彌補學(xué)習(xí)方怎樣尋找答1、把問題描述清楚。不是每個人都有相同的思維，因此問題的描述圖文并茂，前因講清楚很重要。2、提問前自己先通過網(wǎng)絡(luò)尋找答案。、博客、都是很好的老師，一個不會自我?guī)椭娜?，很難得到別人的幫助。在上面，很多3、避免貼所有的代碼來問其中不明確的問題。調(diào)試找錯是學(xué)習(xí)的第一課，記得找到錯誤產(chǎn)生的語句，嘗試解決錯誤，再問。有問題就開發(fā)方開發(fā)AutoCAD二次開發(fā)中，輸入的方法主要包括用戶輸入數(shù)據(jù)、圖形選擇等；計CAD手工操作都可以用程序來模擬，每個方法都有特開發(fā)語言概其他常見開發(fā)語言（按難易度和功能強大性從小到大）VBA/VB/.NET(C#趣的讀者可以，這里就不多講述了。AlispAlisp第二章準備工作開發(fā)前的準備工CAD雖然lisp幾乎可以在所有的cad版本上使用，但新版本令很多低版本沒win7-x64電腦上安裝CAD2006常見步驟為：安裝安裝安裝安裝CAD2006\Bin\acadFeui\acad.msi，不要安裝Setup開發(fā)工具的選能單一，切換CAD時偶爾會卡死。優(yōu)點：編寫流暢，能夠自動生成局部變量，直接發(fā)送代碼到CAD。缺點：中第編輯editplus,ultraeditlisp語法，并且對擁有語法高亮和代碼折疊CADlisplink等功能補充了插編程，目前支持2002-2014版本CAD。加載功能已在明經(jīng)。進一步簡化編在選擇完編輯器的基礎(chǔ)上，推薦使用第修改鍵盤的工具。一個是放飛雙手,高效開發(fā):自定義鍵盤動作(貓老師腳 一句話代碼測我們在CAD命令行上面就可以寫下我們第一個lisp首先切換輸入法為英文。在命令行上寫下(alert“ok“)敲回車吧，我們看見CAD給了我們歡迎的笑臉。加載程圖區(qū)，也可以實現(xiàn)lsp文件的加載。第三章線的-圖形創(chuàng)建和基本屬知識點，線也是CAD最常用的圖形。畫好一條畫一條lispCAD的指令操作。我們平時畫線最簡單的是敲畫線命令，入法下的小括號()lisp本身必須括號成對，貓老師建議在寫任何語句前都把一對括號先寫好，避免因括號缺失造成程序加載錯誤。然后我們要告訴CAD我要執(zhí)行一個CAD命令，輸入command，然后敲一個空格。按照抄寫如下代碼OKZoom-E關(guān)閉捕CAD畫圖時，經(jīng)常會出現(xiàn)畫錯或者未畫出的情況，主要原因是通過變量來傳遞坐比如說一個人叫，在不斷變化，但是我們只要設(shè)定一個[(setq28)這里我們解釋為(定義是28歲)過了一年，[]變?yōu)?9(setq 三]這個盒子名稱一直都沒有變。1】,你可以用中英文數(shù)字混合的方式來給盒子命名，方便盒子里面的內(nèi)容。lisp里面叫表。點是數(shù)字的集合，所以可以這樣來創(chuàng)建。List里面跟了兩個數(shù)字，因此通過(list00)得到了這樣的一個點(00)。(list00)在命令行上面寫好回車，可以看見返回(00)OK，我們繼續(xù)寫讓用戶選擇坐避免多句話擠在一行里。建議讀者把\n去掉再執(zhí)行試試。CAD其實我們在CAD畫圖用程序的時候都是先敲打一個特殊令才執(zhí)行的，寫這樣的代碼來CAD可執(zhí)行令Defun表示我們開始編寫一段函數(shù)，因為需要在系統(tǒng)里面命令，所以命令的格式為C：后面跟你定義令。這段代碼的執(zhí)行命令就是TT。線的構(gòu)得到剛才畫的每個人都有一個號，在CAD里面每個圖元對象（其實就是一個圖形元素）CAD隨機提供的，但是在每張圖紙里你會看見返回了類似這樣的結(jié)果：<圖元名。我們就使用Entsel函數(shù)。就是（ent指圖元，selselect表示選擇）命令選擇對象圖元名7eed3208>49.017712.608CARvlisp里面新的稱呼，我們用這個代碼來把前面這一長串的東西不需要記住，用的時候來就行了，lisp的函數(shù)不區(qū) CAD，我們需要面加上一命令(setq(Vlax-Ename->Vla-Objectcarentsel))))選擇對象:#<VLA-OBJECTIAcadLine0ae42eb4>AcadLineCAD分配的對象名稱，我們只需把這個用setq裝進變量盒子，至于這個結(jié)果是怎么復(fù)雜都不用管。名字進行刪除、等操作，CAD令調(diào)用就需要使用到圖元名。關(guān)于程序向下兼(defun )獲取線的起VisualLispVisualLisp的對象屬使用對象名處理的選擇對象32.68869.34301使用圖元名處理的我們解釋為((10(用戶選擇就是先用(entget圖元名)獲取一個屬性表命令(setq(entgetcar選擇對象1圖元名7ee61f08>)0LINE(330圖元名7ee61cf8>)."99")(100."AcDbEntity")(67.0)(410."Model")(8."0")(100"AcDbLine")(1032.68869.343010.0)(1140.194614.52110.0)(2100.0命令:(setq起點屬性(assoc10屬性表))(1032.68869.34301命令:(setq(cdr起點屬性))(32.68869.343010.0)獲取線的終或獲取線的長(defun(setq(car(setq(cdr(assoc10(entget一條線圖元))))(setq(cdr(assoc11(entget一條線圖元))))(setq線的長度(distance線的起點線的終點)))獲取線的顏((找到顏色屬性則(得到圖元顏色否則(圖元顏色等于)獲取線的圖獲取線獲取線線的操刪除這條移動這條這條修改線的起修改線的終修改線的長使用Vlax-Put-Propertylength這個屬性，只能通過修改起點或終點來達到目修改線的顏0-256色.0byblock,256修改線的圖修改線(setq(car(setq(Vlax-Ename->Vla-Object一條線圖元))(Vlax-Put-Property一條線對象'Lineweight40)-1-2-0591315182025303540505360708090100106120140158200其中-1ByLayer,-2是ByBlock,-3修改線(setq(car(setq(Vlax-Ename->Vla-Object一條線圖元))(Vlax-Put-Property'LinetypeCONTINUOUS目前我們常用的幫助文件和工具包括以下幾個文件 明經(jīng)通道翻譯的LISP函數(shù)參考2008中文版2、明經(jīng)通道翻譯的AutoCADActiveX和VBA參考.（因為LispVBA的，在本書的后面章節(jié)會講解如何轉(zhuǎn)換vba代碼。） 充，這個手冊用lisp代碼來講解的） AutoCAD系統(tǒng)變量和環(huán)境變量手冊 貓老師的Lisp開發(fā)小助手通過和CAD交互調(diào)用中文的函數(shù)參考， 貓老師的Lisp自動代碼生成工具，提供lisp各類開發(fā)方法的范例工第五章雙節(jié)棍-點坐標的生成方法(二維點為例通過數(shù)字制那么數(shù)字就可以通過其他方法來計算得到.(詳見后面的章節(jié)通過其他坐標計另法是通過第一個點的坐標,沿著某個角度,走一個距離得到第二條線的生第一條線的延得到第二條線的方假如我們已經(jīng)知道了第一條線是線1,那么第二條線如果是在第一條線后面位置關(guān)判斷相求交第法是已經(jīng)知道4個點,求他們的交點判斷平判斷垂判斷點重判斷線重線的端點重合就是重合的多圖元批量處選擇選擇集是圖元的集合選擇集的獲選擇集的創(chuàng)選擇集的刪選擇集第六章輸入和輸出輸入數(shù)數(shù)文關(guān)鍵輸出數(shù)使用open函數(shù)打開文本,wriine或princprin1寫入內(nèi)容,close關(guān)閉保存本注意:如果此時文件被其他程序打開進行讀寫操作,lisp無法對該文件進行讀寫.如果是你前面的lisp錯誤造成,就需要關(guān)閉CAD釋放文件的打開.Excel第七章條條大路通羅馬-選兩個條多個條第八章車輪向前-Vlax-第九章不敗奧義-Lisp括號成Editplus括號和變量轉(zhuǎn)第十章失敗，成功之母-找出錯誤所1CAD自帶編輯器的斷點功能一步一步執(zhí)行.

/vshow/id使用貓老師提供的逐行調(diào)試功能,一行一行代碼加載查看在你認為可能出錯的代碼前面增加(print數(shù)字)ifcond語句等地方的增加代碼,progn里面45根據(jù)錯誤提示信息,分析可能出錯的代碼.這個需要一定的經(jīng)驗判斷錯誤原修改錯誤代常見錯誤原因和解決辦錯誤:參數(shù)類型錯誤 XX表示函數(shù)需要這樣格式的參數(shù),但是你提供的確實YY這樣的值.找到這句話,并把后面每個代碼的值都一行輸出,就能知道錯誤的變量或代碼是哪個了錯誤:錯誤:參數(shù)太多(太少)錯誤:其中XXX表示你自己定義的函數(shù).程序處理可預(yù)見錯誤的方假認值給用戶,我們就是用IF函數(shù)形成判斷,程序應(yīng)對不同情況.先執(zhí)行，再判斷錯Vl-catch-all-不管錯在哪里都要修第十一章不要重復(fù)勞動-11.1自定義函11.2CAD函函數(shù)的返回變量的領(lǐng)嵌套函遞歸函第十二章標準程序開發(fā)格式參考第十三章常見圖形創(chuàng)建和處理圓圓多段矩多邊樣條曲橢多單行文多行文填第十四章生產(chǎn)線-輸計輸?shù)谑逭伦址幚碜址妮斪址妮斪址献址鹱址畡h除一字符串替換一第十六章數(shù)字的處理數(shù)字的輸基本數(shù)幾何函數(shù)字關(guān)系判第十七章角度的處理角弧圓周第十八章表的處理表的創(chuàng)幾種表的構(gòu)獲取表中表的替表的刪表中第十九章各類數(shù)據(jù)轉(zhuǎn)換數(shù)小數(shù)位數(shù)控字符表 命令中的轉(zhuǎn)坐標角圖元坐標第二十章路在何方-判斷數(shù)據(jù)類空字符數(shù)整奇偶判斷相數(shù)文表圖元（對象判斷大第二十一章CAD圖顏文字樣線多余的輸捕捉的與恢lisp視刪22.2鏡偏陣移旋縮拉修延打CAD第二十三章標注創(chuàng)建和處理常見標第二十四章高級圖形處理塊屬性組面表圖形面任意兩個圖形的交任意連續(xù)線（包括各類直線、各類曲線）線的起線的終線的長等取得一定距離的 上的位置（線上點到起點的距離封閉線的面第二十五章組碼-屬性修改的法。但是在現(xiàn)在的vlisp技術(shù)里面，已經(jīng)使用屬性和方法來處理。但是在某些時候，組碼的處理比vlisp方法更方便，所以建議讀者以vlisp方第二十六章DCL框-用戶交互可視第二十七章DCL框數(shù)據(jù)獲取和操第二十八章OpenDCL-高級框解決方 打開opendcl直接保存為 在opendcl界面左下角的空白區(qū)鼠標右鍵添加一個addModelessdialog非模態(tài)框 拖個按 在右面properties屬性頁改事件為1、在event事件頁里點一