第一篇：在CATIA中批量創建點和曲線

一、查找catia安裝目錄下" />intel_acodecommandGSDPointSplineLoftFromExcel.xls文件。打開文件GSDPointSplineLoftFromExcel.xls，界面如下：

二、在StartCurve和EndCurve之間的一組數值是點的坐標值，每一組點連成一條樣條曲線。每一行的三個數值分別代表X、Y、Z坐標。同時可以畫出若干樣條曲線。如果需要，可以用這些樣條曲線創建放樣曲面。用每一對StartLoft、EndLoft之間的樣條曲線創建一個放樣曲面。

三、打開CATIA V5，進入Generative Shape Design，使要在其中創建點和樣條曲線的文件處于激活狀態，這個文件必須是CATPart文件，并且至少包含一個OpenBody：

四、運行宏程序，步驟如下：

1、單擊菜單“工具”à“宏”à“宏”：

2、顯示宏對話框后，執行宏 Feuil1.Main

3、對話框彈出后：選1生成點 選2生成點和曲線

選3生成點、曲線和loft曲面

4、選擇2，單擊“執行”。運行結果如下：

5、選擇3，單擊“執行”。運行結果如下：

在實際的工作中，用戶的原始坐標數據往往不是EXCEL格式，需要轉換成EXCEL格式，填充坐標值區域，用來生成點和曲線。

用戶的原始坐標數據通常用文本文件等格式存放，例如：

對上述問題，請按如下步驟進行操作：

一、這種格式的數據不能在EXCEL里直接使用，要把這些數據導入EXCEL，用EXCEL打開該文件，出現如下對話框：

二、對于文件類型，選擇“分隔符號”，而非“固定寬度”：

三、然后單擊“下一步”，選擇空格（如果是用其他分隔符分隔坐標值，選擇相應的分隔符）：

四、單擊“完成”，數據即導入EXCEL：

五、共有十行數據，要把它們粘貼到文件GSD_PointSplineLoftFromExcel.xls，先在該文件中準備十行空間。選擇四行表格，單擊菜單“插入”à“行”，即可插入四行表格：

六、選擇兩行表格，單擊菜單“插入”à“行”，又插入兩行表格：

七、即得到十行表格，以容納十行坐標值：

八、將原始數據復制后，粘貼到這十行三列表格中，如果沒有其他數據輸入，將下面兩段多余的數據刪除，得到如下結果：

九、運行程序，畫出樣條曲線：

第二篇：catia如何創建空心文字及三維字體

如何在catia中生成空心字體以及成為三維文字

第一步也是最重要的一步，進入選項/DXF修改導出模式為“圖形”

第二步新建一個工程圖紙

標準選擇ISO，選其他的可能導致文本字體不夠用

點擊文本命令

選擇字體為仿宋：

選擇點擊圖紙上的任意插入點輸入文本：

另存為dwf或dwg

打開剛剛保存的DWF文件

復制粘貼到所需圖紙中的某一平面草圖內

拉伸

或者將文本線型投影到所需面上，若曲面復雜應點擊取消近接解法才能成功投影

第三篇：用Excel表中數據在mapinfo中創建點

Mapinfo應用方法

1、將你所需要導入的經緯度的信息（包括：地點名稱、經度、緯度三項）做在一個Excel表格中，如下圖所示：

2、選中第一列的漢字部分，點擊右鍵，選擇“設置單元格格式”，在彈出的對話框中的第一項“數字”分類中有一項“文本”，選擇后點擊確定；

3、選中第二、三列表示經緯度的數字部分，點擊右鍵，選擇“設置單元格格式”，在彈出的對話框中的第一項“數字”分類中有一項“數值”，選擇后將后面的小數位數改為7位（為了達到更高的精確度），然后點擊確定；如下圖所示：

4、選中所有內容部分，如下圖所示：

然后點擊文件中的“另存為”選項，在“保存類型”的下拉選擇項中選擇 “DBF 4(dBASE Ⅳ)選項，如下圖所示：

然后點擊保存就可以了；注意：保存時會彈出一對話框，選擇“是”就可以了。

5、打開mapinfo軟件，在“快速啟動”對話框中選擇“打開表”選項，然后點擊“打開”，將打開的目錄找到第四步驟中保存的文件夾，將“文件類型”下拉選擇項中選擇“dBASE DBF(*.dbf)選項，然后點擊打開；如下圖所示：

在彈出的“dBASE DBF 信息”對話框中將“文件字符集[F]：”下拉菜單中，選擇最后一項“No character set conversion”，然后點擊確定；如下圖所示：

6、通過上步的操作你會在一個彈出的窗口中看到你剛才Excel表格中的信息，然后在工具條中點擊“表”選項中的“創建點”選項，如下圖所示：

然后在彈出的窗口中可以編輯你所喜歡的圖標的樣式（通過“使用符號”選項）如下圖：

然后分別點擊“確定”就好了。

7、關閉mapinfo文件，然后進入你保存的目錄下，你會發現多了幾個文件，雙擊其中一個“MapInfo Table”格式的文件打開就可以了，如下圖：

然后你就可以看到你剛才導入的那些地點就會以圖標的樣式顯示出來了，如下圖：

8、如果你有地理環境的底圖（這個可能需要購買，相當的貴，當初我們廣西的花了一百多萬），你可以打開就可以了，然后你就可以看到你創建的各個點分布在地圖上了。如下圖：（看到中間的小紅三角符號沒有？）

注意：由于經緯度和地圖可能存在一定的誤差，所以顯示出來的結果可能會與實際不符合。

9、如果想再進一步編輯的話在MapInfo里面選擇需要編輯的圖層進行編輯就可以了。

注意：文中圖片信息不要擴展出去。若有問題，再聯系我！

第四篇：CATIA教程-零件設計-創建凸臺

創建凸臺

創建凸臺是指在一個或兩個方向上拉伸輪廓或曲面。應用程序允許您選擇創建限制以及拉伸方向。

此任務說明如何使用閉合輪廓、“尺寸(Dimension)”和“鏡像范圍(Mirrored extent)”選項創建基本凸臺。

打開 Pad1.CATPart(已鏈接到下載網址)文檔。

1.選擇 Sketch.1 作為要拉伸的輪廓。

2.單擊“凸臺(Pad)”。

彈出“凸臺定義(Pad Definition)”對話框，且可通過應用程序預覽要創建的凸臺。

3.在“長度(Length)”字段中輸入 40 以增加長度值。

可以通過拖動 LIM1 或 LIM2 操作器增加或減少長度值。長度值不能超過 1 000 000 毫米。4.（可選）單擊“預覽(Preview)”查看結果。

5.單擊“確定(OK)”。

隨即創建凸臺。結構樹顯示已創建凸臺。

6.關于輪廓

選擇輪廓時，請記住：

可以使用在“草圖編輯器(Sketcher)”中繪制的輪廓，或在“創成式外形設計(Generative Shape Design)”工作臺中創建的平面幾何元素（直線除外）。

也可以選擇構成草圖的不同元素。有關更多信息，請參見使用草圖的子元素。如果在先前未定義輪廓的情況下單擊“凸臺(Pad)”，只需單擊對話框中提供的

圖標。然后只需選擇草圖平面以進入草圖編輯器并創建所需的輪廓。

只要單擊，“運行命令(Running Commands)”窗口就會立即出現，顯示已運行命令的歷史記錄。此信息窗口在已使用很多命令（例如在復雜方案中）時尤為有用。

也可以從包括多個輪廓的草圖創建凸臺。這些輪廓不能相交。在下面的示例中，要拉伸的草圖由一個正方形和一個圓定義。在此草圖上應用“凸臺(Pad)”命令可得到一個腔：

預覽 結果

可以選擇創成式外形設計曲面、非平面面，甚至 CATIA V4 曲面。有關更多信息，請參考從曲面創建凸臺或凹槽。

默認情況下，如果拉伸輪廓，應用程序將拉伸用于創建輪廓的平面的法線。要了解如何更改拉伸方向，請參考創建不垂直于草圖平面的凸臺。

因為沒有默認方向，所以拉伸曲面（例如，在“創成式外形設計(Generative Shape Design)”工作臺中創建的曲面）時，需要選擇一個定義方向的元素。

更改輪廓

請注意，如果對所選的輪廓不滿意，可以進行以下操作：

單擊“選擇(Selection)”字段并選擇其他草圖。單擊“草圖(Sketch)”現，以便使您完成設計。

圖。

線。

創建提取(Create Extract)：從非連接子元素生成單獨的元素。請參見提取幾何圖形。

如果已選擇在混合設計環境中工作，則通過上面提到的上下文命令，隨時創建幾何元素

并將其聚集到基于草圖的特征中。

創建接合(Create Join)：接合曲面或曲線。請參見接合曲面或曲使用“選擇(Selection)”字段中提供的任一創建上下文命令：

創建草圖(Create Sketch)：選擇任意平面后啟動“草圖編輯器

(Sketcher)”，并按照《草圖編輯器用戶指南》中介紹的方法繪制所需輪廓的草

：此操作將打開“草圖編輯器(Sketcher)”，然后可以編輯輪廓。完成修改后，只需退出草圖編輯器。“凸臺(Pad)”對話框再次出

限制

您將注意到，默認情況下，應用程序指定凸臺的長度（“類型 = 尺寸(Type= Dimension)”選項）。但您也可以使用下面的選項：

面。直到下一個 直到最后 直到平面 直到曲面

如果設置了“直到平面(Up to Plane)”或“直到曲面(Up to Surface)”選項，則“限制(Limit)”字段有用于創建可能需要的新平面或曲面的上下文命令：

創建平面(Create Plane)：請參見創建平面。

XY平面(XY Plane)：當前坐標系原點（0，0，0）的 XY平面成為限制。YZ平面(YZ Plane)：當前坐標系原點（0，0，0）的 YZ平面成為限制。ZX平面(ZX Plane)：當前坐標系原點（0，0，0）的 ZX平面成為限制。創建接合(Create Join)：接合曲面或曲線，請參見接合曲面或曲線。創建外插延伸(Create Extrapol)：外插延伸曲面邊界。請參見外插延伸曲如果創建以上任一元素，應用程序將在字段前面顯示相應的圖標。單擊此圖標即可編輯元素。

如果已選擇在混合設計環境中工作，則通過上面提到的上下文命令，隨時創建元素并聚集到基于草圖的特征中。

選項

可以使用以下凸臺創建選項： 厚(Thick)：在輪廓的兩側增加厚度。若要了解如何使用此選項，請參考創建細長實體。

反轉邊(Reverse side)：僅適用于開放輪廓。您可以通過此選項選擇要拉伸輪廓的哪一側。設計細長實體時，此選項沒有意義。

鏡像范圍(Mirrored extent)：使用同一長度值反向拉伸輪廓。

如果希望定義此方向的另一個長度，不必單擊“鏡像范圍(Mirrored extent)”按鈕，只需單擊“更多(More)”按鈕并定義第二個限制。

關于凸臺的幾點說明

請記住以下幾點：

在單擊“凸臺(Pad)”之前，請確保要使用的輪廓與自身不相切。

如果現有幾何圖形可以修剪凸臺，則應用程序允許您從開放輪廓創建凸臺。已從開放輪廓創建了以下凸臺，該輪廓的兩個端點拉伸到六邊形內側的垂直面上。用于“限制1(Limit 1)”的選項為“直到下一個(Up to next)”。六邊形內側的下表面隨后停止拉伸。相反，“直到下一個(Up to next)”選項不能應用于“限制2(Limit2)”。

預覽

結果

但是，如果應用程序可以在輪廓的兩個端點之間生成相交，則它將產生一個如下所示的凸臺。所選輪廓為圓弧。雖然現有幾何圖形不能修剪要創建的凸臺，但應用程序仍成功生成了凸臺。

輪廓

結果

第五篇：WORD中批量轉換中英文標點符號

WORD中批量轉換中英文標點符號

先記下一個東西：全角情況下，WORD中的空格為方格形狀；半角情況下，空格為小黑點形狀。

打開word,“工具”→“宏”→“Visual Basic 編輯器”,在主窗體復制以下內容后粘貼,保存.關閉編輯器,在“工具”→“宏”→“宏”里調用.Sub ToggleInterpunction()'中英文標點互換

Dim ChineseInterpunction()As Variant, EnglishInterpunction()As Variant Dim myArray1()As Variant, myArray2()As Variant, strFind As String, strRep As String Dim msgResult As VbMsgBoxResult, N As Byte '定義一個中文標點的數組對象

ChineseInterpunction = Array(“、”,“?！? “，”, “；”, “：”, “？”, “！”, “……”, “—”, “～”, “（”, “）”, “《”, “》”)'定義一個英文標點的數組對象

EnglishInterpunction = Array(“,”,“.”, “,”, “;”, “:”, “?”, “!”, “…”, “-”, “~”, “(”, “)”, “<”, “>”)'提示用戶交互的MSGBOX對話框

msgResult = MsgBox(“您想中英標點互換嗎?按Y將中文標點轉為英文標點,按N將英文標點轉為中文標點!”, vbYesNoCancel)Select Case msgResult Case vbCancel Exit Sub '如果用戶選擇了取消按鈕,則退出程序運行

Case vbYes '如果用戶選擇了YES,則將中文標點轉換為英文標點 myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = ““(*)”” strRep = “"”1“"” Case vbNo '如果用戶選擇了NO,則將英文標點轉換為中文標點 myArray1 = EnglishInterpunction myArray2 = ChineseInterpunction strFind = “"”(*)“"” strRep = ““1”” End Select Application.ScreenUpdating = False '關閉屏幕更新

For N = 0 To UBound(ChineseInterpunction)'從數組的下標到上標間作一個循環 With ActiveDocument.Content.Find.ClearFormatting '不限定查找格式.MatchWildcards = False '不使用通配符 '查找相應的英文標點,替換為對應的中文標點

.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll End With Next With ActiveDocument.Content.Find.ClearFormatting '不限定查找格式.MatchWildcards = True '使用通配符

.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll End With Application.ScreenUpdating = True '恢復屏幕更新 End Sub