CAD VBA 画竖直线函数,该怎么处理

CAD VBA 画竖直线函数
如题,请教一下CAD VBA怎么画竖线,或者说怎么把横线旋转的api函数.非常感谢.
能有示例代码更是拜谢.
------解决方案--------------------
是阿。划线有起点终点的么。