【正文】 AutoCAD從 1。 2. 改變文字高度 3. 繪制變壓器鐵心的剖視圖 。下圖為點位圖。 。 AutoLISP程序設計舉例 1. 繪制花形圖案 繪制下圖所示的花形圖案 。 參數(shù)化繪圖設計過程 確定基本參數(shù) 計算點的坐標 調(diào)用 AutoCAD命令繪圖 應用舉例 編程繪制下圖所示的鍵平面圖并標注尺寸 。 對 AutoCAD而言，每一個繪圖命令就是一個參數(shù)化繪圖的應用。 參數(shù)化繪圖設計簡介 簡介 AutoLISP開發(fā)程序的典型也是最重要的應用就是實現(xiàn)參數(shù)化繪圖程序設計。 計算一個點，計算一個周期， 將 x， y值輸入到一個數(shù)據(jù)文件中 。 返 回 值：字符串。 參數(shù)說明： string 字符串。 返 回 值：字符串。如果未指定 length， 則子字符串延續(xù)到 string 的結(jié)尾。 字符串中的第一個字符的位置為 1。 參數(shù)說明： string 字符串型。 4． (substr string start [length]) 函數(shù)功能：返回字符串中的一個子字符串。如果指定多個 string 參數(shù)， strlen 返回 所有參數(shù)的總長度。 參數(shù)說明： string 字符串型。如 果整數(shù)值不在 1255 范圍內(nèi)，返回的結(jié)果不可預料。 參數(shù)說明： list 整數(shù)型。 返 回 值：整數(shù)。 但將字符串寫入到文件中 時會省略雙引號 。 filedesc 已打開文件的文件描述符 。 6． (writeline string [filedesc]) 函數(shù)功能：將字符串寫到屏幕上或一個已打開的文件中 。 filedesc 已打開文件的文件描述符 。 5． (writechar num [filedesc]) 函數(shù)功能：將一個字符寫到屏幕上或一個已打開的文件中 。 返 回 值： readline 讀取的字符串（不包含行結(jié)束符）。 參數(shù)說明： filedesc 文件描述符（來自 open），代表打開的文 件。在碰到行結(jié)束字符 （或字符序列）時， readchar 函數(shù)返回單個換行 符（ ASCII 碼為 10）。如果未指定 filedesc，則 readchar 從鍵盤輸入緩沖區(qū)中獲取輸入字符。 返 回 值：如果 filedesc 參數(shù)有效， close 函數(shù)返回 nil；否則它返 回一個錯誤信息。 2． (close filedesc) 函數(shù)功能：關閉一個已打開的文件 。 返 回 值：如果成功， open 返回一個可由其他 I/O 函數(shù) 使用的文件描述符。傳給一個已打 開文件的數(shù)據(jù)，只有在用 close 函數(shù)關閉 文件后才會真正被寫入文件中。如果 filename 不存在， 則創(chuàng)建新文件并打開它。字符串可以包含下列字符之一： r 打開用于讀操作。 如果沒有指定文件的全部路徑，則 open 假 定其路徑為 AutoCAD 啟動目錄。 文件讀寫 1． (open filename mode) 函數(shù)功能：打開一個文件，供其他 AutoLISP I/O 函數(shù)訪問。 程序設計思路 ：先構造選擇集 ， 然后從選擇集中逐個取出每一個對象判斷是否是圓對象 ， 是則更新圓的半徑 。 1． 編一個程序 ， 先判斷當前圖形文件中是否有下列圖層存在 ？ 若不存在 ， 則建立這些圖層 。 返 回 值：如果 tblsearch 函數(shù)找到了符號名為指定符號名 的一個條目，它就會以與 tblnext 函數(shù)相同的格 式返回該條目。 setnext 如果指定該參數(shù)且其值不為 nil， tblnext 函數(shù)的條目計數(shù)器就會被調(diào) 整，這樣隨后調(diào)用 tblnext 函數(shù)時， 它就會返回由該 tblsearch 調(diào)用所返 回的那個條目之后的條目。 symbol 字符串，表示要搜索的符號表。 參數(shù)說明： tablename 字符串，表示要搜索的符號表。 返 回 值：如果找到 ， 則返回符號表項的圖元名 。 該參數(shù)不區(qū)分大小寫 。 2． (tblobjname tablename symbol) 函數(shù)功能：返回指定符號表條目的圖元名 。如果符號表 中沒有條目了，函數(shù)返回 nil。 rewind 如果指定該參數(shù)且其值不為 nil，則回繞符號 表且檢索其中的第一個條目。有效的 tablename 值為 LAYER、 LTYPE、 VIEW、 STYLE、 BLOCK、 UCS、 APPID、 DIMSTYLE和 VPORT。 1． (tblnext tablename [rewind]) 函數(shù)功能：在符號表中查找下一項。 返 回 值：如果 ename 是 ss 的成員， ssmemb 返回圖元名 稱。 參數(shù)說明： ename 圖元名稱。如果 index 為負數(shù)或 大于選擇集中的最大序號， ssname 返回 nil。 要獲得選擇集中第 32767 個以后的圖元，必須提供實數(shù)形式的 index參數(shù)。 index 整數(shù)（或?qū)崝?shù)），指定選擇集中的一個 元素。 5． (ssname ss index) 函數(shù)功能：返回選擇集中由序號指定的那個對象（圖元） 的圖元名。 4． (sslength ss) 函數(shù)功能：求出一個選擇集中的對象 （ 圖元 ） 數(shù)目 ， 并 將其作為一個整數(shù)返回 。 返 回 值：如果成功則返回創(chuàng)建選擇集的名稱。 如果省略所有參數(shù)，則 ssget 函數(shù)給出“選擇對象”提示，允許用戶交互式地構造選擇集。 Filte rlist 關聯(lián)表，指定對象的特性。 pt2 與選擇相關的點。如果指定了 X 選擇方法， 而又 沒有提供 filterlist 參數(shù)，則 ssget 選擇數(shù)據(jù) 庫中的所有圖元，包括關閉、 凍結(jié)圖層中 的圖元和可見屏幕外的圖元。 WP 圈圍 （ 指定多邊形內(nèi)的所有對象 ） 。 P 最后一個創(chuàng)建的選擇集 。 CP 圈交 （ 指定多段線內(nèi)和與該多段線相交的 所有對象 ） 。 3． (ssget [selmethod] [pt1 [pt2]] [ptlist] [filterlist]) 函數(shù)功能：根據(jù)選定對象創(chuàng)建選擇集 參數(shù)說明： selmethod 字符串 ， 指定對象選擇方法 。 ss 選擇集 。 返 回 值：新建或修改過的選擇集 。 如果調(diào)用 本函數(shù)時 ， 僅提供圖元名參數(shù) ename， 它將創(chuàng)建 一個僅含該圖元的選擇集 。 ss 選擇集 。 1． (ssadd [ename [ss]]) 函數(shù)功能：將對象 （ 圖元 ） 加入到選擇集中 ， 或創(chuàng)建新的 選擇集 。 對本例而言 ， 只需要更改數(shù)據(jù)表中的半徑即可 。因而其思路是從數(shù)據(jù)表中取得圓心組碼表（ 10 圓心坐標） 和半徑組碼表 （ 40 半徑值） ，然后得到圓心坐標和半徑即可。 分析：本例的關鍵在于必須先取得圓的圓心坐標及半徑值 。如果未提供表達式，則 list 返回 nil。 1.(list [expr...]) 函數(shù)功能：將任意數(shù)目的表達式組合成一個表 參數(shù)說明： expr AutoLISP 表達式。其中用 newitem 替換了所有出現(xiàn)的 olditem。 lst 表。 參數(shù)說明： newitem 原子或表。如 果 listoratom 為原子，則 cons 返回包含 newfirstelement 和 listoratom 的點對。 返 回 值：返回值與 listoratom 的數(shù)據(jù)類型有關。該 元素可以為原子或表。 返 回 值：如果成功則返回找到的關聯(lián)表條目，如果找不到則返回 nil。 參數(shù)說明： element 關聯(lián)表中的關鍵元素。如果表為空或元素個數(shù) 少于三個則返回 nil。 參數(shù)說明： list 表。如果表為空或表中僅有 一個元素則返回 nil。 參數(shù)說明： list 表。如果表為空則返回 nil。 參數(shù)說明： list 表。如果 entmod 不能修改指定圖元，則函數(shù)返回 nil。 參數(shù)說明： elist 與 entget 函數(shù)返回表相同格式的表。該關聯(lián)表中的每一 項都被指定了一個 AutoCAD的 DXF組碼，來 描述圖元數(shù)據(jù)的各種性質(zhì)。 返 回 值：包含了 ename 對象定義數(shù)據(jù)的關聯(lián)表，這同 時適用于圖形對象和非圖形對象。 ename 可以為圖 形或非圖形圖元。 3． (entget ename [applist]) 函數(shù)功能：獲得對象（圖元）的定義數(shù)據(jù)。 返 回 值：對象名稱。 返 回 值：表，其中第一個元素是用戶所選對象的圖元名，第二個 元素是用戶選擇對象時指定的拾取點的坐標值（用當前 UCS 表示）。 參數(shù)說明： msg 用于提示用戶的字符串。defun AutoCAD的每一個對象都有其專屬的屬性列表，如對象的顏色、所在層、顏色、句柄等。 mand (mand Clayer粗實線層 pline (setq pp0 (polar (polar p00 0 a) (/ pi 2) c) ) (polar pp0 0 ( l a c)) (polar (polar pp0 0 ( l a c)) (/ pi 2) ( b c c)) (polar pp0 (/