第一篇：Autolisp編程心得

[轉(zhuǎn)帖]Autolisp編程心得 養(yǎng)成良好的書寫習(xí)慣

眾所周知，Lisp是一種表結(jié)構(gòu)語言，括號必須成對出現(xiàn)，在調(diào)試時(shí)往往為遺漏了一個(gè)括號大費(fèi)周折，所以，養(yǎng)成一個(gè)好的編程習(xí)慣是學(xué)好Lisp所必須的。

⑴選擇一個(gè)較好的編輯器，這是一個(gè)基本條件，建議使用Visual Lisp編輯器或Lisplink等專用編輯器，此類編輯器可以對函數(shù)突出顯示。

⑵按Lisp（DCL）專有格式書寫，并經(jīng)常對程序進(jìn)行“格式化”，及時(shí)發(fā)現(xiàn)語法錯(cuò)誤，并有利于調(diào)試是查找錯(cuò)誤。

⑶使用自定義函數(shù)，并輔助以適當(dāng)?shù)米⑨專谳^大程序中按功能使用自定義函數(shù)可以使得程序條理化。

函數(shù)中循環(huán)與轉(zhuǎn)移的使用

在高級語言中一般有類似“goto”的語句實(shí)現(xiàn)轉(zhuǎn)移，在AutoLisp中沒有轉(zhuǎn)移的函數(shù)。我們可以使用自定義函數(shù)實(shí)現(xiàn)轉(zhuǎn)移，用if及cond輔助實(shí)現(xiàn)條件轉(zhuǎn)移。當(dāng)我們需要實(shí)現(xiàn)在滿足一定條件時(shí)進(jìn)行循環(huán)的功能，一般使用while函數(shù)，但有時(shí)需要判斷的條件較復(fù)雜時(shí)，使用while函數(shù)往往不能實(shí)現(xiàn)或使得程序不夠簡潔。這時(shí)我們可以使用“轉(zhuǎn)移”，將需要實(shí)現(xiàn)的功能作為（子）函數(shù)，使用恰當(dāng)，可以在程序中任意“轉(zhuǎn)移”。一般認(rèn)為，當(dāng)一段代碼在不同處重復(fù)使用時(shí)，我們才會(huì)使用子函數(shù)定義，其實(shí)，利用函數(shù)的更大的優(yōu)點(diǎn)是使得程序更加結(jié)構(gòu)化。這就使得我們不必拘泥于程序中的循環(huán)語句，而使用函數(shù)的循環(huán)調(diào)用，輔助適當(dāng)?shù)呐袛?，?shí)現(xiàn)“轉(zhuǎn)移”，如A->B->A。當(dāng)然也可以進(jìn)行自身調(diào)用，構(gòu)成一個(gè) “標(biāo)準(zhǔn)的”循環(huán)。如例一中，“程序執(zhí)行完畢返回”與“空選返回”兩種情況如果使用循環(huán)語句，其條件是完全不同的，而將函數(shù)本身作為子函數(shù)調(diào)用，程序簡潔明了。

3.initget函數(shù)中關(guān)鍵字“ ”（空格）的使用

空格可以被用作關(guān)鍵字，一般多用來定義鼠標(biāo)右鍵退出。

⑴當(dāng)用戶輸入函數(shù)不支持控制位（如entsel、nentsel、nentselp）時(shí)，可直接使用 “(initget “ ”)”。

⑵當(dāng)用戶輸入函數(shù)支持控制位（如getpoint等）時(shí)，可使用“(initget 1 “ ”)”禁止空輸入，而將回車等空輸入作為關(guān)鍵字使用。

⑶當(dāng)同時(shí)使用其它關(guān)鍵字時(shí)，應(yīng)該將空格作為一系列關(guān)鍵字的最后一個(gè)，用 “(initget “C ”)”（兩個(gè)空格）調(diào)用，否則無效。見例一。

************************************************;;例一(defun ett_ct()(initget “C ”);關(guān)鍵字“C”及空格

(setq s0(entsel “n設(shè)置顏色C / 選取文本:”))(cond((= s0 “C”)(ett_col));轉(zhuǎn)設(shè)置顏色子函數(shù)((= s0 “")nil);空格退出

((and(=(type s0)'LIST);選擇實(shí)體

(=(cdr(assoc 0(entget(car s0))))”TEXT“);判別文本)...;操作內(nèi)容(ett_ct);編輯后返回選擇)(t(ett_ct));空選返回選擇))************************************************ 有時(shí)需要進(jìn)行復(fù)雜的判斷，使用如“(= s0 ”“)”語句可能不能準(zhǔn)確判別輸入的空格關(guān)鍵字與空選擇，可以使用“(=(type s0)'STR)”語句。

4.Lisp的暫停與while的特殊使用

Lisp一般在交互輸入時(shí)才會(huì)暫停，如果只需要實(shí)現(xiàn)屏幕顯示暫停，可使用grread函數(shù)，grread函數(shù)對所有合法的輸入設(shè)備均會(huì)作出反應(yīng)，有時(shí)我們只希望對鍵盤有反應(yīng)，可使用while函數(shù)進(jìn)行循環(huán)。

*******************(princ ”nPress ENTER to continue:“)(while(/=(car(grread))2))******************* while用于滿足一定條件的循環(huán)，其標(biāo)準(zhǔn)語法為：(while testexpr [expr...])其中expr解釋為“在testexpr為nil之前要求值的一個(gè)或多個(gè)表達(dá)式”，為可選項(xiàng)（在R14之前沒有方括號，但仍為可選項(xiàng)）。正常我們使用while時(shí)，總會(huì)有expr項(xiàng)，更多的時(shí)候，我們是為了expr項(xiàng)才會(huì)使用這種循環(huán)語句，所有我們往往有expr項(xiàng)是不可缺少的感覺。這里我們使用while函數(shù)的語法是while函數(shù)的特例，即沒有expr項(xiàng)的情況。如果希望對鼠標(biāo)右鍵同時(shí)反應(yīng)，可以使用：

*******************(princ ”nPress ENTER to continue:“)(while(and(/=(setq a(car(grread)))2);鍵盤(/= a 11);鼠標(biāo)右鍵（SHORTCUTMENU＝0）(/= a 25);鼠標(biāo)右鍵（SHORTCUTMENU≠0）))******************* 5.輸入距離

Lisp語言中輸入距離的函數(shù)為getdist，但我們有時(shí)需要輸入負(fù)值，有時(shí)需要在輸入距離的同時(shí)得到角度，使用getdist函數(shù)就顯得無能為力，這時(shí)，我們可以靈活使用其它交互輸入函數(shù)如getpoint、getcorner等，通過計(jì)算得到我們所需要的值。例二是一段輸入長度的同時(shí)得到默認(rèn)角度的代碼，使用getpoint函數(shù)。

************************************************;;例二(setq pt0(getpoint ”n直線基點(diǎn): “)pt1(getpoint pt0 ”n直線長度: “);長度及角度可用鍵盤或鼠標(biāo)定位 dst(distance pt0 pt1);計(jì)算長度

ang(angle pt0 pt1);計(jì)算默認(rèn)角度

ang1(getangle pt0(strcat ”n直線方向<“(angtos ang 1)”>: “)))************************************************ 例三是可以按陣列方式輸入行列間距的代碼，輸入距離為正值，修改部分代碼可輸入負(fù)值，使用getcorner函數(shù)，同時(shí)使用initget的控制位128。

************************************************;;例三

(defun lc_dist()(initget 128);允許任意輸入

(setq disr(getpoint ”n指定單位單元或輸入行間距: “))(if(=(type disr)'LIST);鼠標(biāo)輸入

(progn(initget 1)(setq dis(getcorner disr ”n指定對角點(diǎn): “);鼠標(biāo)輸入對角

disc(abs(-(car dis)(car disr)));正值行距

disr(abs(-(cadr dis)(cadr disr)));正值列距);計(jì)算行列間距)(if(=(type disr)'STR);鍵盤輸入行距

(if(setq dis(distof disr));判斷輸入的是否距離

(progn(initget 6)(setq disc(getdist ”n輸入列間距: “));輸入列距)(progn;鍵盤輸入格式不符返回

(princ ”n需要正數(shù)值或兩個(gè)二維角點(diǎn)?！?(lc_dist)))(progn;空輸入返回

(princ ”n需要正數(shù)值或兩個(gè)二維角點(diǎn)?！?(lc_dist)))))************************************************ 6.數(shù)學(xué)運(yùn)算函數(shù)的數(shù)量界限

在Lisp中對表中數(shù)據(jù)進(jìn)行求和、求最大值等數(shù)學(xué)運(yùn)算時(shí)，往往直觀的對表直接賦予運(yùn)算函數(shù)，使用語句如“(eval(cons 'MAX numlist))”，一般都可以進(jìn)行計(jì)算，但當(dāng)表中數(shù)據(jù)數(shù)量大于255時(shí)，將會(huì)出現(xiàn)錯(cuò)誤“bad argument value: does not fit in byte: 256”。

對于這種情況，我們不必對數(shù)據(jù)表進(jìn)行分段，可以直接使用函數(shù)apply，語法更簡單：(apply 'MAX numlist)。apply可將數(shù)據(jù)表傳送給指定的函數(shù)進(jìn)行求值而不受數(shù)據(jù)數(shù)量的影響。

受表中數(shù)據(jù)數(shù)量影響的數(shù)學(xué)運(yùn)算函數(shù)有：+、-、*、/、max、min、logand及l(fā)ogior。

7.選擇集與表

選擇集是一種特殊結(jié)構(gòu)的表，只能通過特定的函數(shù)進(jìn)行操作，但這些函數(shù)對大量重復(fù)的操作

只能通過循環(huán)實(shí)現(xiàn)，顯得力不從心，不能體現(xiàn)Lisp語言表結(jié)構(gòu)的優(yōu)越性。其實(shí)我們只要通過存取實(shí)體名或?qū)嶓w句柄，將它們存為一個(gè)普通結(jié)構(gòu)的表，完全可以通過常規(guī)表操作函數(shù)實(shí)現(xiàn)對實(shí)體的操作。

例四是一段使用apply、mapcar函數(shù)聯(lián)合求文本選擇集中文本基點(diǎn)最大y值得代碼，只是一個(gè)示例，如果結(jié)合VL-sort函數(shù)，可輕松實(shí)現(xiàn)對文本的排序。

************************************************;;例四

(setq sl nil i-1)(repeat(sslength(setq ss(ssget '((0.”TEXT“)))));選擇文本

(setq i(1+ i)en(ssname ss i);從選擇集中取出文本 sl(cons en sl);構(gòu)造包含實(shí)體名的表)(setq maxy(apply 'max;求文本基點(diǎn)最大y值(mapcar '(lambda(x)(caddr(assoc 10(entget x))));提取y值)sl)))************************************************ 當(dāng)然，選擇集也有其優(yōu)勢的一面，比如對選擇集中實(shí)體的刪除操作非常簡單、選擇集中的實(shí)體不會(huì)重復(fù)及選擇集可以與Acad命令交互使用等特征是一般表所不具備的，所以，編程時(shí)應(yīng)根據(jù)程序要求，靈活運(yùn)用。

8.cal的使用與加載

Acad隨機(jī)附帶了一些外部定義命令，其中cal（計(jì)算器）命令是最常用的命令之一，在加載gromcal.arx后cal可以在Lisp程序中像其它函數(shù)一樣使用，這就使得我們在程序中對文本的四則運(yùn)算處理變得簡單，如“(cal ”1+2/3“)”，其中字符串”1+2/3“可以從圖形的文本中提取，也可以是符合cal要求格式的任一字符串（詳見Acad聯(lián)機(jī)幫助）。

需要注意的是，在Acad中g(shù)romcal.arx只能加載一次，重復(fù)加載將使Acad以外退出（無提示）。

需要使用cal函數(shù)的Lisp程序，應(yīng)在程序尾部加上以下代碼： *******************(if(or(=(type c:cal)'LIST);R14使用(=(type c:cal)'SUBR);R2000+使用)(arxload ”geomcal.arx“))******************* 9.Undo處理

一個(gè)完善的程序應(yīng)該有較好的出錯(cuò)處理，這是在所有Lisp教材上都提及的，但程序的Undo處理就說得很少或沒有提及。其實(shí)Undo處理對程序來說也是非常重要的，尤其對有較多輸出的復(fù)雜程序而言，不能解決Undo問題，使用起來會(huì)極不方便。

對于Undo問題的解決，一種方法是盡量少用或不用command函數(shù)，即不調(diào)用原始命令，這是一種較好的方法，但必須注意的是，一段程序必須至少有一次調(diào)用command函數(shù)，否則Undo命令將取消程序運(yùn)行前的前一次命令，解決的方法是在程序運(yùn)行的起始位置加一個(gè)無謂的command，如

“(command ”color“ ”“)”。

有時(shí)不使用command函數(shù)不能達(dá)到我們要求的一些功能，或使得程序過于復(fù)雜，我們可能需要使用一些command函數(shù)（原始命令），這是就應(yīng)該在程序中進(jìn)行Undo處理，即使用Undo命令的編組功能。

例五是一段程序出錯(cuò)函數(shù)與Undo處理的示例。************************************************;;例五

(defun newerr(s);出錯(cuò)函數(shù)(if s(progn(term_dialog);使用對話框時(shí)使用

(if olderr(setq *error* olderr));出錯(cuò)函數(shù)恢復(fù)(if oldvar(setvar...oldvar));系統(tǒng)變量恢復(fù)(if olderr(setq *error* olderr));出錯(cuò)函數(shù)恢復(fù)(command ”_.undo“ ”_e“);Undo編組結(jié)束))(princ))

(defun c:my(/...);主程序（主函數(shù)）(setvar ”cmdecho“ 0);取消命令回顯提示

(command ”_.undo“ ”_BE“);Undo編組開始(setq olderr *error* *error* newerr);調(diào)用自定義出錯(cuò)函數(shù)

(setq oldvar(getvar...));保存相關(guān)系統(tǒng)變量

(setvar...;設(shè)置系統(tǒng)變量...;程序段...(setvar...oldvar);恢復(fù)系統(tǒng)變量(setq *error* olderr);恢復(fù)出錯(cuò)函數(shù)(command ”_.undo“ ”_E“);結(jié)束Undo命令編組

(princ);取消程序返回值)************************************************ 10.程序調(diào)試是塊注釋的使用

我們經(jīng)常會(huì)加上或屏蔽一段代碼輔助程序調(diào)試，此時(shí)最常用的是在需要暫時(shí)屏蔽的代碼前使用行注釋符號“;”，對于較多的代碼就需要使用塊注釋“;|——|;”，如果一段代碼需要頻繁屏蔽，將行注釋與塊注釋組合使用，可以帶來極大方便。

下圖是組合使用的示例。Vlisp編程技巧摘要(1);;;********************************************************** 1.如何獲取多義線上的所有頂點(diǎn) Code:(defun C:getp(/ ent PLTYPE obj vtx vtxlst n ptlst)(vl-load-com)(setq ent(entsel ”n選取多線:n“))(if ent(progn(setq PLTYPE(cdr(assoc 0(entget(car ent)))))(if(or(= ”O(jiān)LYLINE“ PLTYPE)(= ”LWPOLYLINE“ PLTYPE))(progn(setq obj(vlax-ename->vla-object(car ent)))(setq vtx(vla-get-Coordinates obj))(setq(vlax-variant-value vtx)))(setq n 0)(setq ptlst nil)(repeat(/(length vtxlst)2)(setq ptlst(append ptlst(list(list(nth n vtxlst)(nth(1+ n)vtxlst)))))(setq n(+ n 2)))(if ptlst ptlst nil))(prompt ”n選取實(shí)體不是多義線!“));if));if);;;********************************************************** 2.在對話框的文本欄里輸入，怎樣讓它實(shí)時(shí)顯示為密碼“ * ” ？ A.設(shè)計(jì)對話框時(shí)，控件的屬性中加：password_char = ”*“;srt : dialog {

vtxlst

(vlax-safearray->list label = ”密碼“;: edit_box { label = ”輸入密碼(&S):“;key = ”password“;password_char = ”*“;fixed_width = true;width = 8;} ok_only;}(defun c:srt()(setq filename ”srt.dcl“)(if(>(setq index_value(load_dialog filename))0);裝載對話框

(progn(setq dlgname ”srt“)(if(not(new_dialog dlgname index_value))(exit));顯視對話框

(action_tile ”password“ ”(mypass)“)(action_tile ”ok“ ”(done_dialog 0)“)(start_dialog))(alert ”n不能載裝指定的DCL文件定義的對話框!“));;;END IF(princ))(defun mypass()(setq a1 $value))B.使用DOSLib輸入密碼的函數(shù)

;;;******************************************************** 3.怎樣可以實(shí)現(xiàn)不用工具中的選項(xiàng)，來調(diào)出屏幕菜單？

;;屏幕菜單切換(defun C:pmmenu()(vl-load-com)(setq sd(vla-get-display(vla-get-preferences(vlax-get-acad-object))))(if(=(vla-get-displayscreenmenu sd):vlax-true)(vla-put-displayscreenmenu sd :vlax-false)(vla-put-displayscreenmenu sd :vlax-true))(vlax-release-object sd)(princ));;******************************************************** 4.怎么樣用Vlisp來讀取AutoCAD中搜索路徑?(vla-get-supportpath(vlax-get-acad-object))))或：

(getenv ”ACAD“)或：

(acet-pref-supportpath-list)獲取支持路徑。

;;********************************************************

(vla-get-files

(vla-get-preferences 5.如何捕獲列表框（list_box）的雙擊操作?

在edit_box,list_box,image_button,slider中，有一個(gè)$reason變量，用來

表示你執(zhí)行了什么操作。在list_box中，雙擊的變量值是4。可在你的代碼中加入判斷：

(action_tile ”listbox“ ”(fun1).....“)(defun fun1().....(if(= $reason 4).....).....)

;;******************************************************** 6.如何用VLISP創(chuàng)建目錄？

例如：

A.(vl-mkdir ”c:hqd9639“)

B.(setq SYS(vlax-create-object ”scripting.FileSystemObject“))(setq ”c:hqd9639“))

;;******************************************************** 7.如何用(entsel)亮顯選擇物體? code:(if(setq ent(entsel ”nPick Object“))(progn FOLDER

(vlax-invoke-method

SYS

'CREATEFOLDER(redraw(car ent)3);;(redraw(car ent)4);;;不亮顯));;******************************************************** 8.如何隱藏選擇實(shí)體? code:(if(setq ent(entsel ”nPick Object“))(progn(redraw(car ent)1);;;隱藏實(shí)體;;(redraw(car ent)2);;;顯示實(shí)體));;******************************************************** 9.狀態(tài)欄進(jìn)度條的設(shè)計(jì)示例

(defun c:hqd1()(acet-ui-progress ”已經(jīng)完成“ 100)(setq x 0)(while(< x 100)(princ(strcat ”n“(itoa x)))(acet-ui-progress-1)(setq x(1+ x)))(acet-ui-progress))

;;******************************************************** 10.如何用VLISP獲取所有配置文件(Profiles)列表? code:(defun c:getAllProfiles()(setq

a

(vla-get-profiles

(vla-get-preferences(vlax-get-acad-object))))(vla-GetAllProfileNames a 'hqd)(if hqd(setq lst(vlax-SafeArray->List hqd))))

;;******************************************************** 11.如何在CAD中插入時(shí)間和日期? Code:(defun C:inttime()(setq pt0(getpoint ”n請指定插入位置點(diǎn) :“))(setq date0(menucmd ”M=$(edtime,$(getvar,date), DD.MM.YYYY hh:mm:ss)“))(command ”text“ ”j“ ”m“ pt0 5.0 0 date0)(princ))

;;******************************************************** 12.如何用LISP打開WINDOWS的選擇目錄對話框?

方法有5種: a.(setq bmpdir(xdrx_getdir ”選擇目錄“ ”“ ”請選取目錄“))b.(dos_getdir ”選擇目錄:“ ”c:“)c.(setq picdir(Odcl_BrowseFolder ”選取文件目錄“ ”“))d.(acet-ui-pickdir ”選擇目錄“ ”“ ”請指定目錄“)e: Code:(defun qf_getFolder(msg / WinShell shFolder path catchit)(vl-load-com)(setq winshell(vlax-create-object ”Shell.Application“));(vlax-dump-object winshell T)(setq shFolder(vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))(setq catchit(vl-catch-all-apply '(lambda()(setq shFolder(vlax-get-property shFolder 'self))(setq path(vlax-get-property shFolder 'path)))))(if(vl-catch-all-error-p catchit)nil path))

;;******************************************************** ************************************************;;例一

(defun ett_ct()(initget ”C “);關(guān)鍵字“C”及空格

(setq s0(entsel ”n設(shè)置顏色C / 選取文本:“))(cond((= s0 ”C“)(ett_col));轉(zhuǎn)設(shè)置顏色子函數(shù)((= s0 ”“)nil);空格退出((and(=(type s0)'LIST);選擇實(shí)體

(=(cdr(assoc 0(entget(car s0))))”TEXT“);判別文本)...;操作內(nèi)容

(ett_ct);編輯后返回選擇)(t(ett_ct));空選返回選擇))************************************************ 其中(setq s0(entsel ”n設(shè)置顏色C / 選取文本:“))正確的寫法應(yīng)該是：(setq s0(entsel ”n設(shè)置顏色C /< 選取文本>:“));;例五

(defun newerr(s);出錯(cuò)函數(shù)(if s(progn(term_dialog);使用對話框時(shí)使用

(if olderr(setq *error* olderr));出錯(cuò)函數(shù)恢復(fù)(if oldvar(setvar...oldvar));系統(tǒng)變量恢復(fù)(if olderr(setq *error* olderr));出錯(cuò)函數(shù)恢復(fù)(command ”_.undo“ ”_e“);Undo編組結(jié)束))(princ))我認(rèn)為if語句是不必要的 另外可以直接

(defun *error*(s).....)這句(setq olderr *error* *error* newerr)改為(setq olderr *error*)就可以了

1)加載程序之前應(yīng)先判斷文件是否已經(jīng)被加載

在調(diào)用用戶自己定義的函數(shù)之前,應(yīng)先將包含該函數(shù)的文件調(diào)入內(nèi)存(LOAD ”文件“).但如果每次調(diào)用前都加載該程序,則會(huì)浪費(fèi)很多時(shí)間.因此判別文件是否已經(jīng)調(diào)入內(nèi)存,則是非常重要的,這種用法在菜單文件十分普遍

[RECTAN](if(not rectan)(load ”les2“));(rectan);在文件內(nèi)同樣可以實(shí)現(xiàn)同樣的檢測 2)抑制函數(shù)運(yùn)行后返回nil 在一個(gè)Autolisp函數(shù)運(yùn)行結(jié)束后，它常會(huì)在命令行上返回一個(gè)nil，令人遺憾。其實(shí)只要我們問在該函數(shù)的最后一行加上（PRINC）語句后，即可抑制nil的產(chǎn)生。

當(dāng)然如果對需要一個(gè)結(jié)果的函數(shù)，則不可采用此法。3）幾個(gè)自動(dòng)執(zhí)行函數(shù) a)加載自動(dòng)執(zhí)行函數(shù)(defun s::startup()...)

一旦該函數(shù)在acad.lsp函數(shù)中定義,在autocad啟動(dòng)時(shí),就會(huì)自動(dòng)加載該函數(shù).b)存盤自動(dòng)執(zhí)行函數(shù) 定義

(defun S::save()....)該函數(shù)與(s::startup)相似,在存儲(chǔ)文件時(shí)將會(huì)被自動(dòng)執(zhí)行.例如:在保存文件時(shí),對被保存文件生成備份文件等,就可能需要此功能文件

c)退出時(shí)自動(dòng)執(zhí)行文件 定義

(defun s::exit()...)4)怎樣判斷兩個(gè)實(shí)數(shù)相等

對于計(jì)算出來的實(shí)數(shù),即使真的相等,但對計(jì)算機(jī)來說,其往往不是絕對相等(如2.00 與2.000就不等).因此判斷其相等就需要采用差值方法

(equal expr1 expr2 [FUZZ])其中任選項(xiàng)FUZZ指定表達(dá)式EXPR1 EXPR2 的最大允許差值.即如果實(shí)際差值小于FUZZ,則判斷結(jié)果為真,反之為假.(if(equal a b 0.001)(prompt ”These numbers are equal“)(prompt ”These numbers are not equal“))5)取系統(tǒng)的環(huán)境變量

對編制自己的系統(tǒng)來說,最好將自己的所有編制程序集中在自己獨(dú)立的目錄下,如acadlisp等.然后在將該目錄添加到ACAD環(huán)境中.在自己編制的程序中,為了確保所要調(diào)用函數(shù)或文件在AUTOCAD的搜索路徑下,就需要判斷自己編制的程序目錄是否在ACAD環(huán)境內(nèi).此時(shí)就要用(getnev)函數(shù)

如(setq nev(getenv ”acad“))其將返

回

ACAD

系

統(tǒng)

環(huán)

境,如”C:ACADSUPPORT;C:ACADFONTS;C:ACADLISP 當(dāng)你把開發(fā)的帶有DCL文件的LSP程轉(zhuǎn)交給他人使用時(shí)，一般要把兩個(gè)文件分別交付。如果直接在LSP程序中創(chuàng)建DCL文件（一般也都比較小），再編譯成FAS，然后再交給他人，那就只有一個(gè)文件了，而且表面上還可以對DCL文件加密（當(dāng)然，程序運(yùn)行時(shí)會(huì)泄密的，但不好好想想也不是那么容易發(fā)現(xiàn)的。）

簡單舉例：

(setq filename(vl-filename-mktemp “test.dcl”));創(chuàng)建DCL文件(setq dclfile(open filename “a”))(princ “test :dialog{ :edit_box{ key = ”eb1“;} :edit_box{ key = ”eb2“;} :slider{ key =”sld“;} :button{ label= ”O(jiān)K“;key = ”ok“;is_default=true;} }” dclfile);寫DCL文件(close dclfile);主程序

(setq dcl_id1(load_dialog filename))(new_dialog “test” dcl_id1)(action_tile “eb1” “(alert ”edit_box1回調(diào)！“)”)(action_tile “eb2” “(alert ”edit_box2回調(diào)！“)”)(action_tile “sld” “(alert ”slider回調(diào)！“)”)(action_tile “ok” “(done_dialog)”)(start_dialog)(unload_dialog dcl_id1)(vl-file-delete filename);刪除DCL文件

第二篇：編程心得

1． 對于液晶點(diǎn)陣，做任何圖形的子函數(shù)，一定要注意，必須為整數(shù)，即像素必須為整數(shù)，否則將出現(xiàn)錯(cuò)誤，比如劃三角形，必須讓三角形的斜率為直線，不然不能得到預(yù)期的結(jié)果。

2． 對于變量的定義，如果在條件語句里面必須放在語句最前面，如果在整個(gè)函數(shù)的里面，必須放在整個(gè)函數(shù)的最前面。

3． GDB來調(diào)試已經(jīng)生成的可執(zhí)行程序hello.命令如下：Gdbhello ,參數(shù)－d指示源代碼所

在的目錄去搜尋。一旦出現(xiàn)GDB的命令提示符(gdb)，就表明GDB已經(jīng)準(zhǔn)備好接收來自用戶的各種調(diào)試命令了。如果想在調(diào)試環(huán)境下運(yùn)行這個(gè)程序，可以使用GDB提供的“run”命令，而程序在正常運(yùn)行時(shí)所需的各種參數(shù)可以作為“run”命令的參數(shù)傳入，或者使用單獨(dú)的“set args”命令進(jìn)行設(shè)置。如果在執(zhí)行“run”命令時(shí)沒有給出任何參數(shù)，GDB將使用上一次“run”或“set args”命令指定的參數(shù)。如果想取消上次設(shè)置的參數(shù)，可以執(zhí)行不帶任何參數(shù)的“set args”命令。

GDB是一個(gè)源代碼級的調(diào)試器，使用“l(fā)ist”命令可以查看當(dāng)前調(diào)試對象的源代碼。該命令的通用格式為“l(fā)ist [m,n]”，表示顯示從m行開始到n行結(jié)束的代碼段，而不帶任何參數(shù)的“l(fā)ist”命令將顯示最近10行源代碼。

要根據(jù)行號設(shè)置斷點(diǎn)，可以使用“ break linenum”命令。要根據(jù)函數(shù)名設(shè)置斷點(diǎn)，則應(yīng)該使用“break funcname”命令。

條件斷點(diǎn)允許當(dāng)一定條件滿足時(shí)暫時(shí)停止程序的執(zhí)行。它對于調(diào)試來講非常有用。設(shè)置條件斷點(diǎn)的正確語法如下:

break linenum if expr

break funcname if expr

使用“continue”命令繼續(xù)執(zhí)行程序，直到遇到下一個(gè)斷點(diǎn)。如果在調(diào)試時(shí)設(shè)置了很多斷點(diǎn)，可以隨時(shí)使用“info breakpoints”命令來查看設(shè)置的斷點(diǎn)。此外，開發(fā)人員還可以使用“delete”命令刪除斷點(diǎn)，或者使用“disable”命令來使設(shè)置的斷點(diǎn)暫時(shí)無效。被設(shè)置為無效的斷點(diǎn)在需要的時(shí)候可以用“enable”命令使其重新生效。

為了單步跟蹤代碼，可以使用單步跟蹤命令“step”，它每次執(zhí)行源代碼中的一行。

4、程序調(diào)試過程中，如果出現(xiàn)segment，一般來說是指針沒有賦值，找不到原型。比如線程里面如果要調(diào)用screen_mm,那么必須傳遞參數(shù)screen_mm,而且需要在線程里面定義參數(shù)。

5、如果線程里面用到串口的操作，則最好把串口初始化程序放到線程里面進(jìn)行。也可以把初始化作成模塊，這樣不會(huì)影響串口的收發(fā)數(shù)據(jù)。如果將串口初始化放到主程序里面，則最后將初始化程序放在線程的屬性定義和建立線程之前，否則其他地方可能導(dǎo)致串口收發(fā)數(shù)據(jù)產(chǎn)生問題。還有對于串口操作的定義最好放在所有變量定義的最前面。

6、對于段錯(cuò)誤這種問題?？梢苑治鲆韵略颍?/p>

(1):指針非法，比如使用沒有初始化的指針(沒有為此指針指向的對象分配空間)，或著Free掉之后再次使用。

(2):數(shù)組訪問越界,訪問的元素下標(biāo)超過數(shù)組圍長

(3):緩存溢出，對于這種while(1){do}的程序，這個(gè)問題最容易發(fā)生，多此sprintf或著strcat有可能將某個(gè)

buff填滿，溢出，所以每次使用前，最好memset一下，不過要是一開始就是段錯(cuò)誤，而不是運(yùn)行了一會(huì)兒出現(xiàn)的，(3)的可能性就比較小。

第三篇：編程培訓(xùn)心得

編程培訓(xùn)心得3篇

篇一：軟件編程學(xué)_心得

軟件編程學(xué)_心得

隨著計(jì)算機(jī)技術(shù)的發(fā)展和工作的需要，為了能夠更好的維護(hù)公司生產(chǎn)管理系統(tǒng)；公司安排我們到北大青鳥APTECH進(jìn)修。我們選擇了時(shí)下最流行、發(fā)展速度較快的語言C#。C#學(xué)_共分三個(gè)階段，目前我只學(xué)_了第一個(gè)階段；現(xiàn)將我在北大青鳥學(xué)_第一階段為期兩個(gè)月的學(xué)_心得總結(jié)如下：

C#是一種新的面向?qū)ο蟮木幊陶Z言，專門用于.NET運(yùn)行時(shí)。C#編譯器只能生成受管制的代碼，也可以使用.NET基類。C#語言自C/C++演變而來。但是，它具有簡單、現(xiàn)代、完全面向?qū)ο蠛皖愋桶踩戎T多特性。下面就簡單說說簡單和現(xiàn)代其中兩種特性。

1、簡單

C#具有C++所沒有的一個(gè)優(yōu)勢就是學(xué)_簡單。該語言首要的目標(biāo)就是簡單。很多功能(還不如說是缺少了C++的一些功能)有助于C#全方位的簡單。

在C#中，沒有C++中流行的指針。默認(rèn)地，您工作在受管理的代碼中，在那里不允許如直接存取內(nèi)存等不安全的操作。我想沒有C++程序員可以聲稱，從沒有使用指針訪問過不屬于他們的內(nèi)存。

C#棄用其它操作符，名字空間、成員和引用僅使用單個(gè)操作符

.?，F(xiàn)在一個(gè)程序員所需要理解的就是嵌套名字的注解了。

C#使用統(tǒng)一的類型系統(tǒng)。這種系統(tǒng)充許您把各種類型作為一個(gè)對象查看，它是一個(gè)原始類型還是一個(gè)full-blown

類。和其它編程語言相比，由于加框(boxing)和消框(unboxing)的機(jī)制，把簡單類型當(dāng)作對象處理并不能獲得性能的改善。稍后將詳細(xì)解釋加框和消框，但基本上僅當(dāng)需要時(shí)才使用對象訪問簡單類型這種技術(shù)。

2、現(xiàn)代

投入學(xué)_C#的努力是一筆大投資，因?yàn)镃#是為編寫NGWS

應(yīng)用程序的主要語言而。很多用C++可以實(shí)現(xiàn)或者很費(fèi)力實(shí)現(xiàn)的功能，在C#中不過是一部分基本的功能而已。根據(jù)應(yīng)用程序的特殊需求，可以很容易地創(chuàng)建出新的一種數(shù)據(jù)類型。

指針不再是編程武器的一部分。運(yùn)行時(shí)NGWS提供了一個(gè)垃圾收集器，負(fù)責(zé)C#程序中的內(nèi)存管理。因內(nèi)存和應(yīng)用程序都受到管理，所以很必要增強(qiáng)類型安全，以確保應(yīng)用的穩(wěn)定性。

異常處理是C#的主要功能。C#的異常處理與C++的不同點(diǎn)在于它是交叉語言的(運(yùn)行時(shí)的另一個(gè)功能)。在沒有C#之前，您必須處理怪異的HRESULTs，但現(xiàn)在由于使用了基于異常的健壯的出錯(cuò)處理，這一切都結(jié)束了。

對于現(xiàn)代的應(yīng)用程序，安全是首要的，C#也不會(huì)例外。它提供了元數(shù)據(jù)語法，用于聲明下述NGWS安全模式的能力和許可。元數(shù)據(jù)是NGWS運(yùn)行時(shí)的一個(gè)關(guān)鍵的概念。

通兩個(gè)多月學(xué)_，我能夠很好的掌握C#語言的基本語句、語法以及老師補(bǔ)充的一些要點(diǎn)；能夠編寫簡單的應(yīng)用程序，例如電子郵件的收發(fā)等，為接下來的第二、第三階段學(xué)_打下了良好的基礎(chǔ)。

篇二：編程心得體會(huì)

篇一：java編程心得體會(huì)

java編程心得

計(jì)算機(jī)3班

竇金霞

4773

最近幾周一直在弄程序，說實(shí)話真的很累，但累中也有成功的快樂。我覺得學(xué)到了很多東西，這是只看課本知識(shí)所不能學(xué)到的。

說實(shí)話，以前我一直沒學(xué)過java雖然我也知道java的重要性，可是即使上課聽了，不實(shí)踐還是掌握不了。因?yàn)榉N種原因，今年我沒有買筆記本。沒有機(jī)器，僅僅靠每周一次的上機(jī)練_是絕對不夠的。所以我就插空調(diào)程序，在舍友們不用的時(shí)候自己再接她們的電腦調(diào)。

調(diào)上一個(gè)web版的通訊錄程序時(shí)我已經(jīng)感覺到學(xué)的很吃力，好多東西都不懂。這次做的這個(gè)學(xué)生成績管理系統(tǒng)更復(fù)雜了，所以一開始調(diào)的時(shí)候感覺特別吃力.所以我告訴自己不能放棄，慢慢來，就這樣我從最基本的sql語句session對象開始學(xué)起，我覺得我還有太多不懂得所以要比別人付出更多的努力。就這樣我一點(diǎn)一點(diǎn)的學(xué)著??

說心里話，在做上一個(gè)web版的通訊錄時(shí)，我就感覺到成功的喜悅。好多地方我都是一點(diǎn)一點(diǎn)的問的，在問的過程中，我也學(xué)會(huì)了很多，像：servlet和jsp之間跳不過去時(shí)有兩種解決辦法，一是關(guān)閉底層類中的db.close；二是將servlet中的throws

exception改成try

catch以捕捉異常；我還學(xué)到了集中查找錯(cuò)誤的方法，可以加上兩個(gè)雙斜杠“//”將具體的方法屏蔽掉，一檢查是方法錯(cuò)誤還是servlet錯(cuò)誤，還有就是寫上system.out.println（）將獲得的數(shù)據(jù)輸出，用來檢查數(shù)據(jù)傳輸過程有沒有錯(cuò)誤等等。

雖然在別人看來，這些方法可能都很常規(guī)，但是確實(shí)我自己學(xué)會(huì)的，我覺得很有成就感。我已經(jīng)做好了，暑假的時(shí)候去買本本用自己的本本練_一下java，雖然下學(xué)期不學(xué)java了，但是我對java的熱情不會(huì)因?yàn)檫@個(gè)而削減的！

做完這個(gè)學(xué)生成績管理系統(tǒng)后，我覺得我對java的看法已經(jīng)改變了。一前總以為java很繁瑣很難，聽同學(xué)說java不好學(xué)，開始又有一些聽不懂，所以一直很畏懼java。但真正做了這個(gè)系統(tǒng)以后我才感覺到其實(shí)任何事都沒有難與不難之分，只要你肯努力的去做，世上無難事只怕有心人！

我現(xiàn)在對java學(xué)_充滿了熱情，我知道我還有很多的不足還有很多需要努力的地方，所以我的java之旅將繼續(xù)進(jìn)行??篇二：程序設(shè)計(jì)體會(huì)

程序設(shè)計(jì)

【收獲及體會(huì)】

通過兩個(gè)星期的折騰，總算把課程設(shè)計(jì)給完成了，這是一個(gè)堅(jiān)苦而又漫長的過程。是啊，讀了那么多年的書，課程設(shè)計(jì)可是第一次?？粗鴦趧?dòng)成果，很欣慰！雖然這不是我一個(gè)人做的，是大家的共同努力得來的。

剛開始，可以說是沒有頭緒，于是就去圖書館找資料，找到了一些關(guān)于畫圖方面的，可是這點(diǎn)小進(jìn)展遠(yuǎn)遠(yuǎn)不夠，這只是一個(gè)小小的開始。下一步是上網(wǎng)查，找到了些與我們題目相似的，那時(shí)我們每個(gè)人都很高興，可是那還不是我們要的，于是又上網(wǎng)查到了些有關(guān)的函數(shù)等等，終于在我們大家的努力下，完成了這個(gè)程序。

雖然對著電腦做程序，有點(diǎn)累有點(diǎn)熱，可是當(dāng)看到勞動(dòng)成果時(shí)，真是別有一番滋味在心頭啊！世上無難事，只怕有心人，的確如此。做完這個(gè)程序最大的收獲就是感受到了集體的力量，當(dāng)然個(gè)人的智慧也是很重要的哦！

做完這個(gè)課程設(shè)計(jì)，我們的自信一下子提高了，我們也會(huì)寫程序了；盡管對于有些人這種程序會(huì)很簡單，可對我們c語言初學(xué)者來說，已經(jīng)很不容易了。這次體驗(yàn)為以后的學(xué)_計(jì)算機(jī)的我們增強(qiáng)了信心。享受勞動(dòng)成果的滋味實(shí)在很美妙??！

——姜*

【收獲及體會(huì)】

忙碌了一個(gè)多星期，在大家的共同努力下，我們總算將此程序設(shè)計(jì)出來。盡管不是自己獨(dú)立完成，但仍然很高興，因?yàn)樵谠O(shè)計(jì)的過程中，讓我了解到要設(shè)計(jì)一個(gè)大型程序，查找資料是至關(guān)重要的，在他人的基礎(chǔ)上，再根據(jù)自己所學(xué)進(jìn)行修改與調(diào)試，最后設(shè)計(jì)

第四篇：PLC編程心得

即使是同一個(gè)項(xiàng)目，同一個(gè)人，要他重新寫一次，也會(huì)與原來的不同，我只是看別人的一種思路，是怎樣把程序去組織好，如何規(guī)范合理分配好元件，我看簡單也不一定好，我的編程習(xí)慣是要求流程要清晰，即使多花點(diǎn)步數(shù)也好。所以我現(xiàn)在一般都不用一個(gè)梯形圖完成，而是用SFC去編排組織梯形圖的執(zhí)行順序，這樣就不用擔(dān)心什么互鎖連鎖的問題，我現(xiàn)在在編寫的程序我估計(jì)在18000步左右，若是用單一的梯形圖來編，我估計(jì)對以后的維護(hù)和修改會(huì)做成很大的困難。

現(xiàn)在工控制軟件大部份是可以破解，但如果不想別看懂的程序的話，把里面最好不放常數(shù)，全部是數(shù)據(jù)寄存器，多用一些功能指令，拿出點(diǎn)技術(shù)來，要把哭程序?qū)懮俣?，不要多而雜。我不鼓歡太亂的程序。如果你把技巧都定上去啦，相信不是一般的高手都沒辦法看懂，那樣別人是服了你的技術(shù)，而不是服你的亂！我一向都不怕別人看程序，我也不喜歡看別人程序，這就是這的風(fēng)格！單一！寧可少而精，不可多而雜

上是高手啊，我公司有一臺(tái)設(shè)備的PLC程序真的不放常數(shù)，全部是數(shù)據(jù)寄存器，下載下來的程序在另外一臺(tái)PLC就不能使用！

我們公司有幾臺(tái)設(shè)備都是意大利進(jìn)口的，都是幾千萬的設(shè)備，老外的程序都沒見有常數(shù)，應(yīng)用了好多數(shù)據(jù)塊，一般的工程師都看不懂的

第五篇：C++編程心得

緊張忙碌的一周過去了，在這個(gè)星期里我們小組勝利地將我們選定的課題研究出來，我為我的小組驕傲，也為自己驕傲。

我們的題目是銀行定期存款管理系統(tǒng)，在編程過程中，我預(yù)訂的任務(wù)是學(xué)習(xí)并掌握MFC，并將其運(yùn)用到我們的程序中。學(xué)習(xí)MFC的過程是我認(rèn)為非常痛苦的事，因?yàn)橥耆际亲詫W(xué)，并且因?yàn)閳D書館中的相關(guān)書籍全部被借閱出去，所以沒有太多的自學(xué)資料，因此雖然費(fèi)了很大的精力，但仍是無果。經(jīng)過了很多的小組討論和自己的心理斗爭后最終決定放棄MFC而將自己能力以內(nèi)的程序盡可能地優(yōu)化，就這樣，我開始在半路階段加入了程序優(yōu)化的工作，一遍遍的調(diào)試程序，遇到某個(gè)攻堅(jiān)問題，幾個(gè)人一起在網(wǎng)上查詢，一起想解決的辦法，就這樣，我們團(tuán)結(jié)地將我們現(xiàn)在認(rèn)為將近完美的程序呈現(xiàn)給老師和同學(xué)。

一開始學(xué)習(xí)MFC時(shí)，我總是不能很好的轉(zhuǎn)換思維，不能將自己以前的編程思想和以前的一些不良編程習(xí)慣甩掉，因此很多的程序都聯(lián)系不起來，反而是自己學(xué)會(huì)了好多的零碎的片面卻無法將程序大樓豎起來。在困惑很久后，我選擇了詢問老師，老師耐心地將MFC的思維方式講給了我聽，這讓我受益匪淺，雖然我最后沒能將MFC成功的做出來，但我認(rèn)為我從MFC中才直接地感受到了Ｃ＋＋中面向?qū)ο缶幊痰姆庋b性。以前用Ｃ＋＋編程時(shí)總是將類中的變量隨便規(guī)定屬性，甚至在編程的過程中突然需要加一個(gè)變量，為了省事直接將其放于public中，在學(xué)習(xí)了解MFC后，深刻地感受到自己以前的編程習(xí)慣是多么的不科學(xué)，而那些習(xí)慣又是多么的重要。

我們這一次是以團(tuán)隊(duì)的形式來做這個(gè)項(xiàng)目，并且作為這個(gè)小組的組長，我感覺自己的壓力很大，因?yàn)閳F(tuán)隊(duì)合作不僅講求整體的團(tuán)結(jié)而且為了團(tuán)隊(duì)工作的高效又要有明確的分工。在我們的小組工作中每個(gè)人都一刻不放松自己手里的工作，而一些時(shí)候我們又配合地很密切，尤其是當(dāng)我們遇到程序的瓶頸時(shí)，我們都是在宿舍里你一句我一句地出謀劃策，在遇到一個(gè)提取時(shí)間的程序時(shí)，大家紛紛查詢各種輔導(dǎo)書，上網(wǎng)查各種資料，在遇到定期存款支取問題時(shí)甚至打電話給家長，尋求“場外支持”，種種的配合都給我們這個(gè)部門協(xié)調(diào)的運(yùn)作提供了動(dòng)力。我感謝我的團(tuán)隊(duì)，他們讓我有一種很舒服的做事情的感覺。

最終決定放棄MFC，我承認(rèn)自己有一種如釋重負(fù)的感覺，但是也有一絲慚愧，無論老師要求與否，既然自己決定了就應(yīng)該走下去，但是我最后退卻了，感覺很遺憾也很羞愧，因?yàn)槲艺J(rèn)為對自己降低要求就是放縱自己墮落。

短學(xué)期實(shí)習(xí)，我著實(shí)收獲了很多，不僅僅是知識(shí)上，而且是思考事情方法，我感激這次的實(shí)習(xí)，也感謝給予我們很多幫助的老師，更感謝我團(tuán)結(jié)的團(tuán)隊(duì)。