求大神求帮助添加旋转的程序

243811238

帮修改下，下面呢程序不能旋转。能否在添可以围绕插入点360旋转或者定位0,90,270,360者个角度旋转也可以，就是带旋转的插入图块
，并且只有图形围绕插入点旋转，文字和引线始终不变.请看图片
(defun c:ic()
     (setvar "cmdecho" 0)
  (WHILE(setq p1 (getpoint "\n插入点:  "))
    (command "insert" "ic.dwg" p1 "1" "" "0")
   (command "EXPLODE" (entlast)))
(princ)
)

243811238

G版呢？求帮忙啊