entmake创建图元必要条件.docx
- 文档编号:9284733
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:8
- 大小:50.34KB
entmake创建图元必要条件.docx
《entmake创建图元必要条件.docx》由会员分享,可在线阅读,更多相关《entmake创建图元必要条件.docx(8页珍藏版)》请在冰豆网上搜索。
entmake创建图元必要条件
entmake创建图元必要条件
D
16、将选择集做成属性块(选择集中单行文本作为属性)
(defunemkattblk(ssptname/enti)
(entmake(list'(0."block")(cons2name)'(70.2)(cons10pt)))
(repeat(setqi(sslengthss))
(setqent(entget(ssnamess(setqi(1-i)))))
(if(=(cdr(assoc0ent))"TEXT")
(entmake(list'(0."ATTDEF")(assoc10ent)(assoc40ent)(assoc1ent)(cons3(cdr(assoc1ent)))
(cons2(cdr(assoc1ent)))'(70.0)))
(entmake(cdrent))
)
)
(entmake'((0."ENDBLK")))
)
17、生成图层
(entmake(list'(0."LAYER")'(100."AcDbSymbolTableRecord")'(100."AcDbLayerTableRecord")'(70.0)'(6."Continuous")
(cons2name)
)
)
18、创建新线型
(entmake(list'(0."LTYPE")'(100."AcDbSymbolTableRecord")'(100."AcDbLinetypeTableRecord")(cons2"BERDIG5-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") (cons10pt)(cons10pt1)
(cons10pt2)
)
)
20、构造线
(entmake(list'(0."XLINE")'(100."AcDbEntity")'(100."AcDbXline")(cons10pt)(cons11pt1)))
21、椭圆
(entmake'((0."ELLIPSE")(100."AcDbEntity")(100."AcDbEllipse")(103969.64289.140.0)(11-1828.470.00.0)
(40.0.416093)
(42.6.28319)
)
)
22、点
(entmake(list'(0."POINT")(cons10pt)))
23、entmake文字样式
(entmake(list'(0."STYLE")'(100."AcDbSymbolTableRecord")'(100."AcDbTextStyleTableRecord")(cons2name)'(70.0)
(cons40h)(cons41w)'(3."romans.shx")'(4."Hztxts.shx")
)
)
24、建立第一级标注样式(来源于论坛)
(entmake(list'(0."DIMSTYLE")
'(100."AcDbSymbolTableRecord")
'(100."AcDbDimStyleTableRecord")
'(70.0)
(cons340(tblobjname"style""Standard"));文字样式名
(cons2"普通螺纹") ;标注样式名
'(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)(cons11pt)) ptlst)
)
)
对于mtext,控制文字的对齐格式可以使用以下组码:
(71.1)左对齐-上对齐 这个是默认的对齐方式
(71.4)左对齐-中央对齐
(71.7)左对齐-下对齐
(71.2)居中对齐-上对齐
(71.5)居中对齐-中央对齐
(71.8)居中对齐-下对齐
(71.3)右对齐-上对齐
(71.6)右对齐-中央对齐
(71.9)右对齐-下对齐
如果使用替换文字编辑器,则通过输入格式代码应用格式。
可为文字加下划线、删除线和创建堆叠文字。
用户可以修改颜色、字体和文字高度,还可以修改文字字符间距或增加字符本身宽度。
要应用格式,请使用下表中列出的格式代码:
[td]
段落格式代码
格式代码
作用
输入...
要生成...
\0...\o
打开和关闭下划线
Autodesk\OAutoCAD\o
\L...\l
打开和关闭下划线
Autodesk\LAutoCAD\l
\~
插入不间断空格
AutodeskAutoCAD\~LT
\\
插入反斜杠
Autodesk\\AutoCAD
\{...\}
插入左大括号和右大括号
Autodesk\{AutoCAD\}
\Cvalue;
修改为指定的颜色
Autodesk\C2;AutoCAD
\Filename;
修改为指定的字体文件
Autodesk\Ftimes;AutoCAD
\Hvalue;
修改为以图形单位表示的指定文字高度
Autodesk\H2;AutoCAD
\Hvaluex;
将文字高度修改为当前样式文字高度的数倍
Autodesk\H3x;AutoCAD
\S...^...;
堆叠\、#或^符号后的文字
1.000\S+0.010^-0.000;
\Tvalue;
调整字符间距,从.75到4倍
\T2;Autodesk
\Qangle;
修改倾斜角度
\Q20;Autodesk
\Wvalue;
修改宽度比例生成宽字
\W2;Autodesk
\A
设置对齐方式值,有效值为:
0、1、2(底端对正、居中对正、顶端对正)
\A1;1\S1/2
\P
结束段落
Autodesk\PAutoCAD
大括号最多可以嵌套八层。
也可以使用控制代码添加特殊的字符,例如公差和标注符号。
请参见 MTEXT。
样例:
在替换文字编辑器中设置文字格式
本例说明了下图中的文字是如何创建的。
通过输入控制代码或Unicode字符串可以输入以下特殊字符或符号。
或在在位文字编辑器中,在展开的工具栏上单击“符号”。
注意不支持在垂直文字中使用符号。
[td]
Unicode字符串和控制代码
控制代码
Unicode字符串
结果
%%d
\U+00B0
度符号(°)
%%p
\U+00B1
公差符号(±)
%%c
\U+2205
直径符号(∅)
要插入以下文字符号,请在展开的“文字格式”工具栏上单击“符号”,或输入适当的Unicode字符串:
[td]
文字符号和Unicode字符串
名称
符号
Unicode字符串
几乎相等
\U+2248
角度
\U+2220
边界线
\U+E100
中心线
\U+2104
增量
\U+0394
电相位
\U+0278
流线
\U+E101
标识
\U+2261
初始长度
\U+E200
界碑线
\U+E102
不相等
\U+2260
欧姆
\U+2126
欧米加
\U+03A9
地界线
\U+214A
下标2
\U+2082
平方
\U+00B2
立方
\U+00B3
以上文字符号适用于下列TrueType(TTF)字体和SHX字体:
SimplexRomanSIsocpIsocp2Isocp3IsoctIsoct2Isoct3Isocpeur(仅TTF字体)Isocpeuritalic(仅TTF字体)Isocteur(仅TTF字体)
∙Isocteuritalic(仅TTF字体)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- entmake 创建 必要条件