copy selected objects to selected points

[cool.stuff]

Hi!

I need a lisp to copy selcted objects to selected points.

I've found this:

https://www.cadtutor.net/forum/topic/50163-copy-and-paste-on-multiple-points/

The proble is that if I use a diferent ucs it assumes the global not the local, I think..

Can someone help please?

Many thanks!

[ВeekeeCZ · Accepted solution]

Try this change

(setq pt (cdr (assoc 10 (entget entpt))))

to 

(setq pt (trans (cdr (assoc 10 (entget entpt))) 0 1))

[cool.stuff]

It works like a charm! :))

Many thanks!!!

[stevor]

If trans worked, and you have more to do, 

this old subr is the same:

; return UCS coords
(DeFun Dxf_EU (gn edL / vv )
 (if (and (setq vv (cdr (assoc gn edL)))
               (member gn (list 10 11 210 )))  ; others  codes may exist
   (trans vv (cdr (assoc -1 edl)) 1) vv ) )  ;