I am trying to convert a vba macro I made in acad 2004 to run in intellicad 5 PE. The program simply inserts welding symbols or blocks with attributes. When I insert a block and mirror it on the x-axis, Intellicad gives me a mirror image of the block but the text is upside down. I tried changing “MIRRTEXT” system variable setting (set to “OFF”) but I get the same result. I tried mirroring it on the y-axis, and the result is okay. Can anyone give me an idea as to what’s causing the text to display upside down when mirrored on the x-axis? I’ve used the same code in autocad (with the different object-model syntax) and it’s running perfectly fine. Any help will be highly appreciated.


‘sample code

Dim blk As BlockInsert
Dim pnt As IntelliCAD.Point
Dim pnt1 As IntelliCAD.Point
Dim pnt2 As IntelliCAD.Point
Dim blockname As String
Dim varAtt As Variant


blockname = "c:\intellicad\tail.dwg"

‘sample point values, mirrors the object about the x-axis , use origin as insertion point

Set pnt = Library.CreatePoint(0, 0, 0)
Set pnt1 = Library.CreatePoint(0, 1, 0)
Set pnt2 = Library.CreatePoint(0, 0, 0)

‘ Insert the block
Set blk = Doc.ModelSpace.InsertBlock(pnt, blockname, 1#, 1#, 1#, 0#)


If (blk.HasAttributes) Then
Set varAtt = blk.GetAttributes()
varAtt(1).TextString = "Typical"
varAtt(2).TextString = "CP"

‘Mirror the block
blk.Mirror pnt1, pnt2, False

blk.Update