判定是否有點選

;判定是否有點選
(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)
)

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

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

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

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

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