AutoLISP&DCL基礎篇 (AutoCAD程序設計魔法書)

AutoLISP&DCL基礎篇 (AutoCAD程序設計魔法書)這本書是公司很久以前買的；有沒有附光碟已不可考??現將練習範例 做成可編輯檔以供後輩參考用!!

第11章 AutoLISP學習範例
EX01：(lsp_01.lsp) 11-1 凹形圖
(defun c:lsp_01()
(setvar "cmdecho" 0);
;cmdecho：為控制使用AutoLISP(command)函數，回應提示與輸入資料。0 為不回應，1 為回應。
(setq pt1 (getpoint "\n 選取圖形左下角："))
(setq ww (getdist pt1 "\n 寬度<100.0>"))
 ;getdist 可用滑鼠拉一段距離(數值均為正)；亦可用鍵盤輸入數值
 (if (null ww) (setq ww 100.0));當ww未賦值時，定義ww為100
(setq hh (getdist pt1 "\n 高度<50.0>"))
(if (null hh) (setq hh 50.0));當hh未賦值時，定義hh為100
 (setq ww3 (/ ww 3))
(setq hh2 (/ hh 2))
;以下為求得各點座標
(setq pt2 (polar pt1 0 ww))
(setq pt3 (polar pt2 (/ pi 2) hh))
(setq pt4 (polar pt3 pi ww3))
(setq pt5 (polar pt4 (* pi 1.5) hh2))
(setq pt6 (polar pt5 pi ww3))
(setq pt7 (polar pt6 (/ pi 2) hh2))
(setq pt8 (polar pt7 pi ww3))
(command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 "c")
(prin1)
;(prin1)消除執行完後所返回的nil
)

11-1 四圓孔
(defun c:lsp_02()
(setvar "cmdecho" 0)
;cmdecho：為控制使用AutoLISP(command)函數，回應提示與輸入資料。0 為不回應，1 為回應。
(setq pt1 (getpoint "\n 第一角點："))
(setq pt3 (getcorner pt1 "\另一角點："))
;getcorner：由螢幕上的第一點(pt1)為基礎, 選取第二點(pt3),以便畫出矩形.
    (setq pt2 (list (car pt3)(cadr pt1)))
;(car 串列/pt3)：傳回串列/pt3中的第一個元素(通常用來取得 X 座標)
 ;(cadr 串列/pt1)：傳回串列/pt1中的第二個元素(通常用來取得 Y 座標)
(setq pt4 (list (car pt1)(cadr pt3)))
    (setq rr (getdist pt1 "\n圓半徑<5>："))
;getdist：可用鼠標拉一段距離(數值均為正)；亦可用鍵盤輸入數值
(if (null rr) (setq rr 5.0));當rr未賦值時，定義rr為5.0
    (command "circle" pt1 rr)
(setq en1 (entlast))
;entlast：取出圖形資料中的最後一個圖元
(command "line" (polar pt1 pi (+ rr 3)) (polar pt1 0 (+ rr 3)) "")
(setq en2 (entlast))
(command "line" (polar pt1 (* pi 1.5) (+ rr 3)) (polar pt1 (/ pi 2) (+ rr 3)) "")
(setq en3 (entlast))
(command "copy" en1 en2 en3 "" "m" pt1 pt2 pt3 pt4 "")
(prin1)
;prin1：消除執行完後所返回的nil
)



EX 練習函數 entsel、car、cdr、entget
<<選取圖>>

指令：(setq en1 (entsel))
選取物件(碰選圓)：(<圖元名稱: 7ffffb04ea0> (49.729 7.14407 0.0))
    其中<圖元名稱: 7ffffb04ea0> <--圖元名稱
    (49.729 7.14407 0.0)<---滑鼠點選圓點之該點座標

指令：(car en1)
<圖元名稱: 7ffffb04ea0> <--串列的第一元素  '

指令：(cadr en1)
(49.729 7.14407 0.0) <--串列的第二元素  '

指令：(setq en1_data (entget (car en1)))
((-1 . <圖元名稱: 7ffffb04ea0>) (0 . "CIRCLE") (330 . <圖元名稱: 7ffffb039f0>) (5 . "27A") (100 .

"AcDbEntity") (67 . 0) (410 . "Model") (8 . "STR") (100 . "AcDbCircle") (10 60.0 15.0 0.0) (40 .

12.5) (210 0.0 0.0 1.0))

<<選取線>>

指令：(setq en2 (entsel))
選取物件(碰選線)：(<圖元名稱: 7ffffb04e90> (24.7951 17.6415 0.0))

指令：(setq en2_data (entget (car en2)))
((-1 . <圖元名稱: 7ffffb04e90>) (0 . "LINE") (330 . <圖元名稱: 7ffffb039f0>) (5 . "279") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "STR") (100 . "AcDbLine") (10 15.0 10.0 0.0) (11 65.0 50.0 0.0) (210 0.0 0.0 1.0))

<<選取文字>>

指令：(setq en3 (entsel))
選取物件(碰選文字)： (<圖元名稱: 7ffffb04ed0> (90.6104 7.64996 0.0))

指令：(setq en3_data (entget (car en3))):'顯示聯合資料串列
((-1 . <圖元名稱: 7ffffb04ed0>) (0 . "TEXT") (330 . <圖元名稱: 7ffffb039f0>) (5 . "27D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "TXT") (100 . "AcDbText") (10 90.0055 6.48393 0.0) (40 . 8.0) (1 . "AutoCAD") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

聯合資料串列中個子串列群碼分析說明參考 - DXF 群組碼

EX02：(lsp_02.lsp)
(defun c:lsp_02()
     (setvar "cmdecho" 0)
;cmdecho：為控制使用AutoLISP(command)函數，回應提示與輸入資料。0 為不回應，1 為回應。
(setq pt1 (getpoint "\n 第一角點："))
(setq pt3 (getcorner pt1 "\另一角點："))
;getcorner：由螢幕上的第一點(pt1)為基礎, 選取第二點(pt3),以便畫出矩形.
      (setq pt2 (list (car pt3)(cadr pt1)))
;(car 串列/pt3)：傳回串列/pt3中的第一個元素(通常用來球 X 座標)
;(cadr 串列/pt1)：傳回串列/pt1中的第二個元素(通常用來球 Y 座標)
(setq pt4 (list (car pt1)(cadr pt3)))
      (setq rr (getdist pt1 "\n圓半徑<5>："))
;getdist：可用鼠標拉一段距離(數值均為正)；亦可用鍵盤輸入數值
(if (null rr) (setq rr 5.0));當rr未賦值時，定義rr為5.0
    (command "circle" pt1 rr)
(setq en1 (entlast))
;entlast：取出圖形資料中的最後一個圖元
(command "line" (polar pt1 pi (+ rr 3)) (polar pt1 0 (+ rr 3)) "")
(setq en2 (entlast))
(command "line" (polar pt1 (* pi 1.5) (+ rr 3)) (polar pt1 (/ pi 2) (+ rr 3)) "")
(setq en3 (entlast))
(command "copy" en1 en2 en3 "" "m" pt1 pt2 pt3 pt4 "")
(prin1)
;prin1：消除執行完後所返回的nil
)

EX03：(lsp_03.lsp)
(defun c:lsp_03()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n第一角點："))
(setq pt3 (getcorner pt1 "\另一角點"))
(setq pt2 (list (car pt3) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt3)))
(command "Pline" pt1 pt3 pt2 pt4 "c")
(setq dd (/ (distance pt1 pt4) 2))
(setq ang1 (angle pt2 pt3))
(setq ang2 (angle pt4 pt1))
;繪製兩側半弧
(command "arc" pt2 "e" (polar pt2 ang1 dd ) "a" 180)
(command "arc" (polar pt2 ang1 dd ) "e" pt3 "a" 180)
(command "arc" pt4 "e" (polar pt4 ang2 dd ) "a" 180)
(command "arc" (polar pt4 ang2 dd ) "e" pt1 "a" 180)
(prin1)
)

EX04：(lsp_04.lsp)
(defun c:lsp_04()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n 輸入第一點："))
(setq pt2 (getpoint pt1 "\n 以pt1為準輸入第二點(需在第四象限)：\n"))
(setq LL (distance pt1 pt2))
(setq ang (angle pt1 pt2))
(setq pt3 (polar pt2 (+ ang (/ (* 120 pi) 180)) LL))
(command "polygon" 3 "e" pt1 pt2)
(command "arc" pt1 "e" pt2 "a" 180)
(setq en1 (entlast))
(setq mid1 (polar pt1 ang (/ LL 2)))
(command "circle" "2p" mid1 (polar mid1 (+ ang (* pi 1.5)) (/ LL 2)))
;------
(setq en2 (entlast))
(setq mid2 (polar pt2 (+ ang (/ (* 120 pi) 180)) (/ LL 2)))
(setq cen (inters pt3 mid1 pt1 mid2))
(command "array" en1 en2 "" "p" cen 3 "" "")
(command "line" pt1 cen pt2 cen pt3 cen);自己另加
(prin1)
)

EX05-比較最常與最短 lsp_05.lsp
(defun c:lsp_05()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n 輸入起點："))
(command "pline" pt1)
(setq pt2 (getpoint "\n 輸入第二點："))
(command pt2)
(setq pt3 (getpoint "\n 輸入第三起點："))
(command pt3)
(setq pt4 (getpoint "\n 輸入第四起點："))
(command pt4)
(setq pt5 (getpoint "\n 輸入第五起點："))
(command pt5 "c")
;----計算每段長度 -----
(setq dist1-2 (distance pt1 pt2))
(setq dist2-3 (distance pt2 pt3))
(setq dist3-4 (distance pt3 pt4))
(setq dist4-5 (distance pt4 pt5))
(setq dist5-1 (distance pt5 pt1))
(setq cc '())
(setq cc (cons (list dist1-2 pt1 pt2) cc))
(setq cc (cons (list dist2-3 pt2 pt3) cc))
(setq cc (cons (list dist3-4 pt3 pt4) cc))
(setq cc (cons (list dist4-5 pt4 pt5) cc))
(setq cc (cons (list dist5-1 pt5 pt1) cc))
(setq max_dd (max dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))
(setq min_dd (min dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))
(setq max_pt (assoc max_dd cc))
(setq max_pt1 (cadr max_pt))
(setq max_pt2 (caddr max_pt))
(setq max_ptm (polar max_pt1 (angle max_pt1 max_pt2) (/ max_dd 2)))
(setq min_pt (assoc min_dd cc))
(setq min_pt1 (cadr min_pt))
(setq min_pt2 (caddr min_pt))
;-------------------------
(command "arc" max_pt1 "e" max_ptm "a" 180)
(command "arc" max_ptm "e" max_pt2 "a" 180)
(command "arc" min_pt1 "e" min_pt2 "a" 180)
(prompt "max：" );自行加入測試用
(prin1)
)

Aspen Pluse 8.x 執行檔位置

開始 > 所有程式 > AspenTech > Process Modeling V8.x / Aspen Pluse / Aspen pluse V8.x (Sapen Plus User Interface)

AutoCAD 2015 檔案自動儲存的位置

平均溫壓 / 對數溫差

平均溫壓：是對岸的說法
對數溫差：是台灣這裡說法。LMTD - Log mean temperature difference。
公式如下 ( 逆向流 )

Excel 方程式 輸入方式(上or下標)

1. 功能表 > 插入 > (點擊)π方程式；如下圖：(點擊圖面放大)

2.在儲存格位置顯示 [在這裡鍵入方程式]圖示；如下圖示：(點擊圖面放大)

3.點擊 功能區上 設計>上下標 如下圖：(點擊圖面放大)

4.點擊 [下標] 圖示；如下圖：(點擊圖面放大)

5.在各輸入方格內輸入資料；如下圖示：(點擊圖面放大)

6.輸入資料後如下圖所示：(點擊圖面放大)

 7.如欲改為斜體；反白欲改的資料，點擊斜體圖示如下圖：(點擊圖面放大)

 8.點擊後如下圖：(點擊圖面放大)

 9.如欲刪除方程式圖示；將游標移至框線，如下圖：(點擊圖面放大)

 10. 待圖示框線變色；如下圖：(點擊圖面放大)

11.按下滑鼠右鍵；如下圖示點選剪下即可刪除。(點擊圖面放大)

12.如果要上標與下標同時存在，目前Excel似乎無法做到；可用Word使用上述方法做出是一個圖形(如下圖)；可用複製貼上到 Excel  但是不可編輯。(點擊圖面放大)

圖素大小在Blogger顯示大小

古人的 ? ?

豬肉 菱角 會肝痛(肚痛)
豆漿 不宜冲 雞蛋
牛肉 栗子 壞腸胃
羊肉 西瓜 相互沖
雞肉 芹菜 傷元氣
鵝肉加(雞)蛋 損脾胃
洋蔥 蜂蜜 會傷眼
鯉魚 甘草 害更深
蟹伴柿子會中毒
香蕉配竽胃脹痛.....引子

黑白子黑先走
黑要勝過185
交叉口氣相連
氣盡棋亡最自然
先佔角後走邊
中間是個草包肚
三線地四路勢
高低配合封好口
搶實地張外勢
兩翼張開連成片
行寬處勿擁擠
有雙拆二可分投 ......引子

鍋爐計算手冊 上冊 宋貴良 遼科出版社 1995年10月

鍋爐計算手冊是本幾十年前，到中國時 上海鍋爐廠送的，足足有三大本。
內文是中國早期印刷；不是很清晰：
最近有空發覺此書內容不錯。
以下是將一些印刷不清的，另行寫下：
依 表 1-5 角碼的意義 內容
1.爐膛               l
2.凝渣管束       nz
3.過熱器           gr
4.鍋爐管束       gs
5.省煤器           sm
6.預熱氣           ky

IAPWS-IF97編寫示例

IAPWS-IF97編寫示例   來源：鍋爐水動力計算 / 河南省電力勘測設計院編

PC 複製捷徑的路徑

1. 點選檔名按滑鼠右鍵 >> 開啟檔案位置

.

2. 在位置欄點選任何名稱，按右鍵 >> 點選 -> 將複製位址 ( 或 將位置複製為文字 )

 3. 將複製資料貼上。

CN 各種許用應力 總匯

01. 抗拉強度 N/mm^2

02. 屈服點 N/mm^2

03. 許用應力 N/mm^2
1.JBT6735-93 附錄 A2 常用材料的許用應力 N/mm^2


04. 彈性模量  10^3 N/mm^2
1.JBT6735-93 附錄 A5 常用材料的彈性模量 10^3 N/mm^2


05.線性膨脹係數 xE-04 mm/(mm)
1.JBT6735-93 附錄 A8 常用材料的線性膨脹係數 xE-04 mm/(mm)


06.螺紋計算截面積
1.JBT6735-93 螺紋計算截面積 mm^2

CN 鍋爐審查使用書籍

1）  對於層狀燃燒和流化床燃燒工業鍋爐推薦採用《層狀燃燒及流化床燃燒工業鍋爐熱力計算方法》-（2005年版《工業鍋爐設計計算方法》）進行計算。

2）  對於燃油燃氣和煤粉鍋爐推薦採用《鍋爐機組熱力計算》（73年蘇版）進行計算。

3）  對於電加熱鍋爐推薦採用《鍋爐實用計算手冊》（2001年出版的第2版中“設備和管道”的計算方法）進行計算。鍋爐實用計算手冊這本書找不到疑是筆誤。

4）  對於鍋爐煙風阻力計算推薦採用《工業鍋爐煙風阻力計算方法》（2005年版《工業鍋爐設計計算方法》）進行計算。

5 )       在水動力計算方面，除對計算內容作出相應規定外，同時推薦電站鍋爐水動力計算應依據JB/Z201-83《電站鍋爐水動力計算方法》進行計算。熱水鍋爐應按JB/T8659-1997《熱水鍋爐水阻力計算方法》進行計算。

AutoCAD div 等分 指令位置

在 RIBBON 指令區 >>常用>>繪製▼>>多個點>>等分

1
5
6