;1、依据比例系数，将整图进行缩放；
;2、再依据旋转角度，将1所得图进行旋转；
;3、最后依据平移参数，将2所得图进行平移即可。
用以下程序来完成上述操作
(defun c:scsbh()
(If (setq ssa (ssget))
(progn
(command "_scale" ssa "" (list 0 0) 比例系数 "")
(command "_rotate" ssa "" (list 0 0) 旋转角度 "")
(command "_move" ssa "" (list 0 0) (list X方向平移量 Y方向平移量") "")
)
)
)
;2、再依据旋转角度，将1所得图进行旋转；
;3、最后依据平移参数，将2所得图进行平移即可。
用以下程序来完成上述操作
(defun c:scsbh()
(If (setq ssa (ssget))
(progn
(command "_scale" ssa "" (list 0 0) 比例系数 "")
(command "_rotate" ssa "" (list 0 0) 旋转角度 "")
(command "_move" ssa "" (list 0 0) (list X方向平移量 Y方向平移量") "")
)
)
)