确定起点终点和角度后,不就可以绘制了吗
vba绘制的话,我只有绘制椭圆的时候才使用,因为椭圆分割后,发现vba的计算角度才正确,Autolisp计算的角度会有问题,查看属性会发现有偏差。
Autolisp里面的entmake函数绘制速度很快,
1、直线
(entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt2)))
2、两顶点多段线(多顶点类似)
(entmake (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 2) (cons 10 pt1) (cons 10 pt2)))
3、点表生成多段线
(entmake (append (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 (length lst)))
(mapcar '(lambda (pt)(cons 10 pt)) lst )))
4、圆
(entmake (list '(0 . "circle") (cons 10 pt) (cons 40 r)))
5、圆弧
(entmake (list '(0 . "arc") (cons 10 pt) (cons 40 r) (cons 50 ang1) (cons 51 ang2)))
必要的话,可以加入图层,颜色等元素,不用关闭捕捉,改变图层等。你可以试试。