一、繪製地形圖符號
1.點狀符號
對於點狀符號
其位置固定
數量較多
且一般都帶有一定的標註
可逐個製作屬性塊圖元
單獨插入。
2.線狀符號
利用autocad
中強大的線型定義。
3.面狀符號
由充填符號在面域內按一定的排列方式組合而成。
目前auto cad
在建築設計、
工程施工放樣得到廣泛應用
, auto cad
在工程測量上的應用
大大減少手算座標
的工程量或幫助人們複核手算座標的準確性。
(1)刪除未選擇物件
(defun c:sd()
(princ"\n
選擇要保留物件
(setq ss(ssget) ss1(ssget"x"))
(command"erase"ss1"r"ss""zoom _e)
);end
;;(2)
畫圓弧型鐵路
輸入鐵路中線上三個點，軌距及繪圖比例尺，起、中、始點
(defun c:ytl()
(setvar "osmode" 0);
取消撲捉
(setq pb(getpoint"\n
輸入起點：
(setq pm(getpoint"\n
輸入中點：
(setq pe(getpoint"\n
輸入終點：
(setq wd(getreal"\n
輸入鐵路寬度
(m)(setq s(getreal"\n
繪圖比例尺
"));1:1000,
輸入1.0
(setq w1(/(* wd s) 2) w2(+ w1(* 0.6 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 (求pb
和pe點的圓周角
(if (
(setq f(+ fb fe) r(/ d(* (sin f)2)));
求全弧所對圓心角之半，圓弧半徑
(setq f1(- (/ pi 2) f) abc(- a2 f1))
(if (
(setq c(polar pb abc r));
求圓心之點位
(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 w2))
lisp捕捉垂足 lisp函式詳解
auotlisp及vlisp函式全集 按字母順序排列按功能分類排列 212.ssget 一.功能 提示使用者選擇物件 圖元 並返回乙個選擇集。二.格式 ssget mode pt1 pt2 pt list filter list 三.說明 一 函式呼叫中各變元的說明 mode變元是指定物件 圖元 選...
lisp程式繪製大樹 LISP 樹
可以從cons單元構建樹的資料結構，如清單列表。為了實現樹形結構，則必須設計功能，將遍歷cons 單元，在特定的順序，例如，前序，順序和後序的二進位制樹。樹列表的列表 讓我們考慮由cons單元的樹狀結構，形成列出的清單如下 1 2 3 4 5 6 它可以表示為 lisp樹的功能 雖然多數時候仍需要根...
lisp正負調換 LISP程式庫
軟體簡介 如果您使用 autocad,下面的內容對您一定有幫助。在某些方面能大大提高您的工作效率。壓縮包中含有以下面程式，且均以源程式方式給出，您可以使用 參考 修改它。解壓縮後請先看說明檔案。bg.lsp 自動生成 asc.lsp 將文字檔案內容寫入圖中，字元是單個的 wf.lsp 將圖中字元寫入...