×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Dimension Line value disply
3

Dimension Line value disply

Dimension Line value disply

(OP)
Hi,

I'd like to have the value of both horizontal and vertical dimensions in the middle of the dimension line (the way they are shown in the attachment)m but with one adjustment:
I want the dimension line interrupted on the area where the value is located.
How should I get that?

Thanks

MZ7DYJ

RE: Dimension Line value disply

Change the drafting standard to ANSI or ASME when you create new drawings.

For exisiting drawings; select all dimensions and change standard or ANSI or ASME

RE: Dimension Line value disply

check your drafting standard (XML file)

Eric N.
indocti discant et ament meminisse periti

RE: Dimension Line value disply

(OP)
Thank you both!

MZ7DYJ

RE: Dimension Line value disply

Hi,

If you want to do this in a CATScript...

CODE --> CATScript

Sub CATMain()

   ' Variables declaration
    Dim oDrwDocument As DrawingDocument
    Dim oDrwSheets As DrawingSheets
    Dim oDrwSheet As DrawingSheet
    Dim oDrwView As DrawingView
    Dim oDrwTables As DrawingTables
    Dim oDrwTable As DrawingTable

 Set oDrwDocument = CATIA.ActiveDocument

    ' Set the drawing document standard  

CATIA.DisplayFileAlerts = False
	Dim Message, Style, Title, Response, MyString
	Message = ("This macro will change the drawing standard according to what user will choose"  &_
			(chr(13)) &_
			 "	- The active document must be a CATDrawing (local or VPM)"&_
                         (chr(13)) &_
			 "	- Drawing size will go automatically to the biggest standard format"&_
			 (chr(13)) &_
			   ""&(chr(13))&_
"	Do you want to continue ?")
	Style = vbYesNo + vbDefaultButton2    'Define buttons.
	Title = "Purpose "   
	Response = MsgBox(Message, Style, Title)
		If Response = vbYes Then    ' User chose Yes.

Dim myStringcase 'As Double
myStringcase = "1"
myStringcase = InputBox ("Please enter the case" & chr(13) & "1 for ISO"  & chr(13) & "2 for ANSI"  & chr(13) & "3 for JIS" , "Standard case" , myStringcase)

If myStringcase = 1 Then
    oDrwDocument.Standard = catISO
ElseIf myStringcase = 2 Then
    oDrwDocument.Standard = catANSI
ElseIf myStringcase = 3 Then
    oDrwDocument.Standard = catJIS

Else
	End If

    '~ Bellow code will work only for ISO standard, if you want to set the size for other standards you need corect name, like catPaperA3
    '~ Uncomment to make it work
    '~ ' Retrieve the drawing document's sheets collection
    '~ Set oDrwSheets = oDrwDocument.Sheets

    '~ ' Retrieve the active sheet
    '~ Set oDrwSheet = oDrwSheets.ActiveSheet

    '~ ' Set the sheet properties
    '~ oDrwSheet.PaperSize = catPaperA3
    '~ oDrwSheet.Orientation = catPaperLandscape
    '~ oDrwSheet.Scale2 = 1

CATIA.ActiveDocument.Update

End If 

Regards
Fernando

https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources