2018年12月25日星期二

查看臺大醫院醫生有無請假 ( PC版 )

如欲至台大醫院掛號；先要查看欲掛號醫生是否有請假，如有請假則無法掛號!!

請點擊：https://reg.ntuh.gov.tw/webadministration/

依科別掛號

醫病證掛號

依醫事人員姓名掛號

依醫事人員請假查詢

查詢(取消)掛號

下載門診時間表

當日看診進度

點擊：[依醫事人員請假查詢]

黃書健

所有醫事人員請假總覽 (五天內,依院區) 所有醫事人員請假總覽 (兩週內,依院區)
依姓名查詢： ( <-- 輸入醫生姓名 )

請假日期	科部	門診種類	醫事人員姓名	時段	診別	代診人員	說明	院區	樓層
2018/12/26	內科部	醫師約診	賀立婷	早上	06	江君揚	不再接受掛號	總院區
2018/12/26	內科部	醫師約診	林茂欣	早上	12		停診	總院區	西址-1樓

輸入醫生姓名後點擊右邊[Query]按鈕。

螢幕顯示如下：

所有醫事人員請假總覽 (五天內,依院區) 所有醫事人員請假總覽 (兩週內,依院區)
依姓名查詢：

請假日期	科部	門診種類	醫事人員姓名	時段	診別	代診人員	說明	院區	樓層
2018/12/31	兒童外科	普通門診	黃書健	下午	14	住院醫師	不再接受掛號	總院區	兒醫-2樓

表示 2018年12月31日醫生：黃書健請假；不再接受掛號

如有上述情形表示：黃書健不接受掛號。

2018年12月22日星期六

Buying a hot water pressure washer

WTO姐妹會 Sister Show 20181219 西方人這樣看台灣旅遊沒人要來 !
台灣化學纖維化二部苯酚廠 HHCR

手機充電：
正常模式 5V==2A

快充模式 9V==2A

紅米6 5V = 1A

ASUS(Z00AD-201504) 9V= 2A 18W

放大鏡：Smart Magn

米家智能攝像機雲台版開箱

2018年12月18日星期二

內政部不動產交易實價查詢服務網

=====
內政部不動產交易實價查詢服務網

可查詢
1. 不動產買賣
2. 不動產租賃
3. 預售房屋買賣

2018年11月25日星期日

馬力只是功率另一種表示單位
1hp = 746W = 0.746Kkw

不能用 746W / 110V = 6.78 A
這種算法只能用在如傳統燈泡和電熱器

馬達屬於電感性負載，有功率因數常數要乘進去
算法: W = V*A*cosθ
以單相感應式馬達，cosθ值通常帶入0.8~0.95 一般取0.8
如果能測出 V，A， W 就能反推算功率因數
馬達耗電流部分還有一個叫做起動電流，短暫時間有3~10倍的額定電流

1HP馬達=746W 110V 6.8A
1HP馬達=746W 220V 3.4A
3HP馬達=2238W 220V 10.1A

參考：https://tw.answers.yahoo.com/question/index?qid=20111016000016KK02528
一般單相感應馬達查表標準滿載電流：110V 1HP： 15A；220V 1HP： 7.5A；單相感應馬達視在電流計算公式為：一般來說 1HP為實際輸出功率 P，但因為馬達電感性負載，須換算成 “視在功率” 來看輸入電流，才能看到實際電流大小。再因 “輸入輸出” 有轉換效率的因素，輸入功率須大於輸出功率，因為η< 1。所實際輸入端“視在電流”公式如下：Is=HP*746/ (E*cosθ*η) Example:假設單相110V 1HP馬達η=0.57, cosθ=0.8 則Is=1HP*746/(E*cosθ*η)= 14.9A Example:假設單相220V 1HP馬達η=0.57, cosθ=0.8 則Is=1HP*746/(E*cosθ*η)= 7.43A 所以你的公式須加上效率 η 跟 PF 才會接近查表出來的滿載電流值。一般三相感應馬達查表標準滿載電流：220V 3HP：9A；三相感應馬達視在電流計算公式為：Is=HP*746/ (√3*E*cosθ*η) Example:假設三相220V 3HP馬達η=0.81, cosθ=0.8 則Is=3HP*746/(√3*E*cosθ*η)= 9.1A 同樣原理須加上效率 η 跟 PF 才會接近查表出來的滿載電流值。一般來說三相的效率會比單相好；馬力愈大效率會愈高。

不能這樣說，1HP 是指馬達最大能力輸出 746w ，意思是說，當馬達的負載也有746w時，才會有滿載電流15A，有這麼多能力(1HP)，不代表負載會吃麼多。
你家1HP馬達抽水馬達應不會在滿載持續工作，因為這樣設計，馬達壽命會減短。

馬達因為有啟動電流，所以不建議共用其它設備迴路，應採獨立迴路設計。不然啟動瞬間，共用迴的設備，將會被影響。

大馬達被啟動時，當設備容量不太足時，你會看到日光燈閃一下，就是個例子囉！

假設單相110V 1HP馬達η=0.57, cosθ=0.8 則

Is=1HP*746/(E*cosθ*η)=1 * 746 / (110 * 0.8 * 0.57) = 14.872A

2011-10-17 15:30:49 補充：
cosθ, η效率，不同廠牌的馬達有不同廠牌的馬達特性，馬達馬力不同又有不同的值，三相跟單相也有不同的值，不同的馬達型號也有不同的值，又不一定一樣，我給你只是參考的值。

如果你要知道該馬達的特性值，有幾種方式：1、自己量(高職實驗有教)；2、跟該馬達製造商要資料；3、書上查表(通常只是參考設計用，因為每家不一)；4、因為查表得知，太部份的pf=cosθ會在0.8左右，你可反對 η效率值，不過也是參考用。

查表得知的滿載電流也是參考設計用，每一家還是會有所不同。
如果你是要設計接線，只要知道馬達滿載電流就行了。至於cosθ, η效率你不用管它，那是考試用到比較多，我只是解釋原理給你知道。

反對==反推，打錯了。

2018年11月19日星期一

管螺紋

配管用的管螺紋一般分兩種螺紋 PT牙(推拔螺紋/一般俗稱斜牙)與PF牙(平行螺紋)

2018年11月16日星期五

種子

1. 迷迭香

2.九層塔：
A. 發芽溫度：20~25℃；查台北預報溫度，20~24℃之間可以開始試種
B. 網友種植記錄：

3.北蔥

4.辣椒：
A. 發芽溫度：20~25℃；查台北預報溫度，20~24℃之間可以開始試種
B. 網友種植記錄：(自己取種種植)
C. 網友種植記錄：

D. 網友討論記錄：

5. 靚(音靜)土(蔬果專用)：
momo購物網 25L$1026=41.04NT$/L ；有夠不便宜，去信義路東門市場附近生活用品店找6L/NT$70=11.67 NT$/L 快差四倍。花園城堡更低 221/25=8.84 NT$/L

6.花公主 ( 有機質培養土 )：說明
原料名稱：菇類培植廢棄包、椰纖、泥炭
有機質：80.0%
性狀：固態、粉狀
特性
●本產品為專業之有機質栽培土，質輕、無臭、乾淨、無污染，適用於盆栽蔬菜及水果栽培，專業草花栽培、專業盆栽栽培、花卉種植、庭園施工、芽菜栽培、草皮種植、清潔蔬菜容器栽培、扦插繁殖等亦適用。亦適用於果菜類作物（番茄、甜椒、小黃瓜）之介質栽培。
●本產品具適當且良好之保水、保肥及通氣性並具適當的pH酸鹼值及EC電導度，除可直接使用外，亦可另行添加泥炭土、真珠石或其他介質搭配使用。
●本產品所含有機質肥份具緩效性可供應植物初期7~14天之生長，亦可搭配施肥或澆灌提供作物營養。
●本品可直接使用，使用於盆栽、蔬菜或其他栽種。
一般蔬菜、水果、花卉及園藝栽培，可直接全部栽培使用。
更換新盆時與其他介質混合比例使用（體積比）：花公主有機質培養土：原有一般性土壤＝1：3
●包裝內或使用後若發現白色菌絲，係正常現象，有助於植物吸收養分。
花園城堡 193/25=7.72

2018年11月1日星期四

掛耳包小技巧，讓濾泡咖啡更好喝

這幾年大家越來越熟悉的濾泡掛耳包，其實是日本人發明的專利，

咖啡粉裝在濾袋裡，兩側的夾板掛在杯子上，沖完後即可丟掉，讓你在家中也能喝到彷彿濾滴沖泡咖啡的新鮮。
方便的掛耳包，只要多注意一點小技巧，就讓咖啡更香濃好喝喔！
先來看看幾個可能會弄錯的小細節吧：

一包掛耳包沖一杯馬克杯的量？

一包掛耳包沖出多少咖啡較適合呢？
建議10g的咖啡粉約沖泡200cc左右比較香醇喔。可以再視個人口味酌量增減。若沖出太多份量，除了咖啡較淡，也易粹取出不好的味道喔。

沖泡越久味道越濃？

有些人會覺得沖泡越久味道越濃，但是泡太久也容易萃出過多令人不適的味道，更會將咖啡豆的雜質沖出來。建議當水量到達時，停止注水讓咖啡粉浸泡約30秒，即可沖出濃郁又美味的咖啡喔！

濾泡掛耳包可以重複使用？

沖泡過的掛耳包千萬不要回沖喔，否則只會因過度萃取而喝到難喝的咖啡。

那麼正確的沖泡方式是什麼呢？就讓小編以生態綠榮獲濾掛式咖啡評比第一名的環保綠來做示範嚕～

Step 1 將掛耳包從外包裝取出，握住上緣將咖啡粉抖至折線之下，依折線方向撕開

Step 2 將濾紙雙片的耳朵拉開掛在杯子的邊緣上
Step 3 先注入足夠浸泡咖啡粉的熱水（約87~92度左右），讓咖啡粉先浸潤約20~25秒
Step 4 繼續以細長穩定的水流注入熱水，可以小繞圈的方式均勻淋濕咖啡粉表面，讓每一顆咖啡粉充分萃取
Step 5 直至萃取至200cc左右為止，即可享用一杯果香與花香交融的生態綠經典環保綠咖啡囉！

掛耳濾泡式咖啡沖泡教學 - 3分鐘喝杯香醇的好咖啡 - YouTube

2018年10月25日星期四

網路音樂

西部村音樂：
01.德州鄉村歌曲 - 德州鄉村音樂最佳經典鄉村歌曲
02.鄉村音樂2017：鄉村熱門歌曲播放列表
03.鄉村路帶我回家 Take me home, country roads
04.鄉村音樂播放列表2018年 - 熱門最新歌曲CORAL REEF SOUNDSnull
05.John Denver - Take Me Home, Country Roads (Audio)

美國靈魂：
01.Aretha Franklin - I Say A Little Prayer

嘻哈音樂：
01.2017 嘻哈音樂 - 饒舌歌曲混音
02.2018 重低音嘻哈音樂 | 電音歌曲混音 - HIPHOP & TRAP Vol 79

2018年10月21日星期日

加密文件：(私人)
https://drive.google.com/file/d/1XxJV0AqJ99YvvIytn8gl3T6GZYMBPO_p/view?usp=sharing

2018年10月20日星期六

PVC塑膠壁只(鉛止/塑膠塞頭)

直徑 6m/m 用2分鑽尾(1/4-6.35)
直徑 5.5m/m 用分半鑽尾(3/16-4.7625)

2018年10月6日星期六

開啟新卷宗視窗管理

1. 一般開啟卷宗內定會顯示下A、B、C、D小視窗；如下圖所示：

2.刪除功能表列組合管理 > 版面配置 > 點擊打勾的 [ 功能表 ] 。

3.點擊後視窗顯示如下，原有功能表不再顯示出來 !

4.詳細資料窗格 ( 一般狀態列位置) 取消 !!
組合管理 > 版面配置 > 點擊打勾的 [ 詳細資料窗格 ]。

5.點擊打勾的 [ 詳細資料窗格 ]後；原有 [ 詳細資料窗格 ]不再顯示出來；如下圖：

6.刪除 [ 選取要預覽的檔案 ]
組合管理 > 版面配置 > 點擊打勾的 [ 預覽窗格 ]。

7.點擊打勾的 [ 預覽窗格 ]後；原有 [ 預覽窗格 ]不再顯示出來；如下圖：

8. 刪除 [ 瀏覽窗格 ]
組合管理 > 版面配置 > 點擊打勾的 [ 瀏覽窗格 ]。

9.點擊打勾的 [ 瀏覽窗格 ]後；原有 [ 瀏覽窗格 ]不再顯示出來；如下圖：

10. END

GB 強制與推薦標準中有設計的計算

======================================================================

SH/T3059-12 石油化工管道設計器材選用規範

JBT9018-99 有軌巷道式高層貨架倉庫設計規範

SHJ40-91 石油化工企業蒸氣伴管及夾套管設計規範(附條文說明)

SHT3040-02 石油化工管道伴管和夾套管設計規範(繁籤)

SHT3059-12 石油化工管道設計器材選用規範(繁半籤)

SHT3104-00 石油化工儀表安裝設計規範(繁籤)

SHT3108-00煉油廠全廠性工藝及熱力管道設計規範

SHT3126-01 石油化工儀表及管道伴熱和隔熱設計規範 (繁籤)

SH3534-01石油化工築爐工程施工及驗收規範

GBJ128-90(立式圓筒型鋼製焊接油灌施工及驗收規範)

GB50275-98(壓縮機,風機,泵安裝工程施工及驗收規範)

GB50242(建築給水排水及採暖工程施工質量驗收規範)

CJJ33-89城鎮燃氣輸配工程施工及驗收規範

TSG G0002-10 鍋爐節能技術監督管理規程(設計)(繁籤)

GBT30041-13 頭部防護安全帽選用規範

GBT11651-08 個體防護裝備選用規範國家標準

GB30871-14 化學品生產單位特殊作業安全規範

GBT 2887-2011.pdf

GBT29196-12

GB50016-14

GB50311-07綜合布線工程設計規範

GB 50341-2003立式圓筒形鋼製焊接油罐設計規範

SHT3082-03 石油化工儀表供電設計規範

SHT3165-11 石油化工粉體工程設計規範

SHT3073-16 石油化工管道支吊架設計規範

SH3054-05 石油化工企業廠區管線綜合設計規範

SHT3097-2017 石油化工靜電接地設計規範

SHT3521-15石油化工儀表工程施工技術規程

2018年10月4日星期四

第6章 6-4 對象屬性修改與更新技巧 - ( LISP )

===========================================================

請將上例中,圓的半徑修改為 23.8 過程如下:
①指令 : !en1_data
傳回：
((-1 . <圖元名稱: 2940518>) (0 . "CIRCLE") (5 . "23")(100 . "AcDbEntity") (67 . 0) (8 .
"STR") (100 . "AcDbCircle") (10 60.0 15.0 0.0) (40 . 12.5) (210 0.0 0.0 1.0))
②指令 : (setq oldr (assoc 40 en1_data))
傳回： (40 . 12.5) <==群碼 40 為索引值的子串列
③指令 : (setq newr (cons 40 23.8))
傳回： (40 . 23.8)
④指令 : (setq en1_data (subst newr oldr en1_data))
回應：
((-1 . <圖元名稱: 2940518>) (0 . "CIRCLE") (5 . "23")(100 . "AcDbEntity") (67 . 0) (8 .
"STR")
(100 . "AcDbCircle") (10 60.0 15.0 0.0) (40 . 23.8) (210 0.0 0.0 1.0))
資料串列已被修改成功了,但是畫面上圖元並未更新???
⑤指令: (entmod en1_data) <==大功告成,畫面上的圓也更新了!!!

2018年10月3日星期三

第6章在AutoCAD的"命令"下練習取得對象屬性列表 - ( LISP )

==================================================

取出"圖"对象属性列表:

①命令：(setq en1 (entsel))
選擇對象：
返回一列表：(<圖元名: 400f1d6C> (50.435 7.07628 0.0))
其中<圖元名: 400f1d6C>
(50.435 7.07628 0.0)

②命令：(car en1)
返回：<圖元名: 400f1d6C>

③命令：(cadr en1)
返回：(50.435 7.07628 0.0)

④命令：(setq en1_data (entget (car en1)))
返回："圖的聯合屬性列表"：
( (-1 . <图元名 : 400f1d60>) (0 . "CIRCLE" ) (330 . <图元名; 400 f1cf8>) (5 . "2C" ) (100 . "AcDbEntity") (67 . 0 ) (410 . "Mode1") (8 . "STR" ) (100 . AcDbCirc1e") (10 60.0 15.0 0.0) (40 . 12.5) (210 0.0 0.O 1.0))

Foxit Reader PDF 標註連結框的刪除

==================================================

1. 如欲想刪除標註或連結，如點擊標註或連結框則會顯示啟動檔案提示；如下圖：

2.可點擊 Menu > 常用> 選取 > 選取註解；如下圖：

3.點擊欲刪除框後按下滑鼠右鍵 > 刪除；如下圖：

4. 原框已刪除；如下圖：

5. End

LISP 三角函數中度度量的書寫法

===================================================
Notepad++ Edit
(defun c:sT()
;三角函數中度度量的書寫法
(setq a1 (getpoint "請用滑鼠點一點："))
(setq s2 (sin (/ pi 2)))
(princ "\nPI=")(princ pi)
(princ "\ns2=(sin (/ pi 2))=")(princ s2)
(setq s3 (sin (/ 3.1415927 2)))
(princ "\nPI=")(princ pi)
(princ "\ns3=(sin (/ 3.1415927 2))=")(princ s3)
(princ "\n============================================\n")
(setq Sx1 (sin (/ 3.1415927 1)))
(princ "\nSx1=(sin (/ 3.1415927 1))=")(princ sx1)
(princ "\n============================================\n")
;(setq Sx2 (sin (3.1415927)))
;度度量如須運算用小括弧刮起來；否則純度度量(如上 sin (3.14.. )不可用刮弧刮起來
(setq Sx2 (sin 3.1415927))
(princ "\nSx2=(sin (3.1415927))=")(princ sx2)
(princ "\n============================================\n")
(setq s4 (sin (/ 1.57079635 1)))
(princ "\nPI=")(princ pi)
(princ "\ns4=(sin (1.57079635))=")(princ s4)
(prin1)
)

2018年10月2日星期二

基礎準備動作第6章 - 6test1 ( LISP )

==================================================================

(defun c:6test1()
;基礎準備動作第6章
(setvar "menuecho" 0)
(command "-layer" "n" "STR,TXT" "c" "1" "STR" "c" "4" "txt" "s" "str" "")
(setq L1 (getpoint "請輸入直線起點座標(15,10)："))
(setq L2 (getpoint "請輸入值線終點座標(50,40)："))
(command "line" L1 L2 "");畫直線
(setq cpt1 (getpoint "請輸入圓心座標(60,15)："))
(setq rad (getreal "請輸入圓半徑(12.5)："))
(command "circle" cpt1 rad "");畫圓
(command "_zoom" "e" "")
(command "-layer" "s" "txt" "" "dtext")
(prin1)
)
(prompt "<<ok>> 6test1 基礎準備動作 - 2018 10 02")
(prin1)

第6章重要對象屬性應用相關的功能函數 ( LISP )

================================

***(entsel [提示]) 請求選取一個圖元,回應包含圖元名稱及選點座標的串列
(car 串列) 傳回:串列中的第一個元素,通常用來求座標
(cadr 串列) 傳回:串列中的第二個元素,通常用來求座標
(caddr 串列) 傳回:串列中的第三個元素,通常用來求座標
(cdr 串列) 傳回:除去第一個元素後的串列
(entlast):取出圖形資料中的最後一個圖元
***(entget 圖元名稱 [應用程式串列]):取得圖元名稱的資料聯合串列
***(assoc 關鍵元素聯合串列):依關鍵元素找尋聯合串列中關係資料
(cons 新元素串列) 傳回:將新元素結合到串列,常用於產生「點對串列」,
(subst 新項舊項串列) 傳回:替換新舊串列後的串列
(entmod 圖元串列) 依更新的資料串列更新螢幕上元體
(list 元素元素.) 傳回:將元素結合成一串列

2018年10月1日星期一

LISP 練習 5TEST4

==================================================
(defun c:5test4()
(setvar "menuecho" 3)
(setq baspt (getpoint "請輸入基本點(baspt)："))
(setq W1 (getreal "請輸入左水平線長度(W1)："))
(setq W2 (getreal "請輸入右水平線長度(W2)："))
(setq A1 (getreal "請輸入水平角度(度度量)(A1)："))
(setq D (getreal "請輸入左垂平線長度(D)："))
(setq B (getreal "請輸入右垂平線長度(B)："))
(setq A (* A1 (/ pi 180)))
(princ "\nPI=")(princ PI)
(princ "\nA1=")(princ A1)
(princ "\nA=")(princ A)
(setq pt1 (polar baspt (* -1 (/ pi 2)) (/ b 2)))
(princ "\nline pt1")
;(command "line" baspt pt1 "")
(setq pt2 (polar pt1 0 w2))
(princ "\nline pt1 pt2 \n")
;(command "line" baspt pt1 pt2 "")
(setq pt3 (polar pt2 (/ pi 2) B))
(princ "line pt1 pt2 pt3 \n")
;(command "line" baspt pt1 pt2 pt3 "")
(setq pt4 (polar pt3 pi w2))
;(princ "line pt1 pt2 pt3 pt4 \n")
;(command "line" baspt pt1 pt2 pt3 pt4 "")
;(prin1 "cos= open start-------------------------------")
;(setq csa (sin(/ a 1)))
;(princ "\ncos=")(princ csa)
(setq kk (/ w1 (cos (/ A 1))))
;(princ "\nkk=")(princ kk)
(setq h1 (* kk (sin (/ A 1))))
;(princ "\nh1=")(princ h1)
(setq h2 (/ (- (+ d (* 2 h1)) b) 2))
;(princ "\nh2=")(princ h2)
(setq pt5 (polar pt4 (/ pi 2) h2))
;(command "line" baspt pt1 pt2 pt3 pt4 pt5 "")
(setq pt6 (polar pt5 (+ pi A) kk))
;(command "line" baspt pt1 pt2 pt3 pt4 pt5 pt6 "")
(setq pt7 (polar pt6 (+ pi (/ pi 2)) D))
;(command "line" baspt pt1 pt2 pt3 pt4 pt5 pt6 pt7 "")
(setq pt8 (polar pt1 (+ pi (/ pi 2)) h2))
;(command "line" pt1 pt8 "")
(command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 "c")
(prin1)
)
(prompt "<< OK 20181001-05:04>>")
(prin1)

2018年9月30日星期日

LISP 練習 5TEST3

=================================

(defun c:5test3()
;FileName：5test3_ex.LSP
(setq baspt (getpoint "請輸入左下角："))
(setq a (getreal "\n 請輸入A邊長："))
(setq b (getreal "\n 請輸入B邊長："))
(setq c (getreal "\n 請輸入C邊長："))
(setq bs (/ (+ a b c) 2))
;S=(A+B+C)/2
(setq ba (sqrt (* bs (- bs a) (- bs b) (- bs c))))
;AREA=sqr(S(S-A)(S-B)(S-C))
(setq h (/ (* 2 ba) a))
;AREA=a*h/2 ==> h=AREA*2/a2
;(princ "h=")(princ h)
(setq a1 (sqrt (- (* c c) (* h h))))
;(princ "\n a1=")(princ a1)
(setq a2 (sqrt (- (* b b) (* h h))))
;(princ "\n a2=")(princ a2)
(setq pt1 (polar baspt 0 a))
(setq ang1 (atan (/ h a1)))
(setq ang1a (* ang1 (/ 180 pi)))
;(princ "\n ang1a = ")(princ ang1a)
(setq pt2 (polar baspt ang1 c))
(command "pline" baspt pt2 pt1 "c")
(prin1)
)
(prompt "\n <<5test3 by Hsiao C.C. >>")
(prin1)

2018年9月29日星期六

My AutoCAD Menu (功能表) 自己的圖比例設定x2

======================================================

例：(參考)
[ 1:30 ]
^C^C(SETVAR "MENUECHO" 3);(SETQ SCC 30);$S=DRIZE^C[比例設定完畢];^C

[ 自行輸入比例 ]
^C^C(SETVAR "MENUECHO" 3);(SETQ SCC (getreal "請輸入比例 1:x (實數)"));$S=DRIZE^C[比例設定完畢];^C

My AutoCAD Menu (功能表) 自己的圖框設定

==================================================

^C(SETVAR"MENUECHO" 0);^C^CUNITS;2;3;1;3;0;N;;^C^C(SETQ DDSIZE (* 18.0 SCC));LTSCALE;!DDSIZE;DIMSCALE;!SCC;DIMTIH;OFF;DIMTOH;OFF;DIMTAD;3;^C^CINSERT;A1HPTA;0,0;;;;SCALE;L;;0,0;!SCC;ZOOM;E;LIMITS;;(GETVAR"EXTMAX");^C^C(SETVAR"MENUECHO" 0);
^C^C(SETQ AAA 5.0);^C^C(SETVAR"MENUECHO" 0);^C^CDIM;DIMTXT;(/ (* AAA SCC) 2.0);DIMDLI;(/ (* (* AAA 3.0) SCC) 2.0);^C^CSTYLE;DAYUMP;COMPLEX;(* AAA SCC);;;;;;^C^C(SETVAR"MENUECHO" 0);^CDIMSTYLE;AN;N;ISO-25HCC;S;^C[圖框設定完畢];^C

註：A1圖紙臥形；線性比例為 18。圖紙名稱：A1HPTA。SCC：繪圖比例，來源參考點我

其他線性比例參考：https://hsiao-tw.blogspot.com/2018/08/autocad_10.html

My AutoCAD Menu (功能表) 自己的圖基本設定

===============================================

^C^CLAYER;N;0,Frame,Frame01,Frame02,Mark,center,das,text,dim,hat,vp,foundation,ver0,ver9,ver;C;7;0;C;52;Frame;C;42;Frame01;C;32;Frame02;C;60;Mark;C;3;center;C;2;das;C;1;text;C;4;dim;C;4;hat;C;40;vp;C;5;foundation;C;6;ver0;C;6;ver9;C;5;ver;L;dashed;das;L;center;center;L;Continuous;vp;L;Continuous;0;L;Continuous;text;L;Continuous;dim;L;Continuous;hat;L;Continuous;foundation;L;Continuous;ver0;L;Continuous;ver9;L;Continuous;ver;P;N;vp;Lw;0.4;Frame01;Lw;0.6;Frame;Lw;0.00;Mark;^C^CDIMCLRD;4;DIMCLRE;3;DIMCLRT;1;DIMDEC;2;DIMADEC;2;DIMDSEP;.;DIMTXSTY;Chineset07;PDMODE;35;PDSIZE;5;DIMTOFL;OFF;^C^C(SETVAR "OSMODE" 0);^C^C(SETVAR "OSMODE" 4159);(setvar "menuecho" 0);^C^CLAYER;S;0;^C^C(setvar "menuecho" 0);^C^C(prompt "[圖基本設定完畢]")

My AutoCAD Menu (功能表) 自己設定的線型字型

========================================================

^C^C(SETVAR"MENUECHO" 0);^C^CLINETYPE;L;acadiso.lin;;S;CENTER;S;CENTER2;S;CENTERX2;S;DASHED;S;DASHED2;S;DASHEDX2;S;continuous;^C^CSTYLE;Arial;Arial;0.0;1;0;n;n;^C^CSTYLE;Arial07;Arial;0.0;0.707;0;n;n;n;^C^CSTYLE;BKT;標楷體;0.0;1;0;n;n;^C^CSTYLE;BKT07;標楷體;0.0;0.707;0;n;n;^C^CSTYLE;Chineset;simplex,chineset;0.0;1;0;n;n;^C^CSTYLE;Chineset07;simplex,chineset;0.0;0.707;0;n;n;n;^C^CSTYLE;dayump;complex,dayump;0.0;1;0;n;n;n;^C^CSTYLE;NCMT;新細明體;0.0;1;0;n;n;STYLE;NCMT07;新細明體;0.0;0.707;0;n;n;^C^CSTYLE;dayump07;complex,dayump;0.0;0.707;0;n;n;n;^C^CLWDISPLAY;1;^C^CMEASUREINIT;1;^CDIMSTYLE;AN;N;ISO-25HCC;S;^C[線型比例係數 A0=23,A1=18,A2=15,A3=10,A4=85/10,線型字型設定完畢];^C

2018年9月28日星期五

在雲端作業

TEST

https://drive.google.com/file/d/1U-VBfKT3I6v7cZE94ere3AYOZzFnY0Yr/view?usp=sharing

http://hsiao-tw.blogspot.com/2018/01/qq123.html

2018年9月27日星期四

test

第01講課程內容簡介 (A)

第02講 MATLAB小傳與外觀(A)

第02講 MATLAB小傳與外觀(B)

第02講 MATLAB小傳與外觀(C)

[Android 模擬器] BlueStacks v4.30.50

Autorun Organizer v3.01 讓程式在開機時「延遲載入」或禁止開機自動啟動，加快電腦開機速度！

The AutoLisp Ultimate Tutorial - Dialog Control Language - DCL

環華十年 - YouTube-https://www.youtube.com/channel/UCJPCo6WJCb0aXShfcDDUffg/videos

超簡單windows7重灌安裝教學setup system(企業版範例)

【教學】WIN7.WIN8電腦變慢?EXCEL變慢?文書變慢?OFFICE changing down?

AutoCAD 加入 Express ( Express Tools ) menu

AutoCAD
command > cui
自訂-所有檔案中的自訂-所有自訂檔 > 點擊局部自訂檔滑鼠右鍵 > 載入局部自訂檔 > acetmain.cuix
(如果沒有此檔可搜索自己電腦有無此項目或上網搜尋)載入

點擊 Express ( Express Tools ) > Tools > System Variable Editor
( 如果 System Variable Editor 無法開啟 )
點擊桌面左下角 [ 開始 ] > 控制台 > 程式集 ( 解除安裝程式 ) > ( 點擊 ) Autodesk AutoCAD XXXX - > 加入或移除功能 ---( 依程式指示操作 )
如果遺失或沒有某個項目可上網搜尋項目載入

2018年9月26日星期三

在Blogger新增地圖小工具

在Blogger 部落客(網站) 加入程式碼

https://clustrmaps.com/

在Blogger 部落客 (網站) 加入程式碼

============================================

1.點擊網站小圖示

2.點擊頁面配置

3.點擊 [ + 新增小工具 ] 或欲修改項目的編輯

4.點擊 HTML/JavaScript 右邊 + ico

5.依序填寫標題與內容 (如為 script 可直接填寫至內容內)。

6.儲存

7.如覺得 [ 新增小工具 ] 位置不好，可用滑鼠拖曳到其他地方。

2018年9月25日星期二

SNAPANG (系統變數) 0、15、30、45、60、75 度度量 lisp

===========================================

;;filename：fastsnap_ex.LSP
(defun c:sn0()
(setvar "snapang" (* 0 (/ pi 180))
(prin1)
)
(defun c:sn15()
(setvar "snapang" (* 15 (/ pi 180))
(prin1)
)
(defun c:sn30()
(setvar "snapang" (* 30 (/ pi 180))
(prin1)
)
(defun c:sn45()
(setvar "snapang" (* 45 (/ pi 180))
(prin1)
)
(defun c:sn60()
(setvar "snapang" (* 60 (/ pi 180))
(prin1)
)
(defun c:sn75()
(setvar "snapang" (* 75 (/ pi 180))
(prin1)
)

SNAPANG (系統變數)：設定目前視埠相對於目前 UCS 的鎖點和格線旋轉角度。
初始值: 0.0000

2018年9月20日星期四

PBOX.LSP

第01講課程內容簡介 (A)

第02講 MATLAB小傳與外觀(A)

第02講 MATLAB小傳與外觀(B)

超簡單windows7重灌安裝教學setup system(企業版範例)

【教學】WIN7.WIN8電腦變慢?EXCEL變慢?文書變慢?OFFICE changing down?

(defun c:pbox(/ pa pb pc pd ww hh pm1 pm2 pm3 pm4)
;;FileName：pbox_ex
(setvar "cmdecho" 1)
(setvar "Blipmode" 0)
(setq pa (getpoint "左下角點："))
(setq ww (getdist pa "\n 寬："))
(setq hh (getdist pa "\n 高："))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;;
(setq pm1 (polar pa 0 (/ ww 2)))
(setq pm2 (polar pb (/ pi 2) (/ hh 2)))
(setq pm3 (polar pd 0 (/ ww 2)))
(setq pm4 (polar pa (/ pi 2) (/ hh 2)))
(command "line" pm1 pm3 "")
(command "line" pm2 pm4 "")
(command "pline" pa pb pc pd "c")
(prin1)
)
(prompt "\n 這是我寫的Program於20180925")
(prompt "\n command ： pbox")

2018年9月14日星期五

統一的調味粉包與調味油包 (鮮蝦/肉燥風味)

====================================
鮮蝦風味 - 調味粉包為藍色不透明包裝75*80(大)，透明調味油包60*54(小)。
肉燥風味 - 調味粉包為大藍色不透明包裝55*54(小)，透明調味油包77*55(大)。

AutoCAD 的圖元顯示資料內容(例)

=========================================================
在 AutoCAD Command下鍵入 "!elist"；或在控制台"_$"題示下鍵入 "!elist"；即可顯示以下該圖元的圖元表。資料來源：Visual Lisp 程式設計(2006) P117 9.2.1獲取圖元表
((-1. < Entity name: 7ef69500> ) :圖元名
(0 . "TEXT")：圖元種類
(330. < Entity name : 7ef67dOO>) :軟指針句柄
(5 . " 19F ")：圖元描述字
(100 . "AcDbEntity")： AutoCAD 圖元
(67 . 0) :模型空間
(410. "Model")：模型空間標識
(8 . "0") ;所在圖層名
(100. "AcDbText"): AutoCAD 文本
(1010.020.00. 0) :定位點坐標
(40. 5. 0) :文本字高
(1 . "ABCDE ") ;文本內容
(50 . 0.0) ;文本的旋轉角度
(41 . 1.0) :文字的寬度因子
(51 . 0. 0) :文字的傾斜角度
(7 . "STANDARD") :字樣的名字
(71 . 0) : 正常文本(非左右或上下鏡像的文本)
(72 . 0) ; 左下角點對齊方式
(11 0.0 0. 0 0.0) ;輔助的定位點坐標
(2100.00.0 1. 0) :厚度方向

2018年9月12日星期三

亂碼的簡體lsp在Notepad++中的處理

===============================================================
1.將簡體.lsp的副檔名改為DOC，開檔(office)文字編碼使用GB18030標準。
2.Office menu > 校閱 > 簡轉繁
3.開啟 Notepad++並建一新檔；a.將其語言設為LISP。b.將編碼編譯成ANSI。
4.將2簡轉繁的lisp複製貼上Notepad++。

2018年9月6日星期四

重新恢復cui內遺失的螢幕功能表(screenmenu)

1.原樣板檔(dwt)就開啟螢幕功能表，如下圖所示：

2.點擊功能區頁籤的 [管理] > CUI；如下圖所示：

3.點擊 [ 舊式 ] 下拉式選單原應有 [ 螢幕功能表 ] 遺失；如下圖所示：

4.原應該有 [ 螢幕功能表 ]；如下圖所示：

5.在CUI下點擊 [ 取消 ]或[ 確定 ]；回到AutoCAD視窗下；在命令行輸入 redefine > screenmenu >screenmenu > 1 如下圖所示：

6.重複 2.的操作可看到 [ 螢幕功能表 ]；如下圖所示：

7. [ 螢幕功能表 ] 內容顯示如下：

8.後記：不知是CAD程式有錯誤還是其他原因；重新啟動AutoCAD後[ 螢幕功能表 ]又會消失須重新載入。目前我是寫一重新載入編碼加到 [ 功能表 ] (Menu)上：

^C^CREDEFINE;SCREENMENU;SCREENMENU;1;^C

2018年9月1日星期六

自動繪圖 - 重新加載

=============================================================

Automate your plotting – reloaded

In the last post, we learned how to examine what we had previously written at the command line to write a script. We end up with this script to create an A1 PDF plot in our default plotting location:

-plot
y

DWG To PDF.pc3
ISO A1 (841.00 x 594.00 MM)
m
l
n
l
1:1
0.00,0.00
y
monochrome.ctb
y
n
n
n
n
y

To write the same routine as a macro, we would put it all on one line, like this:

^C^C-plot;y;;DWG To PDF.pc3;ISO A1 (841.00 x 594.00 MM);m;l;n;l;1:1;0.00,0.00;y;monochrome.ctb;y;n;n;n;;n;y;

Note that, instead of a carriage return macros use the semi-colon to indicate where you would usually press return on your keyboard. Spaces are also interpreted as hitting the return key (just like when you are operating AutoCAD manually). However, using spaces can make your code difficult to read and debug so I suggest that you replace the spaces with semi-colons.

The ^C^C at the beginning of the command is equivalent to pressing ‘Esc’ on the keyboard twice. This should cancel any other commands that are running before your Macro runs. You can read more about the Syntax for AutoCAD Macros here.

2018年8月18日星期六

重慶紅油與油溫

============================================
調料：

乾辣椒麵1500/200克，白芝麻100/20克，八角4/4枚，草果2/2個，菜油4500/350克，香油500/0克。

姜-一大塊，花椒-3匙，山茶油-500毫升，草果-2個，八角-2粒，桂皮-2塊，小葱-4根，香葉-3片。

製作方法：

（1）辣椒麵裝入盆中備用。

（2）鍋上火加菜油煉熟，下香油、八角、草果炸香撈出，待油溫降至五成熱時下白芝麻，然後淋入盆中的辣椒麵中即成。

關鍵：

1．重慶紅油有兩種，這是菜油煉熟的，另一種是隻把菜油煉製六成熟。

2．也可以視情況不放香油。

3．掌握好油溫，油溫太高易炸糊，油溫過低煉不出香味。

4．辣椒麵應選子彈頭辣椒製作。

http://www.meishij.net/zuofa/hongyou_1.html

調料：

姜-一大塊，花椒-3匙，山茶油-500毫升，草果-2個，八角-2粒，桂皮-2塊，小葱-4根，香葉-3片。

2018年8月10日星期五

AutoCAD 的線型比例係數

=======================================================

線型比例係數是針對LTSCALE設計，會影響線型外觀。

A0 線型比例係數 = 23
A1 線型比例係數 = 18
A2 線型比例係數 = 15
A3 線型比例係數 = 10
A4 線型比例係數 = 8.5

END

menuecho

menuecho：設定功能表回應與提示控制位元。
類型: 整數
儲存位置: 不儲存
初始值: 0
這個值為下列值的總和：
0. 顯示系統提示與(項目)回應。
1. 抑制功能表項目的回應 (功能表項目內的 ^P 會切換回應)-關閉(項目)回應。
2. 抑制功能表內系統提示的顯示-關閉系統提示。
4. 停用控制功能表回應的 ^P 切換
8. 顯示輸入/輸出字串﹔做為 DIESEL 巨集的除錯輔助

2018年8月8日星期三

lsp/lisp menu 自定義手記

======================================================
01.在載入CAD字型時，最後一個字形會是顯示在工具 > 工具列 > AutoCAD > 性質 > 線型控制 (在下立中將顯示為連續線)

例：
^C^C(SETVAR"MENUECHO" 0);^C^CLINETYPE;L;acadiso.lin;;S;CENTER2;S;CENTERX2;S;DASHED2;S;DASHEDX2;S;continuous;^C

02. CAD 顏色設定

03. 線型字型設定 (20180819-0205 CHK)
^C^C(SETVAR"MENUECHO" 0);^C^CLINETYPE;L;acadiso.lin;;S;CENTER;S;CENTER2;S;CENTERX2;S;DASHED;S;DASHED2;S;DASHEDX2;S;continuous;^C^CSTYLE;Arial;Arial;0.0;1;0;n;n;^C^CSTYLE;Arial07;Arial;0.0;0.707;0;n;n;n;^C^CSTYLE;BKT;標楷體;0.0;1;0;n;n;^C^CSTYLE;BKT07;標楷體;0.0;0.707;0;n;n;^C^CSTYLE;Chineset;simplex,chineset;0.0;1;0;n;n;^C^CSTYLE;Chineset07;simplex,chineset;0.0;0.707;0;n;n;n;^C^CSTYLE;dayump;complex,dayump;0.0;1;0;n;n;n;^C^CSTYLE;NCMT;新細明體;0.0;1;0;n;n;STYLE;NCMT07;新細明體;0.0;0.707;0;n;n;^C^CSTYLE;dayump07;complex,dayump;0.0;0.707;0;n;n;n;^CDIMSTYLE;AN;N;ISO-25HCC;S;^C[線型比例係數 A0=23,A1=18,A2=15,A3=10,A4=85/10,線型字型設定完畢];^C

04. 圖基本設定 (20180819-0205修版)
^C^CLAYER;N;0,Frame,Frame01,Frame02,Mark,center,das,text,dim,hat,vp,foundation,ver0,ver9,ver;C;7;0;C;52;Frame;C;42;Frame01;C;32;Frame02;C;60;Mark;C;3;center;C;2;das;C;1;text;C;4;dim;C;4;hat;C;40;vp;C;5;foundation;C;6;ver0;C;6;ver9;C;5;ver;L;dashed;das;L;center;center;L;Continuous;vp;L;Continuous;0;L;Continuous;text;L;Continuous;dim;L;Continuous;hat;L;Continuous;foundation;L;Continuous;ver0;L;Continuous;ver9;L;Continuous;ver;P;N;vp;Lw;0.4;Frame01;Lw;0.6;Frame;Lw;0.00;Mark;^C^CDIMCLRD;4;DIMCLRE;3;DIMCLRT;1;DIMDEC;2;DIMADEC;2;DIMDSEP;.;DIMTXSTY;Chineset07;^C^C(setvar "menuecho" 0);^C^CLAYER;S;0;^C[圖基本設定完畢];^C

05. A1HPTA-臥
新版 (20180819-0205修版)
^C^CLAYER;N;0,Frame,Frame01,Frame02,Mark,center,das,text,dim,hat,vp,foundation,ver0,ver9,ver;C;7;0;C;52;Frame;C;42;Frame01;C;32;Frame02;C;60;Mark;C;3;center;C;2;das;C;1;text;C;4;dim;C;4;hat;C;40;vp;C;5;foundation;C;6;ver0;C;6;ver9;C;5;ver;L;dashed;das;L;center;center;L;Continuous;vp;L;Continuous;0;L;Continuous;text;L;Continuous;dim;L;Continuous;hat;L;Continuous;foundation;L;Continuous;ver0;L;Continuous;ver9;L;Continuous;ver;P;N;vp;Lw;0.4;Frame01;Lw;0.6;Frame;Lw;0.00;Mark;^C^CDIMCLRD;4;DIMCLRE;3;DIMCLRT;1;DIMDEC;2;DIMADEC;2;DIMDSEP;.;DIMTXSTY;Chineset07;^C^C(setvar "menuecho" 0);^C^CLAYER;S;0;^C[圖基本設定完畢];^C

舊版
^C^C(SETVAR"MENUECHO" 0);^C^CUNITS;2;8;1;8;0;N;;^C^C(SETQ DDSIZE (* 18 SCC));LTSCALE;!DDSIZE;DIMSCALE;!SCC;DIMTIH;OFF;DIMTOH;OFF;DIMTAD;3;^C^CINSERT;A1HPTA;0,0;;;;SCALE;L;;0,0;!SCC;ZOOM;E;LIMITS;;(GETVAR"EXTMAX");
^C^CSTYLE;Chineset07;simplex;(* AAA SCC);;;;;;^CDIMSTYLE;AN;N;ISO-25HCC;S;^C[圖框設定完畢];^C

06. AutoCAD 官方翻譯
a. RIBBON 打開功能區窗口
b. Ribbon (功能區)
c. Toolbars (工具列)
d. Menu (功能表)