Sửa lisp copy array text

[theducw87 2]

Hiện tại em có một cái lisp copy array theo vector nhưng nếu có text thì không tự động tăng thêm 1. Bác nào hiểu về lisp thì sửa hộ em với. Em dùng lisp này copy một hình chữ nhật bên trong có text number thì sẽ dc là 1111111

Em muôn sửa lisp để sau khi sử dụng em sẽ được text tăng dần 1234567 như hình vẽ. Đây là lisp ban đầu của em.http://www.cadviet.com/upfiles/3/81217_arrvcopy_array.lsp

[ketxu 2984]

https://www.google.com.vn/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&ved=0CDAQFjAA&url=http%3A%2F%2Fwww.cadviet.com%2Fforum%2Ftopic%2F54635-da-xong-dynamic-larray%2F&ei=iClMUquNM8mokAX9i4GIDw&usg=AFQjCNFYmZAei6dWRKXLoDc7rThIMibaaA&sig2=sAzkubQkLN9JiXDjf81Fsg&bvm=bv.53371865,d.dGI

[theducw87 2]

 Cảm ơn Ketxu Mình làm được rồi!