[求助]：初学vl函数，请各位大大帮忙看看程序

firstintimate

刚才试了下创建角度标注的函数，可是只有一个方向有尺寸界线，大大能不能帮我看看问题出在哪里
因为我手头vl函数资料很少，每个函数基本上都是我一个一个试出来的，谁能提供一些vl函数的资料呀，先谢谢各位了
(defun c:tt()
  (vl-load-com)
    (setq AcadObject(vlax-get-acad-object)
          AcadDocument(vla-get-ActiveDocument AcadObject)
          mSpace(vla-get-ModelSpace AcadDocument)
    )
  (setq ent1(car(entsel "选择弧：")))
  (setq ent1(vlax-ename->vla-object ent1))
  (setq startpnt1(vla-get-StartPoint ent1))
  (setq EndPnt1(vla-get-EndPoint ent1))
  (setq tpt(getpoint "选择标注点："))
  (setq tpt(vlax-3d-point tpt))
  (setq AngleVertex(vla-get-center ent1))
  (setq dim1(vla-adddimangular mspace AngleVertex startpnt1 endpnt1 tpt))  
  (princ)
)

xyp1964

直接用DIMANGULAR命令不是更好？！
“如果不是确实需要，完全可以使用传统的方法”！

firstintimate

是啊，一般来讲用vl-cmdf,直接调用命令是最便捷的，但是很明显vlisp生成的实体更容易控制，我想系统的学习一下vl函数，铁道出版社的那本书函数不全啊，cad帮助也没多少。那位大大手头有电子版本啊，能提供一些资料么？谢谢～～

它山之石

　　CAD看书带的帮助文件是最好的学习材料。不要相信那些什么书。绝大部分也都是抄的CAD的帮助文件中的内容。最多是翻译了一下。
　　你的程序标注出来只有一个尺寸界限应该是某个系统变量设置的问题。你可以查一下。