Break lines with VBA

Hello all!

i need help with this : i have got 2 entities (2 lines) with getentity and i have 3 points

i need to break the lines at these points but only the last line i selected breaks. the another one give an "object not found" and when i select them in a diferent order only the last one works again.

im using this to break:

bpoint1 = ThisDrawing.Utility.PolarPoint(basepoint, angapoio, 3.763)

bpoint2 = ThisDrawing.Utility.PolarPoint(basepoint, angapoio2, 3.763)

bpx = basepoint(0)

bpy = basepoint(1)

x1 = bpoint1(0)

y1 = bpoint1(1)

x2 = bpoint2(0)

y2 = bpoint2(1)

guarda(0) = Replace(x1, ",", ".")

guarda(1) = Replace(y1, ",", ".")

guarda1(0) = Replace(x2, ",", ".")

guarda1(1) = Replace(y2, ",", ".")

guarda2(0) = Replace(bpx, ",", ".")

guarda2(1) = Replace(bpy, ",", ".")

ThisDrawing.SendCommand "_Break" & vbCr & guarda1(0) & "," & guarda1(1) & vbCr & guarda2(0) & "," & guarda2(1) & vbCr

ThisDrawing.SendCommand "_Break" & vbCr & guarda(0) & "," & guarda(1) & vbCr & guarda2(0) & "," & guarda2(1) & vbCr

'end

the replace thing its because vba uses "," instead of "." then i need to convert

if there is another way to break lines without the sendcommand tell me to!

thanks all!

one other thing

im sure the points that cad tells me "no object found" have an object

Hello all!

i need help with this : i have got 2 entities (2 lines) with getentity and i have 3 points

 

i need to break the lines at these points but only the last line i selected breaks. the another one give an "object not found" and when i select them in a diferent order only the last one works again.

 

im using this to break:

 

bpoint1 = ThisDrawing.Utility.PolarPoint(basepoint, angapoio, 3.763)

bpoint2 = ThisDrawing.Utility.PolarPoint(basepoint, angapoio2, 3.763)

 

bpx = basepoint(0)

bpy = basepoint(1)

 

x1 = bpoint1(0)

y1 = bpoint1(1)

x2 = bpoint2(0)

y2 = bpoint2(1)

 

guarda(0) = Replace(x1, ",", ".")

guarda(1) = Replace(y1, ",", ".")

guarda1(0) = Replace(x2, ",", ".")

guarda1(1) = Replace(y2, ",", ".")

guarda2(0) = Replace(bpx, ",", ".")

guarda2(1) = Replace(bpy, ",", ".")

 

 

ThisDrawing.SendCommand "_Break" & vbCr & guarda1(0) & "," & guarda1(1) & vbCr & guarda2(0) & "," & guarda2(1) & vbCr

 

ThisDrawing.SendCommand "_Break" & vbCr & guarda(0) & "," & guarda(1) & vbCr & guarda2(0) & "," & guarda2(1) & vbCr

 

'end

 

 

the replace thing its because vba uses "," instead of "." then i need to convert

 

if there is another way to break lines without the sendcommand tell me to!

 

thanks all!

Hy

i have same problem, here: http://www.cadtutor.net/forum/showthread.php?t=46321

This helps a little possibly... (acSelectionSetPrevious, acSelectionSetLast)

nevermind i solved with the TRIM command