

下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、; ;一 、 繪 制 地 形 圖符號1.點(diǎn)狀符號對于點(diǎn)狀符號 ,其位置固定 , 數(shù)量較多 ,且一般都帶有一定的標(biāo)注 ,可逐個制作屬性塊圖元2.線狀符號利用 AutoCAD 中強(qiáng)大的線型定義。3.面狀符號 由充填符號在面域內(nèi)按一定的排列方式組合而成。目前 Auto CAD 在建筑設(shè)計(jì)、工程施工放樣得到廣泛應(yīng)用,Auto CAD 在工程測量上的應(yīng)用坐標(biāo)的工程量或幫助人們復(fù)核手算坐標(biāo)的準(zhǔn)確性。(1)刪除未選擇對象(defun c:sd()(princn 選擇要保留對象 :)(setq SS(ssget) ss1(ssgetX) (commanderasess1rsszoom _e);end;(2)畫
2、圓弧型鐵路; 輸入鐵路中線上三個點(diǎn),軌距及繪圖比例尺,起、中、始點(diǎn)(setq W1(/(* WD S) 2) W2(+ W1(* S);(setq D(distance PB PE)(setq A1(angle PB PM) A2(angle PB PE) A3(angle PE PB) A4(angle PE PM) (setq FB(- A1 A2)FE(- A3 A4) P12(* PI 2)(if ( FB 0)(setq FB(+ FB P12);求 PB 和 PE 點(diǎn)的圓周角(if ( FE 0)(setq FE(+ FE P12)(setq F1(- (/ PI 2) F) AB
3、C(- A2 F1)(if ( ABC 0) (setq ABC(+ ABC P12)(setq C(polar PB ABC R); 求圓心之點(diǎn)位(setq ACB(angle C PB) ABC(angle PB C);(setq ACM(angle C PM) AMC(angle PM C);(setq ACE(angle C PE) AEC(angle PE C);(setq PBL(polar PB ACB W1) PBL1(polar PB ACB W2)(setq PBR(polar PB ABC W1) PBR1(polar PB ABC, 單獨(dú)插入。, 大大減少手算(defu
4、n c:ytl()(setvar osmode 0);(setq PB(getpointn(setq PM(getpointn(setq PE(getpointn(setq WD(getrealn取消撲捉輸入起點(diǎn): )輸入中點(diǎn): )輸入終點(diǎn): ) 輸入鐵路寬度 (m) :)(setq S(getrealn繪圖比例尺 =: );1:1000, 輸入軌道及枕木符號的半寬(setq F(+ FB FE) R(/ D(* (sin F)2);求全弧所對圓心角之半,圓弧半徑起點(diǎn)左右垂直于中線切線的方位角中點(diǎn)左右垂直于中線切線的方位角終點(diǎn)左右垂直于中線切線的方位角W2) (setq PML(polar P
5、M ACM W1) PMR(polar PM AMC W1)(setq PEL(polar PE ACE W1) PER(polar PE AEC W1)(setq S2(* S) S4(* S) S10(* 10 S)(command pline PBL w S2 S2 A S PML PEL );畫左右鐵路連線(command pline PBR w S2 S2 A S PMR PER )(command pline PBL1 w S4 S4 PBR1 ); 畫起點(diǎn)處枕木 (setq DF(/(* 10 S) R); 求一個分段圓弧所對圓心角 (setq FF 0); 動態(tài)分段圓弧之和,所
6、對圓心角初值賦 0 (while(FF(* F 2)(command pline PL W S4 S4 PR ); 畫分段處枕木(setq FF(+ FF DF)(setq ACP(- ACB FF) P(polar c ACP R)(setq APC(angle P C)PL(polar P ACP W2) PR(polar P APC W2)(PRINC);END;(3)弧度化度分秒函數(shù); 如弧度化為 , 即 20 2350(defun dfm(hdj)(setq jd(/(* hdj 180) pi)(setq du(fix jd); 截去小數(shù) , 提取度數(shù)(setq f1(* 60 (
7、- jd du)(setq ff( fix f1); 截去小數(shù) , 提取分?jǐn)?shù)(setq mm(rtos(* 60 (- f1 ff) 2 0); 按四舍五入提取秒數(shù); 上面的 du,ff 是整型數(shù) ,mm 是字符串(setq du(itoa du) ff(itoa ff); 把 du,ff 轉(zhuǎn)化為字符串(if (strlen ff) 2); 求 ff 長度(setq ff(strcat 0 ff); 如果 ff 長度小于 2,執(zhí)行此表達(dá)式(setq ff ff); 如果 ff 長度等于 2 ,執(zhí)行此表達(dá)式)(if (strlen mm) 2);求 mn 長度(setq mm(strcat 0
8、mm); 如果 mm 長度小于 2,執(zhí)行此表達(dá)式(setq mm mm);如果 mm 長度等于 2,執(zhí)行此表達(dá)式)(setq jd(strcat du . ff mm);把度,小數(shù)點(diǎn) , 分 , 秒放在一個字符串中) ;end;(4)度分秒化成弧度(defun hhd(a); 按 (hhd 調(diào)用(setq a(rtos a 2 4);a(setq ws(strlen a);(setq ad (substr a 1 (- ws 5) ;(setq am (substr a (- ws 3) 2) ;(setq as (substr a (- ws 1) 2) ;(setq a1 (atof ad
9、) ;(setq a2 (atof am);(setq a3 (atof as);(setq ar (+ a1 (/ a2 60) (/ a3 3600)(setq ard (/ (* ar pi) 180)(setq a ard);end轉(zhuǎn)換為字符型求角度 a 的長度,即判斷度數(shù)的位數(shù) 根據(jù)度數(shù)的位數(shù)取數(shù)給 ad 根據(jù)度數(shù)的位數(shù)取數(shù)給 am 根據(jù)度數(shù)的位數(shù)取數(shù)給as 把 ad 轉(zhuǎn)換為實(shí)數(shù)把 am 轉(zhuǎn)換為實(shí)數(shù)把 as 轉(zhuǎn)換為實(shí)數(shù); (5)標(biāo)注面積 (平方米和畝)(defun c:mj()(setq os (getvar osmode);osmode(setq cmd (getvar cmdec
10、ho);CMDECHO(setvar osmode 0)(setvar cmdecho 0)是捕捉系統(tǒng)變量是系統(tǒng)變量(setq p1 (getpoint n(command -boundary p1(setq bj (entlast);(command area o bj);(entdel bj);請?jiān)谝獦?biāo)注封閉區(qū)域內(nèi)點(diǎn)一下 :) ) ; 構(gòu)建多段線邊界 獲得邊界( bj )圖元名稱 獲得邊界( bj )圖元名稱面積刪除邊界( bj )圖元名稱(setq mj (rtos (getvar area) 2 3)(setq area1 (strcat mj fSimSun|b0|i0|c134|p
11、2;平方米 ()(setq ans (* (/ (atof area1) )(setq ans (rtos ans 2 3)(setq area2 (strcat area1 ans fSimSun|b0|i0|c134|p2; 畝 )(entmake (list (0 . MTEXT)(100 . AcDbEntity)(100 . AcDbMText)(cons 10 p1) (cons 405) (cons 41 0) (cons71 0)(cons 50 0)(72 . 5)(cons 1 area2); 創(chuàng)建一個新圖元(setvar osmode os)(setvar cmdecho
12、 cmd)(princ);end;(6)對單行文字修改主程序(DEFUN C:GWZ()(princ nselect object:)(setq s (ssget)(GJD); 調(diào)用修改文字角度函數(shù)(GGD); 調(diào)用修改文字高度函數(shù)); 結(jié)束(defun GJD(); 修改文字角度函數(shù)(setq hig (getreal n輸入角度 :)(if (= hig nil) (setq hig )(setq hig (* pi hig) hig (/ hig )(setq h50 (cons 50 hig)(setq n (sslength s)(setq k 0 )(while ( k n)(setq name (ssname s k)(setq a (entget name)(setq b (assoc 0 a)(setq b (cdr b)(if (= b TEXT)(progn(setq h (assoc 50 a)(setq a (subst h50 h a)(entmod a)(setq k (+ k 1); 結(jié)束(DEFUN GGD (); 修改文字高度函數(shù)(setq hig (getreal n輸入新字高 :)(if (= hig nil) (setq hig )(setq h40 (cons 40 hig)(setq n (s
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年中國底碗紙進(jìn)筒機(jī)市場調(diào)查研究報(bào)告
- 2025年中國工業(yè)PS托盤市場調(diào)查研究報(bào)告
- 2025年中國吸油材料市場調(diào)查研究報(bào)告
- 2025年中國雙針氣壓表市場調(diào)查研究報(bào)告
- 2025年中國壓力蒸汽滅菌化學(xué)指示膠帶市場調(diào)查研究報(bào)告
- 小程序外包服務(wù)合同協(xié)議
- 學(xué)校體育部上學(xué)期工作計(jì)劃
- 圖書收款合同協(xié)議
- 團(tuán)體合唱服租賃合同協(xié)議
- 大連羅森加盟合同協(xié)議
- 2022年第三屆大學(xué)生組織管理能力大賽真題題庫和答案
- 理綜-新疆烏魯木齊市2024年高三三模考試試題和答案
- 聾啞人輔助交流系統(tǒng)
- 帶狀皰疹病人的個案護(hù)理
- 《中藥鑒定技術(shù)》課件-五味子的鑒定
- 大數(shù)據(jù) AI大模型-智慧統(tǒng)計(jì)大數(shù)據(jù)平臺解決方案(2023版)
- 江蘇省安全員《B證》考試題庫及答案
- 自殺及其預(yù)防課件
- 灰姑娘童話故事
- 等離子切割機(jī)操作手冊與安全操作規(guī)程
- 印刷合同:紙袋印刷合作
評論
0/150
提交評論