基本函数 类别: geometry

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

geometry

• base64:base64-to-file

  说明:

  用法:

  (base64:base64-to-file file str-base64)

  参数: 1 file : 未明确定义; 2 str-base64 : 字符串;

  返回值:

  示例:

• base64:decode

  说明: Decode base64 string

  用法:

  (base64:decode str-base64)

  参数: 1 str-base64 : 字符串;

  返回值: list of unsigned 8bit integer

  示例:

• base64:encode

  说明:

  用法:

  (base64:encode lst-uint8)

  参数: 1 lst-uint8 : 列表;

  返回值:

  示例:

• base64:encode-from-file

  说明:

  用法:

  (base64:encode-from-file file)

  参数: 1 file : 未明确定义;

  返回值:

  示例:

• base:init
• block:attach
• block:bcs2wcs
• block:ent-list
• block:get-attdef
• block:get-attrib-ents
• block:get-attributes

  说明: 获取块属性,返回属性名和值的点对列表。

  用法:

  (block:get-attributes blk)

  参数: 1 blk : 块图元/对象;

  返回值:

  示例:

• block:get-clip-boundary
• block:get-dynamic-prop-cons-name-value

  说明: 获取动态块的动态特性(自定义)列表：特性名与当前值的点对表

  用法:

  (block:get-dynamic-prop-cons-name-value blk)

  参数: 1 blk : 块图元/对象;

  返回值:

  示例:

• block:get-dynamic-properties

  说明: 获取动态块的动态特性(自定义)列表：属性名，当前值，只读性，是否显示，允许值

  用法:

  (block:get-dynamic-properties blk)

  参数: 1 blk : 块图元/对象;

  返回值:

  示例:

• block:get-dynprop
• block:get-effectivename

  说明: 取得块真实名称，支持 MAC

  用法:

  (block:get-effectivename blk)

  参数: 1 blk : 块图元/对象;

  返回值:

  示例:

• block:get-obj-by-name
• block:get-properties
• block:insert

  说明: 插入块参照，; blkname 块名，; path 块文件路径， ; pt 插入点, ; ang 旋转角度，; scale 比例。

  用法:

  (block:insert blkname path pt ang scale)

  参数: 1 blkname : 块名称; 2 path : 文件路径; 3 pt : 单个2D/3D坐标点; 4 ang : 角度值; 5 scale : 比例值;

  返回值: 块实体

  示例:

• block:list
• block:list-blk-objs
• block:list-xref-objs
• block:readme
• block:set-attributes

  说明: 设置块属性值

  用法:

  (block:set-attributes blk lst)

  参数: 1 blk : 块图元/对象; 2 lst : 列表;

  返回值:

  示例:

• block:set-dynprop

  说明: 设置动态块特性值

  用法:

  (block:set-dynprop blk prp val)

  参数: 1 blk : 块图元/对象; 2 prp : 块特性; 3 val : 值;

  返回值:

  示例:

• block:ssget

  说明: 选择满足指定属性标记及对应值的块; 参数: blknames 块名，或块名列表; 参数: lst-attr 属性名与值的点对表

  用法:

  (block:ssget blknames lst-attr)

  参数: 1 blknames : 块名称; 2 lst-attr : 列表;

  返回值: 满足条件的选择集

  示例:

  (block:ssget '("块1" "块2") '(("属性1" . "值1")("属性2" . "值2")))

• block:wcs2bcs
• cl:acons
• cl:format
• cl:handle-keywords
• cl:let
• cl:pairlis
• cl:rassoc
• clipboard:cleardata

  说明: 清空剪贴板内容

  用法:

  (clipboard:cleardata )

  参数: None

  返回值:

  示例:

• clipboard:getdata

  说明: 获取剪贴板内容

  用法:

  (clipboard:getdata )

  参数: None

  返回值:

  示例:

• clipboard:init
• clipboard:setdata

  说明: 设置剪贴板内容为 str.

  用法:

  (clipboard:setdata str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• color:aci2rgb

  说明: 索引色转RGB,

  用法:

  (color:aci2rgb aci)

  参数: 1 aci : 未明确定义;

  返回值:

  示例:

• color:bookcolor2rgb
• color:interface
• color:rgb

  说明: 计算RGB颜色对应的整数值。Red Green Blue 取值范围为 [0,255]的整数或[0,1)的小数。

  用法:

  (color:rgb red green blue)

  参数: 1 red : 未明确定义; 2 green : 未明确定义; 3 blue : 未明确定义;

  返回值: RGB颜色值

  示例:

  (color:rgb 255 0 0) or (color:rgb 0.999 0 0);  红色

• color:rgb2css
• color:rgb2truecolor
• color:truecolor2aci
• color:truecolor2rgb
• crypto:md5
• curve:3pt+chord2pt
• curve:3pt2bulge
• curve:3pt2bulge-plus
• curve:3pt2o
• curve:arc2lwpl
• curve:bulge2o

  说明: 求凸度bulge 和两点 pt1 pt2 表示的弧的圆心。

  用法:

  (curve:bulge2o pt1 pt2 bulge)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点; 3 bulge : 未明确定义;

  返回值:

  示例:

• curve:chain-line
• curve:checkarc

  说明: 判断多段线是否有圆弧(凸度/=0)的子段

  用法:

  (curve:checkarc en)

  参数: 1 en : 单个图元;

  返回值:

  示例:

• curve:circle2lwpl

  说明: 将圆转换成 由 int 段组成的多段线

  用法:

  (curve:circle2lwpl ent-circle int)

  参数: 1 ent-circle : 单个图元; 2 int : 整数;

  返回值: 多段线图元

  示例:

• curve:circle2pts
• curve:clockwisep

  说明: 判断多段线方向

  用法:

  (curve:clockwisep ent)

  参数: 1 ent : 单个图元;

  返回值: 顺时针返回t，反之nil

  示例:

  (curve:clockwisep (car(entsel)))

• curve:get-angles
• curve:get-points
• curve:inters

  说明: 获取对象交点列表; 参数 obj1 obj2 : 选择集，vla对象，图元名，vla对象表，图元表，nil; 参数 mode: 该参数只有obj1、obj2为图元或vla对象时，服从下列设置，其他情况均默认对象不延伸; obj1 和 obj2 参数可任意组合，但不能全为nil; acExtendNone 对象不延伸; acExtendThisEntity 延伸obj1; acExtendOtherEntity 延伸obj2; acExtendBoth 对象都延伸; nil = acExtendNone 对象不延伸

  用法:

  (curve:inters obj1 obj2 mode)

  参数: 1 obj1 : activeX 对象; 2 obj2 : activeX 对象; 3 mode : 未明确定义;

  返回值: 对象交点列表

  示例:

  (curve:inters obj1 obj2 acExtendNone)

• curve:join

  说明: 合并多段线函数

  用法:

  (curve:join entlst fuzz)

  参数: 1 entlst : 单个图元; 2 fuzz : 容差;

  返回值: return:合并后的多段线图元名

  示例:

  example:(curve:join '(ent1 ent2 ent3 ..) 0.000001);     (curve:join (ssget) 0.000001);  

• curve:length

  说明: 参数curve:曲线，直线、圆弧、圆、多段线、优化多段线、样条曲线等图元

  用法:

  (curve:length curve)

  参数: 1 curve : 曲线;

  返回值: 曲线的长度

  示例:

  (curve:Length (car (entsel)))

• curve:lwpl-is-circle-p
• curve:lwpl-turn-clockwise

  说明: 反转多段线，调整顺时针或逆时针方向。

  用法:

  (curve:lwpl-turn-clockwise ent)

  参数: 1 ent : 单个图元;

  返回值: 新多段线图元

  示例:

• curve:midpoint

  说明: 求曲线中点

  用法:

  (curve:midpoint curve)

  参数: 1 curve : 曲线;

  返回值: 中点坐标

  示例:

  (curve:midpoint (car (entsel)))

• curve:o2bulge

  说明: 求圆心 O 和两点 pt1 pt2 表示的弧的凸度。目前暂时没有方向，及正负。

  用法:

  (curve:o2bulge pt1 pt2 o)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点; 3 o : 未明确定义;

  返回值:

  示例:

• curve:o2bulge-clockwise
• curve:optimize-lwpl
• curve:param-firstangle

  说明: 曲线参数param处的切线方向的角度

  用法:

  (curve:param-firstangle obj param)

  参数: 1 obj : activeX 对象; 2 param : 未明确定义;

  返回值:

  示例:

• curve:param-secondangle

  说明: 曲线参数param处的法线方向的角度

  用法:

  (curve:param-secondangle obj param)

  参数: 1 obj : activeX 对象; 2 param : 未明确定义;

  返回值:

  示例:

• curve:pickclosepointto

  说明: 多段线上距离点击点最近的一个顶点

  用法:

  (curve:pickclosepointto obj p)

  参数: 1 obj : activeX 对象; 2 p : 未明确定义;

  返回值:

  示例:

• curve:pline-2dpoints

  说明: 多段线端点列表，返回二维点坐标,LWPOLYLINE组码本来就是二维点。

  用法:

  (curve:pline-2dpoints ent)

  参数: 1 ent : 单个图元;

  返回值: 二维点坐标列表

  示例:

  (curve:Pline-2dpoints (car (entsel)))

• curve:pline-3dpoints

  说明: 多段线端点列表，返回三维点坐标

  用法:

  (curve:pline-3dpoints ent)

  参数: 1 ent : 单个图元;

  返回值: 三维点坐标列表

  示例:

  (curve:pline-3dpoints (car (entsel)))

• curve:pline-convexity

  说明: 多段线端点列表，返回三维点坐标

  用法:

  (curve:pline-convexity ent)

  参数: 1 ent : 单个图元;

  返回值:

  示例:

• curve:point-firstangle

  说明: 曲线一点的切线方向的角度

  用法:

  (curve:point-firstangle obj pt)

  参数: 1 obj : activeX 对象; 2 pt : 单个2D/3D坐标点;

  返回值:

  示例:

• curve:point-secondangle

  说明: 曲线一点的法线方向的角度

  用法:

  (curve:point-secondangle obj pt)

  参数: 1 obj : activeX 对象; 2 pt : 单个2D/3D坐标点;

  返回值:

  示例:

• curve:pt-in-arc-p

  说明: 判断 点 pt 是否在 pt1 pt2 及 凸度 表示的圆弧上。

  用法:

  (curve:pt-in-arc-p pt pt1 pt2 convexity)

  参数: 1 pt : 单个2D/3D坐标点; 2 pt1 : 单个2D/3D坐标点; 3 pt2 : 单个2D/3D坐标点; 4 convexity : 未明确定义;

  返回值:

  示例:

• curve:ptoncurve

  说明: 判断点是否在曲线上

  用法:

  (curve:ptoncurve pt curve)

  参数: 1 pt : 单个2D/3D坐标点; 2 curve : 曲线;

  返回值: T or nil

  示例:

  (curve:PtOnCurve (getpoint) (car (entsel)))

• curve:put-points
• curve:putclosed

  说明: 使多段线封闭

  用法:

  (curve:putclosed obj)

  参数: 1 obj : activeX 对象;

  返回值: 无

  示例:

  (curve:putClosed (car (entsel)))

• curve:readme
• curve:rectangle-center

  说明: 矩形中点坐标

  用法:

  (curve:rectangle-center en)

  参数: 1 en : 单个图元;

  返回值:

  示例:

• curve:rectanglep
• curve:similar-p
• curve:subsegment-length

  说明: 多段线子段长度

  用法:

  (curve:subsegment-length obj pt1 pt2)

  参数: 1 obj : activeX 对象; 2 pt1 : 单个2D/3D坐标点; 3 pt2 : 单个2D/3D坐标点;

  返回值:

  示例:

• curve:subsegment-parameter

  说明: 多段线子段参数

  用法:

  (curve:subsegment-parameter curve pt)

  参数: 1 curve : 曲线; 2 pt : 单个2D/3D坐标点;

  返回值:

  示例:

• curve:subsegment-picked-param

  说明: 多段线所点击子段参数

  用法:

  (curve:subsegment-picked-param obj p)

  参数: 1 obj : activeX 对象; 2 p : 未明确定义;

  返回值:

  示例:

• curve:subsegment-picked-points

  说明: 多段线所点击子段的两端点列表

  用法:

  (curve:subsegment-picked-points obj p)

  参数: 1 obj : activeX 对象; 2 p : 未明确定义;

  返回值:

  示例:

• curve:subsegment-picked-type

  说明: 多段线子段图元类型

  用法:

  (curve:subsegment-picked-type curve p)

  参数: 1 curve : 曲线; 2 p : 未明确定义;

  返回值:

  示例:

• curve:subsegment-points

  说明: 多段线第n子段的端点坐标

  用法:

  (curve:subsegment-points curve n)

  参数: 1 curve : 曲线; 2 n : 未明确定义;

  返回值:

  示例:

• curve:subsegments

  说明: 多段线子段数量

  用法:

  (curve:subsegments obj)

  参数: 1 obj : activeX 对象;

  返回值:

  示例:

• datetime:current-time
• datetime:get-current-day
• datetime:get-current-month
• datetime:get-current-year
• datetime:get-universal-time
• datetime:leap-yearp
• datetime:mktime
• datetime:mktime1900
• datetime:rfc1123-to-lisp
• dbx:interface
• dbx:open
• dbx:release
• dcl:accept
• dcl:begin-cluster
• dcl:button
• dcl:cell
• dcl:dialog
• dcl:dialog-end-ok-cancel
• dcl:end-cluster
• dcl:end-dialog
• dcl:error
• dcl:hr
• dcl:image-button
• dcl:img
• dcl:input
• dcl:lst2dcl
• dcl:mtext
• dcl:new
• dcl:paging
• dcl:password
• dcl:progressbar
• dcl:scrollbar
• dcl:set-mtext
• dcl:set-progressbar
• dcl:show
• dcl:text
• demo:demo
• dim:multi-dim
• 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:properties
• 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-list
• entity:to-obj

  说明: 图元类型转为ActiveX对象。简化函数 e2o

  用法:

  (entity:to-obj en0)

  参数: 1 en0 : 单个图元;

  返回值:

  示例:

• entity:try-get
• env:set-bg-color

  说明: 设置绘图区背景色

  用法:

  (env:set-bg-color col)

  参数: 1 col : 未明确定义;

  返回值: 无

  示例:

  (env:set-bg-color 55)

• env:set-cross-color

  说明:

  用法:

  (env:set-cross-color )

  参数: None

  返回值:

  示例:

• example:cmd-reactor
• example:dbx
• example:dcl-cell
• example:dcl-dialog
• example:dcl-modify-title
• example:dcl-mtext
• example:dcl-mtext2
• example:dcl-multirb
• example:dcl-progressbar
• example:dcl-progressbar2
• example:dcl-subdialog
• example:dcl1
• example:error-exit
• example:grread
• example:multi-platform
• example:prev-var
• example:sort
• excel:aci->eci

  说明: 将cad颜色索引转换为excel颜色索引; 参数:Color:cad颜色索引

  用法:

  (excel:aci->eci color)

  参数: 1 color : 未明确定义;

  返回值: excel颜色索引

  示例:

  (excel:ACI->ECI 2)

• excel:aci->truecolor

  说明: 将cad颜色索引转换为真彩色值; 参数:aci:cad颜色索引

  用法:

  (excel:aci->truecolor aci)

  参数: 1 aci : 未明确定义;

  返回值: 真彩色值

  示例:

  (excel:ACI->Truecolor)

• excel:add-sheet

  说明: 添加个工作表; 参数:XLApp:已打开的excel文件对象; 参数:Name:工作表名

  用法:

  (excel:add-sheet xlapp name)

  参数: 1 xlapp : 未明确定义; 2 name : 未明确定义;

  返回值: 成功返回t

  示例:

  (excel:add-sheet exobj "123")

• excel:delete-sheet

  说明: 说明:删除工作表; 参数:XLApp:已打开的excel文件对象; 参数:Name:工作表名

  用法:

  (excel:delete-sheet xlapp name)

  参数: 1 xlapp : 未明确定义; 2 name : 未明确定义;

  返回值: 成功返回t

  示例:

  (excel:deleteSheet exobj "123")

• excel:eci->aci

  说明: 将excel颜色索引转换为cad颜色索引; 参数:Color:excel颜色索引

  用法:

  (excel:eci->aci color)

  参数: 1 color : 未明确定义;

  返回值: cad颜色索引

  示例:

  (Excel:ECI->ACI 6)

• excel:eci->truecolor

  说明: 将excel颜色索引转换为真彩色值; 参数:Color:excel颜色索引

  用法:

  (excel:eci->truecolor color)

  参数: 1 color : 未明确定义;

  返回值: 真彩色值

  示例:

  (excel:ECI->Truecolor 6)

• excel:get-activesheet

  说明: 获取当前工作表的名字; 参数:XLApp:打开的excel文件对象

  用法:

  (excel:get-activesheet xlapp)

  参数: 1 xlapp : 未明确定义;

  返回值: 名字字符串

  示例:

  (excel:getActiveSheet exobj)

• excel:get-backcolor

  说明: 获取充填色; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:get-backcolor xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: 颜色索引字符串 0-56 号

  示例:

  (excel:get-Backcolor exobj "A1")

• excel:get-mergeindex

  说明: 获取合并单元格的索引; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:get-mergeindex xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: A1格式的索引

  示例:

  (Excel:get-MergeIndex)

• excel:get-property

  说明: 检索 VLA 对象的特性; 参数:obj:vla对象; 参数:prop:符号或字符串，标识要检索的特性，字符串的时候可以直接调用多级特性："Rows.Count"

  用法:

  (excel:get-property obj prop)

  参数: 1 obj : activeX 对象; 2 prop : 未明确定义;

  返回值: 特性的值

  示例:

  (excel:get-property range "MergeArea.Rows.Count")

• excel:get-range

  说明: 说明:根据索引获取range对象; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:get-range xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: range对象

  示例:

  (excel:get-Range exobj "A1")

• excel:get-rangeindex

  说明: 获取range的索引; 参数:range:range对象

  用法:

  (excel:get-rangeindex range)

  参数: 1 range : 未明确定义;

  返回值: A1格式的索引

  示例:

  (excel:get-RangeIndex xlrange)

• excel:get-rangevalue

  说明: 获取单元格或区域的值; 参数:XLApp:已打开的excel文件对象; 参数:index:位置信息，如"A1"或者'(1 1), "A1:B2"或者'(1 1 2 2)

  用法:

  (excel:get-rangevalue xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: 值的列表

  示例:

  (excel:get-RangeValue exobj "A1:B2")

• excel:get-selection

  说明: 获取选择区域的索引; 参数:xlapp:已打开的excel文件对象

  用法:

  (excel:get-selection xlapp)

  参数: 1 xlapp : 未明确定义;

  返回值: A1格式的索引

  示例:

  (excel:get-Selection exobj)

• excel:get-usedrange

  说明: 获取已使用的range区域; 参数:XLApp:已打开的excel文件对象; 参数:Name:工作表名

  用法:

  (excel:get-usedrange xlapp name)

  参数: 1 xlapp : 未明确定义; 2 name : 未明确定义;

  返回值: 成功返回range对象

  示例:

  (excel:get-UsedRange exobj "345")

• excel:merge-range

  说明: 合并单元格; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:merge-range xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值:

  示例:

• excel:new

  说明: 新建Excel工作簿; 参数:ishide:是否可见，t为可见，nil为不可见

  用法:

  (excel:new ishide)

  参数: 1 ishide : 未明确定义;

  返回值: 一个表示Excel工作簿的vla对象

  示例:

  (excel:New t)

• excel:open

  说明: 打开一个excel文件; 参数:Filename:文件路径; 参数:ishide:是否可见，t为可见，nil为不可见

  用法:

  (excel:open filename ishide)

  参数: 1 filename : 未明确定义; 2 ishide : 未明确定义;

  返回值: 一个表示打开的excel文件的vla对象

  示例:

  (excel:open "C:\Users\mimi\Desktop\1.xlsx" t)

• excel:quit

  说明: 退出excel; 参数:ExlObj:打开的excel对象; 参数:SaveYN:是否保存，t为保存，nil为不保存

  用法:

  (excel:quit exlobj saveyn)

  参数: 1 exlobj : 未明确定义; 2 saveyn : 未明确定义;

  返回值:

  示例:

• excel:quit-all

  说明: 退出所有打开的excel文件; 参数:SaveYN:是否保存

  用法:

  (excel:quit-all saveyn)

  参数: 1 saveyn : 未明确定义;

  返回值:

  示例:

• excel:range-mergep

  说明: 判断是否是合并单元格; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:range-mergep xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: 是，返回t，否，返回nil

  示例:

  (excel:Range-Mergep exobj "A1")

• excel:rename-sheet

  说明: 说明:重命名工作表; 参数:XLApp:已打开的excel文件对象; 参数:Old:工作表原名; 参数:New:工作表新名

  用法:

  (excel:rename-sheet xlapp old new)

  参数: 1 xlapp : 未明确定义; 2 old : 未明确定义; 3 new : 未明确定义;

  返回值: 成功返回t

  示例:

  (excel:rename-Sheet  exobj "123" "345")

• excel:save

  说明: 保存当前工作簿; 参数:xlsApp:当前工作簿对象

  用法:

  (excel:save xlsapp)

  参数: 1 xlsapp : 未明确定义;

  返回值: 正确保存应该返回t，错误返回nil

  示例:

  (excel:save xlsobj)

• excel:saveas

  说明: 另存为excel文件; 参数:XLApp:已打开的excel文件对象; 参数:Filename:另存为的文件路径

  用法:

  (excel:saveas xlapp filename)

  参数: 1 xlapp : 未明确定义; 2 filename : 未明确定义;

  返回值:

  示例:

• excel:set-activesheet

  说明: 设置活动工作表; 参数:XLApp:已打开的excel文件对象; 参数:Name:工作表名

  用法:

  (excel:set-activesheet xlapp name)

  参数: 1 xlapp : 未明确定义; 2 name : 未明确定义;

  返回值: 成功返回t

  示例:

  (excel:set-ActiveSheet exobj "123")

• excel:set-backcolor

  说明: 设置充填色; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表; 参数:colorindex:颜色索引0-56号

  用法:

  (excel:set-backcolor xlapp index colorindex)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值; 3 colorindex : 未明确定义;

  返回值:

  示例:

• excel:set-rangevalue

  说明: 设置单元格或区域的值; 参数:XLApp:已打开的excel文件对象; 参数:index:位置信息，如"A1"或者'(1 1), "A1:B2"或者'(1 1 2 2); 参数:value:要设置的值列表或者字符串/数字等

  用法:

  (excel:set-rangevalue xlapp index value)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值; 3 value : 值;

  返回值:

  示例:

• excel:sheets

  说明: 获取工作表列表; 参数:XLApp:已打开的excel文件对象

  用法:

  (excel:sheets xlapp)

  参数: 1 xlapp : 未明确定义;

  返回值: 工作表名列表

  示例:

  (excel:sheets exobj)

• excel:unmerge-range

  说明: 分解合并单元格; 参数:xlapp:已打开的excel文件对象; 参数:index:区域索引，A1引用格式或者行列表

  用法:

  (excel:unmerge-range xlapp index)

  参数: 1 xlapp : 未明确定义; 2 index : 索引值;

  返回值: 分解后的range对象

  示例:

  (excel:UnmergeRange exobj "A1")

• excel:utils-getvalue

  说明: 说明:工具函数，获取变体的值; 参数:var:变体

  用法:

  (excel:utils-getvalue var)

  参数: 1 var : 未明确定义;

  返回值: 值列表，其中数字全部转换为字符串

  示例:

  (excel:Utils-GetValue obj)

• excel:utils-index-cells->range

  说明: 说明:工具函数，将行号、列标表转换成A1格式的引用; 参数:lst:行号、列标表，列最多支持到ZZ列

  用法:

  (excel:utils-index-cells->range lst)

  参数: 1 lst : 列表;

  返回值: A1格式的引用

  示例:

  (Excel:Utils-index-cells->range '(1 2 3 4))

• excel:utils-index-offset

  说明: 根据行列偏移量计算单元格索引; 参数:BaseCellId:基础单元格索引，可以为A1引用格式或者行列数字列表; 参数:rowOffset:行偏移量; 参数:columnOffset:列偏移量

  用法:

  (excel:utils-index-offset basecellid rowoffset columnoffset)

  参数: 1 basecellid : 未明确定义; 2 rowoffset : 未明确定义; 3 columnoffset : 未明确定义;

  返回值: A1格式的单元格索引

  示例:

  (excel:Utils-index-offset "A1" 2 3)

• excel:utils-index-range->cells

  说明: 工具函数，将A1格式的引用转换成行号、列标表; 参数:var:A1格式的字符串

  用法:

  (excel:utils-index-range->cells var)

  参数: 1 var : 未明确定义;

  返回值: 行号、列标表

  示例:

  (excel:Utils-index-range->cells "DD23:EE44")

• ext:anchor-hiddenfun
• ext:interior
• ext:interior-fun
• ext:probe-fun
• file:list-to-stream

  说明:

  用法:

  (file:list-to-stream out_file intlist)

  参数: 1 out_file : 未明确定义; 2 intlist : 整数;

  返回值:

  示例:

• file:merge

  说明: 合并多个文件内容到 dist 文件中。

  用法:

  (file:merge dist lst-files)

  参数: 1 dist : 未明确定义; 2 lst-files : 列表;

  返回值:

  示例:

• file:parse-ini
• file:read-stream
• file:remove-lines
• file:subst-all

  说明: 替换文件中的字符串。

  用法:

  (file:subst-all newstr oldstr lspfile new-suffix)

  参数: 1 newstr : 未明确定义; 2 oldstr : 未明确定义; 3 lspfile : 未明确定义; 4 new-suffix : 未明确定义;

  返回值:

  示例:

• filename:replace-special
• filename:special-symbol
• fun:test
• g:dot-product
• g:foot-point
• geometry:angle
• geometry:box-intersectp
• geometry:convexhull-by-graham-scan
• geometry:convexhull-by-jarvis
• geometry:dist-pt-line
• geometry:merge-box
• geometry:on-segment
• geometry:point-3d->2d
• geometry:segment-by-line
• geometry:segment-mid
• geometry:turn-left-p
• geometry:turn-right-p
• geometry:ucs
• geometry:ucs-angle
• geometry:wcs2ucs
• group:get-by-name

  说明: 获取编组名为 name 的编组对象。

  用法:

  (group:get-by-name name)

  参数: 1 name : 未明确定义;

  返回值:

  示例:

• group:groups-to-objlist

  说明: 将编组集转为编组对象列表.

  用法:

  (group:groups-to-objlist )

  参数: None

  返回值:

  示例:

• group:list

  说明: 列出图中的编组名

  用法:

  (group:list )

  参数: None

  返回值:

  示例:

• group:make

  说明: 将实体集编组,lst 图元列表，name 编组名,(匿名组首字为*).

  用法:

  (group:make lst name)

  参数: 1 lst : 列表; 2 name : 未明确定义;

  返回值:

  示例:

• group:to-entlist

  说明: 编组转图元列表, obj-g 为编组对象。

  用法:

  (group:to-entlist obj-g)

  参数: 1 obj-g : activeX 对象;

  返回值:

  示例:

• group:to-objlist

  说明: 编组转图元对象列表, obj-g 为编组对象。

  用法:

  (group:to-objlist obj-g)

  参数: 1 obj-g : activeX 对象;

  返回值:

  示例:

• hdinfo:get-cpuid
• hdinfo:get-hd-serial
• hdinfo:get-mac
• ini:get
• ini:parse
• ini:read
• ini:save
• ini:set
• json:decode-json-from-string
• json:encode-from-alist
• json:encode-json-alist
• json:parse
• layer:activelayer

  说明: 设置指定层为当前层

  用法:

  (layer:activelayer name)

  参数: 1 name : 未明确定义;

  返回值: 成功返回t，失败返回nil

  示例:

  (entity:ActiveLayer "layer1")

• layer:allname

  说明: 返回所有图层的名称(字符串表)

  用法:

  (layer:allname )

  参数: None

  返回值:

  示例:

• layer:delete
• layer:ent

  说明: 获获取指定图层的图元名

  用法:

  (layer:ent name)

  参数: 1 name : 未明确定义;

  返回值: 图元

  示例:

  (layer:ent "0") --> <图元名: -64cb388>

• layer:freeze

  说明: 图层列表冻结开关函数

  用法:

  (layer:freeze laylist bool-flag)

  参数: 1 laylist : 未明确定义; 2 bool-flag : 未明确定义;

  返回值:

  示例:

• layer:freezed-p

  说明: 层是否冻结？

  用法:

  (layer:freezed-p lname)

  参数: 1 lname : 未明确定义;

  返回值:

  示例:

• layer:freezelist

  说明: 返回冻结图层列表

  用法:

  (layer:freezelist )

  参数: None

  返回值:

  示例:

• layer:info

  说明: 返回所有图层的信息

  用法:

  (layer:info )

  参数: None

  返回值: (("层名" 状态 颜色 "线型")……); 状态：1冻结图层 2新视口冻结图层 4锁定…(其他看帮助); 颜色：负值为隐藏图层;

  示例:

• layer:layerofflist

  说明: 返回关闭图层列表

  用法:

  (layer:layerofflist )

  参数: None

  返回值:

  示例:

• layer:layers
• layer:list

  说明: 返回图层列表 list

  用法:

  (layer:list )

  参数: None

  返回值:

  示例:

• layer:lock

  说明: 图层锁定开关函数

  用法:

  (layer:lock laylist bool-flag)

  参数: 1 laylist : 未明确定义; 2 bool-flag : 未明确定义;

  返回值:

  示例:

• layer:locked-p

  说明: 层是否锁定？

  用法:

  (layer:locked-p lname)

  参数: 1 lname : 未明确定义;

  返回值:

  示例:

• layer:lockedlist

  说明: 返回锁定图层列表

  用法:

  (layer:lockedlist )

  参数: None

  返回值:

  示例:

• layer:make

  说明: 创建一个图层; 参数1:name:图层名称; 参数2:colour:颜色默认nil(7); 参数3:linetype:线型默认nil(Continuous); 参数4:n70:标志位，默认nil(0); 标准标记（按位编码值）：; 1 = 冻结图层，否则解冻图层; 2 = 默认情况下在新视口中冻结图层; 4 = 锁定图层; 16 = 如果设置了此位，则表条目外部依赖于外部参照; 32 = 如果同时设置了此位和位 16，则表明已成功融入了外部依赖的外部参照; 64 = 如果设置了此位，则表明在上次编辑图形时，图形中至少有一个图元参照了表条目。; (此标志适用于 AutoCAD 命令。大多数读取 DXF 文件的程序都可以忽略它，并且无需由写入 DXF 文件的程序对其进行设置)

  用法:

  (layer:make name colour linetype flag)

  参数: 1 name : 未明确定义; 2 colour : 未明确定义; 3 linetype : 未明确定义; 4 flag : 未明确定义;

  返回值:

  示例:

• layer:obj-name

  说明: 返回所有图层对应的对象名(大写)

  用法:

  (layer:obj-name )

  参数: None

  返回值: ((图层名1 对象名1) (图层名2 对象名2)……)

  示例:

• layer:off

  说明: 关闭图层; 参数：图层名称表

  用法:

  (layer:off laylist)

  参数: 1 laylist : 未明确定义;

  返回值:

  示例:

• layer:on

  说明: 图层列表开关函数

  用法:

  (layer:on laylist bool-flag)

  参数: 1 laylist : 未明确定义; 2 bool-flag : 未明确定义;

  返回值:

  示例:

• layer:plotable

  说明: 设置指定图层(列表)不打印; 参数1、图层列表; 参数2、是否打印(T打印/nil不打印)

  用法:

  (layer:plotable laylist on-off)

  参数: 1 laylist : 未明确定义; 2 on-off : 未明确定义;

  返回值:

  示例:

• layer:plottable

  说明: 图层打印开关函数

  用法:

  (layer:plottable laylist bool-flag)

  参数: 1 laylist : 未明确定义; 2 bool-flag : 未明确定义;

  返回值:

  示例:

• layer:plottablelist

  说明: 返回可打印图层列表

  用法:

  (layer:plottablelist )

  参数: None

  返回值:

  示例:

• layer:readme
• layer:set-color
• layout:list

  说明: 按照当前屏幕显示的顺序返回所有布局名称

  用法:

  (layout:list )

  参数: None

  返回值: 布局名列表

  示例:

• layout:make-viewport

  说明: 从模型空间生成布局

  用法:

  (layout:make-viewport layout pt-center width height pt-model pt2)

  参数: 1 layout : 未明确定义; 2 pt-center : 单个2D/3D坐标点; 3 width : 未明确定义; 4 height : 未明确定义; 5 pt-model : 单个2D/3D坐标点; 6 pt2 : 单个2D/3D坐标点;

  返回值:

  示例:

• layout:readme
• layout:rename
• layout:set-position

  说明: 根据指定布局名称修改布局的位置

  用法:

  (layout:set-position name n)

  参数: 1 name : 未明确定义; 2 n : 未明确定义;

  返回值:

  示例:

• layout:sort

  说明: 自动按布局名排序布局

  用法:

  (layout:sort )

  参数: None

  返回值:

  示例:

• layout:vla-list

  说明: 按照当前屏幕显示的顺序返回所有布局对象

  用法:

  (layout:vla-list )

  参数: None

  返回值: 布局对象列表

  示例:

• line:get-lwpoints

  说明: 生成多段线的点序

  用法:

  (line:get-lwpoints en0)

  参数: 1 en0 : 单个图元;

  返回值:

  示例:

• line:length

  说明: 求线段实体长度

  用法:

  (line:length ent-line)

  参数: 1 ent-line : 单个图元;

  返回值:

  示例:

• line:mid

  说明: 求线段实体中点坐标

  用法:

  (line:mid ent-line)

  参数: 1 ent-line : 单个图元;

  返回值:

  示例:

• list:+

  说明: 两个列表各项相加之和组成的列表，列表长度以参数中列表长度小的为准.; 参数:lst1,lst2:数字列表

  用法:

  (list:+ lst1 lst2)

  参数: 1 lst1 : 列表; 2 lst2 : 列表;

  返回值: 列表各项相加后的列表

  示例:

  (list:+ '(1 2) '(3 4))

• list:-

  说明: 两个列表各项差组成的列表，列表长度以参数中列表长度小的为准

  用法:

  (list:- lst1 lst2)

  参数: 1 lst1 : 列表; 2 lst2 : 列表;

  返回值:

  示例:

• list:add
• list:assoclist-additem

  说明: 添加关联表的元素,无替换

  用法:

  (list:assoclist-additem lst value)

  参数: 1 lst : 列表; 2 value : 值;

  返回值: 关联表，无相同的key

  示例:

  (list:AssocList-AddItem '((1 11) (2 22) (3 33) (4 44)) '(2 33))

• list:assoclist-appenditem

  说明: 添加关联表的元素,替换. 同 assoc

  用法:

  (list:assoclist-appenditem lst value)

  参数: 1 lst : 列表; 2 value : 值;

  返回值:

  示例:

• list:assoclist-appendlist

  说明:

  用法:

  (list:assoclist-appendlist lst value)

  参数: 1 lst : 列表; 2 value : 值;

  返回值:

  示例:

• list:assoclist-index

  说明: 根据key查找关联表的索引

  用法:

  (list:assoclist-index lst key)

  参数: 1 lst : 列表; 2 key : 键，关键字;

  返回值: 索引，从0开始

  示例:

  (list:AssocList-Index '((1 11) (2 22) (3 33) (4 44)) 3) ==> 2

• list:assoclist-key

  说明: 返回关联表中key对应的value,等价于(cdr (assoc key value))

  用法:

  (list:assoclist-key lst key)

  参数: 1 lst : 列表; 2 key : 键，关键字;

  返回值: key对应的value

  示例:

  (list:AssocList-Key lst key)

• list:assoclist-keys

  说明: 返回关联表的key值表

  用法:

  (list:assoclist-keys lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:assoclist-remove

  说明: 删除表中关联表匹配到key的的子表

  用法:

  (list:assoclist-remove lst key)

  参数: 1 lst : 列表; 2 key : 键，关键字;

  返回值: 删除元素后的表

  示例:

  (list:AssocList-Remove '((1 11) (2 22) (3 33) (4 44)) 2) ==>((1 11) (3 33) (4 44))

• list:assoclist-values

  说明: 返回关联表的value值表

  用法:

  (list:assoclist-values lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:change-index

  说明: 交换列表的m和n项，索引从0开始

  用法:

  (list:change-index lst m n)

  参数: 1 lst : 列表; 2 m : 未明确定义; 3 n : 未明确定义;

  返回值:

  示例:

• list:delnotsame

  说明: 查找表中不重复元素。

  用法:

  (list:delnotsame lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:delsame

  说明: 删除表中相同元素，保留第一次出现的位置

  用法:

  (list:delsame lst buzz)

  参数: 1 lst : 列表; 2 buzz : 容差;

  返回值:

  示例:

• list:delsame-all

  说明: 删除表中所有重复的元素

  用法:

  (list:delsame-all lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:difference
• list:dot->list

  说明: 点表转普通表

  用法:

  (list:dot->list lst)

  参数: 1 lst : 列表;

  返回值: 普通表

  示例:

  (list:dot->list '(1 2 3 . 4))

• list:equal
• list:exist

  说明: 判断item是否在列表内

  用法:

  (list:exist lst item)

  参数: 1 lst : 列表; 2 item : 项或项值;

  返回值: 存在t，反之nil

  示例:

  (list:exist '(1 2 3 4) 3)

• list:fill
• list:flatten
• list:get-front-nth

  说明: 返回前 n 个元素

  用法:

  (list:get-front-nth n lst)

  参数: 1 n : 未明确定义; 2 lst : 列表;

  返回值:

  示例:

• list:get-ubound

  说明: 得到表的各维数长度，最多支持到三维

  用法:

  (list:get-ubound lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:group-by
• list:indot->list

  说明: 内嵌点表的表转普通表

  用法:

  (list:indot->list lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:insert

  说明: 在列表lst 的第 index 项前插入项 item。

  用法:

  (list:insert lst index item)

  参数: 1 lst : 列表; 2 index : 索引值; 3 item : 项或项值;

  返回值: 插入项后的列表

  示例:

  (list:insert '(0 1 2 3) 1 5)

• list:insert-nth

  说明: 插入元素va到lst表的第n位

  用法:

  (list:insert-nth value n lst)

  参数: 1 value : 值; 2 n : 未明确定义; 3 lst : 列表;

  返回值:

  示例:

• list:intersect
• list:intersection
• list:item-num

  说明: 表中元素及数量

  用法:

  (list:item-num lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:ltrim

  说明: 删除表头前m项

  用法:

  (list:ltrim lst m)

  参数: 1 lst : 列表; 2 m : 未明确定义;

  返回值:

  示例:

• list:make-same
• list:member
• list:move

  说明: 列表循环移动

  用法:

  (list:move lst n)

  参数: 1 lst : 列表; 2 n : 未明确定义;

  返回值:

  示例:

• list:positions
• list:range

  说明: 生成等差数列表，类似python的range()函数.; 参数：start:起始值; end:结束值; step:等差值

  用法:

  (list:range start end step)

  参数: 1 start : 未明确定义; 2 end : 单个图元; 3 step : 未明确定义;

  返回值: 等差数列表

  示例:

  (list:range 1 4 1) --> (1 2 3)

• list:remove-duplicate-keys
• list:remove-duplicates

  说明: 删除列表中重复的原子。

  用法:

  (list:remove-duplicates lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:remove-front-nth

  说明: 删除列表中表的前n个元素

  用法:

  (list:remove-front-nth n lst)

  参数: 1 n : 未明确定义; 2 lst : 列表;

  返回值:

  示例:

• list:remove-index

  说明: 按索引删除列表的项,leemac

  用法:

  (list:remove-index lst index)

  参数: 1 lst : 列表; 2 index : 索引值;

  返回值: 删除索引项之后的列表

  示例:

  (list:RemoveIndex '(0 1 2 3) 1)

• list:remove-nth

  说明: 删除lst表的第n个元素

  用法:

  (list:remove-nth n lst)

  参数: 1 n : 未明确定义; 2 lst : 列表;

  返回值:

  示例:

• list:remove-once

  说明: 删除表中第一个匹配到的元素

  用法:

  (list:remove-once lst item)

  参数: 1 lst : 列表; 2 item : 项或项值;

  返回值: 删除元素后的表

  示例:

  (list:RemoveOnce '(1 2 3 4 3) 3)

• list:replace-index

  说明: 按索引替换列表

  用法:

  (list:replace-index oldlst index item)

  参数: 1 oldlst : 未明确定义; 2 index : 索引值; 3 item : 项或项值;

  返回值: 替换后的列表

  示例:

  (list:reeplace-index '(0 1 2 3) 1 5)

• list:replace\[m,n]
• list:rm-m2n

  说明: 删除列表的第m至n项，索引值从0计算

  用法:

  (list:rm-m2n lst m n)

  参数: 1 lst : 列表; 2 m : 未明确定义; 3 n : 未明确定义;

  返回值:

  示例:

• list:rtrim

  说明: 删除表尾m项

  用法:

  (list:rtrim lst m)

  参数: 1 lst : 列表; 2 m : 未明确定义;

  返回值:

  示例:

• list:same

  说明: 查找表中重复元素

  用法:

  (list:same lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:same-num

  说明: 表中相同元素及数量

  用法:

  (list:same-num lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:search-index

  说明: 以索引查找表中元素; 参数：; lst:列表; index:索引或者索引表

  用法:

  (list:search-index lst index)

  参数: 1 lst : 列表; 2 index : 索引值;

  返回值: 查找到的元素组成的表

  示例:

  (list:Search-Index '(1 2 3 4) 3)

• list:search-item

  说明: 查找表中元素的索引，索引从0开始

  用法:

  (list:search-item lst item)

  参数: 1 lst : 列表; 2 item : 项或项值;

  返回值: 索引值表

  示例:

  (list:search-item '(1 2 3 4) 3)

• list:set-nth

  说明: 更新lst表的第n个元素为value

  用法:

  (list:set-nth value n lst)

  参数: 1 value : 值; 2 n : 未明确定义; 3 lst : 列表;

  返回值:

  示例:

• list:sort
• list:split

  说明: 列表切分,不足部分省略，此函数返回结果相对list:split-2d、list:split-3d两个特殊函数比较合理

  用法:

  (list:split lst x)

  参数: 1 lst : 列表; 2 x : 未明确定义;

  返回值:

  示例:

• list:split-2d

  说明: 列表按顺序切分为2元素表组成的表,不足部分用nil表示

  用法:

  (list:split-2d lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• list:split-3d

  说明: 列表按顺序切分为3元素表组成的表,不足部分用nil表示

  用法:

  (list:split-3d lst)

  参数: 1 lst : 列表;

  返回值: ((x x x )(x x x)...)

  示例:

  (list:split-3d '(1 2 3 4))

• list:split-by
• list:split-index

  说明: 根据索引分割列表，索引从0开始

  用法:

  (list:split-index lst index)

  参数: 1 lst : 列表; 2 index : 索引值;

  返回值: 索引前后元素组成的表，其中索引所指向的元素位于第二个子表的表头

  示例:

  (list:split-index '(1 2 3 4) 2)

• list:sublist

  说明: 获取子列表,leemac

  用法:

  (list:sublist lst idx len)

  参数: 1 lst : 列表; 2 idx : 未明确定义; 3 len : 未明确定义;

  返回值: 子列表

  示例:

• list:subsetp
• list:subst

  说明: 置换表中指定位置的元素

  用法:

  (list:subst n a l)

  参数: 1 n : 未明确定义; 2 a : 未明确定义; 3 l : 未明确定义;

  返回值:

  示例:

• list:trim

  说明: 删除表头前m项，表尾前n项

  用法:

  (list:trim lst m n)

  参数: 1 lst : 列表; 2 m : 未明确定义; 3 n : 未明确定义;

  返回值:

  示例:

• list:union
• m:acos

  说明: 计算反余弦值

  用法:

  (m:acos x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:arcosh

  说明: 计算反双曲余弦值

  用法:

  (m:arcosh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:arsinh

  说明: 计算反双曲正弦值

  用法:

  (m:arsinh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:artanh

  说明: 计算反双曲正切值

  用法:

  (m:artanh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:asin

  说明: 计算反正弦值

  用法:

  (m:asin x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:azimuth

  说明: 计算某个角度(以x轴正向，逆时针)的方位角(以Y轴正向，顺时针)

  用法:

  (m:azimuth ang)

  参数: 1 ang : 角度值;

  返回值:

  示例:

• m:base->base

  说明: 进制转换

  用法:

  (m:base->base n b1 b2)

  参数: 1 n : 未明确定义; 2 b1 : 未明确定义; 3 b2 : 未明确定义;

  返回值:

  示例:

• m:base->dec

  说明: 进制转换

  用法:

  (m:base->dec n b)

  参数: 1 n : 未明确定义; 2 b : 未明确定义;

  返回值:

  示例:

• m:base2dec
• m:cal

  说明: 根据给定表达式计算结果

  用法:

  (m:cal lst1 lst2 str)

  参数: 1 lst1 : 列表; 2 lst2 : 列表; 3 str : 字符串;

  返回值:

  示例:

• m:calheight

  说明: 目标点的高程

  用法:

  (m:calheight pt1 pt2 podu)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点; 3 podu : 未明确定义;

  返回值:

  示例:

• m:coord-chg

  说明:

  用法:

  (m:coord-chg pt-wcs o-ucs o-ang)

  参数: 1 pt-wcs : 单个2D/3D坐标点; 2 o-ucs : 未明确定义; 3 o-ang : 未明确定义;

  返回值:

  示例:

• m:coordinate

  说明: 坐标向量变换

  用法:

  (m:coordinate p-base point2d)

  参数: 1 p-base : 未明确定义; 2 point2d : 未明确定义;

  返回值:

  示例:

• m:coordinate-rotate

  说明: 坐标旋转

  用法:

  (m:coordinate-rotate point2d angle1)

  参数: 1 point2d : 未明确定义; 2 angle1 : 角度值;

  返回值:

  示例:

• m:coordinate-scale

  说明: 坐标缩放

  用法:

  (m:coordinate-scale point scale)

  参数: 1 point : 未明确定义; 2 scale : 比例值;

  返回值:

  示例:

• m:cosh

  说明: 计算双曲余弦值

  用法:

  (m:cosh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:dec->base

  说明: 进制转换

  用法:

  (m:dec->base n b)

  参数: 1 n : 未明确定义; 2 b : 未明确定义;

  返回值:

  示例:

• m:dec2base
• m:dec2hex
• m:decimal-to-fraction
• m:degress->radions

  说明: 角度转弧度函数

  用法:

  (m:degress->radions degress)

  参数: 1 degress : 未明确定义;

  返回值:

  示例:

• m:difference

  说明: 列表差集

  用法:

  (m:difference lst1 lst2)

  参数: 1 lst1 : 列表; 2 lst2 : 列表;

  返回值:

  示例:

• m:dmm

  说明: 根据给定弧度返回度分秒格式的表

  用法:

  (m:dmm ang)

  参数: 1 ang : 角度值;

  返回值:

  示例:

• m:dms

  说明: 根据给定十进制角度返回度分秒格式的表

  用法:

  (m:dms degress)

  参数: 1 degress : 未明确定义;

  返回值:

  示例:

• m:evenp
• m:expmod

  说明:

  用法:

  (m:expmod base exp1 m)

  参数: 1 base : 未明确定义; 2 exp1 : 未明确定义; 3 m : 未明确定义;

  返回值:

  示例:

• m:factorial

  说明: 求n 的阶乘。斯特林公式法。;

  用法:

  (m:factorial n)

  参数: 1 n : 未明确定义;

  返回值:

  示例:

• m:fast-expt

  说明:

  用法:

  (m:fast-expt b n)

  参数: 1 b : 未明确定义; 2 n : 未明确定义;

  返回值:

  示例:

• m:fermat-test

  说明:

  用法:

  (m:fermat-test n)

  参数: 1 n : 未明确定义;

  返回值:

  示例:

• m:fix-angle

  说明: 使弧度值在 0-2pi 之间。

  用法:

  (m:fix-angle angle0)

  参数: 1 angle0 : 角度值;

  返回值:

  示例:

• m:gcd

  说明:

  用法:

  (m:gcd a b)

  参数: 1 a : 未明确定义; 2 b : 未明确定义;

  返回值:

  示例:

• m:hex2dec
• m:intersect

  说明: 列表交集

  用法:

  (m:intersect lst1 lst2)

  参数: 1 lst1 : 列表; 2 lst2 : 列表;

  返回值:

  示例:

• m:length

  说明: 两点长度(距离)，等同于两点向量的模

  用法:

  (m:length start end)

  参数: 1 start : 未明确定义; 2 end : 单个图元;

  返回值:

  示例:

• m:linear-interpolation
• m:maxlist

  说明: 返回数值列表的中的最大值

  用法:

  (m:maxlist lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• m:mid

  说明: 计算中点

  用法:

  (m:mid x y)

  参数: 1 x : 未明确定义; 2 y : 未明确定义;

  返回值:

  示例:

• m:minlist

  说明: 返回数值列表的中的最小值

  用法:

  (m:minlist lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• m:mulmod

  说明: 快速积求模

  用法:

  (m:mulmod a b m)

  参数: 1 a : 未明确定义; 2 b : 未明确定义; 3 m : 未明确定义;

  返回值:

  示例:

• m:power

  说明: 增强power函数，目的为扩展expt函数,参数都为数字时，字符串，数字，列表类型，其他类型返回nil,返回expt计算的结果，base为字符串和列表时，返回自乘的结果

  用法:

  (m:power base pow)

  参数: 1 base : 未明确定义; 2 pow : 未明确定义;

  返回值:

  示例:

• m:radions->degress

  说明: 弧度转角度函数

  用法:

  (m:radions->degress radions)

  参数: 1 radions : 未明确定义;

  返回值:

  示例:

• m:rand

  说明: 生成伪随机数

  用法:

  (m:rand )

  参数: None

  返回值:

  示例:

• m:rand-by-cputicks

  说明:

  用法:

  (m:rand-by-cputicks )

  参数: None

  返回值:

  示例:

• m:random

  说明: 生成伪随机数

  用法:

  (m:random n)

  参数: 1 n : 未明确定义;

  返回值:

  示例:

• m:random-fix

  说明:

  用法:

  (m:random-fix n m)

  参数: 1 n : 未明确定义; 2 m : 未明确定义;

  返回值:

  示例:

• m:randrange

  说明: 计算给定范围内的随机数

  用法:

  (m:randrange a b)

  参数: 1 a : 未明确定义; 2 b : 未明确定义;

  返回值:

  示例:

• m:reduce-fraction
• m:rtos

  说明: 保留小数位数(四舍五入)

  用法:

  (m:rtos real prec)

  参数: 1 real : 实数; 2 prec : 未明确定义;

  返回值: 四舍五入后的字符串

  示例:

  (m:rtos 1.8000 3)

• m:sign
• m:sinh

  说明: 计算双曲正弦值

  用法:

  (m:sinh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:sort-by-curve

  说明: 函数说明:沿曲线排序~%返 回 值:排序后的点表

  用法:

  (m:sort-by-curve curve lst)

  参数: 1 curve : 曲线; 2 lst : 列表;

  返回值:

  示例:

• m:square

  说明:

  用法:

  (m:square x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:symmetric-difference

  说明: 列表对称差集

  用法:

  (m:symmetric-difference l1 l2)

  参数: 1 l1 : 未明确定义; 2 l2 : 未明确定义;

  返回值:

  示例:

• m:tan

  说明: 计算正切值

  用法:

  (m:tan x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:tanh

  说明: 计算双曲正切值

  用法:

  (m:tanh x)

  参数: 1 x : 未明确定义;

  返回值:

  示例:

• m:transpt

  说明: 根据已知世界坐标和用户坐标的基准点，计算世界坐标对应的用户坐标

  用法:

  (m:transpt base usrpt transpt ang)

  参数: 1 base : 未明确定义; 2 usrpt : 未明确定义; 3 transpt : 未明确定义; 4 ang : 角度值;

  返回值:

  示例:

• m:trim

  说明: 数值后续零清除

  用法:

  (m:trim realnum)

  参数: 1 realnum : 实数;

  返回值:

  示例:

• m:union

  说明: 求列表的并集

  用法:

  (m:union lst1 lst2)

  参数: 1 lst1 : 列表; 2 lst2 : 列表;

  返回值:

  示例:

• matrix:hadamard-product
• matrix:kronecker-product
• matrix:mxm

  说明: 矩阵相乘

  用法:

  (matrix:mxm m q)

  参数: 1 m : 未明确定义; 2 q : 未明确定义;

  返回值:

  示例:

• matrix:mxp

  说明: 点到矩阵的变换

  用法:

  (matrix:mxp m p)

  参数: 1 m : 未明确定义; 2 p : 未明确定义;

  返回值:

  示例:

• matrix:mxv

  说明: 向量的矩阵变换(向量乘矩阵)

  用法:

  (matrix:mxv m v)

  参数: 1 m : 未明确定义; 2 v : 未明确定义;

  返回值:

  示例:

• matrix:norm

  说明: 向量的模(长度)

  用法:

  (matrix:norm v)

  参数: 1 v : 未明确定义;

  返回值:

  示例:

• matrix:rotation
• matrix:rotation-x
• matrix:rotation-y
• matrix:rotation-z
• matrix:scale
• matrix:scale1
• matrix:transform
• matrix:transformation
• matrix:translation
• matrix:trp

  说明: 矩阵转置

  用法:

  (matrix:trp m)

  参数: 1 m : 未明确定义;

  返回值:

  示例:

• matrix:unit

  说明: 单位向量

  用法:

  (matrix:unit v)

  参数: 1 v : 未明确定义;

  返回值:

  示例:

• matrix:v^v

  说明: 两向量的叉积

  用法:

  (matrix:v^v u v)

  参数: 1 u : 未明确定义; 2 v : 未明确定义;

  返回值:

  示例:

• matrix:vxs

  说明: 向量乘标量(系数)

  用法:

  (matrix:vxs v s)

  参数: 1 v : 未明确定义; 2 s : 未明确定义;

  返回值:

  示例:

• matrix:vxv

  说明: 向量的点积

  用法:

  (matrix:vxv v1 v2)

  参数: 1 v1 : 未明确定义; 2 v2 : 未明确定义;

  返回值:

  示例:

• music-die:list-to-var
• music-die:multi-element
• music-die:undo1
• orance:show-all-objects
• p:consp
• p:curvep

  说明: 是否是曲线

  用法:

  (curvep obj)

  参数: 1 obj : activeX or ename

  返回值:

  示例:

• p:dotpairp
• p:ename-listp

  说明: 判断是否为图元名列表

  用法:

  (ename-listp lst)

  参数: 1 lst : 列表参数

  返回值:

  示例:

• p:enamep

  说明: 判断是否图元

  用法:

  (enamep arg)

  参数: 1 arg : 参数

  返回值:

  示例:

• p:functionp
• p:intp

  说明: 判断是否整数

  用法:

  (intp x)

  参数: 1 x : 参数

  返回值:

  示例:

• p:listp
• p:matrixp
• p:phyunitp
• p:picksetp

  说明: 判断是否非空选择集

  用法:

  (picksetp ss)

  参数: 1 ss : 选择集

  返回值:

  示例:

• p:readme
• p:realp

  说明: 判断是否实数

  用法:

  (realp arg)

  参数: 1 arg : 参数

  返回值:

  示例:

• p:safearrayp

  说明: 判断是否为安全数组

  用法:

  (safearrayp x)

  参数: 1 x : 参数

  返回值:

  示例:

• p:string-listp

  说明: 判断是否为字符串列表

  用法:

  (string-listp lst)

  参数: 1 lst : 列表参数

  返回值:

  示例:

• p:stringp

  说明: 判断是否字符串

  用法:

  (stringp arg)

  参数: 1 arg : 参数

  返回值:

  示例:

• p:variantp

  说明: 判断是否变体

  用法:

  (enamep arg)

  参数: 1 arg : 参数

  返回值:

  示例:

• p:vla-listp

  说明: 判断是否为vla对象列表

  用法:

  (vla-listp lst)

  参数: 1 lst : 列表参数

  返回值:

  示例:

• p:vlap

  说明: 判断是否vla对象.

  用法:

  (vlap obj)

  参数: 1 obj : 对象

  返回值:

  示例:

• pickset:boxs
• pickset:cluster
• pickset:delsameent

  说明: 删除重复图元; 参数:; ss:选择集

  用法:

  (pickset:delsameent ss)

  参数: 1 ss : 选择集;

  返回值: 无

  示例:

  (entity:DelSameEnt (ssget))

• pickset:erase

  说明: 删除选择集图元

  用法:

  (pickset:erase ss)

  参数: 1 ss : 选择集;

  返回值: 最后一个被删除的图元

  示例:

• pickset:from-entlist

  说明: 图元列表->选择集

  用法:

  (pickset:from-entlist entlst)

  参数: 1 entlst : 单个图元;

  返回值: 选择集

  示例:

• pickset:from-list
• pickset:get-sub

  说明: 从选择集或图元表中按 filter 规则过滤. 当前版本不支持 XOR 和 逻辑嵌套。

  用法:

  (pickset:get-sub ss filter)

  参数: 1 ss : 选择集; 2 filter : 过滤dxf组码;

  返回值: 过滤后的图元表

  示例:

  (pickset:get-sub ss '((-4 . "<OR")(1 . "1*")(-4 . ">")(1 . "7")(-4 . "<")(1 . "4")(-4 . "OR>")))

• pickset:getbox

  说明: 获取选择集的包围盒。

  用法:

  (pickset:getbox ss offset)

  参数: 1 ss : 选择集; 2 offset : 偏移量;

  返回值: 外框（偏移后）的左下，右上角点

  示例:

  (pickset:getbox sel 0.2)

• pickset:intersect
• pickset:join

  说明: 将第一个选择集中的图元加入到第二个选择集中。

  用法:

  (pickset:join ss1 ss2)

  参数: 1 ss1 : 选择集; 2 ss2 : 选择集;

  返回值: 合并后的新选择集

  示例:

• pickset:length
• pickset:pt-verts

  说明: 取点

  用法:

  (pickset:pt-verts ss)

  参数: 1 ss : 选择集;

  返回值:

  示例:

• pickset:ptx

  说明: 取选择集4角点坐标的第n个，左下 0 右下 1 右上 2 左上 3

  用法:

  (pickset:ptx sel n)

  参数: 1 sel : 选择集; 2 n : 未明确定义;

  返回值: 第n个角点坐标

  示例:

  (pickset:ptx sel 0)

• pickset:readme
• pickset:sort

  说明: 通用选择集，点表，图元列表排序; 参数:ssPts:选择集，点表，图元列表; 参数:KEY:xyzXYZ 任意组合 ,例如"yX",y在前表示y坐标优先，小y表示从小到大(注:二维点时，不能有z); 参数:FUZZ:允许偏差；若无为nil

  用法:

  (pickset:sort sspts key fuzz)

  参数: 1 sspts : 选择集; 2 key : 键，关键字; 3 fuzz : 容差;

  返回值: 结果根据ssPts不同

  示例:

• pickset:sort-by-box
• pickset:sort-with-dxf

  说明: 选择集按照给定的组码值进行排序, INT:如果组码值为一个表，则INT指出使用第几个；否则nil 。K:T表示从大到小，nil表示从小到大

  用法:

  (pickset:sort-with-dxf sel dxf-i int fuzz k)

  参数: 1 sel : 选择集; 2 dxf-i : 组码号; 3 int : 整数; 4 fuzz : 容差; 5 k : 未明确定义;

  返回值: 排序后的选择集

  示例:

  (pickset:sort-with-dxf SS 10 0 5.0 T)表示按照10组码的X坐标值进行排序，允许偏差值为5.0，顺序为从大到小 

• pickset:sort1
• pickset:ss-forword-en

  说明: 将图元 ent 之后的所有图元形成的选择集

  用法:

  (pickset:ss-forword-en en)

  参数: 1 en : 单个图元;

  返回值: pickset

  示例:

• pickset:ssget

  说明: 自定义带提示符的ssget

  用法:

  (pickset:ssget msg params)

  参数: 1 msg : 提示信息; 2 params : 参数列表;

  返回值: 选择集

  示例:

  (pickset:ssget "选择对象：" '("_WP" pt_list ((0 . "LINE") (62 . 5))))

• pickset:ssget-crossline

  说明: 取得与线相交的选择集

  用法:

  (pickset:ssget-crossline ent filter)

  参数: 1 ent : 单个图元; 2 filter : 过滤dxf组码;

  返回值: 选择集

  示例:

• pickset:sub

  说明: 选择集相减

  用法:

  (pickset:sub ss1 ss2)

  参数: 1 ss1 : 选择集; 2 ss2 : 选择集;

  返回值: 选择集 or nil

  示例:

  (pickset:Sub (setq ss1 (ssget)) (setq ss2 (ssget)))

• pickset:to-array

  说明: 选择集->数

  用法:

  (pickset:to-array ss)

  参数: 1 ss : 选择集;

  返回值: 数组

  示例:

  (pickset->Array (ssget))

• pickset:to-ax
• pickset:to-entlist
• pickset:to-list

  说明: 选择集->图元列表

  用法:

  (pickset:to-list ss)

  参数: 1 ss : 选择集;

  返回值: 图元列表

  示例:

• pickset:to-list-by-ssname
• pickset:to-list-by-ssnamex
• pickset:to-selectionset
• pickset:to-vlalist

  说明: 选择集转为Vla列表

  用法:

  (pickset:to-vlalist ss)

  参数: 1 ss : 选择集;

  返回值: Vla列表

  示例:

  pickset->vlalist (ssget))

• pickset:wblock
• pickset:zoom
• point:2d->3d

  说明: 将一维或二维点转换为3维点，若为一个数值，则将数值转为3维点

  用法:

  (point:2d->3d pt-2d)

  参数: 1 pt-2d : 单个2D/3D坐标点;

  返回值: 三维坐标点

  示例:

• point:3d->2d

  说明: 由三维点坐标返回二维点坐标

  用法:

  (point:3d->2d pt-3d)

  参数: 1 pt-3d : 单个2D/3D坐标点;

  返回值: 二维坐标点

  示例:

• point:centroid
• point:div
• point:in-box

  说明: 判断 pt1 是否在矩形内

  用法:

  (point:in-box pt1 pt-box1 pt-box2)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt-box1 : 单个2D/3D坐标点; 3 pt-box2 : 单个2D/3D坐标点;

  返回值: T or nil

  示例:

• point:mid

  说明: 求两点 pt1 pt2 的中点

  用法:

  (point:mid pt1 pt2)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点;

  返回值: 中点坐标

  示例:

• point:rec-2pt->4pt

  说明: 根据矩形2点计算矩形4点

  用法:

  (point:rec-2pt->4pt pt1 pt2)

  参数: 1 pt1 : 单个2D/3D坐标点; 2 pt2 : 单个2D/3D坐标点;

  返回值: 矩形的四点坐标

  示例:

• point:remove-duplicates
• point:to-ax
• py:install
• re:match
• re:replace
• re:search
• reg:list-app
• stat:classify
• stat:draw
• stat:mode
• stat:print
• stat:stat
• std:acad-object

  说明: 返回CAD对象

  用法:

  (std:acad-object )

  参数: None

  返回值:

  示例:

• std:active-document

  说明: 返回当前活动文档对象

  用法:

  (std:active-document )

  参数: None

  返回值:

  示例:

• std:addmenu

  说明:

  用法:

  (std:addmenu menugroupname popname popitems insertbeforeitem)

  参数: 1 menugroupname : 未明确定义; 2 popname : 未明确定义; 3 popitems : 未明确定义; 4 insertbeforeitem : 未明确定义;

  返回值:

  示例:

• std:addsupportpath

  说明:

  用法:

  (std:addsupportpath lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• std:addtoolbars

  说明:

  用法:

  (std:addtoolbars menugroupname toolbaritems)

  参数: 1 menugroupname : 未明确定义; 2 toolbaritems : 未明确定义;

  返回值:

  示例:

• std:catchapply

  说明:

  用法:

  (std:catchapply fun args)

  参数: 1 fun : 未明确定义; 2 args : 未明确定义;

  返回值:

  示例:

• std:e->vla

  说明:

  用法:

  (std:e->vla ename)

  参数: 1 ename : 单个图元;

  返回值:

  示例:

• std:endundo

  说明:

  用法:

  (std:endundo doc)

  参数: 1 doc : 未明确定义;

  返回值:

  示例:

• std:getinput

  说明: 获取输入，结合initget和getkword函数

  用法:

  (std:getinput promptstr inplist default)

  参数: 1 promptstr : 未明确定义; 2 inplist : 未明确定义; 3 default : 未明确定义;

  返回值:

  示例:

• std:insertpopmenuitems

  说明:

  用法:

  (std:insertpopmenuitems popupmenu popitems)

  参数: 1 popupmenu : 未明确定义; 2 popitems : 未明确定义;

  返回值:

  示例:

• std:layers

  说明: 返回图层集合

  用法:

  (std:layers )

  参数: None

  返回值:

  示例:

• std:linetypes

  说明: 返回线型集合

  用法:

  (std:linetypes )

  参数: None

  返回值:

  示例:

• std:model-space

  说明: 返回模型空间对象

  用法:

  (std:model-space )

  参数: None

  返回值:

  示例:

• std:osmode-off
• std:osmode-on
• std:protect-assign

  说明:

  用法:

  (std:protect-assign syms)

  参数: 1 syms : 未明确定义;

  返回值:

  示例:

• std:removemenuitem

  说明:

  用法:

  (std:removemenuitem popname)

  参数: 1 popname : 未明确定义;

  返回值:

  示例:

• std:removesupportpath

  说明:

  用法:

  (std:removesupportpath lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• std:reset-system-variable

  说明:

  用法:

  (std:reset-system-variable )

  参数: None

  返回值:

  示例:

• std:return

  说明: 返回值函数，用于包装将要返回的值，主要作用还是为了含义更明确。

  用法:

  (std:return value)

  参数: 1 value : 值;

  返回值:

  示例:

• std:rgb

  说明: 计算RGB颜色对应的整数值。Red Green Blue 取值范围为 [0,255]的整数或[0,1)的小数。

  用法:

  (std:rgb red green blue)

  参数: 1 red : 未明确定义; 2 green : 未明确定义; 3 blue : 未明确定义;

  返回值: RGB颜色值

  示例:

  (std:rgb 255 0 0) or (std:rgb 0.999 0 0);  红色

• std:save-system-variable

  说明:

  用法:

  (std:save-system-variable a)

  参数: 1 a : 未明确定义;

  返回值:

  示例:

• std:startundo

  说明:

  用法:

  (std:startundo doc)

  参数: 1 doc : 未明确定义;

  返回值:

  示例:

• std:tbl-rename
• std:textstyles

  说明: 返回字体样式集合

  用法:

  (std:textstyles )

  参数: None

  返回值:

  示例:

• std:timer-end

  说明: 计时器结束函数

  用法:

  (std:timer-end )

  参数: None

  返回值:

  示例:

• std:timer-start

  说明: 计时器开始函数

  用法:

  (std:timer-start )

  参数: None

  返回值: 计时器全局变量

  示例:

• std:unprotect-assign

  说明:

  用法:

  (std:unprotect-assign syms)

  参数: 1 syms : 未明确定义;

  返回值:

  示例:

• std:vla->e

  说明:

  用法:

  (std:vla->e obj)

  参数: 1 obj : activeX 对象;

  返回值:

  示例:

• string:align-by-length
• string:auto-split
• string:bytelength
• string:case

  说明: 大小写替换

  用法:

  (string:case a)

  参数: 1 a : 未明确定义;

  返回值:

  示例:

• string:concat

  说明: 连接字符串，连接前进行检测。

  用法:

  (string:concat strlst)

  参数: 1 strlst : 字符串;

  返回值:

  示例:

• string:escape
• string:format

  说明: 字符串格式化函数

  用法:

  (string:format str formatlist)

  参数: 1 str : 字符串; 2 formatlist : 未明确定义;

  返回值:

  示例:

• string:from-list

  说明: 列表转成字符串

  用法:

  (string:from-list lst separator)

  参数: 1 lst : 列表; 2 separator : 分隔符;

  返回值:

  示例:

• string:from-lst

  说明: 列表转成字符串

  用法:

  (string:from-lst lst separator)

  参数: 1 lst : 列表; 2 separator : 分隔符;

  返回值:

  示例:

• string:hannumber2number
• string:hannumberp
• string:indent

  说明: 缩进 lisp 代码

  用法:

  (string:indent str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:intp

  说明: 确定字符串是否为整数

  用法:

  (string:intp str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:l2s-ansi

  说明: byte or word 整数值列表转字符串。当小于128时，单字节，当两个连续的大于128时，双字节值。用于转换非英文字串时防止重码。

  用法:

  (string:l2s-ansi lst-str)

  参数: 1 lst-str : 列表;

  返回值:

  示例:

• string:length
• string:lsubstr

  说明: 从左侧求子串

  用法:

  (string:lsubstr str len)

  参数: 1 str : 字符串; 2 len : 未明确定义;

  返回值:

  示例:

• string:num-compare
• string:number-format

  说明:

  用法:

  (string:number-format str-num int-n int-fraction)

  参数: 1 str-num : 字符串; 2 int-n : 整数; 3 int-fraction : 整数;

  返回值:

  示例:

• string:number2chinese
• string:numberp

  说明: 确定字符串是否为数字

  用法:

  (string:numberp str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:parse-by-lst

  说明: 字符串按分隔符列表转列表

  用法:

  (string:parse-by-lst lstr delimlst)

  参数: 1 lstr : 列表; 2 delimlst : 未明确定义;

  返回值: 拆分后的列表

  示例:

  (string:parse-by-lst "a-b=c" '("-" "="))

• string:readme
• string:realp

  说明: 确定字符串是否为实数

  用法:

  (string:realp str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:regexp-replace

  说明: 正则表达式替换字串

  用法:

  (string:regexp-replace string newstr express key)

  参数: 1 string : 字符串; 2 newstr : 未明确定义; 3 express : 未明确定义; 4 key : 键，关键字;

  返回值:

  示例:

• string:regexp-search

  说明: 正则表达式搜索字串. Express = 正则表达式 key = 字母 i I m M g G的组合字串

  用法:

  (string:regexp-search string express key)

  参数: 1 string : 字符串; 2 express : 未明确定义; 3 key : 键，关键字;

  返回值:

  示例:

• string:reverse

  说明: 倒置字符串

  用法:

  (string:reverse str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:rightsubstr

  说明: 从右侧求子串

  用法:

  (string:rightsubstr str start len)

  参数: 1 str : 字符串; 2 start : 未明确定义; 3 len : 未明确定义;

  返回值:

  示例:

• string:rsubstr

  说明: 从右侧求子串

  用法:

  (string:rsubstr str len)

  参数: 1 str : 字符串; 2 len : 未明确定义;

  返回值:

  示例:

• string:s2l-ansi

  说明: 字符串转字byte or word 整数值列表。当小于128时，单字节，当两个连续的大于128时，双字节值。用于转换非英文字串时防止重码。

  用法:

  (string:s2l-ansi str)

  参数: 1 str : 字符串;

  返回值:

  示例:

• string:search
• string:sort-by-number

  说明:

  用法:

  (string:sort-by-number lst)

  参数: 1 lst : 列表;

  返回值:

  示例:

• string:split
• string:square

  说明: 字符串自乘

  用法:

  (string:square int str)

  参数: 1 int : 整数; 2 str : 字符串;

  返回值:

  示例:

• string:subst-all

  说明: 用 str-new 替换 字符串中所有的 str-old

  用法:

  (string:subst-all str-new str-old str)

  参数: 1 str-new : 字符串; 2 str-old : 字符串; 3 str : 字符串;

  返回值: 结果字符串

  示例:

  (string:subst-all "abc" "qwe" "abcpoilde")

• string:substr
• string:to-list

  说明: 字符串转成列表

  用法:

  (string:to-list str separator)

  参数: 1 str : 字符串; 2 separator : 分隔符;

  返回值:

  示例:

• string:to-lst

  说明: 字符串转成列表

  用法:

  (string:to-lst str separator)

  参数: 1 str : 字符串; 2 separator : 分隔符;

  返回值:

  示例:

• string:trim-space

  说明: 去除字符串中的空格

  用法:

  (string:trim-space string)

  参数: 1 string : 字符串;

  返回值:

  示例:

• style:missing-fonts
• svg:export
• sys:list-process
• sys:list-process-name
• system:dir
• system:explorer
• system:get-folder
• system:get-qqids
• system:platform
• system:python
• system:vers
• system:which
• system:winget
• system:winget-src
• system:wscript
• table:make

  说明: 创建表格，参数: ; pt:位置点，; title:标题 ， ; headers:表头表; mat-data: 单元数据矩阵,目前仅支持文字型表格

  用法:

  (table:make pt title headers mat-data)

  参数: 1 pt : 单个2D/3D坐标点; 2 title : 未明确定义; 3 headers : 未明确定义; 4 mat-data : 未明确定义;

  返回值: 表格图元

  示例:

  (table:make (getpoint) "我的表格" '("列1" "列2" "列3")'((5 3 3)(2 3 3)))

• table:read-csv
• table:write-csv
• tbl:dxf2obj
• tbl:list
• tbl:rename
• test:add-case
• test:assert-equal
• test:assert-nil
• test:assert-t
• test:assert-throw
• test:clear
• test:init
• test:run-all
• test:run-case
• test:run-suite
• test:suite
• test:summary
• test:test-framework
• text:box
• text:from-markdown
• text:get-matrix
• text:get-mtext
• text:gettextwidth

  说明:

  用法:

  (text:gettextwidth str edata)

  参数: 1 str : 字符串; 2 edata : 未明确定义;

  返回值:

  示例:

• text:mtext->text

  说明: 去除多行文本中的格式化字符串，本函数为测试版，不保证结果正确。

  用法:

  (text:mtext->text str-m)

  参数: 1 str-m : 字符串;

  返回值: 结果字符串

  示例:

• text:mtext->text2

  说明: 去除多行文本中的格式化字符串，本函数为测试版，不保证结果正确。

  用法:

  (text:mtext->text2 str-m)

  参数: 1 str-m : 字符串;

  返回值: 结果字符串

  示例:

• text:parse-mtext
• text:remove-fmt
• text:stringexplode

  说明:

  用法:

  (text:stringexplode str_given)

  参数: 1 str_given : 字符串;

  返回值:

  示例:

• timer:begin
• timer:end
• ui:button-select
• ui:confirm

  说明: 确认对话框. 参数：lst-str 单个字符串，或字符串列表。

  用法:

  (ui:confirm lst-str)

  参数: 1 lst-str : 列表;

  返回值: T or nil

  示例:

  (ui:confirm "你遇到真爱了吗?");  (ui:confirm '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" "你感觉孤独吗？" ) 

• ui:confirm1
• ui:dyndraw
• ui:dynquery

  说明: 动态查询。显示 func 返回的文本列表。func 是对图标所在图元进行的运算结果。形式如 '(lambda (x) (list (entity:getdxf x 0)))

  用法:

  (ui:dynquery func)

  参数: 1 func : 未明确定义;

  返回值: nil,执行过程动态显示用户定义的内容

  示例:

  (ui:dynquery '(lambda (x) (list (entity:getdxf x '(0 8)))))

• ui:dynrotate
• ui:dynscale
• ui:getdist
• ui:getstring
• ui:input

  说明: 显示输入一个或多个文本输入的面板，返回所有文本框的值。; lst 由一个或多个列表组成 ; 每个元素由 (label 默认值 说明 是否密文/列表及列表默认序号(以0开始)) 组成 。; label 不可省略，默认值、说明和密文/序号 可省略。; 默认值(第二项):; 当没有默认值及以后各项时，显示为文本编辑框; 当为数值型和字符串时，且第4项不为列表时显示文本编辑框; 当为数值型和字符串时，且第4项为列表时显示下拉菜单; 当为数值型和字符串时，且第4项为 T 时显示密码编辑框; 当为 T or nil 时，显示复选框，; 当为列表时，显示下拉菜单。第4项为数字时，为列表默认值索引号。;

  用法:

  (ui:input str-subject lst)

  参数: 1 str-subject : 字符串; 2 lst : 列表;

  返回值: 所有输入框的 label 和 值 组成的点对表，或 nil

  示例:

  (ui:input "请输入以下内容：" '(("Name1")("Name2" "VitalGG" "带默认值的输入框") ("Pass1" "123456" "密码框" T) ("Bool:" T "真假值") ("Popup1:" ("one" "two" "three") "下拉列表")("Popup2:" 3 "下拉列表2" (1 2 3 4 5))))

• ui:kword
• ui:progress
• ui:progress1
• ui:select

  说明: 显示列表选择面板，选择所需项并返回。

  用法:

  (ui:select str-subject lst)

  参数: 1 str-subject : 字符串; 2 lst : 列表;

  返回值: 选中的内容

  示例:

  (ui:select "请选择你需要操作的项" '("我愿意" "不愿意"  "你是一个好人"))

• ui:select-multi

  说明: 显示列表选择面板，选择多个所需项并返回。

  用法:

  (ui:select-multi str-subject lst)

  参数: 1 str-subject : 字符串; 2 lst : 列表;

  返回值: 选中的内容

  示例:

  (ui:select-multi "请选择你喜欢的人" '("AB" "Lisa"  "VitalGG"))

• ui:table
• ui:table-widths
• vectra:acos
• vectra:angle-include
• vectra:angle-normal
• vectra:angle-regular
• vectra:angle-reverse
• vectra:array-create
• vectra:array-get
• vectra:array-set
• vectra:benchmark
• vectra:block-items
• vectra:block-items-inner
• vectra:block-trans
• vectra:ceiling
• vectra:clipboard-get
• vectra:clipboard-set
• vectra:commandrun
• vectra:commandrun-s
• vectra:confirm
• vectra:csvfile-read
• vectra:csvfile-readcache
• vectra:csvread-get
• vectra:csvread-get1
• vectra:csvread-keys
• vectra:deg->rad
• vectra:directory-make
• vectra:dxf
• vectra:dxf1
• vectra:dxfs
• vectra:edit-value
• vectra:enamep
• vectra:enames->ss
• vectra:enames-after
• vectra:endundomark
• vectra:ensure-ename
• vectra:ensure-object
• vectra:entmake
• vectra:entmod
• vectra:entsel
• vectra:entsel-inner
• vectra:error-end
• vectra:error-handler
• vectra:error-start
• vectra:error-start0
• vectra:file-read
• vectra:file-readstring
• vectra:file-search
• vectra:get
• vectra:get-block
• vectra:get-bulge
• vectra:get1
• vectra:getdist
• vectra:getint
• vectra:getkword
• vectra:getkword1
• vectra:hash
• vectra:hash-1
• vectra:insert-seqs
• vectra:item
• vectra:jscript-eval
• vectra:layer-get
• vectra:layer-get1
• vectra:line-closestpoint
• vectra:line-getangle
• vectra:line-getendnear
• vectra:line-getinters
• vectra:line-parallel
• vectra:linetype-get
• vectra:linetype-load
• vectra:lisp-load
• vectra:list->var
• vectra:make-arc
• vectra:make-block
• vectra:make-circle
• vectra:make-ellipse
• vectra:make-insert
• vectra:make-insert-with-funcs
• vectra:make-insert-with-funcs-a
• vectra:make-line
• vectra:make-polyline
• vectra:make-setenv
• vectra:make-sharparc
• vectra:make-text
• vectra:mid
• vectra:mxm
• vectra:mxv
• vectra:nentsel
• vectra:number-padding
• vectra:number-padding-last
• vectra:osnap-disable
• vectra:osnap-restore
• vectra:rad->deg
• vectra:readme
• vectra:refgeom
• vectra:regexp-match
• vectra:regexp-replace
• vectra:round
• vectra:set
• vectra:set-symbol-notnull
• vectra:set-values
• vectra:set1
• vectra:setvars
• vectra:sqr
• vectra:ss->enames
• vectra:ss->handles
• vectra:ss-highlight
• vectra:ss-highlight-inner
• vectra:startundomark
• vectra:string-connect
• vectra:string-left
• vectra:string-right
• vectra:string-setnotempty
• vectra:string-subst
• vectra:string-substp
• vectra:string-tokenize
• vectra:stringp
• vectra:tan
• vectra:template-eval
• vectra:template-parse
• vectra:template-parse-inner
• vectra:textstyle-get
• vectra:timer-start
• vectra:timer-stop
• vectra:timestamp
• vectra:trp
• vectra:uid
• vectra:unset
• vectra:var->list
• vectra:vector-angle
• vectra:vector-angle2
• vectra:vector-dotproduct
• vectra:vector-from2p
• vectra:vector-len
• vectra:vector-normal
• vectra:vector-reverse
• vectra:xdata-all
• vectra:xdata-exist
• vectra:xdata-get
• vectra:xdata-get-inner
• vectra:xdata-keys
• vectra:xdata-remove
• vectra:xdata-set
• vectra:xdata-set-inner
• vectra:xprop-exist
• vectra:xprop-get
• vectra:xprop-getall
• vectra:xprop-pack
• vectra:xprop-pack1
• vectra:xprop-remove
• vectra:xprop-replace
• vectra:xprop-set
• vectra:xprop-set-inner
• vectra:xprop-unpack
• vitalgg:helloworld
• vitalgg:test
• vla:buildfilter

  说明: 构建variant列表; 参数：; filter:点对列表

  用法:

  (vla:buildfilter filter)

  参数: 1 filter : 过滤dxf组码;

  返回值: variant列表

  示例:

  (vla:buildFilter '((1 . "123")(2 . "4556")))

• vla:dump

  说明: 列对象属性和方法。

  用法:

  (vla:dump obj)

  参数: 1 obj : activeX 对象;

  返回值:

  示例:

• vla:enamelist->vla

  说明: 图元列表转为Vla列表; arg:; lst:图元列表

  用法:

  (vla:enamelist->vla lst)

  参数: 1 lst : 列表;

  返回值: Vla列表

  示例:

  (vla:enamelist->vla lst)

• vla:get-property
• vla:get-value

  说明: 变体里取值.参数 var:变体或者数组

  用法:

  (vla:get-value var)

  参数: 1 var : 未明确定义;

  返回值: 数据列表

  示例:

  (vla:get-value var)

• vla:list->array

  说明: 表->安全数组类型（一维数组）; 参数：; nlist:列表，要求数据的类型要和arraytype一致; arraytype:可指定如下常量：可以用后面的数字也可以用前面的类型符号;

  用法:

  (vla:list->array nlist arraytype)

  参数: 1 nlist : 未明确定义; 2 arraytype : 未明确定义;

  返回值: 一维数组

  示例:

  (vla:List->Array '(1 2 3 4) vlax-vbInteger)

• vla:list->arrays

  说明: 表->安全数组类型（多维数组，多于二维报错）; arg:; nlist:列表，要求数据的类型要和arraytype一致，表的各维必须为表; arraytype:可指定如下常量：可以用后面的数字也可以用前面的类型符号

  用法:

  (vla:list->arrays nlist arraytype)

  参数: 1 nlist : 未明确定义; 2 arraytype : 未明确定义;

  返回值: 多维数组

  示例:

  vla:List->Arrays '((1 2) (3 4)) vlax-vbInteger)

• vla:objarray

  说明: 创建vla对象数组; 参 数:lst:vla对象表

  用法:

  (vla:objarray lst)

  参数: 1 lst : 列表;

  返回值: 返 回 值:vla对象数组

  示例:

  (vla:ObjArray lst)

• vla:objectvariant

  说明: 创建vla对象表变体.; 参数：; lst:vla对象表

  用法:

  (vla:objectvariant lst)

  参数: 1 lst : 列表;

  返回值: 变体

  示例:

  (vla:ObjectVariant lst)

• vla:prototype
• vla:put-property
• vla:sel

  说明: 单选对象。

  用法:

  (vla:sel )

  参数: None

  返回值: VLA-OBJECT 对象

  示例:

• vla:to-ename

  说明: object转eName,简化函数 o2e.

  用法:

  (vla:to-ename obj)

  参数: 1 obj : activeX 对象;

  返回值: ename entity

  示例:

• word:close
• word:example
• word:new
• word:open
• word:quit
• word:save
• word:write-line
• xdata:delete
• xdata:put
• xdata:remove-all
• xdata:remove-appid