CATIA V5 Automation Detailed Steps基于VB的catia二次开发代码Word下载.docx
- 文档编号:18500205
- 上传时间:2022-12-17
- 格式:DOCX
- 页数:20
- 大小:19.13KB
CATIA V5 Automation Detailed Steps基于VB的catia二次开发代码Word下载.docx
《CATIA V5 Automation Detailed Steps基于VB的catia二次开发代码Word下载.docx》由会员分享,可在线阅读,更多相关《CATIA V5 Automation Detailed Steps基于VB的catia二次开发代码Word下载.docx(20页珍藏版)》请在冰豆网上搜索。
'
OpeningBolt.CATPart
DimmyDirAsString
myDir=App.Path
SetmyDoc=CATIA.Documents.Open(myDir&
"
\Bolt.CATPart"
DimmyViewer3AsViewer3D
DimmyViewPointAsViewpoint3D
GettingtheactiveViewer
SetmyViewer3=CATIA.ActiveWindow.ActiveViewer
myViewer3.RenderingMode=catRenderShading
DimmyCam3dAsCamera3D
DimiAsInteger
Displaythenumberofdefinedcameras.
MsgBoxmyDoc.Cameras.Count
Scaningallthecamerasofthedocument
Fori=1TomyDoc.Cameras.Count
SetmyCam3d=myDoc.Cameras.Item(i)
'
ModifyingtheViewpoint3Doftheactiveviewer
myViewer3.Viewpoint3D=myCam3d.Viewpoint3D
myViewer3.Reframe
myViewer3.ZoomIn
myViewer3.Update
MsgBoxmyCam3d.Name
Next
Selectingthefrontcamera
SetmyCam3d=myDoc.Cameras.Item("
*front"
myViewer3.Viewpoint3D=myCam3d.Viewpoint3D
Savingthedocument
IfMsgBox("
SaveBolt2"
vbOKCancel)=vbOKThen
OnErrorResumeNext
Kill(myDir&
\Bolt2.CATPart"
CallmyDoc.SaveAs(myDir&
CallmyDoc.Close
OnErrorGoTo0
EndSub
PartDesign.vbp
CreatinganewPart
DimMyDocAsPartDocument
SetMyDoc=CATIA.Documents.Add("
Part"
GettingthedefaultBodycalled"
MechanicalTool.1"
(internalname)
DimmyBodyAsBody
SetmyBody=MyDoc.Part.Bodies.Item("
Activatingthebodyasthe"
InWorkObject"
MyDoc.Part.InWorkObject=myBody
CreatingareferenceonXYplane
DimReferencePlaneAsReference
SetReferencePlane=MyDoc.Part.CreateReferenceFromGeometry(MyDoc.Part.OriginElements.PlaneXY)
CreatingmySketch1onXYPlane
DimmySketch1AsSketch
SetmySketch1=myBody.Sketches.Add(ReferencePlane)
OpeningmySketch1andgettingthefactory
DimMyFactory1AsFactory2D
SetMyFactory1=mySketch1.OpenEdition()
Creating4lines
Diml1AsLine2D
Diml2AsLine2D
Diml3AsLine2D
Diml4AsLine2D
Setl1=MyFactory1.CreateLine(10#,10#,10#,30#)
Setl2=MyFactory1.CreateLine(10#,30#,40#,30#)
Setl3=MyFactory1.CreateLine(40#,30#,40#,10#)
Setl4=MyFactory1.CreateLine(40#,10#,10#,10#)
mySketch1.CloseEdition
CreatingmySketch2onXYPlane
DimmySketch2AsSketch
SetmySketch2=myBody.Sketches.Add(ReferencePlane)
OpeningmySketch2andgettingthefactory
DimMyFactory2AsFactory2D
SetMyFactory2=mySketch2.OpenEdition()
Creating1Circle
Dimc1AsCircle2D
Setc1=MyFactory2.CreateClosedCircle(40#,30#,10#)
mySketch2.CloseEdition
GettingtheshapeFactory
DimMyFactAsShapeFactory
SetMyFact=MyDoc.Part.ShapeFactory
Creatingapad
DimmyPadAsPad
SetmyPad=MyFact.AddNewPad(mySketch1,20)
CreatingaPocket
DimmyPokAsPocket
SetmyPok=MyFact.AddNewPocket(mySketch2,-20)
MyDoc.Part.Update
Reframingthewindowonthepart
CATIA.ActiveWindow.ActiveViewer.Reframe
ShapeDesign.vbp
DimmyPartDocumentAsPartDocument
SetmyPartDocument=CATIA.Documents.Add("
DimmyPartAsPart
SetmyPart=myPartDocument.Part
CreatinganOpen_bodyifnotalreadyexisting
DimmyHybridBodyAsHybridBody
SetmyHybridBody=myPart.HybridBodies.Item("
Open_body.1"
IfmyHybridBodyIsNothingThen
SetmyHybridBody=myPart.HybridBodies.Add
DimMyHSFactAsHybridShapeFactory
SetMyHSFact=myPart.HybridShapeFactory
myPart.Update
Creating6Points
DimHyPt1AsHybridShapePointCoord
DimHyPt2AsHybridShapePointCoord
DimHyPt3AsHybridShapePointCoord
DimHyPt4AsHybridShapePointCoord
DimHyPt5AsHybridShapePointCoord
DimHyPt6AsHybridShapePointCoord
SetHyPt1=MyHSFact.AddNewPointCoord(10#,60#,30#)
SetHyPt2=MyHSFact.AddNewPointCoord(70#,75#,35#)
SetHyPt3=MyHSFact.AddNewPointCoord(100#,80#,30#)
SetHyPt4=MyHSFact.AddNewPointCoord(100#,80#,40#)
SetHyPt5=MyHSFact.AddNewPointCoord(95#,20#,45#)
SetHyPt6=MyHSFact.AddNewPointCoord(100#,10#,50#)
Creatingreferencesonthepoints
DimR1AsReference
DimR2AsReference
DimR3AsReference
DimR4AsReference
DimR5AsReference
DimR6AsReference
SetR1=myPart.CreateReferenceFromGeometry(HyPt1)
SetR2=myPart.CreateReferenceFromGeometry(HyPt2)
SetR3=myPart.CreateReferenceFromGeometry(HyPt3)
SetR4=myPart.CreateReferenceFromGeometry(HyPt4)
SetR5=myPart.CreateReferenceFromGeometry(HyPt5)
SetR6=myPart.CreateReferenceFromGeometry(HyPt6)
DimmyControlPointAsHybridShapeControlPoint
Wecanreusethesamevariable:
myControlPoint'
CreatingfirstSpline
DimHyLine1AsHybridShapeSpline
SetHyLine1=MyHSFact.AddNewSpline
HyLine1.SetSplineType0
HyLine1.SetClosing0
Addingthecontrolpoints
SetmyControlPoint=MyHSFact.AddNewControlPoint(R1)
HyLine1.AddControlPointmyControlPoint
SetmyControlPoint=MyHSFact.AddNewControlPoint(R2)
SetmyControlPoint=MyHSFact.AddNewControlPoint(R3)
CreatingsecondSpline
DimHyLine2AsHybridShapeSpline
SetHyLine2=MyHSFact.AddNewSpline
CallHyLine2.SetSplineType(0)
CallHyLine2.SetClosing(0)
SetmyControlPoint=MyHSFact.AddNewControlPoint(R4)
HyLine2.AddControlPointmyControlPoint
SetmyControlPoint=MyHSFact.AddNewControlPoint(R5)
SetmyControlPoint=MyHSFact.AddNewControlPoint(R6)
DimRef1AsReference
DimRef2AsReference
CreatingaSweep
SetRef1=myPart.CreateReferenceFromGeometry(HyLine1)
SetRef2=myPart.CreateReferenceFromGeometry(HyLine2)
DimHybridShapeSweepExplicit1AsHybridShapeSweepExplicit
SetHybridShapeSweepExplicit1=MyHSFact.AddNewSweepExplicit(Ref1,Ref2)
myHybridBody.AppendHybridShapeHyLine1
myHybridBody.AppendHybridShapeHyLine2
myHybridBody.AppendHybridShapeHybridShapeSweepExplicit1
Creatinga3DPoint
DimHyPt7AsHybridShapePointCoord
SetHyPt7=MyHSFact.AddNewPointCoord(50#,30#,100#)
myHybridBody.AppendHybridShapeHyPt7
Creatingtheprojectionof"
HyPt7"
onthesurface"
HybridShapeSweepExplicit1"
DimRef3AsReference
DimRef4AsReference
SetRef3=myPart.CreateReferenceFromGeometry(HyPt7)
SetRef4=myPart.CreateReferenceFromGeometry(HybridShapeSweepExplicit1)
DimHybridShapeProject1AsHybridShapeProject
SetHybridShapeProject1=MyHSFact.AddNewProject(Ref3,Ref4)
myHybridBody.AppendHybridShapeHybridShapeProject1
Assembly.vbp
DimCATIAAsObject
ReDimmyNames
(1)'
AsString
Creatingtherootproduct
DimTitanic'
AsProductDocument
SetTitanic=CATIA.Documents.Add("
Product"
Creatingthehullatlevel1
myNames(0)=myDir+"
\Hull.CATPart"
CallTitanic.Product.Products.AddComponentsFromFiles(myNames,"
*"
Titanic.Product.PartNumber="
Titanic"
Dimassy1'
AsProduct
Creatingsub-product"
ass1"
atlevel1
NewProductnotassociatedwithaProductDocumentfile
Setassy1=Titanic.Product.Products.AddNewProduct("
CreatingtheCastleunder"
atlevel2
\Castle.CATPart"
Callassy1.Products.AddComponentsFromFiles(myNames,"
CreatingtheFunnelunder"
\Funnel.CATPart"
Titanic.Product.Update
DimAss1RefProduct'
SetAss1RefProduct=assy1.ReferenceProduct
Creating2ndinstanceofsubproduct"
DimProduct2'
SetProduct2=Titanic.Product.Products.AddComponent(Ass1RefProduct)
Creatingthetransformationmatrix
ReDimvar1(11)
var1(0)=1#
var1
(1)=0#
var1
(2)=0#
var1(3)=0#
var1(4)=1#
var1(5)=0#
var1(6)=0#
var1(7)=0#
var1(8)=1#
var1(9)=60#'
translationalongX
var1(10)=0#'
translationalongY
var1(11)=0#'
translationalongZ
Movingtheinstance
Product2.Move.Applyvar1
Creating3rdinstanceof"
DimProduct3'
SetProduct3=Titanic.Product.Products.AddComponent(Ass1RefProduct)
var1(9)=120#'
Product3.Move.Applyvar1
CreatingtheBillOfMaterialinthefileTitanicBOM.txt
CallTitanic.Product.ExtractBOM(catFileTypeText,myDir&
\TitanicBOM.txt"
Drafting.vbp
Opening"
Bolt.CATPart"
file
DimMyPartDocAsPartDocument
SetMyPartDoc=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CATIA V5 Automation Detailed Steps基于VB的catia二次开发代码 Steps 基于 VB 二次开发 代码
链接地址:https://www.bdocx.com/doc/18500205.html