第一篇:在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