求高人指点

杜阳

本人刚开始学习这个lisp语言，照着资料写了一个小小的代码，但是达不到自己想要的结果。
这是个角度标注，
我想要的结果是：1）有选择性的标注，比如。一条多段线，有好多转角，我标注前进方向的左角 或者是右角。
2）无论是大于180度或者是小于180度的，标注不受限制。
3）批量标注，不是一个角一个角的标注。
我照着葫芦画的瓢只是标注小于180度，一个一个的标注。代码如下：
(defun C:jdbz2()
(setq P0(getpoint"\n 基点："))
(setq p1(getpoint"\n 第一点："))
(setq p2(getpoint"\n 第二点："))
(setq p3(getpoint"\n 第三点："))
(command "")
(command "dimangular" p1 p2 p3)
  (princ)
)
希望高手给以指点，也给出思路
小弟在此感谢了。新手上路，请多多帮助。