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.