




已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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) (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) )对于mtext,控制文字的对齐格式可以使用以下组码:(71 . 1) 左对齐-上对齐这个是默认的对齐方式(71 . 4) 左对齐-中央对齐(71 . 7) 左对齐-下对齐(71 . 2) 居中对齐-上对齐(71 . 5) 居中对齐-中央对齐(71 . 8) 居中对齐-下对齐(71 . 3) 右对齐-上对齐(71 . 6) 右对齐-中央对齐(71 . 9) 右对齐-下对齐如果使用替换文字编辑器,则通过输入格式代码应用格式。 可为文字加下划线、删除线和创建堆叠文字。 用户可以修改颜色、字体和文字高度, 还可以修改文字字符间距或增加字符本身宽度。 要应用格式,请使用下表中列出的格式代码:td段落格式代码格式代码作用输入.要生成 .0.o打开和关闭 下划线Autodesk OAutoCADoL.l打开和关闭 下划线Autodesk LAutoCADl插入不间断 空格Autodesk AutoCADLT插入反斜杠Autodesk AutoCAD.插入左大括号和右大括号Autodesk AutoCADCvalue;修改为 指定的颜色Autodesk C2;AutoCAD File name;修改为 指定的字体文件Autodesk Ftimes; AutoCADHvalue;修改为 以图形单位表示的 指定文字高度Autodesk H2;AutoCADHvaluex;将文字高度修改为 当前样式文字高度的 数倍Autodesk H3x;AutoCADS.;堆叠 、# 或 符号后的文字1.000S+0.010-0.000;Tvalue;调整字符间距,从 .75 到 4 倍T2;AutodeskQangle;修改倾斜角度Q20;AutodeskWvalue;修改宽度比例生成宽字W2;AutodeskA设置对齐方式值,有效值为:0、1、2 (底端对正、居中对正、顶端对正)A1;1S1/2P结束段落AutodeskPAutoCAD大括号最多可以嵌套八层。也可以使用控制代码添加特殊的字符,例如公差和标注符号。 请参见MTEXT。样例:在替换文字编辑器中设置文字格式本例说明了下图中的文字是如何创建的。通过输入控制代码或 Unicode 字符串可以输入以下特殊字符或符号。 或在在位文字编辑器中,在展开的工具栏上单击“符号”。注意 不支持在垂直文字中使用符号。tdUnicode 字符串和控制代码控制代码Unicode 字符串结果%dU+00B0度符号 ()%pU+00B1公差符号 ()%cU+2205直径符号 ()要插入以下文字符号,请在展开的“文字格式”工具栏上单击“符号”,或输入适当的 Unicode 字符串:td文字符号和 Unicode 字符串名称符号Unicode 字符串几乎相等U+2248角度U+2220边界线U+E100中心线U+2104
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 邯郸市人民医院ERCP技师配合专项理论与流程笔试试题
- 巴彦淖尔市人民医院关节镜疼痛治疗考核
- 2025年基于SWOT分析的广西民族传统手工艺产业化战略导向(共5)
- 运城市人民医院窃血综合征处理考核
- 晋城市中医院B超检查时间控制考核
- 运城市人民医院房颤迷宫手术技术考核
- 石家庄市人民医院皮肤超声诊断技能考核
- 2025年阶梯项目咨询有限公司-企业报告(供应商版)
- 晋城市人民医院血管外科导管护理考核
- 2025年互联网行业服务质量提升可行性研究报告
- 山东省名校考试联盟2026届高三上学期10月阶段性检测数学试卷(含答案)
- 基于IPv9技术的商务港交易平台构建:设计、实现与展望
- 江浙皖高中(县中)发展共同体2025-2026学年高三上学期10月联考技术试题(含答案)
- 2026年国网山东省电力公司高校毕业生提前批招聘(约450人)考试参考试题及答案解析
- 电动牵引车司机安全培训课件
- 2025年全国应急管理普法知识竞赛试题库及答案
- 2025年个人电动汽车购买协议
- 无人机测绘课件
- 2025秋季安徽合肥市建投集团招聘20人笔试备考题库及答案解析
- 创意笔筒产品设计与制作方案
- 快递员安全寄递培训课件
评论
0/150
提交评论