AutoCAD 中圖塊比例 與 圖塊插入的問題

如果你拿到依英製比利繪製建立的圖塊，插入以 mm 為單位的圖檔，結果就是比原來設定的尺寸大很多。

要怎麼修改正這問題?

並不是找出所有圖檔，把所有比例修改一次，只需要兩個系統變數就全部OK 了

INSUNITSDEFSOURCE  設成 0
INSUNITSDEFTARGET  設成 0

出身貴族也能普渡眾生。佛友的建議 : 趁老婆年輕貌美改嫁容易，儘早出家。

     近代歷史學者的考察，釋迦族的族長是輪替制度的，也就是說釋迦牟尼佛陀並非傳統說法的王子，但是印度傳統的種性制度與階級觀念根深蒂固，在當時社會與世俗的觀點中也的確繼承剎帝利的種性，但佛教卻是反對種性制度，與當時六類外道(佛教的歸類)都是反對傳統婆羅門思想的。

    佛陀捨家放棄慾望的享樂與繼承的財富與政治利益，捨家出家過著乞討的生活。
他先跟隨樂行道的禪師修行，並學習了所有禪法，達到世間最高禪定非想非非想處定，他發現這不能令煩惱止息。又跟隨苦行的的老師實行的六年的極端苦行，瘦到從肚子可以看到脊椎，他發現這種修行只能帶來死亡，也不能令煩惱解脫，於是他放棄了這種苦行。

最後他利用過學到的禪修方法，將禪定力移轉到身心，發展出佛教獨有的禪法，看透了生命的真相，終解脫所有煩惱，成為佛陀。

我記得比較有趣的是佛陀證道之後，他是先用神通觀察有沒有天、人...等等 在戒、定、慧勝過他，如果有他就要去依止他，跟他學習。-- 雜阿含1188 經

（一一八八）

如是我聞：

一時，佛住欝毘羅聚落尼連禪河側菩提樹下，成佛未久。

爾時，世尊獨靜思惟，作是念：「不恭敬者，則為大苦，無有次序。無他自在可畏懼者，則於大義有所退減；有所恭敬，有次序，有他自在者，得安樂住；有所恭敬，有次序，有他自在，大義滿足。

頗有諸天、魔、梵、沙門、婆羅門、天神、世人中，能於我所具足戒勝、三昧勝、智慧勝、解脫勝、解脫知見勝，令我恭敬宗重，奉事供養，依彼而住？」

復作是念：「無有諸天、魔、梵、沙門、婆羅門、天神、世人能於我所戒具足勝、三昧勝、智慧勝、解脫勝、解脫知見勝，令我恭敬宗重，奉事供養，依彼而住者。唯有正法令我自覺，成三藐三佛陀者，我當於彼恭敬宗重，奉事供養，依彼而住。所以者何？過去如來、應、等正覺亦於正法恭敬宗重，奉事供養，依彼而住；諸當來世如來、應、等正覺亦於正法恭敬宗重，奉事供養，依彼而住。」

爾時，娑婆世界主梵天王知世尊心念已，如力士屈伸臂頃，從梵天沒，住於佛前，歎言：「善哉！如是，世尊！如是，善逝！懈怠不恭敬者，甚為大苦……」廣說乃至「大義滿足，其實無有諸天、魔、梵、沙門、婆羅門、天神、世人於世尊所戒具足勝、三昧勝、智慧勝、解脫勝、解脫知見勝，令世尊恭敬宗重，奉事供養，依彼而住者。唯有正法，如來自悟成等正覺，則是如來所應恭敬宗重，奉事供養，依彼而住者。所以者何？過去諸如來、應、等正覺亦於正法恭敬宗重，奉事供養，依彼而住；諸未來如來、應、等正覺亦當於正法恭敬宗重，奉事供養，依彼而住。世尊亦當於彼正法恭敬宗重，奉事供養，依彼而住。」

時，梵天王復說偈言：

「過去等正覺，　　及未來諸佛，
　現在佛世尊，　　能除眾生憂。
　一切恭敬法，　　依正法而住；
　如是恭敬者，　　是則諸佛法。」

時，梵天王聞佛所說，歡喜隨喜，稽首佛足，即沒不現。


我想說的是: 佛陀對於不平等的種性制度是反對的，而且他不顧戀與繼承的種性(階級) 與財利 、慾望等等。
去過著乞討的生活，他所追求的也不是成為人師，就從他證道後的感想便可以看出來，是更高層次的生命境界，與一切煩惱的解脫之道。

甚至他證道後還是先觀察有沒有其他正自覺者在世間，如果有便要去依止他。

一些政客根本不了解佛教，也不知道佛教的主張，一個貪婪的繼承者竟然自比佛陀，他說 : 出身貴族也能普渡眾生，佛陀最終沒有打破印度 根生蒂固的種性制度，他放棄貴族的種種利益到是很徹底。

其實要出家有追求梵行崇高理想的，要不就別結婚，不然要出家趁早，趁老婆年輕貌美改嫁容易儘早出家。

吳子嘉爆 : 頂新給馬10 億

灑錢買政壇靠山？魏家遭爆送10億政治獻金給國民黨

黑心政客和黑心廠商

黑心政客和黑心廠商，很多政治人物也是媒體精煉過的 ，類似餿水提煉的過程。

馬英九上任後進口食用油大幅縮減

值得玩味的照片 .........  不是說有手銬??  有錢真好，有勢真好

魏應州表示 : 弟弟們愛炫富，惹火上身。

大家是因為仇富? 還是因為毒油而憤怒?

免罰繼續賣

http://news.ltn.com.tw/news/life/breakingnews/1130332

 

大統湖內子公司「大順製油」，今天更換新招牌「長輝事業股份有限公司」。


免罰繼續賣 

有拜有保佑 ........... 

頂新假油事件沒有官商勾結嗎??

由公民監督國會聯盟貼文。 <--- p="">
在認真的立委林淑芬吶喊之後，有後續影片，請耐心看完，我想你會跟我有一樣想法。

這其中沒有官商勾結嗎? 我不相信。

還有那個國民黨立委(王育敏)，您服務的 "選民" 可真是又有錢又黑心阿 。

解決檔案總管無法顯示SKP 縮圖的問題

***************************************************************
賣給 Trimble 之後的 Sketchup 已經有 x64 的版本，只要裝上x64 免費版的
預覽就都正常了

***************************************************************

Windows 10 預覽版 如何解決 VirtualBox 安裝時出現 Error code 0x0000005D

不知道為什麼 Windows 從8 直接跳過 9 出了 Windows 10 ，有可能因為九很帶賽 XD 

如上圖，你可以先到微軟的網站下載預覽版(蠻大的記得用續傳軟體)
http://windows.microsoft.com/en-us/windows/preview-iso

不要下載 UK 的版本，預設鍵盤對應可能會讓你安裝失敗。

不想用實機測試可以下載虛擬機器 VirtualBox 網址:
https://www.virtualbox.org/wiki/Downloads

VirtualBox 設定很簡單，網路上有很多人寫了.....
安裝完VirtualBox 再安裝 Extension Pack ，在檔案總管點兩下 Extension Pack就會自動安裝，他會要求管理員權限就給他允許就行了。

新增機器，如下圖左上的新增按鈕按下去
首先選擇最接近的版本 Windows 8.1 x64 作為基本設定，其他大多可以採用預設值。

在這裡我把處理器設定成 4，記憶體設成5120
預設沒開的就是顯示設定記得開啟如下圖兩個加速顯示記憶體改成256MB
不這麼做應該也沒差...

重點 在這裡，很多人可能會遇到 Error code 0x0000005D 如下圖: 

遇到這樣的問題，你要在 Bios 的CUP 詳細設定頁面，設定No-Excute Memory Protection 成為 Enabled。如果你沒有這項，就必須更新Bios ..... 或是 ......... 別試了去買台新電腦。

在您修改Bios 設定之前，你必須知道怎麼在硬體中重設 Bios，有些主機板很貼心有一個 Clear Cmos 按鈕，有些主機板只有做 jump 兩隻針腳，你必須拔除電源線，並用螺絲起子讓 jump 短路，先確定你知道上述之後再改設定。
另外是.....有時候沒法正常開機，你必須徹底拔除電源等一下再開。

這些應該是最先要知道的....

再來看bios 設定 ，有些bios 設定長這樣 :

有些Bios 設定長這樣 : 

關於清除 cmos 恢復預設值: 

有些主機板長這樣
通常在 cmos 電池旁邊

https://www.google.com.tw/search?q=clear+cmos&biw=1269&bih=616&source=lnms&tbm=isch&sa=X&ei=LFYxVNafHo6C8gWYrICYCg&ved=0CAYQ_AUoAQ&qscrl=1 

運氣好的話有按鈕如下圖

應該快裝好了

剩下的太無聊.....您自己試囉.....

---------------------------- 2015.01.29 ---------------------------
我用4.3.20 
No-Excute Memory Protection 設定 disabled
結果就是

兩位網友是否確定妳們的板子No-Excute 預設是 Enabled 的? 


2015.08.17

Windows 7 沒有通知升級，跟上述問題也有關，如果你將 Excute Bit Support  Enable，他就會通知升級。 

一些免費的 Autolisp <五> 快速變更 標註的 ArrowType

這程式幫你快速切換標註箭頭形式(Arrow Type)，也幫你關閉同一側的延伸線(Extension Line) ，當你再次執行他會變更方向，這常用於標註斷折線以外的必須表示的尺寸。

載入後

命令列輸入 :  arrowext

也可以在cui 自己做個按鈕，巨集寫法如下圖

原始碼:

(defun c:ArrowEXT (/ obj arrow arrow1 arrow2)
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))
  (setq mSpace (vlax-get-property acadDocument 'Modelspace))

  (setq obj (vlax-ename->vla-object
       (car (entsel "\n 請選取標註 : "))
     )
  )
  (setq arrow1 (vlax-get obj 'Arrowhead1Type))
  (setq arrow2 (vlax-get obj 'Arrowhead2Type))
  (AE-SetVartoDwg "AW2" arrow2)
  (AE-SetVartoDwg "AW1" arrow1)
  (cond
    ((= arrow2 arrow1)
     (progn
       (if
  (and
    (vlax-property-available-p obj 'Arrowhead1Type)
    (vlax-property-available-p obj 'Arrowhead2Type)
    (vlax-property-available-p obj 'ExtLine2Suppress)
    (vlax-property-available-p obj 'ExtLine1Suppress)
  )
   (progn
     (setq arrow (AE-GetVarFromDwg "AW1" "def"))
     (vlax-put obj 'Arrowhead1Type 0)
     (vlax-put obj 'Arrowhead2Type arrow)
     (vlax-put obj 'ExtLine1Suppress 1)
     (vlax-put obj 'ExtLine2Suppress 0)
   )
       )
     )
    )
    ((= arrow1 0)
     (progn
       (if
  (and
    (vlax-property-available-p obj 'Arrowhead1Type)
    (vlax-property-available-p obj 'Arrowhead2Type)
    (vlax-property-available-p obj 'ExtLine2Suppress)
    (vlax-property-available-p obj 'ExtLine1Suppress)
  )
   (progn
     (setq arrow (AE-GetVarFromDwg "AW2" "def"))
     (vlax-put obj 'Arrowhead1Type arrow)
     (vlax-put obj 'Arrowhead2Type 0)
     (vlax-put obj 'ExtLine1Suppress 0)
     (vlax-put obj 'ExtLine2Suppress 1)
   )
       )
     )
    )
    ((= arrow2 0)
     (progn
       (if
  (and
    (vlax-property-available-p obj 'Arrowhead1Type)
    (vlax-property-available-p obj 'Arrowhead2Type)
    (vlax-property-available-p obj 'ExtLine2Suppress)
    (vlax-property-available-p obj 'ExtLine1Suppress)
  )
   (progn
     (setq arrow (AE-GetVarFromDwg "AW1" "def"))
     (vlax-put obj 'Arrowhead1Type 0)
     (vlax-put obj 'Arrowhead2Type arrow)
     (vlax-put obj 'ExtLine1Suppress 1)
     (vlax-put obj 'ExtLine2Suppress 0)
   )
       )
     )
    )
  )
  (vlax-release-object obj)
  (vlax-release-object acadObject)
  (princ)
)


;;;********************* function GetVarFromDwg *************************
(defun AE-GetVarFromDwg (VarName Def)
  (vlax-ldata-get "ArrowExt" VarName Def t)
)


;;;********************* function SetVartoDwg ***************************
(defun AE-SetVartoDwg (VarName input)
  (vlax-ldata-put "ArrowExt" VarName input)
)

慎莫念過去，亦勿願未來，過去事已滅，未來復未至。

在朋友的網站上看到泰國著名禪師阿姜念解說「當下」一詞指「不與煩惱相應時刻」 這樣的解釋非常深刻

在中阿含

佛言： 
　　「慎莫念過去，亦勿願未來，過去事已滅，未來復未至。 
　　　現在所有法，彼亦當為思，念無有堅強，慧者覺如是。 
　　　若作聖人行，孰知愁於死？我要不會彼，大苦災患終。 
　　　如是行精勤，晝夜無懈怠，是故常當說，跋地羅帝偈。」 
　　    佛說如是，即從座起，入室宴坐。

佛陀僅以詩誦回答

尊者三彌提不了解又去請尊者大迦旃延解釋

這段話就解答了

尊者大迦旃延告諸比丘：「諸賢等共聽我所說。諸賢！云何比丘念過去耶？諸賢！比丘實有眼知色可喜、意所念，愛色，欲相應，心樂，捫摸本，本即過去也。彼為過去識欲染著，因識欲染著已，則便樂彼，因樂彼已，便念過去。如是耳、鼻、舌、身，實有意知法可喜、意所念，愛法，欲相應，心樂，捫摸本，本即過去也。彼為過去識欲染著，因識欲染著已，則便樂彼，因樂彼已，便念過去。諸賢！如是比丘念過去也。......

「諸賢！云何比丘不念過去？諸賢！比丘實有眼知色可喜、意所念，愛色，欲相應，心樂，捫摸本，本即過去也。彼為過去識不欲染著，因識不欲染著已，則便不樂彼，因不樂彼已，便不念過去。如是耳、鼻、舌、身，實有意知法可喜、意所念，愛法，欲相應，心樂，捫摸本，本即過去也。彼為過去識不欲染著，因識不欲染著已，則便不樂彼，因不樂彼已，便不念過去。諸賢！如是比丘不念過去也。

對於平常的心是這樣，雖然是時間上現在的心，但是常常在那品味回味的卻是過去的法所緣，所緣也並不是當時的現在所緣而只是意門獨立作業的法所緣。

如瑜珈師地論 : 意門通三世 ，也是這樣的意思。緣過去的法所緣在那裏顧念繫著，由想與識俱起無明等..

禪修也是這樣，由於概念法也是法所緣的一種，在練習毗婆舍那時如果五蓋的不鎮伏，五蓋的影響下所緣不見得是究竟法所緣，你以為是究竟法但實際上是已過去或正期待的(概念法)法所緣。

所有的重點都不在時間上的過去、現在、未來!! 

由於心所與心同生、同滅、同所緣、同依處，於色法存在的十七個心識剎那，你不可能直接的觀察心，在同一個心流中如實觀察完全無關時間上的過、現、未，例如在阿毗達摩概要精解中提到:

當知心不能成為(心)的目標，但在某個心流裡的一個心，則能夠識知在同一個心流裡的其他心，亦能識知其他眾生的心。

法所緣有六種：

一、淨色（pasadarupa）是五種感官裡的根門色法，即眼淨色、耳淨色等五種淨色。
二、微細色（sukhumarupa）包括十六種列於第六章、節六的色法，水界即是其中之一。
三、心（citta）亦是一種法所緣；雖然心能識知目標，但心本身亦能成為被識知的目標。

當知心不能成為自己的目標，因為心不能識知自己本身；
但在某個心流裡的一個心，則能夠識知在同一個心流裡的其他心，亦能識知其他眾生的心。

四、五十二心所（cetasika）也是法所緣，例如：當人們覺察到自己的感受、思與情緒時。
五、涅槃（Nibbana）是有學聖者與阿羅漢意門心路過程的目標。
六、概念（pabbati）也是法所緣；它是世俗法，並不是究竟存在之法。

以後心觀前心，或說沒有五蓋影響下的審查也是如實知見，全無關乎時間上的過去、現在、未來，也不是比較出來的結果。

由於六種所緣前四項必符合三相 (無常、苦、無我) ，由於所緣本身是迅速生滅的，倘若再有五蓋的影響 Paññā 變成 Paññatti 。

這也解釋了有奢摩他的輔助的重要性，如瑜珈師地論中說 : 四種慧行住一境性 。他們是這麼嚴格的定義毗婆舍那。

又如佛陀說 : 「比丘當修定(samādhiṃ)，得定(samāhito)的比丘如實知見。」
Bhagavā etadavoca– “samādhiṃ, bhikkhave, bhāvetha; samāhito, bhikkhave, bhikkhu yathābhūtaṃ pajānāti.

由這裡第二個定是用三摩呬多(samāhita)，這是具有定的餘勢的狀態，由於奢摩他(samatha) 欲達於安止是依賴第六種所緣Paññatti ，所以不可能如實知見究竟法，所緣畢竟不同，依賴這剛出定又無五蓋干擾的狀態下進行毗婆舍那才能如實知見。

能夠識知在同一個心流裡的其他心，亦能識知其他眾生的心。(這不是指神通，是指毗婆舍那 )

第五種究竟法所緣涅槃應是有為法所緣(前四種)的超越，依據論典前分為止觀均等而道心的剎那相當於安止(乾觀者或初禪出定起觀者道剎那皆達到相當初禪的安止)，如前述不但所緣在一心路過程改變，能觀的心也發生轉變，由凡夫心轉變成出世間心。

如實知色、色集、色滅、色味、色患、色厭離到離欲，這是毗婆舍那上具有前因後果有次第關係的。

如瑜珈師地論: 心得定故能如實知能如實見。如實知見故能起厭。 

道次第沒有那種含糊攏統的，若講色滅道跡都是至少初道才有，一定是初道心才具八正道，但是講如實知色、色集、色滅、色味、色患、色厭離到離欲，整個才是如實知見，那之前的道次第就講不清楚，而只是含糊攏統沒意義的廢話了。

正見乃至正定，可以說初道心才有正念，初道心才有正定，這是寫文章下精確定義時是有用的，實修上只是廢話，這種講法對於在此之前道次第上的前前後後永遠是搞不清楚的。 

意門的對像

這裡介紹法所緣有六種，當知道講法所緣就是意門的對像，不要以為眼淨色等是眼門等(前五門)所見，也要知道十種不完色並不是毗婆舍那的所緣，那些僅是概念法，不能分別概念法與究竟法不能修毗婆舍那。

十一種觀察
在經典中十一種觀察的經典也是如此，其中若過去、若現在、若未來，也是應從法所緣去理解，三個是同一意義，就是觀察到他的前因後果其中的因緣關係，色集、色滅就是這樣的意義，之後才有味患離。
至於過、現、未等諸法觀察的如實或不如實? 當由前面解說毗婆舍那的條件去理解。

那乾觀者必然是不可行的嗎? 

並不是。如清淨道界分別的修法中 : 

如果這樣修習，他的業處依然未能成就，則他應「以分別其相」而修習。如何修習？即以如前面所說的方法，習取了髮等之後，確定髮中的堅固相為地界，此（髮）中的粘結相為水界，遍熟相為火界，支技相為風界。如是於一切（三十二）部分中，一一部分都應作四界差別。這樣的確定，他的諸界便得明了。於彼等四界數數念慮與作意，便得生起如前所述的近行定。 


例如: 你以風大為所緣，像觀察腹部的起伏，心一直專注單一所緣而心頃向不分別，還是會有概念相 (取相、似相) 出現，這時並不能說是修毗婆舍那，因為所緣不同了，所緣為概念法時事實上是在修奢摩他。



如果有智慧區分概念法與究竟法，轉換所緣於究竟法，這時就是修毗婆舍那，於心疲勞時又再度回到奢摩他(心頃向不分別) 的方式獲得休息，之後再次轉換所緣，如此就能反覆利用短暫的五蓋鎮伏進行毗婆舍那，當然這可想而知的吃力。

不喜歡 AutoLisp 的 Polar 函數?

因為 Polar 函數的角度參數為弧角，對某些人可能很習慣，我是覺得蠻抓狂的，常常都是在0 90 180 270 的轉換使用，所以角度寫法都變成 (* 0 pi) (* 0.5 pi)  pi  (* 1.5 pi) ，其實只要簡單改寫成如下:

P-De 可以利用 【基準點】、【角度】、【距離】、【標記】，四個參數來取得相對點位。
這個角度非弧角是 Degrees

;;;************************************************************************
(defun P-De (BasePoint Degrees Dist Mark / ang return-Pt)
  (setq ang (* pi (/ Degrees 180.0)))
  (setq NPt (polar BasePoint ang Dist))
  (if (/= Mark "")
    (command "text" "J" "MC" NPt "3" "0" Mark "")
  )
  (setq return-Pt NPt)
)

NPXY 可以利用 【基準點】、【X軸】、【Y軸】、【標記】，四個參數來取得相對點位。

;;;************************************************************************
(defun NPXY
   (BasePoint Xaxis Yaxis Mark / Ptx PtY ang1 ang2 return-Pt)
  (setq ang1 (* 0 pi))
  (setq ang2 (* 0.5 pi))
  (setq Ptx (polar BasePoint ang1 Xaxis))
  (setq PtY (polar Ptx ang2 Yaxis))
  (if (/= Mark "")
    (command "text" "J" "MC" PtY "3" "0" Mark "")
  )
  (setq return-Pt PtY) ;回傳值
)

其中第四個參數【標記】是除錯用的 。

參考下圖，我打算利用 NPXY 這個改寫的新函數來繪製 RH 並且變成通用程式。
先做一個測試用基本框架，由於RH 型鋼決定於五個參數 H B T1 T2 R 先給定值做測試用如下:

(defun c:pp (/ H B T1 T2 R PIns)
  (setq PIns (getpoint
      (strcat "請點選基準點 : ")
    )
  )

  (setq
    H  150
    B  75
    T1 5
    T2 7
    R  8
  )

  (RH-Draw H B T1 T2 R PIns)
)

接著在AutoCAD 中繪製該RH 所有其他點位接參考 P1，再利用 PIns 決定P1位置，為了不用輸入負值，以左下為 P1



對這個圖形來說X軸只有 0 、(- (/ B 2) (/ T1 2 ) R)、(- (/ B 2) (/ T1 2 ) )、(+ (/ B 2) (/ T1 2 ) )、(+ (/ B 2) (/ T1 2 ) R)、B 幾種 ，其中0 的有 P1 、P16、P10、P11，就一次寫在 X 軸，(- (/ B 2) (/ T1 2 ) R) 為P12、P15 也是這樣類推 ，很輕鬆的就全部相對點位都出來了。

接著我們要撰寫主結構中的   (RH-Draw H B T1 T2 R PIns)  圖形繪製程式

(defun RH-Draw (H    B  T1   T2   R PIns /   P1 P2   P3  P4
P5   P6  P7   P8   P9 P10  P11  P12 P13  P14  P15
P16
      )
  (setq
    P1 (NPXY PIns (* -1 (/ B 2)) (* -1 (/ H 2)) "")
    P2 (NPXY P1 B 0 "")
    P3 (NPXY P1 B T2 "")
    P4 (NPXY P1 (+ (/ B 2) (/ T1 2) R) T2 "")
    P5 (NPXY P1 (+ (/ B 2) (/ T1 2)) (+ T2 R) "")
    P6 (NPXY P1 (+ (/ B 2) (/ T1 2)) (- H T2 R) "")
    P7 (NPXY P1 (+ (/ B 2) (/ T1 2) R) (- H T2) "")
    P8 (NPXY P1 B (- H T2) "")
    P9 (NPXY P1 B H "")
    P10 (NPXY P1 0 H "")
    P11 (NPXY P1 0 (- H T2) "")
    P12 (NPXY P1 (- (/ B 2) (/ T1 2) R) (- H T2) "")
    P13 (NPXY P1 (- (/ B 2) (/ T1 2)) (- H T2 R) "")
    P14 (NPXY P1 (- (/ B 2) (/ T1 2)) (+ T2 R) "")
    P15 (NPXY P1 (- (/ B 2) R) T2 "")
    P16 (NPXY P1 0 T2 "")
  )

  (command "Pline" P1 P2     P3     P4     "Arc"  P5
  "Line" P6 "Arc" P7     "Line" P8     P9    P10
  P11  P12 "Arc" P13    "Line" P14    "Arc"  P15
  "Line" P16 P1 ""
 )
)

由於要在中軸作插入點因此P1 必須參考自 PIns 所以原本的

 P1 (NPXY PIns 0 0 "")

改成

 P1 (NPXY PIns (* -1 (/ B 2)) (* -1 (/ H 2)) "")

完整的測試碼如下:

(defun c:pp (/ H B T1 T2 R PIns)
  (setq PIns (getpoint
        (strcat "請點選基準點 : ")
      )
  )

  (setq
    H  150
    B  75
    T1 5
    T2 7
    R  8
  )

  (RH-Draw H B T1 T2 R PIns)
)

;;;************************************************************************

(defun RH-Draw (H    B   T1   T2   R  PIns /    P1 P2   P3   P4
  P5   P6   P7   P8   P9  P10  P11  P12 P13  P14  P15
  P16
        )
  (setq
    P1 (NPXY PIns (* -1 (/ B 2)) (* -1 (/ H 2)) "")
    P2 (NPXY P1 B 0 "")
    P3 (NPXY P1 B T2 "")
    P4 (NPXY P1 (+ (/ B 2) (/ T1 2) R) T2 "")
    P5 (NPXY P1 (+ (/ B 2) (/ T1 2)) (+ T2 R) "")
    P6 (NPXY P1 (+ (/ B 2) (/ T1 2)) (- H T2 R) "")
    P7 (NPXY P1 (+ (/ B 2) (/ T1 2) R) (- H T2) "")
    P8 (NPXY P1 B (- H T2) "")
    P9 (NPXY P1 B H "")
    P10 (NPXY P1 0 H "")
    P11 (NPXY P1 0 (- H T2) "")
    P12 (NPXY P1 (- (/ B 2) (/ T1 2) R) (- H T2) "")
    P13 (NPXY P1 (- (/ B 2) (/ T1 2)) (- H T2 R) "")
    P14 (NPXY P1 (- (/ B 2) (/ T1 2)) (+ T2 R) "")
    P15 (NPXY P1 (- (/ B 2) R) T2 "")
    P16 (NPXY P1 0 T2 "")
  )



  (command "Pline"  P1 P2     P3     P4     "Arc"  P5
    "Line" P6  "Arc" P7     "Line" P8     P9     P10
    P11   P12  "Arc" P13    "Line" P14    "Arc"  P15
    "Line" P16  P1 ""
   )
)



;;;************************************************************************
(defun P-De (BasePoint Degrees Dist Mark / ang return-Pt)
  (setq ang (* pi (/ Degrees 180.0))) ; 轉換成弧角
  (setq NPt (polar BasePoint ang Dist)) ;取得新點位 
  (if (/= Mark "")   ;除錯檢查用可以在點位給定標籤
    (command "text" "J" "MC" NPt "3" "0" Mark "")
  )
  (setq return-Pt NPt)   ;回傳值
)


;;;************************************************************************
(defun NPXY
     (BasePoint Xaxis Yaxis Mark / Ptx PtY ang1 ang2 return-Pt)
  (setq ang1 (* 0 pi))
  (setq ang2 (* 0.5 pi))
  (setq Ptx (polar BasePoint ang1 Xaxis)) ; X 方向暫存點
  (setq PtY (polar Ptx ang2 Yaxis)) ; Y 方向取得新點位
  (if (/= Mark "")   ;除錯檢查用可以在點位給定標籤
    (command "text" "J" "MC" PtY "3" "0" Mark "")
  )
  (setq return-Pt PtY)   ;回傳值
)

如果你在第四個參數【標記】加入字串如:

    P1 (NPXY PIns (* -1 (/ B 2)) (* -1 (/ H 2)) "P1")
    P2 (NPXY P1 B 0 "P2") ..... 中略

    P9 (NPXY P1 B H "P9")
    P10 (NPXY P1 0 H "P10")

圖形便會出現標籤，如前面的說明這是為除錯用的

你可以再操控 H B T1 T2 R PIns 四個參數就可以繪製所有 RH 剖面了。
回想以前寫過的程式片段...

  (setq p1 (polar insPt (* 0.5 pi) (/ H 2.0)))
  (setq p1 (polar p1 pi (/ B 2)))
  (setq x (/ (- B (+ t1 R R)) 2))
  (setq y (- H (+ t2 t2 R R)))
  (setq P2 (polar p1 (* 0 pi) B))
  (setq P3 (polar p2 (* 1.5 pi) t2))
  (setq P16 (polar p1 (* 1.5 pi) t2))
  (setq P4 (polar p3 (* 1 pi) x))
  (setq P15 (polar p16 (* 0 pi) x))
  (setq c1 (polar p4 (* 1.5 pi) R))
  (setq c2 (polar p15 (* 1.5 pi) R))
  (setq P5 (polar c1 (* 1 pi) R))
  (setq P14 (polar c2 (* 0 pi) R))
  (setq P6 (polar p5 (* 1.5 pi) y))
  (setq P13 (polar p14 (* 1.5 pi) y))
  (setq c3 (polar p6 (* 0 pi) R))
  (setq c4 (polar p13 (* 1 pi) R))
  (setq P12 (polar c4 (* 1.5 pi) R))
  .........

天阿自己要改寫或除錯都很暈 ，而且用了很多參考點位。

面試趣談

因為老闆是熟識的朋友，所以薪資欄就沒有填寫數字。
小姐就問: T先生您薪資欄沒有填寫...
T先生: 那給老闆填寫就好了，景氣不好隨便啦
小姐也當真，就拿給老闆

老闆:薪資欄沒有填寫，你要多少就寫啦，不要客氣，你要寫五十萬一個月也可以，但是我每個月要因為你多收到一百萬。(笑)
T先生: .....

其實一個月一千萬請陳前總統還是很划得來的。
傳說中的海角七億？ 就算有還是划得來，可是最近傳說中的海角七億簽結了
「原來沒有海角七億？」

馬總統一個月給他兩萬都是浪費 ，不過他現在領一個月47萬，每個月存48萬。

無慚、無愧兩個心所不懂意思，可以參考馬總統這篇。

禪修所緣

（八六四）

如是我聞：

一時，佛住舍衛國祇樹給孤獨園。

爾時，世尊告諸比丘：「若比丘若行、若形、若相，離欲、惡不善法，有覺有觀，離生喜樂，初禪具足住。<----- 奢摩他(止禪)

彼不憶念如是行、如是形、如是相，然於彼色、受、想、行、識法；作如病、如癰、如刺、如殺、無常、苦、空、非我思惟，於彼法生厭、怖畏、防護；生厭、怖畏、防護已，以甘露門而自饒益，如是寂靜，如是勝妙，所謂捨離，餘愛盡、無欲、滅盡、涅槃。」<----- 毗婆舍那 (觀禪)

佛說此經已，諸比丘聞佛所說，歡喜奉行。

從這經來看，嚴格來說毗婆舍那所緣必須是究竟法，南傳主張是心、心所、色法及涅槃，涅槃為所緣，如果依南傳證得道心時的說法，可以說既非奢摩他亦非毗婆舍那，而是止觀均等。

只有心、心所、色法會呈現無常、苦、無我等三相，這些不會是概念法所緣能呈現的。

但是以心、心所、色法為所緣就一定是修毗婆舍那嗎?

我嘗試馬哈西西亞多的方式，還是會出現概念相，他是以腹部起伏為所緣，分類是屬於界差別，因為心理操作上偏定，既使是屬於四界差別的所緣，實際上還是修奢摩他。

在攝阿毗達摩的教學影片中法師也提到他修受念處，換姿勢時將一隻腳放到後面(天神坐盤腿方式)發現兩腳怎麼還盤在前面，這其實就是毗婆舍那的失敗，落入概念了。

也就是說奢摩他所緣可以是概念法也可以是心、心所及色法。而心的操作奢摩他一定是頃向不分別。

清淨道論從取業處品到說無色品都是講修奢摩他的

如界差別:

以前面「堅性或固性的是地」等的同樣方法而取了諸界，當數數地念慮作意及觀察「地界、水界」的僅是界而非有情非壽者的身這樣精進，不久之後，取得照界差別慧，生起他的──以自性法為所緣的未達安止只是近行的──定。  

如食厭想:

這樣以十種行相而觀察思惟食的可厭的比丘，以厭惡的行相而得明了段食。 [347]他再對那（厭惡的段食之）相數數修習而多作。他這樣做，便鎮伏了五蓋。由於段食的自性法（本質）及深奧之故，不達^(11-017) 安止定，只以近行定等持其心。 

看起來像是食厭想修法失傳了，實際上他主要說明奢摩他，他詳說毗婆舍那釋放在慧地品以後，在釋緣起的部分，其他共通的部分則在見清淨之後。

而概念法的所緣如安般:

如是精勤，不久便現起（取相與似）相。而彼相（的現起）並非一切都同樣的，有一部分人說，有人於現起（之相）而生樂觸，如於兜羅綿，如於迦巴率綿及如於微風中。其次是依諸義疏的的決擇說。

(當然以也可以鼻端的觸等也可以修界差別，但那屬界差別)

佛音對應了十六勝行的經典，第一種四法只少量提到修毗婆舍那，大部份說明奢摩他，從知喜(第二種四法)以後都是屬毗婆舍那，地遍及安那般那被特別詳細的說明。

這是講解奢摩他的各品唯一例外之處。

所以說

修毗婆舍那他可以依靠近行定或安止定，出定後毗婆舍那所緣必定是心、心所、色法。心的操作是分別，如毗婆舍那的字根。

修奢摩他所緣可以是心、心所、色法及概念法，要達到安止，所緣必定是概念法不能是心、心所、色法，這些當心不但頃向不分別最多僅能達近行。

心的操作是傾向不分別 (只專注於所緣一境，不是癡呆的不分別而不知所緣)

含糊其辭

     含糊其辭常可以避免很多尷尬，尤其做生意常常需要，也不見得就是要騙人，有時講給對方聽，有時講給大家聽，有時講給偷聽的人聽。背後的理由有時保護利益，有時保護技術，有時顧得彼此顏面，有時是商業技巧。不顧他人顏面可能人緣會變得很差，做得太過頭會給人虛偽的印象。

也有些真的不需要保護的，只是你太在意了，偏偏那是怎麼保護都保護不了.... 。

十二不善心跟出世間心的關係

十二不善心跟出世間心的關係 : 

這圖表比較奇怪的部分是慢被對應到四個邪見不相應貪心，欲界八貪根心早已在阿那含道心全斷，為什麼屬上分結的慢也對應到四個邪見不相應貪根心??


五十二心所中的定義

六、邪見（ditthi）：

此見是指錯見。

其特相是不明智（錯誤）地分析事物；
作用是錯誤地認為（行法是常、樂、我、淨）；
現起是錯誤的理解或相信；
近因是不願見聖者（ariya），等等。

七、慢（mana）：

    慢的特相是驕傲；作用是自稱自讚；
      現起是虛榮；近因是與 (邪)見不相應的貪。它好比發了瘋。

心所相應理中更進一步的分析:

邪見、慢：

這兩種心所只出現於貪根心，因為它們都涉及某種程度對五蘊的執著。然而這兩者呈現相對的本質，由此它們不能共存於同一心。

邪見生起於錯誤地識知，即不依真實相分析諸法；

我慢則生起於自我評估，即認為自己比別人優越、不如、或與別人同等。

邪見肯定存在於四種與邪見相應的貪根心；

慢則不一定會存在於四種與邪見不相應的貪根心，雖然它不會生起於其他心，但這些心生起時它不一定也跟著生起。

節十：結（經教法）

根據經教法，十種結是：一、欲貪結；二、色貪結；三、無色貪結；四、瞋恚結（厭惡結）；五、我慢結；六、邪見結；七、戒禁取結；八、疑結；九、掉舉結；十、無明結。

節十一：結（論教法）

根據論教法，另十種結是：一、欲貪結；二、有貪結；三、瞋恚結（厭惡結）；四、我慢結；五、邪見結；六、戒禁取結；七、疑結；八、嫉結；九、慳結；十、無明結。

節十至十一之助讀說明

諸結是把有情綁在生死輪迴裡的不善心所。

第一組十結在經藏與論藏裡都有提及，
第二組十結則只記載於論藏。在第一組裡，

第一至第三項是屬於貪心所；第六與第七項是屬於邪見心所；其餘的是個別的心所。在第二組裡，第一與第二項是屬於貪心所；第五與第六項是屬於邪見心所；其餘的是個別的心所。

其實外道也有慢，有些也是執著於本身的教義而起慢，在經典中也是有類似的例子，如SA.110。也就是說慢應該也會生起於邪見相應的貪根心，怎麼說是只生起於邪見不相應的貪跟心呢??

像米粉師兄也會覺得自己有成就，其實很多米粉裡面是沒有米的，呵。

想不通誰能告訴我呢?