I'm sure there is an easier way but this has worked fine for me.
You just need to set the xyz of the attribute. You do not use move.
since you can't reference the insertionpoint with att.insertionpoint(0) i just run it through a simple convertion
dim pt(2) as double
pt(0) = convertpt(att.insertionpoint,0)
pt(1) = convertpt(att.insertionpoint,1)
pt(2) = convertpt(att.insertionpoint,2)
then you can just add say an x distance to the value or whatever to move the attributes around.
then assign the new point to your att.insertionpoint
[code]
Function convertpt(pt, pos) As Variant
Dim k As Integer
Dim newpt(2) As Double
For Each item In pt
If j = pos Then
k = k + 1
If k = 1 Then
convertpt = item
End If
If k = 2 Then
convertpt = item
End If
If k = 3 Then
convertpt = item
End If
End If
j = j + 1
Next
End Function
[/code]
---------------------------
(defun botsbuildbots() (botsbuildbots))