Here is what I have so far:
ThisDrawing.Application.Documents.Open (Blockname) 'blockname pre-defined
'there is a reason for this next line, for now I just want to convert the
sendcommand to vba equivalent.
ThisDrawing.SendCommand "_ai_selall" & vbCr & "m" & vbCr & "0,0,0" & vbCr &
"200,200,0" & vbCr & "u" & vbCr
ThisDrawing.SendCommand "_ai_selall" & vbCr & "COPYBASE" & vbCr & "0,0,0" &
vbCr
ThisDrawing.Close SaveChanges:=False
ThisDrawing.SendCommand "PASTECLIP" & vbCr & "0,0,0" & vbCr
Thanks everyone!
Sam
