CAD VBA 画竖直线函数解决思路

CAD VBA 画竖直线函数
如题,请教一下CAD VBA怎么画竖线,或者说怎么把横线旋转的api函数.非常感谢.
能有示例代码更是拜谢.

[解决办法]
是阿。划线有起点终点的么。