Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Register Log in
  • Congratulations Danlap on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Catia drawing. macro for simple geometry

Status
Not open for further replies.
JeniaL

JeniaL

Mechanical
Jun 3, 2014
547
trying to create simple geometry like line or circle in drawing environment but nothing happens.
i'm copying commands from a title block macro but nothing happens.
can anyone share a code for creating line and a circle?

thanks in advance.
 
Replies continue below

Recommended for you

Sort by date Sort by votes
sure. recording does'n work for me in drawing environment
 
Upvote 0 Downvote
I've remembered that I post in the past an example for a Spanish forum...there are just few commands to start creating a title block, if you comment from
'Set myText.... As DrawingText - adding texts line to 'Declarations line, you can see just creation of the lines in background view.

Code: 
' ======================================================
' Purpose: Macro will activate the backgroud view in an active CATIA drawing (A4 sheet) and will draw a title block
' Usage:   1 - A CATDrawing must be active
'          2 - Run macro 
' Author: ferdo (Disclaimer: You use this code at your own risk) 
' ======================================================
Language="VBSCRIPT"

' made as example by ferdo for auxcad.com

Sub CATMain()

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

Dim MyDrawingDoc As DrawingDocument
Set MyDrawingDoc = CATIA.ActiveDocument

Dim MyDrawingSheets As DrawingSheets
Set MyDrawingSheets = MyDrawingDoc.Sheets

Dim MyDrawingSheet As DrawingSheet
Set MyDrawingSheet = MyDrawingSheets.ActiveSheet

Dim MyDrawingViews As DrawingViews
Set MyDrawingViews = MyDrawingSheet.Views

Dim drwviews As DrawingViews  'make background view active
Set drwviews = MyDrawingSheet.Views
drwviews.Item("Background View").Activate

'Set myText.... As DrawingText - adding texts
Set myText = MyDrawingViews.ActiveView.Texts.Add ("Dibujado", 22, 38) 'coordinates x=22, y=38 of left bottom corner of the text location
Set myText1 = MyDrawingViews.ActiveView.Texts.Add ("Corregido", 22, 31)
Set myText2 = MyDrawingViews.ActiveView.Texts.Add ("Fecha", 57, 46)
Set myText3 = MyDrawingViews.ActiveView.Texts.Add ("DD-mm-08", 57, 38)
Set myText4 = MyDrawingViews.ActiveView.Texts.Add ("DD-mm-08", 57, 31)
Set myText5 = MyDrawingViews.ActiveView.Texts.Add ("Nombre", 87, 46)
Set myText6 = MyDrawingViews.ActiveView.Texts.Add ("Jefatura", 87, 38)
Set myText7 = MyDrawingViews.ActiveView.Texts.Add ("Delineante", 87, 31)
Set myText8 = MyDrawingViews.ActiveView.Texts.Add ("Empresa S.A.", 159, 40)
Set myText9 = MyDrawingViews.ActiveView.Texts.Add ("C/laredo 8, 2B", 159, 32)

Set myText13 = MyDrawingViews.ActiveView.Texts.Add ("Escalas:", 22, 23)
Set myText14 = MyDrawingViews.ActiveView.Texts.Add ("1/X", 22, 17)
Set myText15 = MyDrawingViews.ActiveView.Texts.Add ("1/X", 22, 11)
Set myText16 = MyDrawingViews.ActiveView.Texts.Add ("Firma", 128, 38)

Dim iFortSize1 As Double 'font text size 
iFontSize1 = 3.500
myText1.SetFontSize 0, 0, 3.500  'iFontSize

'next lines with a different size for fonts - 2.5
Set myText10 = MyDrawingViews.ActiveView.Texts.Add ("Sustituye a: xxx-08", 155, 22)
Set myText11 = MyDrawingViews.ActiveView.Texts.Add ("Sustituido por: xxx-08", 155, 12)

Dim iFortSize10 As Double
iFontSize10 = 2.500
myText10.SetFontSize 0, 0, 2.500  'iFontSize

Dim iFortSize11 As Double
iFontSize11 = 2.500
myText11.SetFontSize 0, 0, 2.500  'iFontSize

'next lines with a different size for fonts - 5
Set myText12 = MyDrawingViews.ActiveView.Texts.Add ("plano No xxx-08", 70, 18)

Dim iFortSize12 As Double
iFontSize12 = 5.00
myText12.SetFontSize 0, 0, 5.00  'iFontSize

'Declarations

Dim DrwDocument   As DrawingDocument
Dim DrwSheets     As DrawingSheets
Dim DrwSheet      As DrawingSheet
Dim DrwView       As DrawingView
Dim DrwTexts      As DrawingTexts
Dim Text          As DrawingText
Dim Fact          As Factory2D
Dim Point         As Point2D
Dim Line          As Line2D
Dim Cicle         As Circle2D
Dim Selection     As Selection
Dim GeomElems     As GeometricElements


  Set DrwDocument = CATIA.ActiveDocument
  Set DrwSheets   = DrwDocument.Sheets
  Set Selection   = DrwDocument.Selection
  Set DrwSheet    = DrwSheets.ActiveSheet
  Set DrwView     = DrwSheet.Views.ActiveView
  Set DrwTexts    = DrwView.Texts
  Set Fact        = DrwView.Factory2D
  Set GeomElems   = DrwView.GeometricElements


'draw frame bottom line
    Set Line1 = Fact.CreateLine(20, 5, 205, 5) 'these are the coordinates of the starting point x=20, y=5 of the line and end point of the line x=205, y=5
    Line1.Name = "Line1"
    CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 3,1
    CATIA.ActiveDocument.Selection.Clear
    
'draw frame upper line
    Set Line2 = Fact.CreateLine(20, 292, 205, 292)
    Line2.Name = "Line2"
    CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 3,1
    CATIA.ActiveDocument.Selection.Clear
 
'draw a thin line 
    Set Line3 = Fact.CreateLine(20, 40, 120, 40)
    Line3.Name = "Line3"
    CATIA.ActiveDocument.Selection.Add Line3
    Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
    visProperties1.SetRealLineType 1,0.2
    Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties 
    visProperties1.SetRealWidth 1,0.2

    
    CATIA.ActiveDocument.Selection.Clear
' You can continue to draw the rest of the lines and try other settings...


End Sub





Regards
Fernando

- Romania
- EU
 
Upvote 0 Downvote
before creating of new thread i've tried several macros. looks like inly title block macros can draw simple lines and circles..
with your macro i get an error at following line
Set CATIA = GetObject(, "CATIA.Application")
 
Upvote 0 Downvote
For me is working fine in CATScript, for different CATIA versions, on different computers and OS systems (XP or Win 7) with different environments and sort of CATIA installations (clean, nice install, or image deployment).

I could record a video screen capture to show you is OK for me but better then this, check the on line docs (v5automation.chm) to see that getting CATIA object is the best way to start a script (especially when CATIA is deployed from not a well done image and is not registered in Windows registry).




Regards
Fernando

- Romania
- EU
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

J
  • Question
CATIA V5 Macro Replace drawing links
Replies
1
Views
2K
Little Cthulhu
Little Cthulhu
howdyitssam
  • Locked
  • Question
Catia V5 Macro - SmartTeam info to Excel
Replies
3
Views
815
Little Cthulhu
Little Cthulhu
Sandy_Man
  • Locked
  • Question
Catia V6 Macro - Edit Sheet Background Using VBA
Replies
1
Views
714
ferdo
ferdo
vangilme
  • Locked
  • Question
CATIA V5 Macro - changing orientation of axis system
Replies
4
Views
839
Boyinlove82
Boyinlove82
Capko
  • Locked
  • Question
Projected area CATIA macro VBS
Replies
0
Views
246
Capko
Capko

Part and Inventory Search

Sponsor

Back
Top Bottom