2009年5月17日 星期日

抓取簡報照片

前言

軟體:PowerPoint (檔案為PPTX格式)與7zip說明:PowerPoint中有一堆照片以下方法可以一次全部轉為圖片檔格式(Png)檔案

1.選取,檔案/另存新檔;

2.按一下,[儲存];

3.在檔案總管,按一下,滑鼠右鍵,選7-zip/解壓縮至”檔案名稱”;

4.在解壓縮資料夾「檔案名稱\ppt\media」下可以看到所有簡報中的圖片。


相關連結:Microsoft Office 2007檔案格式相容性套件
http://a-horng.blogspot.com/search?q=%E6%AA%94%E6%A1%88%E6%A0%BC%E5%BC%8F%E7%9B%B8%E5%AE%B9%E6%80%A7%E5%A5%97%E4%BB%B6

2007檔案格式相容性套件微軟官方下載:
http://www.microsoft.com/downloads/details.aspx?FamilyID=941b3470-3ae9-4aee-8f43-c6bb74cd1466&DisplayLang=zh-tw


7zip下載:
http://www.7-zip.org/

AutoCAD設定DocuWorks出圖


AutoCAD設定DocuWorks出圖

前言

軟體:DocuWorksAutoCAD

說明:AutoCAD中自定一個AutoCAD出圖設備(DocuWorks文件)使辦公室有共同列印設定,產生相同文 件,以下設定DocuWorks邊界為零,AutoCAD圖框即完成邊框位置,完成設定存檔後之後即不需再次設定。


1.在配置空間,選取,檔案/繪圖機管理員;


2.點選,「新增繪圖機精靈」;


3.按一下,[下一步];

4.點選,◎系統印表機,按一下,[下一步];

5.選取,DocuWorksPrinter,按一下,[下一步];

6.按一下,[下一步];

7.輸入繪圖機名稱,按一下,[下一步];

8.按一下,[編輯繪圖機規劃];

9.在「設備與文件設定」按一下,[自定性質];


10.選取文件大小為A3,文件方向為橫向,按一下,[邊界];


11.將邊界全部改為0,按一下,[確定];


12.按一下,[確定];


13.按一下,[確定];

14.按一下,[完成];

15.完成設定可以將檔案更改名稱;


16.在出圖時之設定多出一個如上設定之繪圖機「DW6-A3;


17.可以將此檔案複製至檔案伺服器共用,同仁只要將檔案複製後如上在第1~2步驟,後貼上此檔案即可以使用如上設定,而不用再次設定,專案文件全部設定完成以AutoCAD中發佈(PUBLISH)可以不需再設定完成電子報告書。

2009年5月1日 星期五

百萬關鍵字遭流氓軟體綁架 Antivirus 2009 造假搶先發佈

看到下面這個訊息只能說相信台灣(本土真好)了,有時候服務還是要給一些獎勵.


http://tw.trendmicro.com/tw/support/tech-support/board/trend/article/20080902114537.html

  • 免費工具
http://tw.trendmicro.com/tw/home/home-user/
iClean解毒快手
趨勢科技清毒工具 - iClean解毒快手,能有效清除近期台灣地區常見的病毒及惡意程式,讓您輕鬆、快速地為電腦進行急救。iClean解毒快手體積小,執行時不會耗用太多 電腦資源,僅需少許時間即可為您清除隱藏在電腦中的惡意程式。由於在執行iClean過程中,iClean會刪除電腦系統中因感染已知病毒、 Rootkit或其他惡意程式,所產生的服務、程序、機碼、檔案及資料夾。為了維護電腦安全,趨勢科技強烈建議您在執行iClean解毒快手前,先將電腦 中的重要系統及資料予以備份,以免發生不必要的風險。此外,執行iClean前請先將電腦上的病毒防護功能關閉,執行所需時間將視您的電腦效能與惡意程式 多寡而定,敬請耐心等候!
http://www.trendmicro.com.tw/iclean/index.htm


WTP Add-On 網頁威脅防禦工具
資安威脅情勢已從過去一夕成名的全球性病毒爆發事件,演變成今日以竊取個人資料、公司機密,藉此獲利的新型態網頁威脅。網路釣魚、木馬、間諜程式、 Botnet傀儡 / 殭屍網路,往往埋伏在看似正常的網頁中,它們像是隱藏在網際網路的地雷,一旦 Click 就有可能引爆。當你瀏覽網頁或按下熟悉寄件者發送的郵件中及MSN傳來的URL連結的同時,其實與災難只有一“鍵”之隔!

面對現今一觸即發的網頁威脅,你的電腦除了安裝防毒軟體外,並需設定隨時更新病毒碼,才能作好基本防禦。病毒碼像是犯人的指紋,當防毒軟體公司收集到一隻 新的病毒時,就會從這個病毒程式中截取一小段獨一無二且足以表示這隻病毒的二進位程式碼(Binary Code),來當作辨認此病毒的依據,而這段獨一無二的二進位程式碼就是所謂的病毒碼。

根據AV-Test報告指出,2006年病毒樣本數大約僅300萬,但截至2008年5月份病毒樣本數已經飆升到1100萬左右,唯有透過持續不間斷的更 新病毒碼,才能因應快速增長的惡意程式威脅。但增加病毒碼更新頻率意味著病毒碼檔案持續增長,用戶端電腦的效能也可能因而隨之降低。此外,從防毒軟體廠商 獲得惡意程式樣本、製作病毒碼、測試、上傳到更新伺服器再到用戶下載更新病毒碼,用戶取得最新防護的時間已被大大地延長,形成「安全空窗期」。正因病毒的 種類及型態一直在改變,新病毒、惡意程式每天不斷地被產生,加上Botnet無遠弗界的快速散播,若在「安全空窗期」遇害,除了得花大錢將電腦送醫急救 外,個人資料遭竊、重要檔案毀損,這個損失才是嚴重!
http://www.trendmicro.com.tw/wtp/micro/index.asp?WT.mc_id=TW_081230_Landing_Con_WTP

2009年4月27日 星期一

下載YouTube影片



使用Kej's FLV Retriever: http://kej.tw/flvretriever/

使用YouTubeSnips Download HD YouTube Videos
參考資料: 快速下載YouTube HD 高畫質影片 – YouTubeSnips

參考資料:
YouTube強化懶人包 (上)
http://mag.udn.com/mag/digital/storypage.jsp?f_MAIN_ID=322&f_SUB_ID=2948&f_ART_ID=190595


使用Keepvid下載影片
網址: http://keepvid.com/
1.將YouTube影片網址貼上,按一下[Download]
2.網頁會出現如下2種格式,依你想要的格式點選下載,儲存.
>> Download << (get_video.flv - Low Quality) >> Download << (get_video.mp4 - High Quality) 延伸閱讀: Free FLV to MP3 Converter - convert FLV to MP3 easily and fast.



2009年4月26日 星期日

2009年4月25日 星期六

台灣及澎湖地區座標轉換

台灣及澎湖地區座標轉換網址如下:

http://www.sunriver.com.tw/taiwanmap/grid_tm2_convert.php



資料來源:
上河文化股份有限公司 網址: www.sunriver.com.tw


參考:
TWD97 與 WGS84 座標基準 http://wiki.osgeo.org/wiki/Taiwan_datums#Q.26A

大地座標系統與二度分帶座標解讀 http://www.sunriver.com.tw/grid_tm2.htm

Taiwan datums - OSGeo Wiki 網址: http://wiki.osgeo.org/wiki/Taiwan_datums

QGIS的上台灣歷史圖層–台灣堡圖 網址: http://gis-tech.blogspot.tw/2010/09/qgis.html

成功大學水工所 大地坐標轉換測試程式 網址: http://gis.thl.ncku.edu.tw/coordtrans/coordtrans.aspx

2009年4月24日 星期五

Civil 3D 2009 ACAD.CUI檔案位置(AutoCAD選單)

VISTA
C:\Users\(登入使用者名稱)\AppData\Roaming\Autodesk\C3D 2009\cht\Support


Windows XP Civil 3D 2008 ACAD.CUI檔案位置
C:\Documents and Settings\(使用者)\Application Data\Autodesk\C3D 2008\enu\Support

AutoCAD ACAD.CUI檔案位置(AutoCAD選單)
VISTA
C:\Users\(使用者登入名稱)\AppData\Roaming\Autodesk\AutoCAD 2009\R17.2\cht\Support

Windows XP
C:\Documents and Settings\(使用者登入名稱)\Application Data\Autodesk\AutoCAD 2009\R17.2\cht\Support


相關參考連結資料: 聯強 e 城市 之 「AutoCAD功能表和工具列內大部分的選項都不見了,該如何排除?」

http://www.synnex.com.tw/asp/fae_qaDetail.asp?from_prg=%A7%DE%B3N%B0T%AE%A7&topic=FAE&group=&parent=&classifyid=01462&seqno=19563

及Autodesk - 知識庫
http://www.autodesk.com.tw/adsk/servlet/item?siteID=1170616&id=13196664

2009年4月9日 星期四

OfficeScan反安裝即不再詢問密碼

方式1:
註冊資料:
\HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc\
加入 Allow Uninstall 值為 1 即可

方式2:
作一個UninstallOfficeScan.reg內容如下:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc.]
"Allow Uninstall"=dword:00000001



2009年3月12日 星期四

圖面z坐標值改為0

AutoCAD 圖面z坐標值改為0
z=0
使用用Express的flatten

2009年3月4日 星期三

自然人憑證忘記PIN碼/鎖卡解碼

自然人憑證忘記PIN碼/鎖卡解碼處理方式:

1.連上
MOICA內政部憑證管理中心
http://moica.nat.gov.tw/html/index.htm


2.按一下,[憑證作業],點選"忘記PIN碼/鎖卡解碼",後依網頁說明執行,即可。





相關網站:
MOICA內政部憑證管理中心自然人憑證鎖卡解碼及修改PIN碼相關設定說明

HiCOS卡片管理工具(新TP卡必要安裝)

司內網頁電腦環境設定


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

2009年2月28日 星期六

使用FireFox開啟公司表單及IETAB設定





前言

軟體:FireFox
說明:因為公司表單要使用IE才可以正確開啟,IETAB安裝及設定即可以完成在FireFox開啟公司員工專區作業(以下作業要在FireFox軟體下操作,如果你使用IE來操作是沒有任何作用的)

1.如下為正確開啟公司員工專區時IE圖示會在分頁前;

2.如下網址按一下[安裝到Firefox(Windows)],安裝IE

Tab元件;(以下作業要在FireFox軟體下操作,如果你使用IE來操作是沒有任何作用的)

https://addons.mozilla.org/extensions/moreinfo.php?id=1419&application=firefox

PS:因為IE TAB一直沒有更新3.6版請改Coral IE Tab(Lastest beta v1.85.20100328) http://coralietab.mozdev.org/installation.html )







3.安裝好後,選取選單,工具/IE Tab選項;


4.輸入「http://*.ceci.com.tw/*」按一下,[加入];


5.完成,日後使用FireFox即可以使用IE來瀏覽網頁,將http://*.ceci.com.tw/*」加入設定之後進入員工專區時會自動以IE來開啟,你可以設定自已想使用IE開啟的網址去使用IE自動啟動頁面.


IETab.net | The home of IE Tab
http://www.ietab.net/


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



2009年2月19日 星期四

CECI VPN

因為 VPN 目前已停止使用所以建議使用新版 SVPN 連結(第一次連會安裝程式)


svpn網址 :
https://svpn.ceci.com.tw

使用前先設定信任的網站:
http://a-horng.blogspot.com/2007/05/ie6-proxy-ie.html#links



使用手冊可以在如下路徑找到

\\nw10\SUPPORT\公司系統手冊文件\ssl-vpn連線程序.pdf

中辦處檔案伺服器:
T:\驅動程式及更新程式\Bench\(電腦使用說明手冊)\網路設定\ssl-vpn連線程序.pdf

延伸閱讀:
Windows 7 遠端協助

CECI 員工查詢中心

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

2009年2月13日 星期五

Free Yearly Calendar Template for 2008, 2009

Free Yearly Calendar Template for 2008, 2009
年曆範本 openoffice及EXCEL文件
下載:
http://www.vertex42.com/ExcelTemplates/yearly-calendar.html

2009年2月12日 星期四

Firefox雙首頁設定

在首頁設定輸入網址以「 | 」作為分格

http://www.google.com.tw | http://tw.yahoo.com

2009年2月11日 星期三

偽.蝦米 - 一個不用安裝的嘸蝦米

download:
http://liu.twbbs.org/xliu/download.htm

編號4673 IBM A50P 8175-IV5 驅動程式

Drivers and software - ThinkCentre A50 (type 8084, 8085, 8126, 8147, 8148, 8149, 8174, 8175, 8176, 8177, 8178) / M50e (type 8179)

下載:
http://www-307.ibm.com/pc/support/site.wss/document.do?lndocid=MIGR-55497

ADI SoundMAX onboard audio driver 15 Dec 2005 Q2AUD02US13
Networking Intel Pro/100 and Pro/1000 onboard Ethernet 13 Sep 2004 Q38Z01US
Intel Extreme onboard video driver 6 Oct 2005 E49Z86USA



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

編號4673 IBM A50P 8175-IV5

2009年2月4日 星期三

部門公告下架方法

部門的秘書在[個人專區]->[個人工作區]->[網頁管理]->[部門公告]

這個界面中可以去修改部門公告中所有公告的下架日期讓該公告手動下架



延伸閱讀:
Windows 7 遠端協助

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

2009年2月3日 星期二

Yahoo!奇摩輸入法

Yahoo!奇摩輸入法吹熄燈號,官方即將停止維護與下載,快來備份吧 | T客邦 - 我只推薦好東西

新酷音輸入法

Yahoo!奇摩輸入法安裝
http://tw.download.yahoo.com/keykey/
http://us.dl1.yimg.com/tw.download.yahoo.com/ykk/pkg/YahooKeyKey-Windows-1.0.2100-zh-TW.exe
嘸蝦米輸入法安裝:
.cin(自訂輸入法表格)安裝程式
‧ 功能:增加新的輸入法,只要取得 .cin 表格,在 .cin 檔案上雙擊滑鼠,就可以完成安裝使用
‧ 操作方法:下載外界公開流通的 .cin 檔案(例如嘸蝦米輸入法)
‧ 預期效果:
1. 請下載以下 .cin 檔案:
http://www.macuknow.com/files/liu3.cin.zip
2. 從桌面或檔案管理員找到 liu3.cin 所在位置
3. 在該檔案上雙擊滑鼠
4. 螢幕出現「是否要安裝 liu3.cin ?」詢問
5. 點選「是」
6. 稍待兩秒後出現「安裝完成」
7. 點選KeyKey 的狀態列,拉下輸入法選單,此時應該會出現「嘸蝦米輸入法」可供選擇
‧ 特別說明:在「是否安裝?」到「安裝完成」中間有很短暫時間(大約 1-2 秒),如果此使用者打開KeyKey 輸入字元,會出現英文字,這是正常現象。


資料參考:
http://tw.download.yahoo.com/keykey/
http://tw.knowledge.yahoo.com/question/question?qid=1608060100764


2009年2月2日 星期一

檔案壓縮及解壓縮(7zip)

軟體:7-Zip
說明:使用個人7zip檔案壓縮及解壓縮的習慣都是在檔案總管中進行,壓縮檔案時只要按住ctrl複選檔案後按滑鼠右鍵選7zip壓縮;解壓縮時就按滑鼠右鍵選7zip解壓縮到資料夾,這樣壓縮檔檔案內容就會被解壓縮到與檔案名稱同名的資料夾中;
下載:http://www.7-zip.org/ ;
1.檔案壓縮
在檔案總管中,將要壓縮之檔案反黑(如下,按下CTRL+MOSUE左鍵),

2.在後黑區按右鍵出現如下畫面,並選擇"7-zip/加入壓縮檔",

3.壓縮格式選zip;
(勾選□建立自解壓縮檔,可以建立「施工抽查月報表.exe」自解壓縮檔不用安裝壓縮程式即可以解壓縮)

4.按一下,[確定] ;
(這畫面中的加密,你可以輸入密碼將壓縮檔案加密,完成後檔案要解開時會要求輸入密碼,才可以解開壓縮檔案)

5.完成壓縮,壓縮檔案名稱為「施工抽查月報表.zip」

6.「分割壓縮檔,位元組」輸入2000000
;(這個方法是檔案太大,可以將壓縮檔分割為2MB,也就是說原來檔案有7MB分割壓縮檔為2MB時,即7/2=分割為4個檔案[2,2,2,1])

7.解壓縮時選「交換檔案.7z.001」將檔案解壓縮至「交換檔案」資料夾;

8.解壓縮
如下,以滑鼠右鍵選取此檔(壓縮檔*.zip)後,選取「7-zip
/ 解壓縮至”9801月份-M15A施工抽查月報表\”」;

9.即可將壓縮檔(9801月份-M15A施工抽查月報表.rar)中的資料壓縮至「9801月份-M15A施工抽查月報表」資料夾中;

10.建議壓縮解壓縮作業皆可以於檔案總管中完成並不須要到壓縮主程式中進行作業,如下7zip主程式畫面跟檔案總管一樣,選取檔案按[+加入]即要壓縮檔案,選取壓縮檔案後按[-解壓縮]。


延伸閱讀: 使用word開啟網頁資料,可以將網頁下載存成WORD檔.

利用 7ZIP 作檔案加密

ahorng全球服務網: 檔案壓縮及解壓縮(7zip英文版)

2009年1月20日 星期二

Windows XP密碼刪除

Windows XP密碼刪除,如下檔案
C:\WINDOWS\system32\config\SAM


administrator密碼會變為空白;


資料參考:
http://tw.myblog.yahoo.com/jw!e61s0tyXGh5VV562ITtYuls-/article?mid=125

2009年1月19日 星期一

帳號被鎖定及忘記密碼的處理方式

帳號被鎖定(無法登入Windows XP)及忘記密碼時,請找一台可以上網的電腦
網址
http://support.ceci.com.tw/

上網後在左上角按一下[遺忘密碼]後依提示輸入登改密碼後以新密碼登入即可

PS:
1.上網登入密碼連續3次錯誤後帳號即被鎖定;
2.遺忘密碼,更改密碼需要有個人身份證號碼及華南銀行帳號,才可以更改.

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 中文版下載

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 側欄:

  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"

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

Search Google

Google

熱門文章