注册 登录
明经CAD社区 返回首页

菜卷鱼的个人空间 http://www.mjtd.com/?399892 [收藏] [复制] [分享] [RSS]

日志

entmake创建图元必要条件

热度 8已有 1381 次阅读2013-12-27 09:43 |系统分类:应用


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、创建新线型
  (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、构造线
(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)
    )
  )

2

路过

雷人
6

握手

鲜花

鸡蛋

刚表态过的朋友 (8 人)

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 18:36 , Processed in 0.163707 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部