新人，想求助大神如何直接提取选中块的插入点坐标应用到程序里。。

姽婳连篇

纯菜鸟- -
cass中我想要以插入点为基点旋转块的方向，使用rotate之后需要选择块的基点和旋转方向，因为已知块，所以这个块的插入点就是固定的，我觉得应该好像可能能提取出这个点的坐标并且直接利用，就想说能不能直接把选择基点这部省掉~
求大神帮忙解惑~~跪谢~
获得aa坐标这一步是不是能省略呢

(defun c:r()
(setq aa(getpoint"/n基点: "))
(setq bb(getpoint "/n方向: "))
(command"rotate" (entlast)"" aa "r" aa bb"" "" "")
)



看代码就知道我这菜鸟有多纯= =。。

xyp1964

2. (defun c:tt ()
   
3.   (while (setq s1 (car (entsel "\n选择图块<退出>: ")))
   
4.     (setq p1 (cdr (assoc 10 (entget s1))))
   
5.     (command "rotate" s1 "" p1 pause)
   
6.   )
   
7.   (princ)
   
8. )

(defun c:tt ()<br />   (while (setq s1 (car (entsel "\n选择图块<退出>: ")))<br />     (setq p1 (cdr (assoc 10 (entget s1))))<br />     (command "rotate" s1 "" p1 pause)<br />   )<br />   (princ)<br /> )