autocad高級培訓(xùn)-資料下載頁
2025-08-21 01:12本頁面
【正文】 碼四、 文本編輯器主要功能及其實現(xiàn)1. 文件/編輯/保存操作有關(guān)操作與Windows環(huán)境下的應(yīng)用軟件（如Word等）類似，這里從略。2. 代碼分色器和在控制臺窗口中相同，一旦在文本編輯器中輸入文本后，Visual LISP會判斷所輸入的文本是否是一個AutoLISP內(nèi)部函數(shù)、數(shù)字、字符串或者其它的已知元素，并用每一種元素自己的顏色顯示這些文本。默認的AutoLISP語言代碼配色方案AutoLISP元素顏色內(nèi)部函數(shù)和被保護的符號藍色字符串粉色整數(shù)綠色實數(shù)淺藍色注釋粉色，背景為灰色括號紅色其他（如用戶變量名等）黑色168。Visual LISP可以按照一些語言的種類確定代碼顏色，方法是：工具——窗口屬性——按語法著色168。用戶可以自定義顏色配置，方法是：工具——窗口屬性——配置當前窗口——打開“窗口屬性”對話框進行配置3. 文本格式化（1）設(shè)置AutoLISP代碼格式的對話框工具——環(huán)境選項——Visual LISP格式選項（2）AutoLISP代碼格式的總體式樣有普通、寬行、窄行和分欄四種式樣。4. 語法檢查（1） 括號匹配向前匹配——將插入點（光標位置）移到和開括號相匹配的閉括號之后向后匹配——將插入點（光標位置）移到和閉括號相匹配的開括號之后向前選擇——插入點的移動和“向前匹配”相同，同時選中文本向后選擇——插入點的移動和“向后匹配”相同，同時選中文本（2） 檢查語法錯誤168。應(yīng)用彩色代碼功能檢查語法錯誤168。用語法檢查功能檢查語法錯誤主要檢查的語法錯誤為：圓括號不匹配函數(shù)的參數(shù)數(shù)目不正確函數(shù)的參數(shù)類型不正確某些特殊函數(shù)的語法不正確方法：工具——“檢測編輯器中的文字”如果檢測到錯誤，就會在“編譯輸出”窗口看到錯誤信息。五、 調(diào)試程序VLISP提供的調(diào)試程序工具有：168。監(jiān)視窗口：在程序執(zhí)行過程中查看變量的值168。檢驗窗口：在“檢驗”對話框中顯示指定對象的詳細信息168?！胺柗?wù)”對話框：符號可以使變量或函數(shù)名。通過符號服務(wù)對話框可以查看變量的當前值、函數(shù)的定義和設(shè)置變量及函數(shù)的一些特性168。斷點循環(huán)模式：在程序內(nèi)部設(shè)置斷點，中斷程序的執(zhí)行，并允許用戶在中斷時查看和修改對象值下面再看幾個用AutoLISP語言編程畫圖的例子：3. 繪制太極圖案程序源代碼：(defun yinyang(/ origin radius iradius halfr originx originy os) ；見輔導(dǎo)材料P4344 (setq os (getvar OSMODE)) ；見輔導(dǎo)材料P51 (setvar OSMODE 0) ；見輔導(dǎo)材料P51 (setq origin (getpoint \n圖案的中心:)) (setq radius (getdist \n圖案的半徑: origin)) (setq iradius (getdist \n內(nèi)部圓的半徑: origin)) (if ( iradius radius) (setq iradius (/ radius 4))) ；見輔導(dǎo)材料P41 (setq halfr (/ radius 2)) (setq originx (car origin)) (setq originy (cadr origin)) (mand CIRCLE origin radius) (mand ARC C (list originx (+ originy halfr)) (list originx (+ originy radius)) origin ) (mand ARC C (list originx ( originy halfr)) (list originx ( originy radius)) origin ) (mand CIRCLE (list originx (+ originy halfr)) iradius ) (mand CIRCLE (list originx ( originy halfr)) iradius )(setvar OSMODE os) (princ) ；見輔導(dǎo)材料P49 )2. 繪制正弦函數(shù)曲線：Y=ASin(X)。給定坐標原點、周期數(shù)和振幅，繪制正弦曲線，自變量以“弧度”為單位(defun c:drawsin () 。見輔導(dǎo)材料P4344 (initget 1) 。見輔導(dǎo)材料P47 (setq lp (getpoint \n 坐標原點:) 。見輔導(dǎo)材料P46 lpx (car lp) lpy (cadr lp) ) (initget 7) 。見輔導(dǎo)材料P47 (setq n (getint \n 周期數(shù):)) 。見輔導(dǎo)材料P45 (setq a (getint \n 振幅:)) (setq x 0 step ) (mand pline) 。見輔導(dǎo)材料P49 (while (= x (* 2 n pi)) 。見輔導(dǎo)材料P41和P36 (mand (list (+ lpx x) 。見表處理函數(shù) (+ lpy (* a (sin x))) ) ) (setq x (+ x step)) ) (mand ) 。結(jié)束正弦曲線繪制 (mand line lp (list (+ lpx (* 2 n pi)) lpy) ) 。畫水平軸 (mand line (list lpx (+ lpy (* 2 a))) (list lpx ( lpy (* 2 a))) ) 。畫垂直軸 (mand zoom e ) ；圖形極大化 (mand) 。中斷執(zhí)行任何命令)3．繪制極坐標方程R=1+2cos2a在區(qū)間[0，2p]的圖像。繪制極坐標方程曲線(defun c:draw (/ cp) (setq cp (getpoint \n基點:)) (mand ucs w ucs o cp pline) (drawl 0) ；函數(shù)調(diào)用 (mand zoom e) ；圖形極大化)(defun drawl (x / r) (if (= x (* 2 pi)) 。見輔導(dǎo)材料P41 (mand 3,0 ucs w) (progn (setq r (+ 1 (* 2 (cos (* 2 x))))) 。見輔導(dǎo)材料P42 (mand (list (* r (cos x)) (* r (sin x)))) (drawl (+ x )) 。函數(shù)的遞歸調(diào)用 ) ))思考題：1. 如何繪制自變量是以十進制的“度”為單位的正弦函數(shù)曲線Y=ASin(X)。2. 如何繪制余弦函數(shù)曲線Y=Acos(X)。（1） X以弧度為單位（2） X以十進制度為單位3. 如何繪制拋物線的圖像Y=X2/10。4. 如何繪制雙曲線的圖像X2Y2/3=1。
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1