2014年12月29日 星期一

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

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


要怎麼修改正這問題?

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

INSUNITSDEFSOURCE  設成 0
INSUNITSDEFTARGET  設成 0




2014年11月2日 星期日

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

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

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

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

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

(一一八八)

如是我聞:

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

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

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

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

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

時,梵天王復說偈言:

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

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


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

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

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

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


2014年10月15日 星期三

黑心政客和黑心廠商



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





















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



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

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

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




2014年10月13日 星期一

免罰繼續賣

 

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


免罰繼續賣 




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

2014年10月12日 星期日

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




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

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

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





2014年10月5日 星期日

解決檔案總管無法顯示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,他就會通知升級。 

2014年9月6日 星期六

一些免費的 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)
)




2014年8月30日 星期六

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

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

在中阿含

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


佛陀僅以詩誦回答

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

這段話就解答了

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

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

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

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

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

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

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

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



法所緣有六種:


一、淨色(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 ,所以不可能如實知見究竟法所緣畢竟不同,依賴這剛出定又無五蓋干擾的狀態下進行毗婆舍那才能如實知見。

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

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

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

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

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

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

意門的對像

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

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

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

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

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


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



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



2014年8月29日 星期五

不喜歡 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))
  .........

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

2014年8月25日 星期一

面試趣談


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

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


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


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



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



2014年8月23日 星期六

禪修所緣




(八六四)

如是我聞:

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

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

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

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


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

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

但是以心、心所、色法為所緣就一定是修毗婆舍那嗎?
我嘗試馬哈西西亞多的方式,還是會出現概念相,他是以腹部起伏為所緣,分類是屬於界差別,因為心理操作上偏定,既使是屬於四界差別的所緣,實際上還是修奢摩他。

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

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

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

如界差別:

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

如食厭想:

這樣以十種行相而觀察思惟食的可厭的比丘,以厭惡的行相而得明了段食。 [347]他再對那(厭惡的段食之)相數數修習而多作。他這樣做,便鎮伏了五蓋。由於段食的自性法(本質)及深奧之故,不達(11-017) 安止定,只以近行定等持其心。 
看起來像是食厭想修法失傳了,實際上他主要說明奢摩他,他詳說毗婆舍那釋放在慧地品以後,在釋緣起的部分,其他共通的部分則在見清淨之後。


而概念法的所緣如安般:

如是精勤,不久便現起(取相與似)相。而彼相(的現起)並非一切都同樣的,有一部分人說,有人於現起(之相)而生樂觸,如於兜羅綿,如於迦巴率綿及如於微風中。其次是依諸義疏的的決擇說。
(當然以也可以鼻端的觸等也可以修界差別,但那屬界差別)

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

所以說

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

修奢摩他所緣可以是心、心所、色法及概念法,要達到安止,所緣必定是概念法不能是心、心所、色法,這些當心不但頃向不分別最多僅能達近行。
心的操作是傾向不分別 (只專注於所緣一境,不是癡呆的不分別而不知所緣)




含糊其辭



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

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




2014年8月18日 星期一

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

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



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


五十二心所中的定義

六、邪見ditthi):

此見是指錯見。
特相是不明智(錯誤)地分析事物;
作用是錯誤地認為(行法是常、樂、我、淨);
現起是錯誤的理解或相信;
近因是不願見聖者(
ariya),等等。
七、慢mana):


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

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

邪見、慢:


這兩種心所只出現於貪根心,因為它們都涉及某種程度對五蘊的執著。然而這兩者呈現相對的本質,由此它們不能共存於同一心。
邪見生起於錯誤地識知,即不依真實相分析諸法;
我慢則生起於自我評估,即認為自己比別人優越、不如、或與別人同等。
邪見肯定存在於四種與邪見相應的貪根心;
不一定會存在於四種與邪見不相應的貪根心,雖然它不會生起於其他心,但這些心生起時它不一定也跟著生起。

節十:結(經教法)
根據經教法,十種結是:一、欲貪結;二、色貪結;三、無色貪結;四、瞋恚結(厭惡結);五、我慢結;六、邪見結;七、戒禁取結;八、疑結;九、掉舉結;十、無明結。

節十一:結(論教法)
根據論教法,另十種結是:一、欲貪結;二、有貪結;三、瞋恚結(厭惡結);四、我慢結;五、邪見結;六、戒禁取結;七、疑結;八、嫉結;九、慳結;十、無明結。

節十至十一之助讀說明

諸結是把有情綁在生死輪迴裡的不善心所。
第一組十結在經藏與論藏裡都有提及,
第二組十結則只記載於論藏。在第一組裡,
第一至第三項是屬於貪心所;第六與第七項是屬於邪見心所;其餘的是個別的心所。在第二組裡,第一與第二項是屬於貪心所;第五與第六項是屬於邪見心所;其餘的是個別的心所。


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

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

想不通誰能告訴我呢?


阿毗達摩概要精解中「憂」與經典衝突?


阿毗達摩概要精解中

憂俱domanassasahagata):

與瞋根心俱行的受是憂受。巴利文 domanassa源自du(惡)與 manas(意),指「心的苦受」。
受只與瞋根心俱行,而這類心也必定與此受俱行。
由此「」或「心的苦受永遠是不善的
在攝阿毗達摩義的注釋書中是必定與嗔根心俱行,同樣的嗔根心一定俱受,憂是屬受蘊指心的苦受。

在這邊還有一個重要的說法就是心可以超過界,欲界心可以透過禪修超過界,可以現起色無色界心,甚至出世間心。但不是說你證得色界禪就是色界眾生,所以他特別區別 avacara 與  bhumi 的差別。

而色界眾生起不善心時,他的心是屬欲界的。

但在中阿含210經對應的中部44經清淨道中有些不同的說法:

中阿含210經
 法樂比丘尼答曰:「樂覺者,生樂住樂,變易苦,無常者即是災患,欲使也苦覺者,生苦住苦,變易樂,無常者即是災患,恚使也不苦不樂覺者,不知苦、不知樂,無常者即是變易,無明使也。」

毘舍佉優婆夷聞已,歎曰:「善哉!善哉!賢聖!」毘舍佉優婆夷歎已,歡喜奉行。

復問曰:「賢聖,一切樂覺欲使耶?一切苦覺恚使耶?一切不苦不樂覺無明使耶?」

法樂比丘尼答曰:「非一切樂覺欲使也,非一切苦覺恚使也,非一切不苦不樂覺無明使也。

云何樂覺非欲使耶?若比丘離欲、離惡不善之法,有覺、有觀,離生喜、樂,得初禪成就遊,是謂樂覺非欲使也。所以者何?此斷欲故。

云何苦覺非恚使耶?若求上解脫樂,求願悒悒生憂苦,是謂苦覺非恚使也。所以者何?此斷恚故。

云何不苦不樂覺非無明使耶?樂滅、苦滅,喜、憂本已滅,不苦不樂、捨、念、清淨,得第四禪成就遊,是謂不苦不樂覺非無明使也。所以者何?此斷無明故。」

因為有時禪定也稱解脫,前面提到初禪,後面提到四禪,此處上解脫查有部大毗婆沙論:

《阿毘達磨大毘婆沙論》卷144:「謂異熟生憂根。或善。或不善。云何善。謂善作意相應憂根。如說。我於何時當於是處得具足住。若於聖處已具足住。於上解脫希求思慕心懷憂慼。」(CBETA, T27, no. 1545, p. 740, b17-21)

顯然此處的上解脫指的是三果聖者。就是說三果聖者早已斷除嗔根心,當他為了不得阿羅漢的解脫,而起憂受時不與嗔根心相應,或說俱起。

但是在攝阿毗達摩義中所定義的憂必與嗔根心俱起,定義也是沒錯的,因為他特別指欲界心的憂受,另外又區隔了出世間心。

如序論中區隔 avacara  bhumi 是關鍵。

三果聖者如果當生在欲地證得,也還沒死,但早已在道心斷除這屬欲界的嗔根心(行蘊),但不是憂受(受蘊) 不起,因為他還沒死還在欲地阿,過去業所導致異熟還是會生起。

婆沙講得更乾脆 : 異熟(受蘊)生憂根 ... (指受蘊,異熟果報)

三果因為已斷欲欲(行蘊)、 嗔恚(行蘊),無法造作此類的業,所以沒有足夠因緣結生欲地,但活著的時候在欲地的餘依還在,還是會起憂受(受蘊)的。

所以說就八十九種心的分類來說,這地方還是合理的,也沒衝突。

清淨道-地遍的修習法中提到 :

其次在(未達安止定)有種種轉向的第二禪的近行中,雖然捨斷憂根但因尋伺之緣而遇身的疲勞心的苦惱之時,則憂根可能生起,若無尋伺則不生起,憂根生起之時,必有尋伺。 在二禪的近行中是不斷尋伺的,所以那裡可能有憂根生起,但在二禪的安止中則不然,因為已斷憂根生起之緣故。 

(注: 心的苦惱就是憂)

這是在初禪要進修二禪時,他從初禪出起,審查了初禪臨近欲界 與 尋、伺擾動與使心疲勞的過患,因為沒辦法捨斷尋、伺而起的憂受,當然還包含上述遇身的疲勞

注意喔! 因為他從初禪出定,這時還是欲界心,還有一個前提是上述幾個連續的速行,憂是被捨斷的,如上述 : 第二禪的近行中,雖然捨斷憂根 。

這幾個速行還是屬欲界心,理論上是喜俱智相應無行的心,這個說法很明顯是嘗試進修四分法的第二禪,是指初試或不穩的情況。實際上還是會與嗔相應,屬欲界心的緣故,而定也只是鎮伏煩惱,一旦失敗(求不得)有可能從鄰近色界的喜俱智相應無行再次退回下劣的心, 所以也沒有什麼衝突。

而在這裡佛音論師並沒有明確提到此處憂是否與嗔相應的說法,從該段落往下繼續看佛音論師都是對初試的人說。

不懂為什麼有師兄提出這兩段而認為有衝突?

結論我是認為沒有衝突,不論與中部經或是清淨道與攝阿毗達摩義都是沒有衝突的。
如果是指異熟沒有善惡,那這句 : 由此「」或「心的苦受永遠是不善的真的有點問題。

就像慈心的訓練,對境起憂受時,還是可以克制嗔。最初對境起的憂受依等流所起嗔的速行力弱,往後意門獨立運作的速行則力強,慈心似乎也不能對治最初的速行,這部分只有三果聖者能完全不起。

苦、樂、悅、憂、捨都是異熟都是無記的,並沒有善惡可言。 或許他是指這點。

菩提法師在不善果報心也做出這樣的解釋

不善果報心akusalavipakacittani):

第一組無因心包含了七種不善業的果報心。這些心本身並非不善在業力方面它們是無記的(abyakata)。不善」在此是指它們是由不善業產生的果報;所以「不善」一詞並非形容這些心本身,而是形容產生它們的


 由此「」或「心的苦受永遠是不善的

應該也是這樣的意思,這種不精確講法很令人頭痛,所以我在八十九種心圖表中都改成異熟心,而不用熟心。無因改成無根。