摘錄一些entmake的方式創(chuàng)建圖元的方法，以便后查勺拣。
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) (cons 14 pt2) '(50 . 1.5708) '(100 . "AcDbRotatedDimension") ) )
12、傾斜標注
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 pt1) '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension") (cons 13 pt2) (cons 14 pt3) ) )
13咙冗、entmake生成普通塊
(defun emkblk (ss pt name / i) (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt))) (repeat (setq i (sslength ss)) (entmake (cdr (entget (ssname ss (setq i (1- i)))))) ) (entmake '((0 . "ENDBLK"))) (command "_.erase" ss "") (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt))))
14沾歪、entmake插入普通塊
(entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
15 、entmake生成無名塊
(defun emkunameblk (ss pt / i name) (entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))) (repeat (setq i (sslength ss)) (entmake (cdr (entget (ssname ss (setq i (1- i)))))) ) (setq name (entmake '((0 . "ENDBLK")))) (command "_.erase" ss "") (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt))) name)
16雾消、將選擇集做成屬性塊(選擇集中單行文本作為屬性)
(defun emkattblk (ss pt name / ent i) (entmake (list '(0 . "block") (cons 2 name) '(70 . 2) (cons 10 pt))) (repeat (setq i (sslength ss)) (setq ent (entget (ssname ss (setq i (1- i))))) (if (= (cdr (assoc 0 ent)) "TEXT") (entmake (list '(0 . "ATTDEF") (assoc 10 ent) (assoc 40 ent) (assoc 1 ent) (cons 3 (cdr (assoc 1 ent))) (cons 2 (cdr (assoc 1 ent))) '(70 . 0))) (entmake (cdr ent)) ) ) (entmake '((0 . "ENDBLK"))))
17灾搏、生成圖層
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous") (cons 2 name) ) )
18挫望、創(chuàng)建新線型
(entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") (cons 2 "BERDIG 5-545") ' (3 . "Border ____ ____ ____ ____ ____") '(70 . 0) '(73 . 2) '(40 . 15.0) '(49 . 10.0) '(74 . 0) ' (49 . -5.0) '(74 . 0) ) )
19、引線 (entmake (list '(0 . "LEADER") '(100 . "AcDbEntity") '(100 . "AcDbLeader") (cons 10 pt) (cons 10 pt1) (cons 10 pt2) ) )
20狂窑、構(gòu)造線(entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") (cons 10 pt) (cons 11 pt1)))
21媳板、橢圓 (entmake '((0 . "ELLIPSE") (100 . "AcDbEntity")(100 . "AcDbEllipse")(10 3969.6 4289.14 0.0)(11 -1828.47 0.0 0.0) (40 . 0.416093) (42 . 6.28319) ) )
22、 點
(entmake (list '(0 . "POINT") (cons 10 pt)))
23泉哈、entmake文字樣式
(entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 name) '(70 . 0) (cons 40 h) (cons 41 w) '(3 . "romans.shx") '(4 . "Hztxts.shx") ) )
24蛉幸、 建立第一級標注樣式
(entmake (list '(0 . "DIMSTYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbDimStyleTableRecord")
'(70 . 0)
(cons 340 (tblobjname "style" "Standard")) ; 文字樣式名
(cons 2 "普通螺紋") ; 標注樣式名
'(3 . "M<>") ; 標注前綴
'(40 . 0.0) ; 標注特征比例，縮放到布局
'(41 . 2.5) ; 箭頭尺寸
'(42 . 1.5) ; 起點偏移量
'(43 . 5.5) ; 基線間距
'(44 . 1.5) ; 超出尺寸線
'(47 . 0.000) ; 上偏差
'(48 . 0.000) ; 下偏差
'(71 . 0) ; 公差無
'(77 . 1) ; 文字在尺寸線上方
'(74 . 1) ;
'(140 . 3.0) ; 文字高度
'(141 . -2.5) ; 圓心標記
'(144 . 1.0) ; 測量比例單位
'(146 . 0.7) ; 公差高度比例
'(147 . 1.0) ; 文字從尺寸線偏移
'(172 . 2) ; 尺寸界線間連線
'(176 . 256) ; 隨層
'(177 . 256) ; 隨層
'(178 . 256) ; 隨層
'(271 . 3) ; 尺寸標注精度
'(272 . 3) ; 公差標注精度
'(275 . 0) ; 角度標注制式丛晦，十進制奕纫。
'(288 . 1) ; 手動放置尺寸
)
)
25、點表生成樣條曲線
(entmake (append
(list '(0 . "SPLINE") '(100 . "AcDbEntity") '(100 . "AcDbSpline") '(71 . 3)) (mapcar '(lambda (pt) (cons 11 pt)) ptlst)
)
)
