para iniciar vamos al menú tools > Journal > Edit
y nos aparece esta ventana en la cual vamos agregar el código siguiente :
____________________________________________________________
Option Strict Off
Imports System
Imports NXOpen
Imports System.Math
Module MyModulo
Sub Main()
Dim Sess As Session = Session.GetSession()
Dim wPart As Part = Sess.Parts.Work
Dim Pt1 As New Point3d
pt1.x = 0
pt1.y = 0
pt1.z = 0
Dim Pt2 As New Point3d
pt2.x = 1000
pt2.y = 0
pt2.z = 0
Dim L1 As Line
L1 = wPart.Curves.CreateLine(Pt1,Pt2)
L1.SetVisibility(SmartObject.VisibilityOption.Visible)
End Sub
End Module
___________________________________________________________
los que saben de programación le entenderán fácilmente
para los que no, les dare una breve explicación.
la instrucción Option Strict Off significa la precisión del código ó datos que debemos introducir
la instrucción Imports hace referencia a los tipos incluidos en un espacio de nombre
la instrucción Module declara el nombre de un modulo e introduce la definición de las variables, propiedades, eventos y procedimientos que se incluyen en el modulo
la instrucción Sub declara el nombre, los parámetros y el código que definen un procedimiento
el procedimiento Main especifica que código se ejecutara primero
la instrucción Dim declara y agrega espacio para una o varias variables
End Sub y End Module terminan las instrucciones Sub y Module
este ejemplo de código nos crea una linea en el eje X de 1000 mm de largo
te dejo un vídeo con otro ejemplos de lineas
No hay comentarios.:
Publicar un comentario