Not 100% sure what you're trying to achieve, the files you attached showed a portrait and landscape border/title block with the title block in the same spot? am i right in saying you want a portrait view with the title block in the lower left corner?
anyways, i had a play with some VBA and got you code to delete all constraints in the title block sketch definition... it's pretty slow but i can't be bothered trying to figure out why.
I was going to be tricky and use autodimension to re-instate the constraints once rotated... but i can't seem to figure out how to access auto-dimension via the API... someone smarter might know how...
Cheers
Gerrard
Code:
Sub DeleteTitleBlockConstraints()
Set oDoc = ThisApplication.ActiveDocument
Set osheet = oDoc.ActiveSheet
Set otblockconst = osheet.TitleBlock.Definition.Sketch.GeometricConstraints
On Error Resume Next
Do While Not j = otblockconst.Count
i = 0
For Each kgeometricconstraints In otblockconst
i = i + 1
If otblockconst.Item(i).Deletable = True Then
otblockconst.Item(i).Delete
End If
Next
j = i
Loop
End Sub