note fold blindfold automatic idw

[Donald Haxhiu Work]

good morning, I wanted to ask you if there is a way to put the fold note (e.g.: on 90°/Ju 35° etc) automatically as soon as I recall with the base function the piata repetition (development of the sheet). without going to put the notes of fold one by one, or having to select everything. I would like that of practice as soon as I call the development of the flat rip in automatic I appear the fold notes. Can you tell me how it could be done?

 

[batleo]

Hi.
try this way, make a flat view, then go on annotation --> general
choose the view, then there are various options and you can set as you prefer

 

[Donald Haxhiu Work]

I know that function, but I always have to do it. then it is worth putting the notes of fold, which are among other things less invasive since they are above the lines of fold. I just wanted something that when I put the flat repetition, I automatically get the fold notes. (I anticipate already that I come from solidworks, and as soon as I recall the flat repetition puts me automatically the notes of fold) here from where the question arises. here on inventor instead touches me every time to press the bend blindfold command and select the rows of the fold and/or all the view that puts the notes to me. I just forget sometimes, so I want to do something automatically. Does it exist according to you? can be a check on the settings so that it automatically puts it?

 

[Catafratto]

I was done ( copied but I don't remember where) this macro,
select the flat model, launches and quota all folds

sub addbendnote()

    ' assumes that a drawing document is active
    dim odoc as drawingdocument
    set odoc = thisapplication.activedocument

    ' check to make sure a bend edge is selected.
    if odoc.selectset.count <> 1 then
        msgbox "seleziona un modello piatto."
        exit sub
    end if

    if not typeof odoc.selectset(1) is drawingview then
        msgbox "seleziona un modello piatto."
        exit sub
    end if
    
    dim oview as drawingview
    set oview = odoc.selectset(1)
    
    dim obendedge as drawingcurve
    dim obendnote as bendnote
    
    
    ' wrap the iteration in a single transaction
    ' get the transaction manager from the application
    dim otxnmgr as transactionmanager
    set otxnmgr = thisapplication.transactionmanager
  
    dim otxn as transaction
    set otxn = otxnmgr.starttransaction(odoc, "bendnotes")
      
        for each obendedge in oview.drawingcurves
            if (obendedge.edgetype = kbendupedge or obendedge.edgetype = kbenddownedge) then
                ' create the bend note
                set obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge)
            end if
        next obendedge

        ' if the error from the operation is not recoverable, abort the txn
        if err then
            msgbox "unrecoverable error occurred during the operation"
            otxn.abort
            exit sub
        end if

    otxn.end
end sub

 

[Donald Haxhiu Work]

I was done ( copied but I don't remember where) this macro,
select the flat model, launches and quota all folds

sub addbendnote()

    ' assumes that a drawing document is active
    dim odoc as drawingdocument
    set odoc = thisapplication.activedocument

    ' check to make sure a bend edge is selected.
    if odoc.selectset.count <> 1 then
        msgbox "seleziona un modello piatto."
        exit sub
    end if

    if not typeof odoc.selectset(1) is drawingview then
        msgbox "seleziona un modello piatto."
        exit sub
    end if
   
    dim oview as drawingview
    set oview = odoc.selectset(1)
   
    dim obendedge as drawingcurve
    dim obendnote as bendnote
   
   
    ' wrap the iteration in a single transaction
    ' get the transaction manager from the application
    dim otxnmgr as transactionmanager
    set otxnmgr = thisapplication.transactionmanager
 
    dim otxn as transaction
    set otxn = otxnmgr.starttransaction(odoc, "bendnotes")
     
        for each obendedge in oview.drawingcurves
            if (obendedge.edgetype = kbendupedge or obendedge.edgetype = kbenddownedge) then
                ' create the bend note
                set obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge)
            end if
        next obendedge

        ' if the error from the operation is not recoverable, abort the txn
        if err then
            msgbox "unrecoverable error occurred during the operation"
            otxn.abort
            exit sub
        end if

    otxn.end
end sub

No, but for the quotation I surrender myself. also because I decide what odds to give to the fold depending on the sheet. here instead is the same concept of bend blindfold. only that it throws the macro to the point. I want something you do once and it's worth all the plates. that when I put the flat repetition on the design automatically the folds blindfolds activate without going to press any button, because as mentioned before sometimes happens I forget. (in solidworks this thing was automatic, once put the flat rip the fold notes up/down were already inserted) can you do according to you?

 

[graziano-g]

hi, I press: I did nothing outside looking, trying and sharing.
generate an ilogic then insert the following text lines.
applying the rule to an idw containing a plate model sheet part, the rule inserts the fold notes at the lines.
then, to be more precise, it is good to set the line types according to the type of fold up or down: fold on continuous line, fold down dotted line.

Maybe you can insert the rule inside the template so you can automatically execute it when inserting the flat model: who knows more about me...

Hi.

dim odoc as drawingdocument
dim osheet as sheet
dim oview as drawingview
dim ocurve as drawingcurve
dim obendnote as bandnote
dim bandanotecount as integer

odoc = thisapplication.activedocument
osheet = odoc.activesheet
bandanotecount = osheet.drawingnotes.bendnotes.count

if blindnotecount=0 then
'[add bend notes to views
For Each oView In oSheet.DrawingViews
For Each oCurve In oView.DrawingCurves
If oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendDownEdge _
Or oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendUpEdge Then
' Create the bend note
oBendNote = oSheet.DrawingNotes.BendNotes.Add(oCurve)
End If
Next 'oCurve
Next ']oview
else
'do nothing
end if