基本函数类别：entity

如何使用这些函数? 请先阅读说明文档。

entity

entity:activedimstyle
说明：激活指定的标注样式。dimname:标注样式名
用法：
```
(entity:activedimstyle dimname)
```
参数：1 dimname : 未明确定义;

返回值：
示例：
```
(activedimstyle "40")
```
entity:activelayer
说明：设置指定层为当前层. name:图层名
用法：
```
(entity:activelayer name)
```
参数：1 name : 未明确定义;

返回值：成功返回t，失败返回nil
示例：
```
(entity:ActiveLayer "layer1")
```
entity:add-entitys-to-block
说明：添加选择集到块定义。
用法：
```
(entity:add-entitys-to-block block ss)
```
参数：1 block : 未明确定义; 2 ss : 选择集;

返回值：
示例：
entity:addhatch
说明：创建填充。outArray:外边界对象表，inArray:内边界对象表，name:充填名称
用法：
```
(entity:addhatch outarray inarray name)
```
参数：1 outarray : 未明确定义; 2 inarray : 未明确定义; 3 name : 未明确定义;

返回值：填充体对象
示例：
entity:addtext
说明：生成一个TEXT实体,entity:make-text参数简化版
用法：
```
(entity:addtext str pt zg ang dq)
```
参数：1 str : 字符串; 2 pt : 单个2D/3D坐标点; 3 zg : 未明确定义; 4 ang : 角度值; 5 dq : 未明确定义;

返回值：return:文字图元名
示例：
```
example:(entity:addtext "文字" (getpoint) 3 0 11)
```
entity:block
说明：将选择集、图元表、对象表创建为块。
用法：
```
(entity:block ss name insertionpoint)
```
参数：1 ss : 选择集; 2 name : 未明确定义; 3 insertionpoint : 未明确定义;

返回值：
示例：
entity:boundary
entity:change-ltype
说明：改变对象线型; 参数:; obj:对象; strLtype:线型
用法：
```
(entity:change-ltype obj strltype)
```
参数：1 obj : activeX 对象; 2 strltype : 字符串;

返回值：成功返回T，失败返回nil
示例：
```
(entity:change-Ltype cirobj "DASHED")
```
entity:change-textstyle
说明：更改指定字体样式的字体; 参数:; TextStyleName:字体样式名称; FontName:字体名字; BigFontName:大字体名字
用法：
```
(entity:change-textstyle textstylename fontname bigfontname)
```
参数：1 textstylename : 未明确定义; 2 fontname : 未明确定义; 3 bigfontname : 未明确定义;

返回值：无
示例：
```
(entity:ChangeTextStyle "STANDARD" "SIMfang.TTF" "");  (entity:Change-TextStyle "STANDARD" "simplex.shx" "dayuxp.shx")
```
entity:check-error-codes
说明：消除字体乱码，利用gbenor.shx gbcbig.shx; 参数:; doc:当前活动文档
用法：
```
(entity:check-error-codes doc)
```
参数：1 doc : 未明确定义;

返回值：无
示例：
```
(entity:Check-Error-Codes *DOC*)
```
entity:deldxf
说明：删除图元的某一组码，用于操作颜色等不是必段的组码。; 参数:; ename:图元，选择集，图元列表; code:组码或组码表;
用法：
```
(entity:deldxf ename code)
```
参数：1 ename : 单个图元; 2 code : 未明确定义;

返回值：更新后的图元，选择集，图元列表
示例：
```
(entity:deldxf (car (entsel)) 62 )
```
entity:dimaligned
说明：创建对齐标注
用法：
```
(entity:dimaligned p1 p2 txtpt)
```
参数：1 p1 : 未明确定义; 2 p2 : 未明确定义; 3 txtpt : 未明确定义;

返回值：
示例：
entity:dimdiameter
说明：生成直径标注
用法：
```
(entity:dimdiameter pt1 pt2 pt-txt)
```
参数：1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点; 3 pt-txt : 单个2D/3D坐标点;

返回值：return:标注图元名
示例：
```
example:(entity:dimdiameter (getpoint) (getpoint)(getpoint))
```
entity:dimhorizontal
说明：生成水平标注
用法：
```
(entity:dimhorizontal pt1 pt2 pt-txt)
```
参数：1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点; 3 pt-txt : 单个2D/3D坐标点;

返回值：return:标注图元名
示例：
```
example:(entity:dimhorizontal (getpoint) (getpoint) (getpoint))
```
entity:dimradius
说明：生成半径标注
用法：
```
(entity:dimradius pt-cen pt-r)
```
参数：1 pt-cen : 单个2D/3D坐标点; 2 pt-r : 单个2D/3D坐标点;

返回值：return:标注图元名
示例：
```
example:(entity:dimradius (getpoint) (getpoint))
```
entity:dimvertical
说明：创建竖向标注
用法：
```
(entity:dimvertical p1 p2 txtpt)
```
参数：1 p1 : 未明确定义; 2 p2 : 未明确定义; 3 txtpt : 未明确定义;

返回值：
示例：
entity:fontstyle_set
说明：验证字体样式是否存在，若不存在，则新建字体样式; 参数：; st_name : 文字样式名; h : 字高
用法：
```
(entity:fontstyle_set st_name h)
```
参数：1 st_name : 未明确定义; 2 h : 未明确定义;

返回值：
示例：
```
(fontstyle_set "仿宋_GB2312" 0)
```
entity:get-color
说明：获取图元的颜色，当颜色随层时，返回图层颜色。
用法：
```
(entity:get-color ent)
```
参数：1 ent : 单个图元;

返回值：
示例：
entity:get-layer
entity:get-linetype
entity:get-truecolor
entity:getbox
说明：图元的最小包围盒
用法：
```
(entity:getbox ent offset)
```
参数：1 ent : 单个图元; 2 offset : 偏移量;

返回值：return:外框（偏移后）的左下，右上角点
示例：
```
example:(entity:getbox (car(entsel)) 0.1)
```
entity:getdxf
说明：获取图元的组码值; 参数:; ent:图元名或vla对象名; i:组码或组码表
用法：
```
(entity:getdxf ent i)
```
参数：1 ent : 单个图元; 2 i : 未明确定义;

返回值：组码值或列表
示例：
```
(entity:getdxf (car (entsel)) 10)
```
entity:gettable
说明：
用法：
```
(entity:gettable s)
```
参数：1 s : 未明确定义;

返回值：
示例：
entity:gettextbox
说明：获取单行文本包围框
用法：
```
(entity:gettextbox ent-text offset)
```
参数：1 ent-text : 单个图元; 2 offset : 偏移量;

返回值：return:文字外框（偏移后）的四个角点（左下，右下，右上，左上
示例：
```
example:(entity:getTextBox (car(entsel)) 2)
```
entity:group
说明：将实体集编组
用法：
```
(entity:group lst name)
```
参数：1 lst : 列表; 2 name : 未明确定义;

返回值：
示例：
entity:layers
说明：获取图层列表
用法：
```
(entity:layers )
```
参数：None

返回值：
示例：
entity:line
说明：在模型空间画直线
用法：
```
(entity:line start end)
```
参数：1 start : 未明确定义; 2 end : 单个图元;

返回值：
示例：
entity:linetypes
说明：
用法：
```
(entity:linetypes )
```
参数：None

返回值：
示例：
entity:listcollection
说明：列集合
用法：
```
(entity:listcollection collection)
```
参数：1 collection : 未明确定义;

返回值：
示例：
entity:ltype-exists
说明：线型是否存在?; 参数:; strLtype:线型名
用法：
```
(entity:ltype-exists strltype)
```
参数：1 strltype : 字符串;

返回值：成功返回t，失败返回nil
示例：
```
(entity:Ltype-Exists "continuous")
```
entity:make-arc
说明：创建圆弧
用法：
```
(entity:make-arc cen rad startpt endpt)
```
参数：1 cen : 未明确定义; 2 rad : 未明确定义; 3 startpt : 未明确定义; 4 endpt : 单个图元;

返回值：
示例：
entity:make-arrow
说明：生成箭头,一端宽，一端窄的多段线。; 参数:; startpt:箭头尖坐标; endpt:箭头尾坐标; width:箭头尾宽度; 返回值:; 箭头图元名;
用法：
```
(entity:make-arrow startpt endpt width)
```
参数：1 startpt : 未明确定义; 2 endpt : 单个图元; 3 width : 未明确定义;

返回值：
示例：
entity:make-circle
说明：创建一个圆; 参数:; cen:圆心; rad:半径; 示例:; (entity:addcircle (getpoint) 3);
用法：
```
(entity:make-circle cen rad)
```
参数：1 cen : 未明确定义; 2 rad : 未明确定义;

返回值：
示例：
entity:make-dimstyle
说明：创建标注样式,name:标注样式名
用法：
```
(entity:make-dimstyle name)
```
参数：1 name : 未明确定义;

返回值：
示例：
entity:make-layer
说明：创建图层; 参数:; strName:图层名; intColor:图层颜色; strLtype:图层线型; booleCur:是否置为当前图层
用法：
```
(entity:make-layer strname intcolor strltype boolecur)
```
参数：1 strname : 字符串; 2 intcolor : 整数; 3 strltype : 字符串; 4 boolecur : 未明确定义;

返回值：成功返回图层名，失败返回nil
示例：
```
(entity:make-layer "Layer1" 3 "DASHED" T)
```
entity:make-leader
说明：创建无标记的箭头标注
用法：
```
(entity:make-leader startpt endpt)
```
参数：1 startpt : 未明确定义; 2 endpt : 单个图元;

返回值：
示例：
entity:make-line
说明：两点创建直线
用法：
```
(entity:make-line startpt endpt)
```
参数：1 startpt : 未明确定义; 2 endpt : 单个图元;

返回值：
示例：
entity:make-lines
说明：按多个点坐标创建连续直线
用法：
```
(entity:make-lines pts)
```
参数：1 pts : 多个坐标点列表;

返回值：
示例：
entity:make-lwpline-bold
说明：生成二维多段线.LWPOLYLINE; 参数:; plist:端点坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2))或((x1 y1) (x2 y2) (x2 y2)); convexity:各点与下一点的凸度(个数同坐标点表)，可为nil; elevation:标高; closed:是否闭合，1:闭合，0：不闭合
用法：
```
(entity:make-lwpline-bold plist convexity elevation closed bold)
```
参数：1 plist : 未明确定义; 2 convexity : 未明确定义; 3 elevation : 未明确定义; 4 closed : 未明确定义; 5 bold : 未明确定义;

返回值：返回值: 生成多段线的图元名
示例：
entity:make-lwpolyline
entity:make-mtext
entity:make-multileader
entity:make-pline
说明：生成二维多段线.POLYLINE; 参数:; plist:端点坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2))或((x1 y1) (x2 y2) (x2 y2)); convexity:各点与下一点的凸度(个数同坐标点表)，可为nil; elevation:标高; closed:是否闭合，1:闭合，0：不闭合
用法：
```
(entity:make-pline plist convexity elevation closed)
```
参数：1 plist : 未明确定义; 2 convexity : 未明确定义; 3 elevation : 未明确定义; 4 closed : 未明确定义;

返回值：返回值: 生成多段线的图元名
示例：
```
示例:  (entity:make-pline '((0 0 0) (5000 0 0) (5000 5000 0) (0 5000 0)) '(-1.0 -0.5 0 -0.3) 100 1)
```
entity:make-point
说明：根据参数坐标绘制一个点
用法：
```
(entity:make-point pt)
```
参数：1 pt : 单个2D/3D坐标点;

返回值：
示例：
entity:make-polyline
说明：生成三维多段线.POLYLINE; 参数:; pts:端点坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2)); closed:是否闭合，1:闭合，0：不闭合
用法：
```
(entity:make-polyline pts closed)
```
参数：1 pts : 多个坐标点列表; 2 closed : 未明确定义;

返回值：生成多段线的图元名
示例：
```
(entity:make-pline '((0 0 0) (5000 0 0) (5000 5000 0) (0 5000 0)) 1)
```
entity:make-polyline-ax
说明：根据点表生成polyline，三维多段线。参数:closed? T or nil.ActiveX 方法。
用法：
```
(entity:make-polyline-ax pts-3d closed?)
```
参数：1 pts-3d : 多个坐标点列表; 2 closed? : 未明确定义;

返回值：三维POLYLINE图元
示例：
entity:make-rectangle
说明：创建矩形框(水平，竖直方向)
用法：
```
(entity:make-rectangle pt1 pt2)
```
参数：1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点;

返回值：
示例：
entity:make-tag
说明：生成一个标签
用法：
```
(entity:make-tag pt name)
```
参数：1 pt : 单个2D/3D坐标点; 2 name : 未明确定义;

返回值：
示例：
entity:make-text
说明：生成一个TEXT实体,单行文本,; 参数说明：; fontsize: 字高; ang: 角度; kgb: 宽高比; qx: 倾斜角; dqys: 对齐方式，L 左 M 中 R 右，T 上 M 中 B 下。;
用法：
```
(entity:make-text str pt1 fontsize ang kgb qx dqys)
```
参数：1 str : 字符串; 2 pt1 : 单个2D/3D坐标点; 3 fontsize : 未明确定义; 4 ang : 角度值; 5 kgb : 未明确定义; 6 qx : 未明确定义; 7 dqys : 未明确定义;

返回值：return:文字图元名
示例：
```
example:(entity:make-text "文字" (getpoint) 3 0 0.8 0 "LB")
```
entity:make-textstyle
说明：创建文字样式。
用法：
```
(entity:make-textstyle name)
```
参数：1 name : 未明确定义;

返回值：
示例：
entity:make-xline
entity:offset
说明：偏移对象
用法：
```
(entity:offset obj dis)
```
参数：1 obj : activeX 对象; 2 dis : 未明确定义;

返回值：
示例：
entity:onlockedlayer
说明：解锁图元所在的图层
用法：
```
(entity:onlockedlayer ename)
```
参数：1 ename : 单个图元;

返回值：
示例：
entity:putdxf
说明：更新图元的组码值; 参数:; ename:图元，选择集，图元列表; code:组码或组码表; val:值或者值表
用法：
```
(entity:putdxf ename code val)
```
参数：1 ename : 单个图元; 2 code : 未明确定义; 3 val : 值;

返回值：更新后的图元，选择集，图元列表
示例：
```
(entity:putdxf (car (entsel)) 10 '(0 0 0))
```
entity:readme
entity:reference->definition
说明：计算块参照与块定义的变换矩阵
用法：
```
(entity:reference->definition ent)
```
参数：1 ent : 单个图元;

返回值：返回值:3x3矩阵和向量组成的表
示例：
```
示    例:(entity:Reference->Definition e)
```
entity:set-visible
entity:spline
说明：
用法：
```
(entity:spline pts)
```
参数：1 pts : 多个坐标点列表;

返回值：
示例：
entity:textstyles
说明：文字样式集合
用法：
```
(entity:textstyles )
```
参数：None

返回值：
示例：
entity:to-obj
说明：图元类型转为ActiveX对象。简化函数 e2o
用法：
```
(entity:to-obj en0)
```
参数：1 en0 : 单个图元;

返回值：
示例：

基本函数 类别：entity

entity

基本函数类别：entity