Hej,
I wan to create macro (vb.net) to turn on "Enable Hybrid Design In body", I tryied different approaches but I failed.
First my macro checks if "Enable hybrid design inside part bodies and bodies" is on, then I would like to turn on "In a body"
Dim SettingsConstrolers As...
Hej,
I am trying to determine if Constraint (Length or Offset) is horizontal or vertical. If dimension is related to line there is no problem but if it's not I cant manage with it. Could you give me some tips?
Respect
Santa123
Hi,
I created relation:
Dim MassString As String
MassString = "volume(Extract_For_Volume_Measure\Extract.1 )*7860 * 1kg_m3"
MyParameterMasaForumla = MyPart.Relations.CreateFormula("FormulaMass", " ", MyProduct.UserRefProperties.Item("Mass"), MassString )
when I change my Part...
Hi LucasC
Thank's for response, finaly I found mistake in my code. I only added Call and it works.
Public Class Form1
Public MyActiveDocument As Document
Public MyProduct As Product
Public MyParamMass As Double
Public MyPart As Part
Private Sub Form1_Load(sender As...
Hello,
I am creating a macro, which add material to part, read mass and put it to lblMassValue. Button2 add material to Body but weight is not updated, it stays the same as it was without material.
Public Class Form1
Public MyActiveDocument As Document
Public MyProduct As Product...
Hej,
it finally worked, but intellisense not showing me method GetDirection
Imports INFITF
Imports MECMOD
Public Class Form1
Private Sub Form_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim CATIA As Application
Dim MyPart As Part
Try...
Hej,
I am trying to convert my macro from script to vb.net
Function FuncIsHorizontal(MyPart As Part, i) As Boolean
Dim MyDir() As Variant
Dim MyGeomElementLine As GeometricElement
Set MyGeomElementLine =...
adapt this code to your needs
Sub MyParam()
Dim MyDocument As Document
Dim myPart As Part
Dim MyParametrsSet As ParameterSet
Dim MyDirectParam As Parameters
Dim i As Integer
Set MyDocument = CATIA.ActiveDocument
Set myPart = MyDocument.Part
Set MyParametrsSet =...
Hej
Put it under CheckBox1
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CommandButton1.Enabled = False
ElseIf CheckBox1.Value = False Then
CommandButton1.Enabled = True
End If
End Sub
Regards
Santa
I messed up a bit, it turns out that I can't run cnext.exe /regserver
I got error:
Creating registry key
HKEY_CLASSES_ROOT\.CAT3DEXPOperation_ENOVIAV5 failed
Access denied