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

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

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

1. 在 Firefox 中，按一下 [書籤 > 組織書籤]。 [書籤管理員] 即會出現。
2. 按一下 [新增書籤...]
3. 輸入任意名稱，例如 Google Talk 小工具。
4. 在 [網址] 欄位中，複製並貼上下列 URL：

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

5. 選取 [在側欄中載入此書籤]。
6. 按一下 [確定]。
7. 關閉 [書籤管理員] 視窗。

您隨時都可視需要將小工具放入側欄中，只需從 [書籤] 功能表中選取新書籤並開始交談！ 系統可能會提示您在使用小工具之前，先登入您的 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"

寫出檔案

(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

使用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

判定是否有點選

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

兩點求角度

(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))

比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帳號就可以登入使用。

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)

在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

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

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

點選封閉內一點求面積

(defun C:closearea ()

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

(princ)
)

檔案總管更改檔名快速鍵

檔案總管更改檔名快速鍵

按[F2];


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

windows messenger啟動應用程式共用

windows messenger啟動應用程式共用

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

在指令行顯示說明

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

刪除所有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"))))