線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:3805
推到 Plurk!
推到 Facebook!

如何在一张AUTOCAD图片上标注信息?

 
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-20 15:33:25 IP:211.90.xxx.xxx 未訂閱
如何在一张AUTOCAD图片上标注信息? 1、在图片的任意位置画一个矩形框 2、保存矩形框的相关信息(如:位置、其它信息,用3层实现) 3、对于这个图片可以进行动态的缩放,会不会影响标注的位置? 并且作成activex form 的形式,提供公共的接口 谢谢! 發表人 - sos_admin 於 2003/09/20 17:28:12
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-20 16:11:30 IP:218.163.xxx.xxx 未訂閱
你要寫圖塊零件庫喔    網海無涯,學無止境!
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-20 17:03:37 IP:61.64.xxx.xxx 未訂閱
如何在一張AUTOCAD圖片上標注資訊? 1、在圖片的任意位置畫一個矩形框 2、保存矩形框的相關資訊(如:位置、其他資訊,用3層實現) 3、對於這個圖片可以進行動態的縮放,會不會影響標注的位置? 並且作成activex form 的形式,提供公共的介面 謝謝! 1 CAD VBA 2 CAD LISP AUTOCAD有巨集你可利用 由delphi去呼叫執行 activex form的部份 無直接關係把 應該是複合應用 不會是遠端登入執行把 哈哈 我有以前找的資料 有需要的可以去下載 電路設計支援LIS http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37695 上述資料是QOO好友提供 sos_admin 版主可以在問QOO好友看看 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起 發表人 - jackkcg 於 2003/09/20 17:20:25
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-09-20 18:25:53 IP:61.64.xxx.xxx 未訂閱
轉取圖形供 Microsoft Word for Windows 5.0 中文版使用補充資訊    本文件將說明將下列格式的圖形檔案轉取到 Microsoft Word for Windows 5.0 中文版時的限制,與可用的選項。 AutoCAD plotter files (ADI)        Micrografx Designer 3.0 (DRW) Computer Graphics Metafile (CGM)        PC Paintbrush files (PCX) Encapsulated PostScript (EPS)        Tagged Image File Format 4.0 and 5.0 (TIFF) HP Graphics Language (HPGL)        WordPerfect Graphic (WPG) Lotus Freelance files (LotusPIC)        Windows Metafile (WMF)         Windows Bitmaps (BMP) 一般資訊         所有圖形轉取程式都符合 Aldus Graphic Filter Specification  1.0 版的規格。 為了要加快顯示和捲動速度,Word 以 Windows 中繼檔 (Metafile) 的格式儲存轉取的圖形。因為這些圖形的關係,您的文件檔案大小會變得很大。 在進行多工處理時,請不要執行轉換程式。 請注意,Word 無法顯示大於 1 MB 的點陣圖。 安裝 請使用 Word 安裝程式來安裝這些圖形轉取程式。如果安裝過 Word 之後才想加入轉取程式,請啟動安裝程式,並選取「自訂安裝」選項。請取消選取「文字轉換/圖形轉取程式」以外的所有核取方塊。 如果不是使用安裝程式來安裝轉取程式,您必須自行複製轉取程式並將它們解壓縮。在  中有詳盡的說明。此外也請注意,每一個轉取程式都必須列在 Windows 的 WIN.INI 檔案中。您可以使用「工具」功能表中的「選項」指令來加入轉取程式名稱。請先選取 WIN.INI 類,然後在「應用程式」方塊中選取「MS Graphic Import/Export Filters」。在將轉取程式加入 WIN.INI 檔案時,請使用下列語法。必要時,請以適當的路徑取代 "C:\WINDOWS\MSAPPS\GRPHFLT"。 [MS Graphic Import Filters] Windows Metafile(.WMF)=C:\WINDOWS\MSAPPS\GRPHFLT\WMFIMP.FLT,WMF DrawPerfect(.WPG)=C:\WINDOWS\MSAPPS\GRPHFLT\WPGIMP.FLT,WPG Micrografx Designer/Draw(.DRW)=C:\WINDOWS\MSAPPS\GRPHFLT\DRWIMP.FLT,DRW HP Graphic Language(.HGL)=C:\WINDOWS\MSAPPS\GRPHFLT\HPGLIMP.FLT,HGL Computer Graphics Metafile(.CGM)=C:\WINDOWS\MSAPPS\GRPHFLT\CGMIMP.FLT,CGM Encapsulated PostScript(.EPS)=C:\WINDOWS\MSAPPS\GRPHFLT\EPSIMP.FLT,EPS Tagged Image Format(.TIF)=C:\WINDOWS\MSAPPS\GRPHFLT\TIFFIMP.FLT,TIF PC Paintbrush(.PCX)=C:\WINDOWS\MSAPPS\GRPHFLT\PCXIMP.FLT,PCX Lotus 1-2-3 Graphics(.PIC)=C:\WINDOWS\MSAPPS\GRPHFLT\LOTUSIMP.FLT,PIC AutoCAD Plot File(.PLT)=C:\WINDOWS\MSAPPS\GRPHFLT\ADIMPORT.FLT,PLT 圖形快取記憶體 在 WIN.INI 檔案中的 [Microsoft Word 5.0] 部份,您可以加入 "BitmapMemory=64" 這一行,將圖形快取記憶體的大小設定為 64K。加大這個數量,Word 用來加速圖片重畫的點陣圖快取記憶體的大小即可增加。這個數字不能大於可用的存取記憶體大小。 疑難排解 如果轉取程式無法轉換您想插入的圖形,可能會有訊息告訴您這個檔案是一個空檔案、這個檔案不包含圖形,或者圖形轉取程式無法轉換這個檔案。要解決這個問題,請查閱下面的之建議。 * 如果無法把圖形轉取到 Word 中,可能是因為這個圖形沒有在原應用程式中正確地儲存。請試著將此圖形重新載入原應用程式中。如果出現的影像與原先建立時不同,甚至原應用程式無法讀取這個檔案,請嘗試將這個檔案存成不同的格式。 * 這個圖形檔對應的圖形轉取程式是否已安裝,並已列在 WIN.INI 檔案的 [MS Graphic Import Filters] 部份﹖ * 您的系統有多少可用記憶體﹖至少需要與解壓縮後圖形影像大小相等的記憶體。 * 有多少可用的磁碟機工作空間 (TEMP)﹖只要圖形轉取到 Word 文件中,這個文件檔案的大小便會自動增加約原圖形檔案的大小。如果可用空間不敷使用,也沒有足夠的空間提供 Windows 維護其暫時性的交換 (swap) 檔案,那麼就無法轉取這個圖形影像。 * 如果來源是一個 Windows 應用程式,請試著將圖片複製到「剪貼簿」上 ,然後再將圖片直接貼到 Word 中。 * 如果轉取程式不支援這種圖形檔案格式,請試著在原應用程式中開啟,然後存成另一種格式。 Windows 的限制 如果您所轉取的圖形無法適當地轉換,問題可能在原始圖形格式和 Windows 處理圖形的方式不同所致。 Windows 物件導向或向量導向圖片中的文字 由於 Windows 圖片中的圖形基本元素的限制,以下項目無法顯示及列印: * 對稱或逆向文字 * 旋轉或垂直文字 (除非使用可縮放字型或向量字型) * 雙底線和外框 縮放比例 Windows 可能無法如您所預期地縮放影像。 舉例來說,如果點陣圖被縮小,或以小於原圖形尺寸的比例來檢視,則有些部分將不會被顯示出來。例如細線、零星圖樣或格線可能會不見。小碎片圖樣也可能會不見。這些都只是顯示時所發生的問題,如果使用高解析度印表機列印,這些細微的圖樣仍然會存在。 如果影像是向量導向或物件導向圖片,則文字只能依據其長寬比來縮放。您無法改變其長寬比。 圖形中的文字轉換視可用的字型大小而定。轉取並調整圖形的大小之後,Word 會使用最接近的可用字型大小來顯示圖形中的文字。例如,假設原始圖形中的文字為 24 點,插入 Word 文件之後,這個圖形被放大成原來的兩倍。在這種情況下,如果 Windows 中沒有 48 點的字型,則 Word 會以最接近的可用字型大小來取代原始文字的大小。如果您將圖形縮小,Word 也會以相同的方式來處理。如果您使用 PostScript 印表機,那麼印出的文件看起來會好很多,這是因為 PostScript 提供了可縮放字型。 色彩 如果您的系統能顯示 256 色以上,Word 就不改變 Windows 的色彩映射表。圖形轉取到 Word 之後,只含標準的 16 種 VGA 色彩。因此,某些點陣圖形檔在螢幕上看起來可能不是那麼正確。如果您的印表機及印表機驅動程式支援的色彩多於標準的 16 種 Windows 色彩,則圖片上的色彩會有比較好的表現。300 dpi 的雷射印表機可以利用組色來模擬 256 色。 以下轉取程式在檔案中所使用之色彩資訊,列於其右方: DRW, DXF, EPS, PCX, TIFF, WMF, WPG, CGM 使用檔案中的色盤 HPGL, PIC 使用預設的色盤 ADI 只使用黑色與白色 個別轉取程式的資訊 TIFF TIFF 5.0 轉取程式支援所有的 TIFF 5.0 彩色特性,包括單色,灰階,色盤 (Palette) 和 RGB 全真色彩。這個轉取程式無\法讀取 TIFF 6.0 格式。 EPS 此 EPS 圖形轉取程式 EPSIMP.FLT 支援 Adobe Systems Encapsulated PostScript 規格 1.0 及 2.0 版。 EPS 檔案是一種標準的 PostScript 語言檔案,此格式並可包含螢幕預覽點陣圖。EPS 檔案常被放在其他文件 (如 Word 檔案) 中作為實例說明。Word for Windows 5.0 中文版 EPS 轉取程式以 Tagged Image File Format (TIFF) 5.0 或以 Windows Metafile (WMF) 內嵌顯示影像來支援 EPS 影像。 如果 EPS 檔案包含內嵌的 TIFF 或 WMF 顯示影像,Word for Windows 5.0 就能顯示此圖形。顯示影像的品質好壞,視內嵌於 EPS 檔案的 TIFF 或 WMF 影像之解析度而定。由於這種影像顯示主要是為了協助在頁面上作構圖定位,因此解析度通常很低。 如果沒有內嵌的 TIFF 或 WMF 顯示影像,或者轉換程式認為這個影像不正確,那 麼 Word for Windows 5.0 就不會顯示此影像,而是以圖形框來取代。 列印包含 EPS 圖形的文件 使用 PostScript 印表機列印圖形時,無論 EPS 檔案是否內嵌 TIFF 或 WMF 顯示影像,這個檔案的 PostScript 部分所發出的 PostScript 指令會傳送給印表機。這個顯示影像的螢幕解析度對檔案的列印品質沒有影響。 使用非 PostScript 印表機列印時,如果 EPS 檔案內嵌 TIFF 或 WMF 顯示影像,就會列印 TIFF 或 WMF 影像。這一類影像的解析度通常會很低 (例如 128 x 128 位元)。當一份包含內嵌 EPS 影像的文件送到非 PostScript 印表機列印時,列印出來的影像,解析度相對地也會較低。 如果一份文件中有一個未含有內嵌 TIFF 或 WMF 顯示影像的 EPS 檔案,或者轉取程式認定顯示影像不正確,那麼在非 PostScript 印表機上只會印出圖形框。 EPS 的需求 EPS 檔首 (EPS 檔案的第一行) 的第一行必須是版本說明:"%!PS-Adobe-2.0 EPSF-2.0" (您可以將 "2.0" 改為 "1.0")。此行指出 PostScript 語言檔案遵循 Adobe 標準。 EPS 檔首也必須有下面這一行:"%%BoundingBox: LLx LLy URx URy"。其中 LL 變數代表 EPS 圖形的框線長度。 有些應用程式可以將 PostScript 的輸出攔截到檔案中,產生印表機專用的 EPS 檔案。不過,並不是所有的應用程式都能嚴守 Adobe的標準規格。因此,由 PostScript 印表機的印表驅動程式所產生的 PostScript 列印檔案,可能無法在另一種 PostScript 週邊設備上正確地印出。 Word for Windows 5.0 EPS 圖形轉取程式並不會重新解譯 EPS 檔案的 PostScript 碼,因此無法克服非標準的內容。如果一個 EPS 檔案沒有遵循 Adobe 規格,則 Word 會在螢幕上以一個圖形框顯示這個影像,並在列印時,送出原始的 PostScript 碼給現用的 PostScript 印表機。 若需更多有關 Encapsulated PostScript 規格的資訊,請與 PostScript Developer Support Group 聯絡,地址如下: Adobe Systems Incorporated 1585 Charleston Road PO Box 7900 Mountain View, CA 94039-7900 (415) 961-4111 PCX PCX 圖形轉取程式 PCXIMP.FLT 支援 PCX 檔案格式的所有版本,包括 ZSoft 3.0 版,並支援 256 色影像。這是 Microsoft Windows 調色盤普遍使用的交換格式。 轉取到 Word 時,PCX 圖片的大小可能會改變 轉存圖片時,建立此圖片的應用程式可能在影像的上、下、左或右方加上一些空格。您可以在 Word 中裁剪圖片,以獲得需要的效果。 當建立此圖形的應用程式以虛擬點陣圖轉存 PCX 檔案時,所選擇的解析度選項,可能會影響將此圖轉取到 Word 文件時,圖片的大小。您可以在 Word 中依需要調整影像大小。 WPG WPG 轉取程式也用在 WordPerfect 文件轉換程式中,用來將內嵌在 WordPerfect 文件中的圖形轉換到 Word 文件中。 轉取程式會以儲存在 WPG 檔案中的圖形框大小,來判斷所要轉取的圖片大小。DrawPerfect 所建立的 WPG 圖形的圖形框大小,與螢幕大小相等。 限制 * WPG 檔案中的點陣圖轉取到 Word 時,會和其他轉取程式轉取點陣圖時遇到同樣的 Windows 問題。這可能導致列印不正確。 * WPG 中的 EPS 插入 Word 時,不會包留 PostScript 碼。 * 點陣圖旋轉:旋轉度數必須是 90 的倍數。 相關檔案 WPG (轉取和轉存)、DRW 和 DXF 圖形轉取程式,需要以下三個檔案才能作用:WPGIMP.FLT、IMWPG.DLL 和 CGI_GDI.DLL。其中 WPGIMP.FLT 檔案必須列在 WIN.INI 檔案中;其他檔案則必須安裝在同一個目錄中。 WMF 和 BMP Word for Windows 直接支援 Windows 點陣圖 (BMP) 檔案,不需要額外的圖形轉取程式。WMF 檔案必須是 Aldus Placeable Metafile 格式 (檔首包含 org 和 ext 資訊)。 Aldus 和 Micrografx 建立了一個 Windows 中繼檔格式的擴充版本,名為 "Placeable Metafile Format"。在這個擴充格式中,標準的中繼檔檔首加入了 22 個位元組的資訊。這個資訊允許中繼檔指定其位置和大小。 WMF 轉取程式對於檔案中沒有正確的檢查碼 (checksum)、外圍長方形及 (或) 足夠資料的情形將不接受。 DRW 這個轉取程式所支援的 Micrografx Designer 檔案版本一直到 3.02 版,另外也支援 Draw Plus 檔案。 DRW 轉取程式最多只能轉取到 Micrografx Designer 的第一頁圖形,這是因為 DRW 檔案不包含影像大小的資訊。一旦影像轉取完成,週圍的方塊可能會被裁掉,讓它剛好符合影像的大小。 限制 * 由於梯度填充 (gradient fill) 需要區域裁剪 (region clipping),因此不支援。 * 文字陣列也不支援。 * 這一版的 DRW 轉取程式不支援某些 Micrografx Designer 3.x 字型。 * 不支援 Micrografx Designer 3.1「沿曲線排列的文字」特性。 * 裁剪路徑 (clip path) 需要區域裁剪,因此 GDI 中繼檔不支援。 * 由於磚型路徑 (tiled path) 允許物件導向式填充放在裁剪路徑 (clip path) 後面,因此也不支援。 相關檔案 這個轉取程式需要以下檔案:DRWIMP.FLT、IMDRW.DLL 和 CGI_GDI.DLL。 電腦圖形中繼檔 (Computer Graphics Metafiles) Word for Windows 5.0 中文版的電腦圖形中繼檔 (CGM) 轉取程式 CGMIMP.FLT,可以轉取符合 CGM 規格第 1 版的 CGM 圖形檔案。這個轉取程式並不完全符合 CALS,但是支援大部分的 CALS 元件。 支援的 CGM 元件 這個轉取程式支援以下的 CGM 圖形基本元素和屬性元件: * 直線類型:標準 ANSI 集。 * 符號 (marker) 類型:標準 ANSI 集。 * 邊線 (edge) 類型:標準 ANSI 集。 * 直線元件:多邊折線、不相連的多邊折線、3 點圓弧、中心點圓弧,以及橢圓圓弧。實際寬度大於一個像素的畫筆 (pen) 具有實體的樣式。非實體樣式 (nonsolid-style) 的畫筆,寬度必為 1 個像素。 * 填充元件:多邊形 、多邊形組、長方形、圓形、3 點圓弧環繞 (circular arc 3 point close)、中心點圓弧環繞 (circular arc center close)、橢圓弧形環繞 (elliptical arc close) 以及橢圓形。 * 內部樣式:實體、圖樣、網底填充 (hatch),以及空白。 * 文字元件:文字、限制文字 (restricted text),以及附加文字 (append text)。文字字串之內的屬性變更無法辨認。 * 多邊形集。 限制 以下的 CGM 圖形基本元素和屬性元件都不支援: * 儲存格陣列 (cell array)。 * 字距。 * 字元方向。 * 字元集指標 (只使用單字元組集)。 * 內部樣式 (只支援空心和實心)。 * 圖樣表格。 * 圖樣大小。 * 不支援梯度與點陣圖填充圖樣。 * 轉取時無法保留刪除線和底線等屬性。CGM 並不支援這些文字樣式,除非來源應用程式使用繪製直線模擬這些樣式,否則將無法保留這些特性。 轉取程式選項 MS Draw 的「轉取圖片」指令中,有可讓您控制如何轉換可縮放字型和色彩的選項。MS Draw 的線上輔助說明中,有這些選項的詳盡說明。 HPGL 這個轉取程式支援 "HP-GL/2 參考手冊" 中所明示的 HP-GL/2 指令。為了確保相容性,請將您的應用程式配置成可產生 7595 繪圖機適用指令的設定。轉取程式假設繪圖機使用下列色筆組: 色筆編號 色彩 筆 1 黑色 筆 2 紅色 筆 3 綠色 筆 4 黃色 筆 5 藍色 筆 6 紫色 筆 7 青色 筆 8 橙色 PIC 這個轉取程式支援 Lotus 1-2-3 及 Borland Quattro Pro 所建立的 PIC 檔案。 它不支援 Micrografx PIC 或 Draw Plus PIC。 AutoCAD ADI 二元繪圖機檔案 Word for Windows 5.0 AutoCAD ADI 圖形轉取程式 ADIMPORT.FLT,透過 ADI (Autodesk Device Interface) 支援所有版本的 AutoCAD (最高到第 11 版) 所輸出的二元繪圖機檔案。 ADI 二元圖形轉取程式支援指定檢視點 (viewpoint) 的三次元 AutoCAD 圖形。 由於 ADI 檔案只參考色筆編號,並不指定色筆顏色,所有色筆均被假定為黑色。因此,所有影像將只剩下黑白兩色。 從 AutoCAD 轉存 ADI 二元圖形 配置轉存設定的步驟 在 AutoCAD 中,您可以一次配置一部色筆繪圖機和一個印表繪圖機週邊設備。請依下列步驟配置 ADI 繪圖機: 1. 從 AutoCAD 主畫面中,選取選項 5 (Configure AutoCAD)。 2. 從 Configuration 功能表中,選取選項 5 (Configure Plotter)。 3. 選取 "ADI Plotter"。 4. 選取 "Output Format" 選項 1 (Binary file)。 5. 對於後續的問題,您可以接受預設設定,或者查閱印表機使用手冊,將您的繪圖機最佳化。離開 AutoCAD 時,如果系統詢問您是否保留此組態設定時,請務必選擇「是」。 轉存的步驟 配置好 AutoCAD ADI 繪圖機介面之後,可以利用下面兩種方式轉存圖形: * 您可以將既有的繪圖檔案繪製 (plot) 到某個檔案中,請從 AutoCAD 主功能表中選取選項 3 "Plot a drawing"。當系統要求您指定檔名時,請記得加上一個 .ADI 副檔名 (預設的副檔名是 .PLT)。 * 您可以從 AutoCAD Drawing Editor 中輸入 PLOT 指令,將目前的圖形繪製到檔案中。當系統要求您指定檔名時,請記得加上一個 .ADI 副檔名 (預設的副檔名是 .PLT)。 這些 AutoCAD 影像現在已經可以插入 Word 文件中了。 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-09-20 19:51:38 IP:218.163.xxx.xxx 未訂閱
http://community.borland.com/article/0,1410,10194,00.html 1.執行前必須先執行AutoCAD程式,並開一的空白檔案,    否則執行製圖時,會出現錯誤~ 2.引用單元:uses comobj,ActiveX; 3.AutoCAD版本不同,注意設定方式:  
 
  try
      Acad := GetActiveOleObject('AutoCAD.Application.15');//AutoCAd 2000
  except
       Acad:= CreateOleObject('AutoCad.Application.15');//AutoCAd 2000
  end;
4.其他指令使用方式,請參閱AutoCAD幫助檔「acadauto.hlp」(ActiveX與VBA參考手冊) 網海無涯,學無止境! 發表人 - qoo1234 於 2003/09/20 19:57:53
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-09-20 21:44:16 IP:218.163.xxx.xxx 未訂閱
 
//繪製矩形圖(控制任意位置,請自行修改p1[0]、p1[1]、p1[2]三個值)    procedure TForm1.Button3Click(Sender: TObject);
var
 p1: OleVariant;
 Mspace, Acad : OleVariant;
begin
  p1 := VarArrayCreate([0, 2], VT_R8);      //Origin 變異(倍精度的三元素陣列);只可輸入
  //3D WCS 座標值,指定矩形體的原點。
  //這個座標代表物件邊界框的中心點,不是角點。      //改變下列p1[0]、p1[1]、p1[2]三個值即可控制位置      p1[0] := 12.0; p1[1] := 14.0; p1[2] := 0.0; // Origin        = 12,14,0
  try
    Acad := GetActiveOleObject('AutoCAD.Application.15');
  except
    Acad:= CreateOleObject('AutoCad.Application.15');
  end;
  Acad.visible:= True;
  Mspace := Acad.ActiveDocument.ModelSpace;     // 矩形體的(長=5,寬=3,高=2)
 //RetVal(傳回值)= object.AddBox(Origin, Length, Width, Height)      MSpace.AddBox(VarArrayRef(p1), 5, 3, 36).Update;
end;
網海無涯,學無止境! 發表人 - qoo1234 於 2003/09/20 21:45:30
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-09-20 21:54:54 IP:218.163.xxx.xxx 未訂閱
引言: 3、對於這個圖片可以進行動態的縮放,會不會影響標注的位置?
1.不會影響標注的位置    2.動態的縮放    ZoomPickWindow 需要使用者點選兩個點。這兩點選點即會成為縮放窗選。    縮放作用中圖面至兩點定義的視窗    Sub Ch3_ZoomWindow()
    ' ZoomWindow
    MsgBox "Perform a ZoomWindow with:" & vbCrLf & _
           "1.3, 7.8, 0" & vbCrLf & _
           "13.7, -2.6, 0", , "ZoomWindow"
           
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
    point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
    ThisDrawing.Application.ZoomWindow point1, point2
    ' ZoomPickWindow
    MsgBox "Perform a ZoomPickWindow", , "ZoomPickWindow"        
    ThisDrawing.Application.ZoomPickWindow    End Sub
..使用方式請自行更改為delphi方式
 
網海無涯,學無止境! 發表人 - qoo1234 於 2003/09/20 21:55:56
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-09-21 07:59:51 IP:61.155.xxx.xxx 未訂閱
多谢qoo1234 兄 多谢jackkcg 兄 对于这方面的知识,小弟是一片空白。待小弟试验以后再向各位讨教! 谢谢!
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-09-21 08:57:48 IP:218.163.xxx.xxx 未訂閱
引言: 多谢qoo1234 兄 多谢jackkcg 兄 对于这方面的知识,小弟是一片空白。待小弟试验以后再向各位讨教! 谢谢!
我也是不會,昨天回覆你的問題臨時學的~一起爬 < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯,學無止境! 發表人 - qoo1234 於 2003/09/21 09:30:45
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-09-21 10:03:08 IP:61.155.xxx.xxx 未訂閱
各位兄长:      我不是想操作AUTOCAD,只不过是想将CAD的*.DWG的图形用控件形式[具体用什么控件,我不知道哦]显示在 > 谢谢!
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-09-21 10:14:34 IP:218.163.xxx.xxx 未訂閱
引言: 各位兄长: 我不是想操作AUTOCAD,只不过是想将CAD的*.DWG的图形用控件形式[具体用什么控件,我不知道哦]显示在 > 谢谢! < face="Verdana, Arial, Helvetica"> 你要作類似網路電子地圖的東西~~ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯,學無止境!
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-09-21 11:25:44 IP:61.155.xxx.xxx 未訂閱
qoo1234 兄: 基本和您说的相同,不过我需要使用autocad的dwg图形,并且可以简单的修改! 这就难倒我了,我以前也没有开发过cad方面的东西哦!< > 还请各位帮帮忙哦!< >
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-09-21 11:49:23 IP:218.163.xxx.xxx 未訂閱
引言: qoo1234 兄: 基本和您说的相同,不过我需要使用autocad的dwg图形,并且可以简单的修改! 这就难倒我了,我以前也没有开发过cad方面的东西哦!< > 还请各位帮帮忙哦!< >
相關資訊參考看看: Autodesk MapGuide(TM) Viewer ActiveX Control http://www.autodesk.com.cn/adsk/servlet/index?siteID=1170359&id=3317447 網海無涯,學無止境!
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-09-21 14:00:41 IP:61.64.xxx.xxx 未訂閱
http://www.cstsoft.com.cn/china/kadmos_dxfreader.htm http://cg.cs.tu-berlin.de/~ki/3del_1419_api_none.html 或這個日本人寫的玩意 AutoCAD - vcl 我記的這是免費的最新版本1.81 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37708 使用的方式 你就自己去試看看了 是否要以其他的 activex Excel VBA WORD 整合OLE合使用 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#15 引用回覆 回覆 發表時間:2003-09-22 16:54:07 IP:61.155.xxx.xxx 未訂閱
各位兄长: 你们提供一些控件都是用来浏览dwg的,好像不能用来操作dwg的图形; 请问哪儿有能操作dwg的相关控件呀! 还有jackkcg兄提供一个日本人写的vcl,但是我在这个人的网站上找到这个vcl控件操作手册是日文,没法看哦! 谢谢!
系統時間:2024-05-19 10:03:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!