[建筑]lisp語(yǔ)言在cad道路設(shè)計(jì)中的各種應(yīng)用-資料下載頁(yè)
2025-01-16 06:36本頁(yè)面
【正文】 p功能非常強(qiáng)大,除了本身提供豐富的功能函數(shù)外,還可以使用Activex進(jìn)行組件方式的編程,充分使用第三方所提供的Activex,使得Visual lisp幾乎是無(wú)所不能,如可以進(jìn)行數(shù)據(jù)庫(kù)訪問、生成Word文檔、Excel報(bào)表等等。Visual lisp是個(gè)可視化的確LISP語(yǔ)言開發(fā)環(huán)境,適合開發(fā)小型規(guī)模的應(yīng)用程序軟件。 程序設(shè)計(jì)與實(shí)現(xiàn)該程序的運(yùn)行是以AutoCAD2005為平臺(tái)，利用Visual lisp語(yǔ)言進(jìn)行的程序開發(fā)，讀取我院自行開發(fā)的斷面法土方量計(jì)算程序的斷面數(shù)據(jù)，實(shí)現(xiàn)斷面序號(hào)、斷面樁號(hào)、原現(xiàn)斷面圖的快速自動(dòng)繪制。394斷面?zhèn)€數(shù)1,6,4斷面序號(hào),斷面樁號(hào),原斷面?zhèn)€數(shù),現(xiàn)斷面?zhèn)€數(shù),距離（原斷面min）,高程,距離,高程,距離（原斷面max）,高程,距離（現(xiàn)斷面max）,高程,距離,高程,距離（現(xiàn)斷面min）2,2,2斷面序號(hào),斷面樁號(hào),原斷面?zhèn)€數(shù),現(xiàn)斷面?zhèn)€數(shù),(DEFUN C:dmv ()(setvar cmdecho 0)(setq fd (open (getfiled 打開數(shù)據(jù) dat 16) R)) (setq n (READLINE FD) n (read n) a 0 jgjs nil pt1 nil pt2 nil abc nil ) (setq i 0 j 0 )(SETQ ABC (GETINT\n 注記樁號(hào)(2)都要注記(3)))(if (= abc nil) (setq abc 1)) (alert 距離比例尺為1:1000,高程比例要自己設(shè)定)(setq bl (getint \n 請(qǐng)輸入高程比例尺500))(if (= bl nil) (setq bl 500))(setq jg (getint \n 請(qǐng)輸入斷面間隔30))(if (= jg nil) (setq jg 30))(setq pt0 (getpoint \n 請(qǐng)輸入斷面圖的基點(diǎn)0,0:))(if (= pt0 nil) (setq pt0 (list 0 0)) (setq pt0 (getpoint)))(setq bln (/ 1000 bl))(while (and (= i 0) (= i n)) (setq xx (READLINE FD))(setq xx1 (read (strcat ( xx ))))(setq a 2)(if (/= (nth 2 xx1) nil)(progn (setq dmh (nth 0 xx1) zh (nth 1 xx1) ydms (nth 2 xx1)。原斷面數(shù)。 xdms (nth 3 xx1)?，F(xiàn)斷面數(shù)。 j 0 h 0)。H 為現(xiàn)斷面的循環(huán)數(shù)。 (setq a 0) (setq i (nth 0 xx1))) (progn (if ( j ydms) (progn (setq jgjs (* jg ( i 1))) (setq gcz (* (nth 0 xx1) bln) jl (nth 1 xx1)) (if (= j 0)(setq ptzj (list (+ (car pt0) jl) (+ (cadr pt0) gcz jgjs)))) (if (= j ( ydms 1))(setq ptzy (list (+ (car pt0) jl) (+ (cadr pt0) gcz jgjs)))) (setq pt11 (list (+ (car pt0) jl) (+ (cadr pt0) gcz jgjs))) (setq pt1 (append pt1 pt11)) (setq j (+ j 1)) (if (= j ydms) (huitu1) (setq a 1))) (progn (if (and(= h (+ xdms 1))(= j ydms )(= a 2)) (progn (setq gcz (* (nth 0 xx1) bln) jl (nth 1 xx1)) (setq pt22 (list (+ (car pt0) jl) (+ (cadr pt0) gcz jgjs))) (setq pt2 (append pt2 pt22)) (setq h (+ h 1)) (if (= h xdms) (huitu2))))))))) (setvar cmdecho 1) (princ)) Visual lisp程序是解釋型程序，則可由CAD裝入并解釋運(yùn)行，Visuallisp程序文件的后綴為lsp。在調(diào)用自定義程序命令之前，必須在AutoCAD環(huán)境下把程序裝載進(jìn)來，程序裝載成功后就可以像使用AutoCAD的其它命令一樣，通過鍵入函數(shù)名進(jìn)行調(diào)用。（1）手工加載方式：打開CAD軟件，在命令行鍵入（load文件折完整目錄及文件名）。（2）自動(dòng)加載方式：在啟動(dòng)CAD時(shí)自動(dòng)加載。在CAD的安裝目錄下有support子目錄，此文件為文本文件，打開文件行（load lsp文件名），并把自定義的文件拷貝到此目錄，在啟動(dòng)CAD時(shí)系統(tǒng)將自動(dòng)加載該程序。用Visual lisp 語(yǔ)言開發(fā)小程序在斷面圖輸出中的應(yīng)用，通過對(duì)子程序調(diào)用能實(shí)現(xiàn)斷面樁號(hào)、斷面序號(hào)、原現(xiàn)斷面線的分層輸出，是一個(gè)很實(shí)用的程序。并且能在本程序基礎(chǔ)上進(jìn)行部分代碼的修改，從而進(jìn)行道路工程斷面圖的測(cè)繪。
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1