Entmake

/db_自贡黄明儒_ · 发表于 2014-4-10 23:01:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2014-12-31 08:49 编辑

;;此来自于http://bbs.mjtd.com/thread-92482-1-1.html by langjs。
;;我整理后贴于此，便于以后自己查阅,你可以提意见,欢迎。能增添的，我先表示感谢。
;;来喷的，请绕道。XDsoft老大如果不满，说明我做得确实不对，请删除，我没意见，
;;老大要留情哟{:soso_e106:} ）[功能] 插入块(entmake法属性或者非属性块)http://bbs.xdcad.net/thread-678244-1-1.html

;;167.1 [功能] Entmake直线
(defun EntmakeLine (p1 p2)
(entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
)
;;167.2 [功能] Entmake两顶点多段线（多顶点类似）
(defun entmakeLWPOLYLINE (pt1 pt2)
(entmakeX
(list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 2)
(cons 10 pt1)
(cons 10 pt2)
)
)
)
;;167.3 [功能] Entmake点表生成多段线
(defun Make-LWPOLYLINE (lst / PT)
(entmakeX
(append
(list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length lst))
)
(mapcar '(lambda (pt) (cons 10 pt)) lst)
)
)
)
;;167.4 [功能] Entmake圆
(defun EntmakeCIRCLE (cen r)
(entmakeX (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 r)))
)
;;167.5 [功能] Entmake圆弧
(defun EntmakeArc (pt r ang1 ang2)
(entmakeX
(list '(0 . "ARC")
(cons 10 pt)
(cons 40 r)
(cons 50 ang1)
(cons 51 ang2)
)
)
)
;;167.6 [功能] Entmake单行文本
(defun Make-TEXT (str pt)
(entmakeX
(list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 5))
)
)
;;167.7 [功能] Entmake居中单行文字
(defun EntmakeText (PT STR Textheigh)
(entmakeX
(list '(0 . "TEXT")
(cons 1 str)
(cons 10 pt)
(cons 40 Textheigh)
(cons 11 pt)
(cons 72 1)
(cons 73 2)
)
)
)
;;167.8 [功能] Entmake多行文本
(defun EntmakeMtext (str pt)
(entmakeX
(list '(0 . "MTEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbMText")
;;'(7 . "Standard")
(cons 1 str)
(cons 10 pt)
)
)
)
;;167.9 [功能] Entmake半径标注
;;(EntmakeRadial (getpoint) (getpoint))
(defun EntmakeRadial (cen p2)
(entmakeX
(list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 cen)
'(70 . 36)
'(100 . "AcDbRadialDimension")
(cons 15 p2)
)
)
)
;;[功能] Entmake直径标注 by自贡黄明儒整理
;;p1 p2圆上点，txtpt文字放置点
;;(setq eD (EntmakeDiametric (getpoint)(getpoint)(getpoint)))
(defun EntmakeDiametric (p1 p2 txtpt)
(entmakeX
(list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 p1)
(cons 11 txtpt)
'(70 . 163)
'(100 . "AcDbDiametricDimension")
(cons 15 p2)
)
)
)
;;[功能] Entmake水平标注 by自贡黄明儒整理
;;p1 p2点，txtpt文字放置点
;;(setq eD (EntmakeDimensionH (getpoint)(getpoint)(getpoint)))
(defun EntmakeDimensionH (p1 p2 txtpt)
(entmakeX
(list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 txtpt)
'(70 . 32)
'(1 . "")
'(100 . "AcDbAlignedDimension")
(cons 13 p1)
(cons 14 p2)
'(100 . "AcDbRotatedDimension")
)
)
)
;;[功能] Entmake垂直标注 by自贡黄明儒整理
;;p1 p2点，txtpt文字放置点
;;(setq eD (EntmakeDimensionV (getpoint)(getpoint)(getpoint)))
(defun EntmakeDimensionV (p1 p2 txtpt)
(entmakeX
(list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 txtpt)
'(70 . 32)
'(1 . "")
'(100 . "AcDbAlignedDimension")
(cons 13 p1)
(cons 14 p2)
'(50 . 1.5708)
'(100 . "AcDbRotatedDimension")
)
)
)
;;[功能] Entmake倾斜标注 by自贡黄明儒整理
;;p1 p2点，txtpt文字放置点
(defun EntmakeAlignedDim (p1 p2 txtpt)
(entmakeX
(list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 txtpt)
'(70 . 33)
'(1 . "")
'(100 . "AcDbAlignedDimension")
(cons 13 p1)
(cons 14 p2)
)
)
)

;;167.1 [功能] Entmake直线 
(defun EntmakeLine (p1 p2) 
  (entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))) 
) 
;;167.2 [功能] Entmake两顶点多段线（多顶点类似） 
(defun entmakeLWPOLYLINE (pt1 pt2) 
  (entmakeX 
    (list '(0 . "LWPOLYLINE") 
   '(100 . "AcDbEntity") 
   '(100 . "AcDbPolyline") 
   (cons 90 2) 
   (cons 10 pt1) 
   (cons 10 pt2) 
    ) 
  ) 
) 
;;167.3 [功能] Entmake点表生成多段线 
(defun Make-LWPOLYLINE (lst / PT) 
  (entmakeX 
    (append 
      (list '(0 . "LWPOLYLINE") 
     '(100 . "AcDbEntity") 
     '(100 . "AcDbPolyline") 
     (cons 90 (length lst)) 
      ) 
      (mapcar '(lambda (pt) (cons 10 pt)) lst) 
    ) 
  ) 
) 
;;167.4 [功能] Entmake圆 
(defun EntmakeCIRCLE (cen r) 
  (entmakeX (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 r))) 
) 
;;167.5 [功能] Entmake圆弧 
(defun EntmakeArc (pt r ang1 ang2) 
  (entmakeX 
    (list '(0 . "ARC") 
   (cons 10 pt) 
   (cons 40 r) 
   (cons 50 ang1) 
   (cons 51 ang2) 
    ) 
  ) 
) 
;;167.6 [功能] Entmake单行文本 
(defun Make-TEXT (str pt) 
  (entmakeX 
    (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 5)) 
  ) 
) 
;;167.7 [功能] Entmake居中单行文字 
(defun EntmakeText (PT STR Textheigh) 
  (entmakeX 
    (list '(0 . "TEXT") 
   (cons 1 str) 
   (cons 10 pt) 
   (cons 40 Textheigh) 
   (cons 11 pt) 
   (cons 72 1) 
   (cons 73 2) 
    ) 
  ) 
) 
;;167.8 [功能] Entmake多行文本 
(defun EntmakeMtext (str pt) 
  (entmakeX 
    (list '(0 . "MTEXT") 
   '(100 . "AcDbEntity") 
   '(100 . "AcDbMText") 
   ;;'(7 . "Standard") 
   (cons 1 str) 
   (cons 10 pt) 
    ) 
  ) 
) 
;;167.9 [功能] Entmake半径标注 
;;(EntmakeRadial (getpoint) (getpoint)) 
(defun EntmakeRadial (cen p2) 
  (entmakeX 
    (list '(0 . "DIMENSION") 
   '(100 . "AcDbEntity") 
   '(100 . "AcDbDimension") 
   (cons 10 cen) 
   '(70 . 36) 
   '(100 . "AcDbRadialDimension") 
   (cons 15 p2) 
    ) 
  ) 
) 
;;[功能] Entmake直径标注 by自贡黄明儒整理 
;;p1 p2圆上点，txtpt文字放置点 
;;(setq eD (EntmakeDiametric (getpoint)(getpoint)(getpoint))) 
(defun EntmakeDiametric        (p1 p2 txtpt) 
  (entmakeX 
    (list '(0 . "DIMENSION") 
          '(100 . "AcDbEntity") 
          '(100 . "AcDbDimension") 
          (cons 10 p1) 
          (cons 11 txtpt) 
          '(70 . 163) 
          '(100 . "AcDbDiametricDimension") 
          (cons 15 p2) 
    ) 
  ) 
) 
 
;;[功能] Entmake水平标注 by自贡黄明儒整理 
;;p1 p2点，txtpt文字放置点 
;;(setq eD (EntmakeDimensionH (getpoint)(getpoint)(getpoint))) 
(defun EntmakeDimensionH (p1 p2 txtpt) 
  (entmakeX 
    (list '(0 . "DIMENSION") 
          '(100 . "AcDbEntity") 
          '(100 . "AcDbDimension") 
          (cons 10 txtpt) 
          '(70 . 32) 
          '(1 . "") 
          '(100 . "AcDbAlignedDimension") 
          (cons 13 p1) 
          (cons 14 p2) 
          '(100 . "AcDbRotatedDimension") 
    ) 
  ) 
) 
 
;;[功能] Entmake垂直标注 by自贡黄明儒整理 
;;p1 p2点，txtpt文字放置点 
;;(setq eD (EntmakeDimensionV (getpoint)(getpoint)(getpoint))) 
(defun EntmakeDimensionV (p1 p2 txtpt) 
  (entmakeX 
    (list '(0 . "DIMENSION") 
          '(100 . "AcDbEntity") 
          '(100 . "AcDbDimension") 
          (cons 10 txtpt) 
          '(70 . 32) 
          '(1 . "") 
          '(100 . "AcDbAlignedDimension") 
          (cons 13 p1) 
          (cons 14 p2) 
          '(50 . 1.5708) 
          '(100 . "AcDbRotatedDimension") 
    ) 
  ) 
) 
 
;;[功能] Entmake倾斜标注 by自贡黄明儒整理 
;;p1 p2点，txtpt文字放置点 
(defun EntmakeAlignedDim (p1 p2 txtpt) 
  (entmakeX 
    (list '(0 . "DIMENSION") 
          '(100 . "AcDbEntity") 
          '(100 . "AcDbDimension") 
          (cons 10 txtpt) 
          '(70 . 33) 
          '(1 . "") 
          '(100 . "AcDbAlignedDimension") 
          (cons 13 p1) 
          (cons 14 p2) 
    ) 
  ) 
)

游客，如果您要查看本帖隐藏内容请回复

;;符号表的必要条件
  (EntMakeX '((0 . "LAYER")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbLayerTableRecord")
            (2 . "MyLAYER")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "LTYPE")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbLinetypeTableRecord")
            (2 . "MyLTYPE")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "VIEW")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbViewTableRecord")
            (2 . "MyVIEW")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "STYLE")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbTextStyleTableRecord")
            (2 . "MySTYLE")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "APPID")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbRegAppTableRecord")
            (2 . "MyAPPID")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "UCS")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbUCSTableRecord")
            (2 . "MyUCS")
            (70 . 0)
            (11 0.904145 0.427225 0.0)
            (12 -0.427225 0.904145 0.0)
         )
  )
  (EntMakeX '((0 . "DIMSTYLE")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbDimStyleTableRecord")
            (2 . "My")
            (70 . 0)
         )
  )
  (EntMakeX '((0 . "VPORT")
            (100 . "AcDbSymbolTableRecord")
            (100 . "AcDbViewportTableRecord")
            (2 . "My")
            (70 . 0)
         )
  )

819534890 · 发表于 2014-4-10 23:35:59

回复学习一下

lucas3 · 发表于 2014-4-11 00:06:26

明经不能贴了? 黄大师这是什么意思哟？

q3_2006 · 发表于 2014-4-11 05:23:23

为什么明经不能贴了??

yoyoho · 发表于 2014-4-11 06:29:04

感谢黄老师分享,回复学习一下!

HLCAD · 发表于 2014-4-11 08:34:26

回复，支持黄大侠！

phoevana · 发表于 2014-4-11 12:09:33

支持大师，感觉明经这段时间氛围很不好，不知道为什么有人出来挑事，以前都好好的

lucas3 · 发表于 2014-4-11 13:02:57

phoevana 发表于 2014-4-11 12:09
支持大师，感觉明经这段时间氛围很不好，不知道为什么有人出来挑事，以前都好好的

嗯，也是，关键是没有管理员管理，版主都只愿做好人，该管的不管

ou_y_x · 发表于 2014-4-11 14:24:27

学习了。。。

kwok · 发表于 2014-4-11 14:29:24

看看增加了什么.

st788796 · 发表于 2014-4-11 17:13:28

这些写就一次，一劳永逸，不过桌子对新加的东西说明越来越少，得自己试验

范建威 · 发表于 2014-4-12 00:04:52

谢谢！楼主的无私共享

cable2004 · 发表于 2014-4-12 00:26:13

这里的不错，归类发贴还是蛮好的。

ysq101 · 发表于 2014-4-13 00:01:46

黄大师可以看看我发的贴子关于-----找到最少entmake关键元素

http://bbs.xdcad.net/thread-673303-1-1.html

namezg · 发表于 2014-4-13 11:27:04

这个不错的，挺一下

账号		自动登录	找回密码
密码			立即注册

[每日一码] Entmake

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评