求助QDIM命令LISP使用方法？

abtjy

指定尺寸线位置或
[连续(C)/并列(S)/基线(B)/坐标(O)/半径(R)/直径(D)/基准点(P)/编辑(E)/设置(T)]
<连续>:
我想第把QDIM命令的选项用一个程式联合起来使用
第一步输入自定的函数名：比如1
第二步选中图元一定要可复选
第三步选基准点(P)（需要只能选择交点，自动打开交点捕捉）
第四步选定坐标(O)
第五步鼠标给定方向（要是能自动实现X,Y坐标标注就更好了）
第六步OK完毕，谢谢！