just one little question off topic.
what about the version?.. I would like to upgrade to NX10.
what happens with the license?...
we are on maintenance on NX 8.5.. I have downloaded NX10 .. can i install this version?
it is the same license?
we use a license server. I was planning to use the...
you are right.. you must define an axis curve..
using the csys it's a great idea for the main shaft..
but with the axis curve you could do this..
off the center of the main shaft..
______
Alex...
@cowski
are you talking about sketches in modeling or drafting??
that D word is called "radius/diameter dimension constraint" in Catia..
it is the easiest way to apply dimensions (diameter dimensions)..
without creating extra curves (mirror curve)..
without formulas....
display the value of the...
I would like to say that i learned several tricks from John
and i am still learning from him..
Thank you for answer our questions .. best regards John
______
Alex ,
Is this what you are looking for?
______
Alex ,http://files.engineering.com/getfile.aspx?folder=a54ec15d-fe66-4e7d-b453-81abdb97470b&file=ug_askExpressionValue.avi
Im sorry i cant test because i dont have catia anymore..
i use this snippet code... you should try..
Set mysketch = oSel.Item(1).Value
Dim oSketch As Sketch
Set oSketch =oBody.Sketches.Item(mysketch.name)
______
Alex ,
Dim showstate As CatVisPropertyShow
Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.GetShow showstate
Select Case showstate
Case catVisPropertyNoShowAttr
MsgBox "Hidden View"
Case catVisPropertyShowAttr
MsgBox "visible View"
End Select
______
Alex ,
Just to create the sections...
Sub CATMain()
Dim cSections
Set cSections = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections")
Dim oMasterSection
Set oMasterSection = cSections.Add
Dim Position(11)
oMasterSection.GetPosition Position
Dim dHeight
dHeight =...
Sub View_Box()
Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument
Dim oDrawing As DrawingDocument
Set oDrawing = CATIA.ActiveDocument
Dim oSheets As DrawingSheets
Set oSheets = oDrawing.Sheets
Dim oSheet As DrawingSheet
Set oSheet =...