ahorng全球服務網: 2008

2008年12月11日星期四

AutoLISP畫線

(princ "\n畫線: tt")
(defun c:tt()
(setq pt1 (getpoint "\n請選取第一點: "))
(setq pt2 (getpoint pt1 "\n請選取第二點: "))

(command "line" pt1 pt2 "")
(princ "\n完成畫線: ")(princ pt1)(princ pt2)
(princ)
)

2008年12月8日星期一

gpedit.msc 群組原則

gpedit.msc 群組原則設定加入每次開啟電腦時自動開啟的程式

1.按，[開始]，執行，輸入gpedit.msc

2.選取，電腦設定/Windows設定/指令碼-(啟動/關機)，按一下，[啟動]

4.按，[新增]

5.將要在開機時執行的程式按，[瀏覽]加入

6.如此每次開機時即會自動載入此程式。

2008年12月7日星期日

OpenOffice.org 是一套跨平台的辦公室軟件套件，能在 Windows、Linux、MacOS X (X11)、和 Solaris 等操作系統上執行。它與各個主要的辦公室軟件套件兼容。OpenOffice.org 是自由軟件，任何人都可以免費下載、使用、及推廣它。
下載:
http://zh.openoffice.org/new/zh_tw/downloads.html

資料來源:
http://www.openoffice.org/

LibreOffice 3.5.0 官方網站
LibreOffice 是自由的辦公室套裝軟體，可在 Windows、Linux、Macintosh 平臺上運行。本套裝軟體有六種應用程式供你製作文件、資料處理之用，包括：Writer、Calc、Impress、Draw、Math、Base。
與其他商業軟體不同，本套裝軟體採用 LGPL3 授權，該授權方式賦予一般大眾自由使用、分享、散布本套裝軟體的權利。
歡迎你自由下載使用，或是複製給其他人！

SUN OpenOffice
http://www.sun.com/software/openoffice/index.jsp

LibreOffice Productivity Suite Download

2008年11月27日星期四

無法在 Windows Vista 中修改 Hosts 檔案或 Lmhosts 檔案

資料參考:
http://support.microsoft.com/kb/923947
考:
步驟如下:
1.按一下,[開始]
2.在「附屬應用程式」找到「記事本」,在記事本上按滑鼠右鍵,選取「以系統管理員身分執行(A)」。
3.在資料夾「C:\Windows\System32\drivers\etc\」下開啟hosts檔案,即可以編輯存檔。

2008年10月29日星期三

如何將 Google Talk 小工具新增至瀏覽器的側欄中？

如果您正在使用 Firefox，可將 Google Talk 小工具載入瀏覽器側欄中，如此一來不論您正在主視窗中檢視哪個網頁，都可以隨時加以使用。在您關閉瀏覽器視窗或側欄之前，或者登出小工具的功能表之前，您將會保持登入狀態。

若要將小工具新增至您的 Firefox 側欄：

在 Firefox 中，按一下 [書籤 > 組織書籤]。 [書籤管理員] 即會出現。

按一下 [新增書籤...]

輸入任意名稱，例如 Google Talk 小工具。

在 [網址] 欄位中，複製並貼上下列 URL：

http://talkgadget.google.com/talkgadget/popout

選取 [在側欄中載入此書籤]。

按一下 [確定]。

關閉 [書籤管理員] 視窗。

您隨時都可視需要將小工具放入側欄中，只需從 [書籤] 功能表中選取新書籤並開始交談！系統可能會提示您在使用小工具之前，先登入您的 Google Talk 帳戶。

資料來源:

http://www.google.com/support/talkgadget/bin/answer.py?hl=b5&answer=62995

autoCAD輸入平方公分

輸入平方公分的方式(其中輸入「\u+00B2」就是平方㎡)如下:
cm\u+00B2

立方米輸入方式如下:
m\u+00B3

± 是 \u+00B1
1/2 是 \u+00BD
1/4 是 \u+00BC
o 是 \u+00F8
Ω 是 \u+03A9

Plate 是 \u+214A
center line 是 \u+2104

說明:以上方式如同使用WORD時選,插入/符號,字型選擇[Romans],後字源代碼就是+後面的代碼即Unicode.

findfile 檢查檔是否存在

;;1.檢查檔是否存在
(if (= (findfile "C:\\ahorng\\listdir.bat") nil)
(princ "找不到檔案")
(princ "找到檔案")
)

回傳: 找到檔案

;;2.回傳檔案位置
(findfile "acad.pgp") returns "C:\\Documents and Settings\\使用者名稱\\Application
Data\\Autodesk\\C3D 2008\\enu\\support\\acad.pgp"

2008年10月22日星期三

寫出檔案

(princ "\n以視窗方式求得檔案名稱: zz")
(defun c:zz ( / ffn fftxt)
(setq ffn (getfiled "寫出檔案" "" "csv" 1))
(if ffn
(progn
(print (strcat "寫出檔案名稱: " ffn))
(setq fftxt (strcat (substr ffn 1 (- (strlen ffn) 4)) ".txt"))
(print (strcat "更改檔案(TXT)名稱: " fftxt))
)(princ "\n使用者取消!!!"))
(princ))

;輸出結果:
;"寫出檔案名稱: D:\\My Documents\\Autodesk\\97195台中工業區寬頻管道\\輸出檔\\xxx.csv"
;"更改檔案(TXT)名稱: D:\\My Documents\\Autodesk\\97195台中工業區寬頻管道\\輸出檔\\xxx.txt"

oops還原被刪除的物件

OOPS 可還原由最後一個 ERASE 指令刪除的物件。

您還可以在 BLOCK 或 WBLOCK 指令之後使用 OOPS，因為這些指令可在建立圖塊後刪除所選物件。然而，您無法在圖塊編輯器中使用 OOPS 來還原參數、動作或掣點。

使用 OOPS 無法還原圖層上由 PURGE 指令移除的物件。

參考資料:AutoCAD HELP

2008年10月20日星期一

使用VBA建立一文字檔及讀取一文字檔

'使用VBA建立一文字檔
Private Sub CommandButton2_Click()
Dim otfile As String
otfile = "d:\test.csv"
Open otfile For Output As #1
'寫出資料
Print #1, "第一行"

Close #1
MsgBox "完成"
End Sub
'使用VBA讀取一文字檔
Sub in1()
Dim infile As String
Dim str1 As String
infile = "d:\test.csv"
Open infile For Input As #1
Do While Not EOF(1)
Line Input #1, str1
Loop
MsgBox str1
Close #1

End Sub

'以上程式可以執行在 MS Office Excel

2008年10月1日星期三

判定是否有點選

;判定是否有點選
(setq pt1 (GETPOINT "\n 在畫面點選一下:"))
(if pt1
(progn
(prompt "有.")(print pt1)
)
(progn
(prompt "取消.")
)
)
;end lisp

2008年9月25日星期四

兩點求角度

(princ "\n兩點求角度:zz")
(defun c:zz(/ pt1 ang)
(setq pt1 (getpoint " ,請點選圓點位置 : "))
(setq ang (getangle pt1 "角度方向(第2點) : "))
(if (= ang nil)(setq ang 0))
(princ "角度(徑度)=")(princ ang)
(princ "角度(度)=")(princ (* ang 57.29577951))
(princ))

2008年9月22日星期一

比Google Docs還要強的網路文書處理軟體

http://www.zoho.com/
不止是基本的文件,Zoho服務有:
Zoho Sheet 線上試算表服務、Zoho Meeting Web會議、Zoho Show 線上演示文檔工具、Zoho Invoice 線上發貨單、Zoho Writer 線上文字處理器、Zoho Notebook 線上備忘錄處理器、Zoho Creator 線上web應用程式創建器、Zoho Projects 專案管理、Zoho Planner 線上組織工具、Zoho Wiki 線上Wiki及其公開，私有&群組原則、Zoho Chat 即時消息和組聊天工具;
一整個辦公室應用都上網了;去看看吧!!!
PS:使用Google帳號就可以登入使用。

2008年9月20日星期六

autocad載入3支autolisp程式並且執行

如下程式碼,可以存在一a.lsp中以
(vl-load-all"C:/ahorng/layer/a.LSP")
指令載入,載入後程式會立即執行,其中b.LSP有一程式blay,而c.LSP有一程式clay都會執行。

;a.lsp程式內容
(vl-load-all"C:/ahorng/layer/b.LSP")
(c:blay)
(vl-load-all"C:/ahorng/layer/c.LSP")
(c:clay)

2008年9月19日星期五

在AutoCAD2009中無法打開2004版檔案

在AutoCAD2009中無法打開2004版檔案,可以使用修復「檔案/圖檔公用程式/修復」方式開啟;

原因解決方式:
使用AutoCAD 2008或DWG TrueView，以AutoCAD 2007格式保存文件。
使用AutoCAD 2008打開圖檔，將3DCONVERSIONMODE設置為0，然後以AutoCAD 2004/2000文件格式另存檔案。

參考網站:
英文說明:
http://usa.autodesk.com/adsk/servlet/ps/item?siteID=123112&id=11328222&linkID=9240617

簡體說明:
http://www.autodesk.com.cn/adsk/servlet/item?siteID=1170359&id=11623015

2008年9月16日星期二

AutoCAD開啟檔案時沒有對話方塊原因?

FileDia 應設為 1,即可以對話方塊的方式開啟舊檔。

2008年9月11日星期四

點選封閉內一點求面積

(defun C:closearea ()

(command "-boundary" (getpoint "\n請點選封閉內一點:") "")
(command ".area" "o" "l")
(princ ",封閉內面積= ")(princ (getvar "area" ))
(princ "\nPS:注意程式會在封閉內繪製一pline物件!")

(princ)
)

2008年9月3日星期三

檔案總管更改檔名快速鍵

按[F2];

開啟檔案總管:[win]+[e]

2008年9月2日星期二

windows messenger啟動應用程式共用

windows messenger啟動應用程式共用

1.在選單上點選,執行/啟動應用程式共用;
(對方按|接受|)
2.選取,桌面,按一下[共用];
3.按一下[允許控制],勾選,◎自動接受要求控制的請求;
4.按一下[關閉]。
5.(對方可以至你的電腦操作)

2008年9月1日星期一

在指令行顯示說明

ThisDrawing.Utility.Prompt "顯示說明:" & Chr(9)
ThisDrawing.Utility.Prompt "使用TAB及換行" & vbCrLf

成員常數對等用法說明
CrLf vbCrLf Chr(13) + Chr(10) 歸位/換行字元 (Carriage Return/Linefeed) 組合
Cr vbCr Chr(13) 歸位字元
Lf vbLf Chr(10) 換行字元
TAB vbTab Chr(9) TAB字元
資料參考:
http://tw.knowledge.yahoo.com/question/question?qid=1008060601473

載入一個Block

Sub 載入一個Block()
Dim returnPnt As Variant
Dim oBlockRef As AcadBlockReference
Dim insertionPnt(0 To 2) As Double, EndPoint(2) As Double

returnPnt = ThisDrawing.Utility.GetPoint(, "請點選插入點: ")
insertionPnt(0) = returnPnt(0): insertionPnt(1) = returnPnt(1): insertionPnt(2) = 0#

Set oBlockRef = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "xbox", 1, 1, 1, 0)
MsgBox "完成載入一個Block", vbOKOnly, "Block名稱xbox"
End Sub

繪製矩形聚合線

;繪製矩形聚合線
(defun C:a1 (/ pt1 pt2)

(setvar "clayer" "border")
(setq pt1 (getpoint " 第一點(左下角) : ") ) (terpri)
(setq pt2 (getcorner pt1 " 第二點(右上角) : ") )
(command "_rectang" pt1 pt2)

(princ)
);end lisp

;或者在第一點後加上一長寬
(setq pt2 (mapcar '+ pt1 (list 841 594 0)))

將選取的所有0層物件切換至圖層「Stu_temp」

(defun c:move0(/ ss)
(princ "\n 將選取的所有0層物件切換至圖層「Stu_temp」...")
(setq ss (ssget "x" '((8 . "0"))))
(command "change" ss "" "p" "la" "Stu_temp" "")
(princ (strcat "\n 完成切換至圖層「Stu_temp」!共" (rtos (sslength ss) 2 0) "個."))
(princ)
);end movetemp

2008年8月18日星期一

刪除所有block

;刪除所有block
(defun C:ea (/ ss)
(if (= (setq ss (ssget "x" '((0 . "INSERT")))) nil)
(princ "\n沒有物件.")
(command "erase" ss "")
)
(princ)
)

;其它應用
;1.選取name圖層中的所有block
;(setq ss (ssget "x" '((0 . "INSERT")(8 . "NAME"))))

;2.選取970815圖塊
;(setq ss (ssget "x" (list (cons 0 "INSERT")(cons 2 "970815"))))

2008年8月4日星期一

AVIRA AntiVir PersonalEdition Classic功能強大又免費的防毒軟體

功能強大又免費的防毒(雨傘)軟體
官方網站: http://www.free-av.com/

安裝時勾選「Generate random serial number and submit during update」，程式就會幫你自動產生序號及執行更新。

下載 Avira AntiVir Personal Edition Classic 7.00.04.15 Windows NT/2000/XP/Vista 32 Bit 版：

下載 Avira AntiVir Personal Edition Classic 7.00.04.13 Windows 98/ME 版：

連結官方網站下載 Avira AntiVir Personal Edition Classic：

以下有安裝教學(資料參考):
http://tw.myblog.yahoo.com/jw!yOuTmlCTEx6jYMkty.hkSw--/article?mid=24&pk=antivir

2008年8月3日星期日

Novell強制重新開機

指令:
reset server -f

資料參考:
http://www.novell.com/documentation/oes/sos__enu/index.html?page=/documentation/oes/sos__enu/data/henukmm4.html

AutoLISP抓取X,Y座標練習(car與cadr)

;
(defun c:zz( / pt0)
(setq pt0 (getpoint "\n請點選標示點: "))
(print pt0)
(print (list (car pt0) (cadr pt0))) ;抓取X,Y座標
(princ)
)

2008年7月31日星期四

防止隨身碟病毒的方法:按著SHIFT再插USB

當你放CD和插USB, 通常都會自動執行裡的程式, 如果USB有毒就會被執行了, 如果按著SHIFT再插USB, 自動執行的功能就會關閉,因此就不會執行有毒USB.

2008年6月27日星期五

台灣歐特克Map 3D & Civil 3D 技術論壇論壇

網址: http://lab.niu.edu.tw/modules/newbb/

2008年5月14日星期三

DocuWorks文件閱讀程式下載

前言

軟體: DocuWorks Viewer Light 說明: 閱讀DocuWorks文件網址: http://www.xerox.com.tw/

1. 上「台灣富士全錄股份有限公司」網址 http://www.xerox.com.tw/ ，按一下[下載];

2.產品種類，選取”免費軟體”;

3.產品機型，選取” DocuWorks Viewer Light”;

4.作業系統，選取”Windows 2000/2003/XP/Vista”，後按一下，[GO];

5.按一下，[下載];

6.按，[儲存]，儲存後解壓縮檔案後執行安裝。

資料來源:

台灣富士全錄股份有限公司

http://www.xerox.com.tw/web/index.jsp

下載網址:

http://www.xerox.com.tw/web/download/download.jsp

http://www.xerox.com.tw/web/images_support02/dwvl621(TC).zip

使用FX Document Centre 405作為傳真機之設定

前言

軟體:
說明: 使用FX Document Centre 405作為傳真機使用之設定與操作方法。
網址:

1.右鍵選內容

2.勾選傳真模組 ;

3.以下為使用傳真方法，在文件中列印,選印表機[內容];

4.在工作內容中有傳真選項;

5.在工作內容中有傳真選項;

6.按確定,完成傳真。

台灣富士全錄股份有限公司

http://www.xerox.com.tw/

讀取DocuWorks6.2文件

http://www.fxap.com.sg/dnld/docuworks/20070622/DWVL620.zip

2008年5月13日星期二

在家使用Novell檔案伺服器資料

前言

軟體: Internet瀏覽器
說明: 檔案伺服器一個可以在家中將公司作業的檔案於裝路上下載作業完成在家上班資料同步。
網址: http://fs1.ceci.com.tw/NetStorage/

1.輸入 http://fs1.ceci.com.tw ,如下點一下Novell NetStorage

2.點一下Open NetStorage ;

3.登入GIANT-TREE,使用者名稱:"職工編號.部門.remote.ceci",密碼:"上網密碼"

4.點選資料夾，在要下載的檔案上按滑鼠右鍵，選下載,即可下載此檔案;

5.如果在辦公室時可以用 Novell 共用檔案伺服器為\\nw11點一下HK資料夾將資料備份上來,如此又可使用;

即執行:開始/執行, 輸入「\\nw11」

備註: ifolder安裝使用說明(pdf) iFolder是依照你安裝的電腦和Server進行同步備份，你也可安裝很多台電腦，它會自行比對並備份最新的檔案，但安裝的電腦要注意系統時間要跟Server一致，因iFolder是依據時間做同步，若時間差太多有可能舊檔案會蓋過新檔案,而即使檔案被蓋過也不用擔心iFolder一樣可以將檔案回覆回來.。