=================================
(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月30日 星期日
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")
2018年9月14日 星期五
統一的調味粉包與調味油包 (鮮蝦/肉燥風味)
====================================
鮮蝦風味 - 調味粉包為藍色不透明包裝75*80(大)，透明調味油包60*54(小)。
肉燥風味 - 調味粉包為大藍色不透明包裝55*54(小)，透明調味油包77*55(大)。
鮮蝦風味 - 調味粉包為藍色不透明包裝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) :厚度方向
在 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++。
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
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
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.
訂閱：
文章 (Atom)