我的記事簿: 10月 2018

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

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

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)

訂閱：文章 (Atom)

2018年10月25日 星期四

2018年10月21日 星期日

2018年10月20日 星期六

2018年10月6日 星期六

2018年10月4日 星期四

2018年10月3日 星期三

2018年10月2日 星期二

2018年10月1日 星期一