Autolisp编写四参数坐标程序，直接对加载的图形进行整体转换。

(defun c:zbzh(/ continue curBtn digId )

   (print "坐标转换中>>>>>>")
    
   (setq ss (ssget "A"));选取所有对象

    ;整图转换,要先获得4参数。
    (setq Ang (- 0 359.998882044))
    (setq p1 (list 0 0) p2 (list 703.6784952717 -509.6005309305))  
    (command "move" ss "" p1 p2);平移
    (command "rotate" ss "" p2 Ang);旋转
    (command "SCALE" ss "" p2 1.00000885485);缩放

    ;逐个要素转换，经测试，和整图转换结果一样
    ;(setq n 0)
    ;(setq Ang (- 0 359.999542044))
    ;(setq p1 (list 0 0) p2 (list 73.6704952717 -59.6045309305))
    ;(repeat (sslength ss)  ;获取指定选择集中的对象个数
    ;    (setq en (ssname ss n)) ;根据索引号n获取选择集中的对象
    ;    (command "move" en "" p1 p2);平移
    ;    (command "rotate" en "" p2 Ang);旋转
    ;    (command "SCALE" en "" p2 1.00000925485);缩放
    ;    (setq n(1+ n))
    ;)

     (print (strcat  (itoa (fix (sslength ss))) "个要素完成坐标转换！"))
    (princ)
)