Stretching Dimensions via VBA

[RickyD302]

I need to know how to select the dimension pts so I can stretch a dimension. I can add the dimension object to my selection set with no problem but then the whole dimension moves when I really just want to stretch the dimension. When I try to just get the control pts then I get a fatal error indicating that "The object invoked has disconnected from its clients" Ideas, hints work arounds?

[KaiBo]

Can you show us what code you have so far?

[RickyD302]

fcode(0) = -4: ftype(0) = "

fcode(1) = 0: ftype(1) = "INSERT"

fcode(2) = 100: ftype(2) = "Dimension"

fcode(3) = -4: ftype(3) = "or>"

 

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

 

I then tried to add the control points

fcode(3) = 14: ftype(3) = vOldPT

I was getting the fatal error because I was only provide one dimension of a 3 point array

fcode(3) = 14: ftype(3) = vOldPT(0) ---FATAL

 

I'm thinking that I have to indicated that I'm looking for dimension but don't give me all of it by using the