==================================================
(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年10月1日 星期一
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)
(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
例：(參考)
[ 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
^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 "[圖基本設定完畢]")
^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
^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日 星期五
2018年9月27日 星期四
test
超簡單windows7重灌安裝教學setup system(企業版範例)
AutoCAD 加入 Express ( Express Tools ) menu
AutoCAD
command > cui
自訂-所有檔案中的自訂-所有自訂檔 > 點擊 局部自訂檔 滑鼠右鍵 > 載入局部自訂檔 > acetmain.cuix
(如果沒有此檔 可搜索自己電腦有無此項目或上網搜尋)載入
點擊 Express ( Express Tools ) > Tools > System Variable Editor
( 如果 System Variable Editor 無法開啟 )
點擊桌面左下角 [ 開始 ] > 控制台 > 程式集 ( 解除安裝程式 ) > ( 點擊 ) Autodesk AutoCAD XXXX - > 加入或移除功能 ---( 依程式指示操作 )
如果遺失或沒有某個項目 可上網搜尋項目 載入
command > cui
自訂-所有檔案中的自訂-所有自訂檔 > 點擊 局部自訂檔 滑鼠右鍵 > 載入局部自訂檔 > acetmain.cuix
(如果沒有此檔 可搜索自己電腦有無此項目或上網搜尋)載入
點擊 Express ( Express Tools ) > Tools > System Variable Editor
( 如果 System Variable Editor 無法開啟 )
點擊桌面左下角 [ 開始 ] > 控制台 > 程式集 ( 解除安裝程式 ) > ( 點擊 ) Autodesk AutoCAD XXXX - > 加入或移除功能 ---( 依程式指示操作 )
如果遺失或沒有某個項目 可上網搜尋項目 載入
2018年9月26日 星期三
在Blogger新增地圖小工具
<script type="text/javascript" id="clstr_globe" src="//cdn.clustrmaps.com/globe.js?d=gxliCcG_FNZ_J-GxuqpVtXW57jk9sg3GleAZTl498ps"></script>
以於20180927加入Blogger中。
如何加入上程式碼 請參考
以於20180927加入Blogger中。
如何加入上程式碼 請參考
在Blogger 部落客(網站) 加入程式碼
在Blogger 部落客 (網站) 加入程式碼
============================================
1.點擊網站小圖示
2.點擊頁面配置
3.點擊 [ + 新增小工具 ] 或欲修改項目 的編輯
4.點擊 HTML/JavaScript 右邊 + ico
5.依序填寫 標題與內容 (如為 script 可直接填寫至內容內)。
6.儲存
7.如覺得 [ 新增小工具 ] 位置不好，可用滑鼠拖曳到其他地方。
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
;;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
超簡單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")
(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")
訂閱：
文章 (Atom)