All Frameworks Object Hierarchy This Framework Indexes
o Property BottomType( | ) As |
Dim ThisBottomType As CATBSTR ThisBottomType = CurrentPMA.BottomType
CurrentPMA.BottomType = "MfgHard"
To be allowed to change BottomType into MfgSoft, Islands geometries must be removed first.
o Property ContoursCount( | ) As (Read Only) |
Dim NumberOfContour As Long NumberOfContour = CurrentPMA.ContoursCount
o Property IslandsCount( | ) As (Read Only) |
Dim NumberOfIsland As Long NumberOfIsland = CurrentPMA.IslandsCount
o Property TopType( | ) As |
Dim ThisTopType As CATBSTR ThisTopType = CurrentPMA.TopType
CurrentPMA.TopType = "MfgHard"
o Property Type( | ) As |
Dim ThisType As CATBSTR ThisType = CurrentPMA.Type
CurrentPMA.Type = "MfgPocketType"
To be allowed to change Type into MfgPocketType or into MfgContouringType, Contours and Islands geometries must be removed first.
o Func GetContourSide( | iContourNumber) As |
Dim iContourNumber As Long iContourNumber = 3 Dim oContourSide As short oContourSide = CurrentPMA.GetContourSide(iContourNumber)
o Func GetGeometriesAquisitionMode( | iGeometryType, | |
iGeometryNumber) As |
Dim iGeometryNumber As Long iGeometryNumber = 3 Dim oMode As Short oMode = CurrentPMA.GetGeometriesAquisitionMode("Contours",iGeometryNumber)
o Func IsContourClosed( | iContourNumber) As |
Dim iContourNumber As Long iContourNumber = 3 Dim oIsClosed As short oIsClosed = CurrentPMA.IsContourClosed(iContourNumber)
o Sub RemoveAllGeometry( | iGeometryType) |
Call CurrentPMA.RemoveAllGeometry("Parts")
o Sub SetClosedContourSide( | iContourNumber, | |
iSide) |
Dim iContourNumber As Long iContourNumber = 3 Dim iContourSide As CATBSTR iContourSide = "Inside" Call CurrentPMA.SetClosedContourSide(iContourNumber,iContourSide)
o Sub SetContourSide( | iContourNumber, | |
iSide) |
Dim iContourNumber As Long iContourNumber = 3 Dim iContourSide As Short iContourSide = 2 Call CurrentPMA.SetContourSide(iContourNumber,iContourSide)
o Sub SetGeometries( | iGeometryType, | |
iMode, | ||
iGeometryNumber, | ||
iReference, | ||
iProduct, | ||
iPosition) |
Dim iGeometryNumber As Long iGeometryNumber = 0 ... 'Get number of Island of CurrentPMA and add 1 to create a new island (Island number 1) iGeometryNumber = CurrentPMA.IslandsCount + 1 Call CurrentPMA.SetGeometries("Islands",0,iGeometryNumber,Circle1,PartMachined,0) 'Get number of Island of CurrentPMA and add 1 to create a new island (Island number 2) iGeometryNumber = CurrentPMA.IslandsCount + 1 Call CurrentPMA.SetGeometries("Islands",0,iGeometryNumber,Circle2,PartMachined,0) 'Get number of Island of CurrentPMA and add 1 to create a new island (Island number 3) iGeometryNumber = CurrentPMA.IslandsCount + 1 Call CurrentPMA.SetGeometries("Islands",0,iGeometryNumber,Line5,PartMachined,0) 'Adding Line6 to Island number 3 Call CurrentPMA.SetGeometries("Islands",0,iGeometryNumber,Line6,PartMachined,0) 'Adding Line7 to Island number 3 Call CurrentPMA.SetGeometries("Islands",0,iGeometryNumber,Line7,PartMachined,0)
o Sub SetGeometry( | iGeometryType, | |
iReference, | ||
iProduct, | ||
iPosition) |
Call CurrentPMA.SetGeometry("RelimitingPlane",Plane2,PartMachined,0)
o Sub SetOpenContourSide( | iContourNumber, | |
iPoint) |
Dim iContourNumber As Long iContourNumber = 3 Dim Point1 As CATIABase ... Set Point1 = hybridShapes1.Item("Point.1") ... Call CurrentPMA.SetOpenContourSide(iContourNumber,Point1)
Copyright © 2003, Dassault Systèmes. All rights reserved.