寫出檔案

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

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

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