What is the error

(defun c:TesT (/ sc ss i sn)   ;;; Tharwat 13. Dec. 2011 ;;; (if (and (setq sc (getdist "\n Specify Scale factor :"))            (setq ss (ssget "_:L" '((0 . "INSERT") (2 . "dot"))))       )     (progn (repeat (setq i (sslength ss))              (setq sn (ssname ss (setq i (1- i))))              (command "_.scale" sn "" (cdr (assoc 10 (entget sn))) sc)            )            (sssetfirst nil ss)     )     (princ)   )   (princ)

This code is working properly in good drawing but in the bad drawing

the dots are moving far away from existing position.

Please Help to find out the error.

bad.dwg

GOOD.dwg

What would happen if you set the UCS in the bad drawing to World?

And your Insert units in the bad drawing are millimetres? Might make a difference

What would happen if you set the UCS in the bad drawing to World?

 

And your Insert units in the bad drawing are millimetres? Might make a difference

Thanks Eldon. After setting UCS to World , it working properly.

Thanks again.

No need to change UCS

this

(cdr (assoc 10 (entget sn)))

to this

 [/color]
([color=blue]trans[/color] (cdr (assoc 10 (entget sn))) [color=blue]0 1[/color])