entmake 创建图元较command 速度快，且不受捕捉等CAD 环境因素影响，因此优先选用entmake。 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))) 6、单行文本 (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 5))) 7、多行文本 (entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText") '(7 . "Standard") (cons 1 str) (cons 10 pt))) 8、半径标注 (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")(cons 10 pt) '(70 . 36) '(100 . "AcDbRadialDimension") (cons 15 pt1) ) ) 9、直径标注 (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 pt1) (cons 11 pt2) '(70 . 163) ' (100 . "AcDbDiametricDimension") (cons 15 pt3) ) ) 10、水平标注 (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 pt) '(70 . 32) '(1 . "") '(100 . "AcDbAlignedDimension") (cons 13 pt1) (cons 14 pt2) '(100 . "AcDbRotatedDimension") ) ) 11、垂直标注 (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 pt) '(70 . 32) '(1 . "") '(100 . "AcDbAlignedDimension") (cons 13 pt1)...
