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

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

在家使用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一樣可以將檔案回覆回來.。

員工專區:

http://nts1191.ceci.com.tw

Novell檔案何服器

http://fs1.ceci.com.tw/NetStorage/

for
台灣世曦工程顧問股份有限公司 - CECI Engineering Consultant, Inc., Taiwan

使用Microsoft Office Document Imaging開啟TIF檔

前言

軟體: Microsoft Office Document Imaging 說明: 使用Microsoft Office Document Imaging開啟TIF檔 下載:

1. 選取，開始/所有程式/MicroSoft Office/MicroSoft Office工具/Microsoft Office Document Imaging

2.選取，工具/選項;

3.選取，其他，按一下，[重設]，按[確定]完成，日後TIF檔將以Microsoft Office Document Imaging開啟。

其它:

MicroSoft Office System(11)文字辨識: http://a-horng.blogspot.com/2007/08/microsoft-office-system11-office.html#links