catia齿轮宏程序,catia齿轮宏程序_Catia宏程序
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Add("Part")
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("零件几何体")
Set sketches1 = body1.Sketches
Set originElements1 = part1.OriginElements
Set reference1 = originElements1.PlaneXY
Set sketch1 = sketches1.Add(reference1)
Dim arrayOfVariantOfDouble1(8)arrayOfVariantOfDouble1(0) = 0.000000arrayOfVariantOfDouble1(1) = 0.000000arrayOfVariantOfDouble1(2) = 0.000000arrayOfVariantOfDouble1(3) = 1.000000 arrayOfVariantOfDouble1(4) = 0.000000arrayOfVariantOfDouble1(5) = 0.000000arrayOfVariantOfDouble1(6) = 0.000000arrayOfVariantOfDouble1(7) = 1.000000arrayOfVariantOfDouble1(8) = 0.000000sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1
part1.InWorkObject = sketch1
Set factory2D1 = sketch1.OpenEdition()
Set geometricElements1 = sketch1.GeometricElements
Set axis2D1 = geometricElements1.Item("绝对轴")
Set line2D1 = axis2D1.GetItem("横向")
line2D1.ReportName = 1
Set line2D2 = axis2D1.GetItem("纵向")
line2D2.ReportName = 2
Set circle2D1 = factory2D1.CreateClosedCircle(0.000000, 0.000000, 8.000000)
Set point2D1 = axis2D1.GetItem("原点")
circle2D1.CenterPoint = point2D1
circle2D1.ReportName = 3
sketch1.CloseEdition
part1.InWorkObject = sketch1
part1.Update
Set shapeFactory1 = part1.ShapeFactory
Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)
Set limit1 = pad1.FirstLimit
Set length1 = limit1.Dimension
length1.Value = 90.000000
part1.Update
Set reference2 = part1.CreateReferenceFromName("")
Set chamfer1 = shapeFactory1.AddNewChamfer(reference2, catTangencyChamfer, catLengthAngleChamfer, catNoReverseChamfer, 1.000000, 45.000000)
Set reference3 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Pad.1;2);None:();Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", pad1)
chamfer1.AddElementToChamfer reference3
chamfer1.Mode = catLengthAngleChamfer
chamfer1.Propagation = catTangencyChamfer
chamfer1.Orientation = catNoReverseChamfer
Set parameters1 = part1.Parameters
Set length2 = parameters1.Item("Part1\零件几何体\倒角.1\倒角色带.1\长度 1")
length2.Value = 3.000000
Set parameters2 = part1.Parameters
Set angle1 = parameters2.Item("Part1\零件几何体\倒角.1\倒角色带.1\角度")
angle1.Value = 3.000000
chamfer1.Orientation = catReverseChamfer
part1.Update
Set reference4 = part1.CreateReferenceFromName("")
Set constRadEdgeFillet1 = shapeFactory1.AddNewSolidEdgeFilletWithConstantRadius(reference4, catTangencyFilletEdgePropagation, 5.000000)
Set specsAndGeomWindow1 = CATIA.ActiveWindow
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Set viewpoint3D1 = viewer3D1.Viewpoint3D
Set parameters3 = part1.Parameters
Set length3 = parameters3.Item("Part1\零件几何体\倒圆角.1\CstEdgeRibbon.1\半径")
length3.Value = 2.000000
Set viewpoint3D1 = viewer3D1.Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D
Set reference5 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;1);None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", chamfer1)
constRadEdgeFillet1.AddObjectToFillet reference5
constRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation
part1.Update
Set partDocument1 = CATIA.ActiveDocument
partDocument1.SaveAs "C:\Users\Administrator\Pictures\Axingdaozhu1690.CATPart"
specsAndGeomWindow1.Close
Set partDocument1 = CATIA.ActiveDocument
partDocument1.Close
End Sub
哪位大神能帮我看看这段程序,这段程序画了一个导柱,我想知道是哪两个变量控制了导柱的直径和它的长度?????
catia齿轮宏程序,catia齿轮宏程序_Catia宏程序相关推荐
- catia齿轮宏程序_Catia宏程序
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 Language="VBSCRIPT" Sub CATMain() Set documents1 = CATIA.Documents ...
- 如何用C语言改变宏定义的大小,C语言中宏定义使用的小细节
C语言中宏定义使用的小细节 #pragma#pragma 预处理指令详解 在所有的预处理指令中,#Pragma 指令可能是最复杂的了,它的作用是设定编译器的状态或者是指示编译器完成一些特定的动作.#p ...
- c语言如何快速看懂别人的程序,探究如何快速看懂单片机程序方法
在现实中,我相信有很多刚刚接触单片机的同学,简直是无从下手,打开一个程序,更会被复杂的结构和密密麻麻的代码吓到,产生退缩的想法,这篇文章带你了解一下单片机程序. 我对单片机的总结:"单片机其 ...
- c/c++宏函数的定义与使用(宏定义函数)(macro definition)
文章目录 为什么要使用宏函数? 什么是宏 如何使用宏 宏的定义 不带参数的宏 带参数的宏(假参数,不是真正的参数,只是替换而已) 原理 对了,如果宏函数与函数名称相同,优先使用宏定义函数 为什么要使用 ...
- mysql宏参数_C语言带参数的宏定义
C语言允许宏带有参数.在宏定义中的参数称为"形式参数",在宏调用中的参数称为"实际参数",这点和函数有些类似. 对带参数的宏,在展开过程中不仅要进行字符串替换, ...
- VS2008环境下开发的某些程序在其他机器运行提示“由于应用程序配置不正确,应用程序未能启动”的问题(IIS)...
比较全的有关vs2008部署问题集(1): http://blog.csdn.net/buhuizheyangba/article/details/7220598 比较全的有关vs2008部署问题集( ...
- c语言里宏定义算变量嘛,C语言宏定义的一些总结
较大的C语言项目都会用大量的宏定义来组织代码,比较经典的代码就是Linux Kernel的头文件中用的宏定义.看起来宏展开就是做个替换而已,其实里面有比较复杂的规则,有关宏展开的语法规则此小结力图整理 ...
- 魔方(13)齿轮魔方、五阶齿轮魔方(待续)
目录 齿轮魔方 1,魔方三要素 2,齿轮分析 3,复原方法 五阶齿轮魔方 1,魔方三要素 2,复原方法(V1) (1)复原角块和侧边区中棱 (2)复原中心区棱块 (3)复原中心区角块 (4)复原侧边区 ...
- C++ 程序编译过程:从代码到程序
在大学课堂上学习 C++ 时,老师并没有过多涉猎 C++ 语法背后的知识.也就是说,初学 C++ 时,哪怕写出了代码,我也并不知道从代码到程序的过程中究竟发生了什么.我也曾尝试了解,但作为初学者,面对 ...
最新文章
- Java return 关键字的使用
- MySQL 数据库时区设置方法,“The server time zone value ‘�й���ʱ��‘ is unrecognized or represents ...” 问题解决
- MySQL查询所有字段
- C++中关于配置文件的问题
- 职称计算机应用能力考试模拟题,2016年职称计算机考试模拟题
- 计算机网络实验中S1是啥意思,某计算机A需要访问域名www.yy.com,它首先向本域DNS服务器S1查询,.._简答题试题答案...
- 关于jTopo的引用
- 【视频】利用IDEA 创建 spring mvc项目
- 大力出奇迹,揭秘昇腾CANN的AI超能力
- JVM各个组成部分和其基本功能
- mysql cluster 乱码_Mysql中文乱码问题完美解决方案
- CCF201604试题
- 安卓application生命周期的onCreate、onLowMemory、onTrimMemory、onConfigurationChanged
- 【转】php json_encode中文为空的解决办法
- LeetCode之Rectangle Overlap(Kotlin)
- python误差修正模型_在Python中实现Johansen Test for Cointegration
- 从零打造的机械(智能)键盘,超级喜欢,IT人最爱
- 苹果ipad服务器无响应怎么办,苹果iPad死机怎么办?几种处理iPad使用过程中死机的方法...
- WinSCP显示隐藏文件
- VGA和HDMI传输距离是否有要求?