SURFACE IDENTIFICATION, GEOMETRY FORM AND CHANGE TYPE
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
HI, im working in a program to mate a sphere to any kind of surface but i found a problem with the constraint command, when i try to mate the sphere with some parts of a surface the mate constraint does not recognize it, i think is the geometry form type because the constraint only works with the surfaces that are type 9.
i wonder if there is a way to chance the surface type or it would be great if someone could explain me what this numbers of geometry form mean
the next code returns the geometryform type in a message box.
Imports
System
Imports
System.Type
Imports
System.Activator
Imports
System.Runtime.InteropServices Imports
Inventor Imports
System.Math
Public
ClassForm1
Public _invApp As Inventor.Application
Dim _started AsBoolean
Dim boton AsBoolean
PublicSub ShowSaveAsDialog()
EndSub
PrivateSub add_clamp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InitializeComponent()
Try
_invApp =
Marshal.GetActiveObject("Inventor.Application")
Catch ex AsException
Try
Dim invAppType AsType = _
GetTypeFromProgID(
"Inventor.Application")
_invApp = CreateInstance(invAppType)
_invApp.Visible =
True
_started =
True
Catch ex2 AsException
MsgBox(ex2.ToString())
MsgBox(
"ERROR 001")
EndTry
EndTry
otravez:
Dim Superficie AsNewObject
Superficie = _invApp.CommandManager.Pick(
SelectionFilterEnum.kAllEntitiesFilter, "Select point")
MsgBox(
"superficie tipo: " & Superficie.geometryform.ToString)
GoTo otravez
EndSub
End
Class