I'm trying to figure out how to "stretch" a dimension via Code. I've placed some objects and then dimensions. I want to be able to move those objects to a new location updating the dimensions as well. What happens is that the entire dimension moves not just the control pts @ the object. I've tried all sorts of selection set filter codes but no luck.
fcode(0) = -4: ftype(0) = "<and"
fcode(1) = -4: ftype(1) = "<or"
fcode(2) = 0: ftype(2) = "INSERT" ' block I want to move
fcode(3) = 0: ftype(3) = "Dimension" ' dimension(s) at the block location
fcode(4) = -4: ftype(4) = "or>"
fcode(5) = -4: ftype(5) = "<not"
fcode(6) = 14: ftype(6) = vupperright ' don't move one side of a dimension
fcode(7) = 13: ftype(7) = vupperleft ' don't move another side of a different dimension
fcode(8) = -4: ftype(8) = "not>"
fcode(9) = -4: ftype(9) = "and>"
This selection set here gives me an error about invalid procedure call
Here is the remaining code...if I just use the <or INSERT Dimension or> then
everything moves including the line
On Error Resume Next
ThisDrawing.SelectionSets.Item("HandleSelection").Delete
On Error GoTo 0
Set objss = ThisDrawing.SelectionSets.Add("HandleSelection")
objss.Select acSelectionSetCrossing, pt1, pt2, fcode, ftype
For Each objSelection In objss
objSelection.Move vOldPT, HandleLocPT
objSelection.Update
Next
Any ideas, work arounds....