XDrxAPI 82 个 SymTable/DICT/TextStyle/LineType/UCS 函数帮助手册

XDSoft

1
函数名称: xdrx_symtable_compare

描述:
比较两个符号表名称的排序关系

调用格式:
(xdrx_symtable_compare <名称1> <名称2>)

参数说明:
* <名称1>: 第一个要比较的符号表名称(字符串)
* <名称2>: 第二个要比较的符号表名称(字符串)

返回值:
- -1: 名称1 < 名称2
- 0: 名称1 == 名称2
- 1: 名称1 > 名称2

示例用法:
(xdrx_symtable_compare "LAYER" "LTYPE")
; 返回-1表示"LAYER"排序在"LTYPE"之前

实现特点:
1. 使用AutoCAD原生比较算法
2. 严格参数类型检查
3. 自动内存管理

注意事项:
1. 区分大小写比较
2. 必须提供两个字符串参数
3. 遵循AutoCAD符号表排序规则
4. 空参数会返回错误
------------------------------------------------------------
2
函数名称: xdrx-symtable-continuous

描述:
获取图形中CONTINUOUS线型的实体ID（无参数时自动使用当前图形数据库）

调用格式:
(xdrx-symtable-continuous [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)
  当省略时，自动使用当前打开的图形数据库

返回值:
- 实体名: CONTINUOUS线型的实体标识
- nil: 操作失败

示例用法1:
(xdrx-symtable-continuous)
; 自动使用当前图形，返回其CONTINUOUS线型ID

示例用法2:
(xdrx-symtable-continuous 数据库实体)
; 返回指定数据库的CONTINUOUS线型ID

实现特点:
1. 智能数据库处理：无参数→当前图形
2. 支持跨数据库查询
3. 返回可直接使用的实体名

注意事项:
1. 参数必须是有效的数据库实体
2. 始终返回CONTINUOUS线型
3. 失败时返回nil
4. 自动内存管理
------------------------------------------------------------
3
函数名称: xdrx-symtable-insertbyblock

描述:
根据块名获取其插入路径名称（用于INSERTBYBLOCK符号表）

调用格式:
(xdrx-symtable-insertbyblock <块名>)

参数说明:
* <块名>: 要查询的块名称(字符串)

返回值:
- 字符串: 对应的INSERTBYBLOCK路径名称
- nil: 查询失败

示例用法:
(xdrx-symtable-insertbyblock "myblock")
; 返回类似"*D##"的INSERTBYBLOCK名称

实现特点:
1. 自动内存管理
2. 支持多平台兼容处理
3. 严格参数类型检查
4. 返回标准INSERTBYBLOCK格式

注意事项:
1. 参数必须是有效块名
2. 返回字符串需动态分配内存
3. 失败时返回nil
4. 遵循AutoCAD符号表命名规则
------------------------------------------------------------
4
函数名称: xdrx-symtable-islyrdefpoints

描述:
判断图层是否为DEFPOINTS特殊图层(支持名称或实体参数)

调用格式:
(xdrx-symtable-islyrdefpoints <图层名或实体>)

参数说明:
* <图层名或实体>: 要检查的图层名称(字符串)或图层实体(RTENAME)

返回值:
- T: 是DEFPOINTS图层
- nil: 不是DEFPOINTS图层或参数无效

示例用法1:
(xdrx-symtable-islyrdefpoints "DEFPOINTS")
; 返回T表示是DEFPOINTS图层

示例用法2:
(xdrx-symtable-islyrdefpoints 图层实体名)
; 判断指定图层实体是否为DEFPOINTS

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 自动打开图层表记录验证
3. 使用AutoCAD原生判断方法

注意事项:
1. 字符串参数需完全匹配"DEFPOINTS"
2. 实体参数必须是有效的图层实体
3. 区分大小写
4. 空参数返回nil
------------------------------------------------------------
5
函数名称: xdrx-symtable-activeviewport

描述:
获取当前活动视口的名称（保证非空返回值）

调用格式:
(xdrx-symtable-activeviewport)

参数说明:
无参数

返回值:
- 字符串: 当前活动视口的名称
  保证始终返回有效字符串，不会返回NULL或空字符串

示例用法:
(xdrx-symtable-activeviewport)
; 返回当前活动视口名称如"*ACTIVE"

实现特点:
1. 直接调用AutoCAD原生接口
2. 返回值由系统维护无需释放
3. 保证返回有效字符串
4. 无参数要求

注意事项:
1. 返回的是当前活动视口的实际名称
2. 在模型空间和图纸空间均有效
3. 返回值可直接用于后续操作
------------------------------------------------------------
6
函数名称: xdrx-symtable-islinetype

描述:
判断线型是否为BYBLOCK特殊线型(支持名称或实体参数)

调用格式:
(xdrx-symtable-islinetype <线型名或实体>)

参数说明:
* <线型名或实体>: 要检查的线型名称(字符串)或线型实体(RTENAME)

返回值:
- T: 是BYBLOCK线型
- nil: 不是BYBLOCK线型或参数无效

示例用法1:
(xdrx-symtable-islinetype "BYBLOCK")
; 返回T表示是BYBLOCK线型

示例用法2:
(xdrx-symtable-islinetype 线型实体名)
; 判断指定线型实体是否为BYBLOCK

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 自动打开线型表记录验证
3. 严格参数类型检查

注意事项:
1. 字符串参数需完全匹配"BYBLOCK"
2. 实体参数必须是有效的线型实体
3. 区分大小写
4. 空参数返回nil
------------------------------------------------------------
7
函数名称: xdrx-symtable-ismspace

描述:
判断实体或名称是否为模型空间(支持字符串或实体名参数)

调用格式:
(xdrx-symtable-ismspace <名称或实体>)

参数说明:
* <名称或实体>: 要检查的块名称(字符串)或实体名(RTENAME)

返回值:
- T: 是模型空间
- nil: 不是模型空间或参数无效

示例用法1:
(xdrx-symtable-ismspace "*MODEL_SPACE")
; 返回T表示是模型空间

示例用法2:
(xdrx-symtable-ismspace 实体名)
; 判断指定实体是否在模型空间

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 使用AutoCAD原生判断方法
3. 严格参数类型检查

注意事项:
1. 参数必须是字符串或实体名
2. 字符串需完全匹配"*MODEL_SPACE"
3. 实体名会检查所属空间
4. 空参数返回nil
------------------------------------------------------------
8
函数名称: xdrx-symtable-isregapp

描述:
判断是否为AutoCAD预定义的注册应用程序名(支持名称或实体参数)

调用格式:
(xdrx-symtable-isregapp <名称或实体>)

参数说明:
* <名称或实体>: 要检查的注册应用程序名称(字符串)或注册应用程序实体(RTENAME)

返回值:
- T: 是AutoCAD预定义的注册应用程序
- nil: 不是预定义注册应用程序或参数无效

示例用法1:
(xdrx-symtable-isregapp "ACAD")
; 返回T表示是预定义注册应用程序

示例用法2:
(xdrx-symtable-isregapp 注册应用程序实体名)
; 判断指定实体是否为预定义注册应用程序

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 自动打开注册应用程序表记录验证
3. 使用AutoCAD原生判断方法

注意事项:
1. 字符串参数需匹配AutoCAD预定义名称
2. 实体参数必须是有效的注册应用程序实体
3. 区分大小写
4. 空参数返回nil
------------------------------------------------------------
9
函数名称: xdrx-symtable-istextstyle

描述:
判断文字样式是否为AutoCAD标准样式(支持名称或实体参数)

调用格式:
(xdrx-symtable-istextstyle <样式名或实体>)

参数说明:
* <样式名或实体>: 要检查的文字样式名称(字符串)或文字样式实体(RTENAME)

返回值:
- T: 是AutoCAD标准文字样式
- nil: 不是标准文字样式或参数无效

示例用法1:
(xdrx-symtable-istextstyle "Standard")
; 返回T表示是标准文字样式

示例用法2:
(xdrx-symtable-istextstyle 文字样式实体名)
; 判断指定实体是否为标准文字样式

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 自动打开文字样式表记录验证
3. 使用AutoCAD原生判断方法

注意事项:
1. 字符串参数需匹配AutoCAD标准样式名
2. 实体参数必须是有效的文字样式实体
3. 区分大小写
4. 空参数返回nil
------------------------------------------------------------
10
函数名称: xdrx-symtable-isactiveviewport

描述:
判断视口是否为活动视口(支持名称或实体参数)

调用格式:
(xdrx-symtable-isactiveviewport <视口名或实体>)

参数说明:
* <视口名或实体>: 要检查的视口名称(字符串)或视口实体(RTENAME)

返回值:
- T: 是活动视口
- nil: 不是活动视口或参数无效

示例用法1:
(xdrx-symtable-isactiveviewport "*ACTIVE")
; 返回T表示是活动视口

示例用法2:
(xdrx-symtable-isactiveviewport 视口实体名)
; 判断指定实体是否为活动视口

实现特点:
1. 支持双参数类型(字符串/实体名)
2. 自动获取视口名称验证
3. 使用AutoCAD原生判断方法

注意事项:
1. 字符串参数需完全匹配"*ACTIVE"
2. 实体参数必须是有效的视口实体
3. 区分大小写
4. 空参数返回nil
------------------------------------------------------------
11
函数名称: xdrx-symtable-ltypebyblock

描述:
获取当前图形中BYBLOCK线型的实体名(可选指定数据库)

调用格式:
(xdrx-symtable-ltypebyblock [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体名: 成功返回BYBLOCK线型的实体名
- nil: 获取失败

示例用法1:
(xdrx-symtable-ltypebyblock)
; 返回当前图形的BYBLOCK线型实体名

示例用法2:
(xdrx-symtable-ltypebyblock 数据库实体)
; 返回指定数据库的BYBLOCK线型实体名

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体名

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于实体操作
------------------------------------------------------------
12
函数名称: xdrx-symtable-ltypebylayer

描述:
获取当前图形中BYLAYER线型的实体名(可选指定数据库)

调用格式:
(xdrx-symtable-ltypebylayer [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体名: 成功返回BYLAYER线型的实体名
- nil: 获取失败

示例用法1:
(xdrx-symtable-ltypebylayer)
; 返回当前图形的BYLAYER线型实体名

示例用法2:
(xdrx-symtable-ltypebylayer 数据库实体)
; 返回指定数据库的BYLAYER线型实体名

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体名

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于实体操作
------------------------------------------------------------
13
函数名称: xdrx-symtable-lyrdefid

描述:
获取当前图形中DEFPOINTS图层的实体ID(可选指定数据库)

调用格式:
(xdrx-symtable-lyrdefid [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体ID: 成功返回DEFPOINTS图层的实体ID
- nil: 获取失败

示例用法1:
(xdrx-symtable-lyrdefid)
; 返回当前图形的DEFPOINTS图层实体ID

示例用法2:
(xdrx-symtable-lyrdefid 数据库实体)
; 返回指定数据库的DEFPOINTS图层实体ID

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体ID

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于图层操作
------------------------------------------------------------
14
函数名称: xdrx-symtable-lyrzeroid

描述:
获取当前图形中0图层的实体ID(可选指定数据库)

调用格式:
(xdrx-symtable-lyrzeroid [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体ID: 成功返回0图层的实体ID
- nil: 获取失败

示例用法1:
(xdrx-symtable-lyrzeroid)
; 返回当前图形的0图层实体ID

示例用法2:
(xdrx-symtable-lyrzeroid 数据库实体)
; 返回指定数据库的0图层实体ID

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体ID

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于图层操作
------------------------------------------------------------
15
函数名称: xdrx-symtable-pathname

描述:
根据符号名生成带扩展名的完整路径名

调用格式:
(xdrx-symtable-pathname <符号名> <扩展名列表>)

参数说明:
* <符号名>: 基础文件名(字符串)
* <扩展名列表>: 扩展名列表，多个用分号分隔(如"dwg;dxf")

返回值:
- 字符串: 带合适扩展名的完整路径名
- nil: 参数无效

示例用法:
(xdrx-symtable-pathname "test" "dwg;dxf")
; 可能返回"test.dwg"

实现特点:
1. 自动添加缺失的扩展名
2. 扩展名检查不区分大小写
3. 返回新分配字符串需手动释放

注意事项:
1. 扩展名列表不应包含点号
2. 返回的字符串需要调用者释放内存
3. 空符号名将返回空字符串
------------------------------------------------------------
16
函数名称: xdrx-symtable-pspaceid

描述:
获取当前图形中图纸空间(PaperSpace)的块表记录ID(可选指定数据库)

调用格式:
(xdrx-symtable-pspaceid [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体ID: 成功返回图纸空间的块表记录ID
- nil: 获取失败

示例用法1:
(xdrx-symtable-pspaceid)
; 返回当前图形的图纸空间块表记录ID

示例用法2:
(xdrx-symtable-pspaceid 数据库实体)
; 返回指定数据库的图纸空间块表记录ID

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体ID

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于图纸空间操作
------------------------------------------------------------
17
函数名称: xdrx-symtable-regappid

描述:
获取当前图形中ACAD注册应用程序的实体ID(可选指定数据库)

调用格式:
(xdrx-symtable-regappid [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体ID: 成功返回ACAD注册应用程序的实体ID
- nil: 获取失败

示例用法1:
(xdrx-symtable-regappid)
; 返回当前图形的ACAD注册应用程序实体ID

示例用法2:
(xdrx-symtable-regappid 数据库实体)
; 返回指定数据库的ACAD注册应用程序实体ID

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体ID

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于注册应用程序操作
------------------------------------------------------------
18
函数名称: xdrx-symtable-standardid

描述:
获取当前图形中Standard文字样式的实体ID(可选指定数据库)

调用格式:
(xdrx-symtable-standardid [数据库实体])

参数说明:
* [数据库实体]: 可选参数，指定要查询的数据库实体(RTENAME)

返回值:
- 实体ID: 成功返回Standard文字样式的实体ID
- nil: 获取失败

示例用法1:
(xdrx-symtable-standardid)
; 返回当前图形的Standard文字样式实体ID

示例用法2:
(xdrx-symtable-standardid 数据库实体)
; 返回指定数据库的Standard文字样式实体ID

实现特点:
1. 支持可选数据库参数
2. 自动处理当前图形数据库
3. 返回可直接使用的实体ID

注意事项:
1. 无参数时使用当前数据库
2. 参数必须是有效的数据库实体
3. 返回值可直接用于文字样式操作
------------------------------------------------------------
19
函数名称: xdrx-symtable-ename

描述:
通过符号表名和条目名获取对应的实体名(ENAME)

调用格式:
(xdrx-symtable-ename <符号表名> <条目名>)

参数说明:
* <符号表名>: 支持的符号表名称(APPID/BLOCK/DIMSTYLE/LAYER/LTYPE/STYLE/UCS/VIEW/VPORT)
* <条目名>: 符号表中的条目名称

返回值:
- 实体名: 成功返回对应的实体名
- nil: 获取失败

示例用法1:
(xdrx-symtable-ename "LAYER" "0")
; 返回图层0的实体名

示例用法2:
(xdrx-symtable-ename "BLOCK" "*MODEL_SPACE")
; 返回模型空间块的实体名

实现特点:
1. 支持9种AutoCAD标准符号表
2. 表名不区分大小写
3. 自动处理无效表名或条目名

注意事项:
1. 表名必须是支持的9种类型之一
2. 条目名必须存在于指定符号表中
3. 错误时会输出错误信息到命令行
------------------------------------------------------------
20
函数名称: xdrx-symtable-ename-list

描述:
获取指定符号表中所有条目的实体名(ENAME)列表

调用格式:
(xdrx-symtable-ename-list <符号表名>)

参数说明:
* <符号表名>: 支持的符号表名称(APPID/BLOCK/DIMSTYLE/LAYER/LTYPE/STYLE/UCS/VIEW/VPORT)

返回值:
- 实体名列表: 成功返回包含所有条目实体名的列表
- nil: 获取失败或表名为空

示例用法1:
(xdrx-symtable-ename-list "LAYER")
; 返回所有图层的实体名列表

示例用法2:
(xdrx-symtable-ename-list "BLOCK")
; 返回所有块定义的实体名列表

实现特点:
1. 支持9种AutoCAD标准符号表
2. 表名不区分大小写
3. 自动过滤无效条目
4. 返回LISP格式的实体名列表

注意事项:
1. 表名必须是支持的9种类型之一
2. 返回的列表可直接用于后续操作
3. 大符号表可能返回大量数据
------------------------------------------------------------
21
函数名称: xdrx-symtable-name-list

描述:
获取符号表中所有条目的名称列表(可选包含实体名)

调用格式:
(xdrx-symtable-name-list <符号表名> [T])

参数说明:
* <符号表名>: 支持的符号表名称(不区分大小写)
* [T]: 可选参数，返回包含名称和实体名的关联列表

返回值:
- 纯名称列表: 无T参数时返回简单字符串列表
  ("0" "Defpoints" "Layer1" "Layer2")
- 关联列表: 有T参数时返回(名称 实体名)的嵌套列表
  (("0" <Entity name>) ("Defpoints" <Entity name>) ...)
- nil: 获取失败

示例用法1:
(xdrx-symtable-name-list "layer")
; 返回: ("0" "Defpoints" "Layer1" "Layer2")

示例用法2:
(xdrx-symtable-name-list "layer" T)
; 返回: (("0" <Entity name>) ("Defpoints" <Entity name>) ...)

实现特点:
1. 表名参数不区分大小写
2. 两种返回格式可选
3. 自动过滤系统保留条目

注意事项:
1. 返回的实体名可直接用于后续操作
2. 关联列表格式便于名称与实体名的映射
3. 结果包含所有用户自定义和系统保留条目
------------------------------------------------------------
22
函数名称: xdrx-dict-make

描述:
创建一个新的命名对象词典(Named Object Dictionary)内存对象

调用格式:
(xdrx-dict-make)

参数说明:
无参数

返回值:
- 实体名: 成功返回新创建的词典实体名
- nil: 创建失败

示例用法:
(setq dict (xdrx-dict-make))
; 创建词典并保存到变量dict

内存管理:
(xdrx-free dict) 或 (xdrx-object-release dict)
; 使用后需手动释放内存

实现特点:
1. 创建独立于数据库的词典对象
2. 返回可直接操作的实体名
3. 需要显式释放内存

注意事项:
1. 必须调用xdrx-free或xdrx-object-release释放
2. 未释放会导致内存泄漏
3. 词典对象未持久化到DWG文件
------------------------------------------------------------
23
函数名称: xdrx-dict-ename

描述:
获取指定词典中所有条目的实体名(ENAME)列表

调用格式:
(xdrx-dict-ename <词典名>)

参数说明:
* <词典名>: 目标词典的名称(字符串)

返回值:
- 实体名列表: 成功返回包含所有条目实体名的列表
- nil: 获取失败或词典为空

示例用法:
(xdrx-dict-ename "MY_DICTIONARY")
; 返回: (<Entity name> <Entity name> ...)

实现特点:
1. 自动遍历词典所有条目
2. 返回可直接操作的实体名列表
3. 支持任意类型的词典

注意事项:
1. 词典必须已存在且包含条目
2. 返回的实体名列表可直接用于后续操作
3. 大词典可能返回大量数据
------------------------------------------------------------
24
函数名称: xdrx-dict-name-list

描述:
获取词典中所有条目的名称列表(支持自动补全ACAD_前缀)

调用格式:
(xdrx-dict-name-list <词典名> [返回模式] [包含实体名])

参数说明:
* <词典名>: 目标词典名称(如"GROUP"或"ACAD_GROUP")
* [返回模式]:
  - t: 返回关联列表(名称+实体名)
  - nil: 返回简单列表(默认)
* [包含实体名]:
  - t: 包含实体名(当返回模式为nil时有效)
  - nil: 不包含实体名(默认)

自动前缀处理:
当词典名为以下值时自动添加"ACAD_"前缀:
GROUP, COLOR, LAYOUT, MATERIAL, MLEADERSTYLE,
PLOTSETTINGS, PLOTSTYLENAME, SCALELIST, TABLESTYLE,
VISUALSTYLE, SECTIONVIEWSTYLE, DETAILVIEWSTYLE

示例用法:
(xdrx-dict-name-list "GROUP") ; 自动转为"ACAD_GROUP"
; 返回: ("*A1" "*A2" "*A3" "*A4")

(xdrx-dict-name-list "ACAD_GROUP" t)
; 返回: (("*A1" <实体名>) ("*A2" <实体名>) ...)

注意事项:
1. 词典必须已存在
2. 参数组合决定返回格式
3. 自动前缀处理简化了标准词典的访问
------------------------------------------------------------
25
函数名称: xdrx-textstyle-bigfontname

描述:
获取文字样式的BigFont文件名

调用格式:
(xdrx-textstyle-bigfontname [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- 字符串: 成功返回BigFont文件名
- nil: 获取失败或未设置BigFont

示例用法1:
(xdrx-textstyle-bigfontname)
; 获取当前文字样式的BigFont文件名

示例用法2:
(xdrx-textstyle-bigfontname "Standard")
; 获取指定文字样式的BigFont文件名

示例用法3:
(xdrx-textstyle-bigfontname <文字样式实体名>)
; 通过实体名获取BigFont文件名

实现特点:
1. 支持三种参数输入方式
2. 自动处理当前文字样式
3. 返回完整的BigFont文件名

注意事项:
1. 仅当文字样式设置了BigFont时返回有效值
2. 返回的字符串需要调用者释放内存
------------------------------------------------------------
26
函数名称: xdrx-textstyle-filename

描述:
获取文字样式的字体文件名

调用格式:
(xdrx-textstyle-filename [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- 字符串: 成功返回字体文件名
- nil: 获取失败或未设置字体文件

示例用法1:
(xdrx-textstyle-filename)
; 获取当前文字样式的字体文件名

示例用法2:
(xdrx-textstyle-filename "Standard")
; 获取指定文字样式的字体文件名

示例用法3:
(xdrx-textstyle-filename <文字样式实体名>)
; 通过实体名获取字体文件名

实现特点:
1. 支持三种参数输入方式
2. 自动处理当前文字样式
3. 返回完整的字体文件路径

注意事项:
1. 返回的字符串需要调用者释放内存
2. 对于SHX字体返回完整文件名
3. 对于TrueType字体返回字体家族名
------------------------------------------------------------
27
函数名称: xdrx-textstyle-flagbits

描述:
获取文字样式的标志位(对应DXF组码71)

调用格式:
(xdrx-textstyle-flagbits [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- 整数: 文字样式的标志位值
- nil: 获取失败

标志位含义(DXF 71组码):
2 = 文字反向(X轴镜像)
4 = 文字倒置(Y轴镜像)

示例用法1:
(xdrx-textstyle-flagbits)
; 获取当前文字样式的标志位

示例用法2:
(if (= (logand (xdrx-textstyle-flagbits "Standard") 2) 2 0)
; 检查文字是否反向

实现特点:
1. 仅使用第2、3位表示文字方向
2. 返回值可直接对应DXF组码71
3. 支持三种参数输入方式

注意事项:
1. 其他位保留未使用
2. 需要配合logand函数解析具体标志
------------------------------------------------------------
28
函数名称: xdrx-textstyle-font

描述:
获取文字样式的完整字体属性

调用格式:
(xdrx-textstyle-font [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
关联列表包含以下键值：
- "TypeFace": 字体名称(字符串)
- "Bold": 是否粗体(T/nil)
- "Italic": 是否斜体(T/nil)
- "Charset": 字符集编号(整数)
- "Family": 字体族和间距(整数列表)

示例用法1:
(xdrx-textstyle-font)
; 获取当前文字样式的字体属性

示例用法2:
(xdrx-textstyle-font "Standard")
; 获取指定文字样式的字体属性

实现特点:
1. 支持三种参数输入方式
2. 返回结构化字体属性
3. 兼容不同CAD版本

注意事项:
1. 返回值是关联列表，需用assoc函数获取具体属性
2. 对于TrueType和SHX字体均适用
------------------------------------------------------------
29
函数名称: xdrx_textstyle_exist_p

描述:
检查指定名称的文字样式是否存在(谓词函数)

调用格式:
(xdrx_textstyle_exist_p <文字样式名称>)

参数说明:
* <文字样式名称>: 要检查的文字样式名称(字符串)

返回值:
- T: 文字样式存在
- nil: 文字样式不存在或参数错误

示例用法1:
(xdrx_textstyle_exist_p "Standard")
; 检查Standard文字样式是否存在

示例用法2:
(when (xdrx_textstyle_exist_p "MyStyle")
; 当MyStyle存在时执行操作

实现特点:
1. 函数名遵循Lisp谓词命名规范(_p后缀)
2. 精确匹配文字样式名称
3. 返回布尔值结果

注意事项:
1. 名称区分大小写
2. 仅检查当前图形数据库
------------------------------------------------------------
30
函数名称: xdrx_textstyle_backward_p

描述:
检查文字样式是否设置为反向显示(谓词函数)

调用格式:
(xdrx_textstyle_backward_p [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- T: 文字样式设置为反向(X轴镜像)
- nil: 文字样式非反向或检查失败

示例用法1:
(xdrx_textstyle_backward_p)
; 检查当前文字样式是否反向

示例用法2:
(xdrx_textstyle_backward_p "Standard")
; 检查指定文字样式是否反向

实现特点:
1. 检查flagBits的第2位(值为2)
2. 支持三种参数输入方式
3. 遵循Lisp谓词命名规范(_p后缀)

注意事项:
1. 反向状态不影响文字内容
2. 仅反映样式设置，不影响已创建的文字对象
------------------------------------------------------------
31
函数名称: xdrx_textstyle_shpfile_p

描述:
检查文字样式是否使用SHX形文件字体(谓词函数)

调用格式:
(xdrx_textstyle_shpfile_p [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- T: 文字样式使用SHX形文件字体
- nil: 使用其他类型字体或检查失败

示例用法1:
(xdrx_textstyle_shpfile_p)
; 检查当前文字样式是否使用SHX字体

示例用法2:
(xdrx_textstyle_shpfile_p "工程字")
; 检查指定文字样式是否使用SHX字体

实现特点:
1. 调用isshpFile()方法检测
2. 支持三种参数输入方式
3. 遵循Lisp谓词命名规范(_p后缀)

注意事项:
1. SHX字体是AutoCAD专用形文件字体
2. 与TrueType字体互斥
3. 常用于工程图纸标准字体
------------------------------------------------------------
32
函数名称: xdrx_textstyle_upside_p

描述:
检查文字样式是否设置为倒置显示(Y轴镜像)(谓词函数)

调用格式:
(xdrx_textstyle_upside_p [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- T: 文字样式设置为倒置(Y轴镜像)
- nil: 文字样式非倒置或检查失败

示例用法1:
(xdrx_textstyle_upside_p)
; 检查当前文字样式是否倒置

示例用法2:
(xdrx_textstyle_upside_p "工程字")
; 检查指定文字样式是否倒置

实现特点:
1. 检查flagBits的第3位(值为4)
2. 支持三种参数输入方式
3. 遵循Lisp谓词命名规范(_p后缀)

注意事项:
1. 倒置状态不影响文字内容
2. 常与反向状态(xdrx_textstyle_backward_p)组合使用
3. 仅反映样式设置，不影响已创建的文字对象
------------------------------------------------------------
33
函数名称: xdrx_textstyle_validfont_p

描述:
检查字体文件是否有效可用(谓词函数)

调用格式:
(xdrx_textstyle_validfont_p <字体名称/实体>)

参数说明:
* <字体名称/实体>: 可以是：
  - 字体名称(字符串)
  - 文字样式实体名(ENAME)

返回值:
- 整数: 字体状态位掩码(见注意事项)
- nil: 检查失败

示例用法1:
(xdrx_textstyle_validfont_p "simsun.ttf")
; 检查simsun字体是否有效

示例用法2:
(xdrx_textstyle_validfont_p (car (entsel)))
; 检查选中文字样式的字体

实现特点:
1. 通过loadStyleRec()获取字体状态
2. 支持名称和实体两种输入
3. 返回详细状态码而非简单布尔值

注意事项:
状态位掩码含义:
1 = 字体文件未找到
2 = 字体文件已找到但无效
4 = 大字体文件未找到
8 = 字体有效且已加载
------------------------------------------------------------
34
函数名称: xdrx_textstyle_vertical_p

描述:
检查文字样式是否设置为垂直排列(谓词函数)

调用格式:
(xdrx_textstyle_vertical_p [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- T: 文字样式设置为垂直排列
- nil: 文字样式为水平排列或检查失败

示例用法1:
(xdrx_textstyle_vertical_p)
; 检查当前文字样式是否垂直排列

示例用法2:
(xdrx_textstyle_vertical_p "@工程字")
; 检查指定文字样式是否垂直排列

实现特点:
1. 调用isVertical()方法检测
2. 支持三种参数输入方式
3. 遵循Lisp谓词命名规范(_p后缀)

注意事项:
1. 垂直样式常用于亚洲语言排版
2. 垂直样式通常以@符号开头的字体
3. 仅反映样式设置，不影响已创建的文字对象
------------------------------------------------------------
35
函数名称: xdrx-textstyle-make

描述:
创建或修改文字样式定义

调用格式:
(xdrx-textstyle-make <样式名称> <字体文件> <大字体文件> <字高> <宽度因子>)

参数说明:
* <样式名称>: 要创建/修改的文字样式名称(字符串)
* <字体文件>: 主字体文件名(字符串)
* <大字体文件>: 大字体文件名(字符串)
* <字高>: 文字高度(实数/整数)
* <宽度因子>: 文字宽度比例(实数/整数)

返回值:
- 实体名: 创建/修改成功的文字样式实体名
- nil: 操作失败

示例用法1:
(xdrx-textstyle-make "工程字" "simplex.shx" "hztxt.shx" 2.5 0.8)
; 创建工程图纸常用文字样式

示例用法2:
(xdrx-textstyle-make "标注" "isocp.shx" "" 3.0 1.0)
; 创建标注文字样式(不使用大字体)

实现特点:
1. 支持新建和修改现有样式
2. 自动设置为当前文字样式
3. 支持SHX和TrueType字体
4. 参数类型灵活(支持整数和实数)

注意事项:
1. 大字体文件参数可为空字符串("")
2. 字高为0表示可变高度
3. 修改现有样式会更新所有使用该样式的文字
------------------------------------------------------------
36
函数名称: xdrx_textstyle_oblique

描述:
获取文字样式的倾斜角度

调用格式:
(xdrx_textstyle_oblique [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- 实数: 文字样式的倾斜角度(弧度制)
- nil: 获取失败

示例用法1:
(xdrx_textstyle_oblique)
; 获取当前文字样式的倾斜角度

示例用法2:
(setq ang (xdrx_textstyle_oblique "斜体字"))
; 获取指定文字样式的倾斜角度

实现特点:
1. 返回AutoCAD原生弧度值
2. 支持三种参数输入方式
3. 直接读取obliquingAngle属性

注意事项:
1. 正值表示向右倾斜
2. 角度单位为弧度非度数
3. 0表示无倾斜
------------------------------------------------------------
37
函数名称: xdrx-textstyle-PriorSize

描述:
获取文字样式的预设高度值

调用格式:
(xdrx-textstyle-PriorSize [文字样式实体/名称])

参数说明:
* [文字样式实体/名称]: 可选参数，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
  - 省略时使用当前文字样式

返回值:
- 实数: 文字样式的预设高度值
- nil: 获取失败

示例用法1:
(xdrx-textstyle-PriorSize)
; 获取当前文字样式的预设高度

示例用法2:
(setq h (xdrx-textstyle-PriorSize "标注文字"))
; 获取指定文字样式的预设高度

实现特点:
1. 直接读取priorSize属性
2. 支持三种参数输入方式
3. 返回AutoCAD原生高度值

注意事项:
1. 0表示高度可变(由具体文字对象决定)
2. 非0值表示固定高度
3. 与textsize系统变量相关
------------------------------------------------------------
38
函数名称: xdrx-textstyle-setbigfont

描述:
设置文字样式的大字体文件

调用格式:
(xdrx-textstyle-setbigfont <文字样式实体/名称> <大字体文件名>)

参数说明:
* <文字样式实体/名称>: 目标文字样式，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
* <大字体文件名>: 要设置的大字体文件名(字符串)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx-textstyle-setbigfont "工程字" "hztxt.shx")
; 设置工程字样式的大字体

示例用法2:
(xdrx-textstyle-setbigfont (car (entsel)) "bigfont.shx")
; 为选中的文字样式设置大字体

实现特点:
1. 使用setBigFontFileName方法设置
2. 支持实体和名称两种输入方式
3. 自动处理文件有效性检查

注意事项:
1. 大字体通常用于亚洲语言字符集
2. 设置为空字符串("")可清除大字体
3. 修改会影响所有使用该样式的文字
------------------------------------------------------------
39
函数名称: xdrx-textstyle-setfilename

描述:
设置文字样式的主字体文件

调用格式:
(xdrx-textstyle-setfilename <文字样式实体/名称> <字体文件名>)

参数说明:
* <文字样式实体/名称>: 目标文字样式，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
* <字体文件名>: 要设置的字体文件名(字符串)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx-textstyle-setfilename "标准文字" "simplex.shx")
; 设置标准文字样式的主字体

示例用法2:
(xdrx-textstyle-setfilename (car (entsel)) "arial.ttf")
; 为选中的文字样式设置TrueType字体

实现特点:
1. 使用setFileName方法设置主字体
2. 支持实体和名称两种输入方式
3. 同时支持SHX和TrueType字体

注意事项:
1. 修改会影响所有使用该样式的文字
2. 需确保字体文件在支持路径中
3. 与setbigfont配合使用可设置双字体
------------------------------------------------------------
40
函数名称: xdrx-textstyle-setflagbits

描述:
设置文字样式的标志位属性

调用格式:
(xdrx-textstyle-setflagbits <文字样式实体/名称> <标志位值>)

参数说明:
* <文字样式实体/名称>: 目标文字样式，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
* <标志位值>: 要设置的标志位整数值(SHORT)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx-textstyle-setflagbits "标准文字" 4)
; 设置标准文字样式的标志位(倒置)

示例用法2:
(xdrx-textstyle-setflagbits (car (entsel)) 5)
; 为选中的文字样式设置标志位

标志位含义:
1 = 反向(镜像X)
2 = 倒置(镜像Y)
4 = 垂直排列

实现特点:
1. 使用setFlagBits方法直接设置
2. 支持位组合设置多个属性
3. 修改立即生效

注意事项:
1. 修改会影响所有使用该样式的文字
2. 标志位可组合使用(如3=1+2表示同时反向和倒置)
3. 需谨慎操作避免意外效果
------------------------------------------------------------
41
函数名称: xdrx-textstyle-setfont

描述:
设置文字样式的TrueType字体属性

调用格式:
(xdrx-textstyle-setfont <文字样式实体/名称> <字体名> [粗体] [斜体] [字符集] [字距] [字族])

参数说明:
* <文字样式实体/名称>: 目标文字样式(ENAME/字符串)
* <字体名>: TrueType字体名称(字符串)
* [粗体]: 是否粗体(T/nil)
* [斜体]: 是否斜体(T/nil)
* [字符集]: 字符集编号(整数)
* [字距]: 字距类型(整数)
* [字族]: 字族类型(整数)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx-textstyle-setfont "标注文字" "Arial" T nil)
; 设置Arial粗体字体

示例用法2:
(xdrx-textstyle-setfont (car (entsel)) "宋体" nil T 134)
; 设置选中样式的斜体宋体

实现特点:
1. 支持完整TrueType字体属性设置
2. 兼容不同AutoCAD版本
3. 参数灵活组合

注意事项:
1. 仅适用于TrueType字体
2. 修改会影响所有使用该样式的文字
3. 字符集134表示简体中文
------------------------------------------------------------
42
函数名称: xdrx_textstyle_setisshpfile

描述:
设置文字样式是否为形文件(SHX)

调用格式:
(xdrx_textstyle_setisshpfile <文字样式实体/名称> <标志>)

参数说明:
* <文字样式实体/名称>: 目标文字样式，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
* <标志>: 形文件标志(T/nil)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx_textstyle_setisshpfile "工程字" T)
; 设置工程字样式使用形文件

示例用法2:
(xdrx_textstyle_setisshpfile (car (entsel)) nil)
; 设置选中文字样式不使用形文件

实现特点:
1. 使用setIsshpFile方法设置
2. 支持实体和名称两种输入方式
3. 修改立即生效

注意事项:
1. T表示使用SHX形文件，nil表示不使用
2. 需与setfilename配合设置具体形文件
3. 修改会影响所有使用该样式的文字
------------------------------------------------------------
43
函数名称: xdrx_textstyle_setisvertical

描述:
设置文字样式是否为垂直排列

调用格式:
(xdrx_textstyle_setisvertical <文字样式实体/名称> <垂直标志>)

参数说明:
* <文字样式实体/名称>: 目标文字样式，可以是：
  - 文字样式实体名(ENAME)
  - 文字样式名称(字符串)
* <垂直标志>: 垂直排列标志(T/nil)

返回值:
- T: 设置成功
- nil: 设置失败

示例用法1:
(xdrx_textstyle_setisvertical "竖排文字" T)
; 设置文字样式为垂直排列

示例用法2:
(xdrx_textstyle_setisvertical (car (entsel)) nil)
; 设置选中文字样式为水平排列

实现特点:
1. 使用setIsVertical方法设置
2. 支持实体和名称两种输入方式
3. 修改立即生效

注意事项:
1. T表示垂直排列，nil表示水平排列
2. 仅对支持垂直排列的字体有效
3. 修改会影响所有使用该样式的文字
------------------------------------------------------------
44
函数名称: xdrx-textstyle-setoblique

描述:
设置文字样式的倾斜角度

调用格式:
(xdrx-textstyle-setoblique [文字样式] 角度)

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)
角度 - 倾斜角度值(短整型或实数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-textstyle-setoblique "Standard" 15) ; 设置Standard样式的倾斜角度为15度
(xdrx-textstyle-setoblique 30) ; 设置当前文字样式的倾斜角度为30度

注意事项:
1. 角度单位为度
2. 不提供文字样式参数时使用当前样式
3. 角度值可以是整数或实数
4. 需要管理员权限
5. 修改立即生效
------------------------------------------------------------
45
函数名称: xdrx-textstyle-setpriorsize

描述:
设置文字样式的预设大小

调用格式:
(xdrx-textstyle-setpriorsize [文字样式] <大小>)

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)
<大小> - 必选，预设大小值(短整型或实数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-textstyle-setpriorsize "Standard" <2.5>) ; 设置Standard样式的预设大小为2.5
(xdrx-textstyle-setpriorsize <3>) ; 设置当前文字样式的预设大小为3

注意事项:
1. 大小值可以是整数或实数
2. 不提供文字样式参数时使用当前样式
3. 需要管理员权限
4. 修改立即生效
5. 预设大小影响新创建的文字对象
------------------------------------------------------------
46
函数名称: xdrx-textstyle-settextsize

描述:
设置文字样式的文字大小

调用格式:
(xdrx-textstyle-settextsize [文字样式] <大小>)

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)
<大小> - 必选，文字大小值(短整型或实数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-textstyle-settextsize "Standard" <2.5>) ; 设置Standard样式的文字大小为2.5
(xdrx-textstyle-settextsize <3>) ; 设置当前文字样式的文字大小为3

注意事项:
1. 大小值可以是整数或实数
2. 不提供文字样式参数时使用当前样式
3. 需要管理员权限
4. 修改立即生效
5. 影响使用该样式的新建文字对象
------------------------------------------------------------
47
函数名称: xdrx-textstyle-setxscale

描述:
设置文字样式的X方向比例

调用格式:
(xdrx-textstyle-setxscale [文字样式] <比例>)

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)
<比例> - 必选，X方向比例值(短整型或实数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-textstyle-setxscale "Standard" <1.5>) ; 设置Standard样式的X方向比例为1.5
(xdrx-textstyle-setxscale <0.8>) ; 设置当前文字样式的X方向比例为0.8

注意事项:
1. 比例值可以是整数或实数
2. 不提供文字样式参数时使用当前样式
3. 修改立即生效
4. 影响使用该样式的新建文字对象
------------------------------------------------------------
48
函数名称: xdrx-textstyle-textsize

描述:
获取文字样式的文字大小

调用格式:
(xdrx-textstyle-textsize [文字样式])

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)

返回值:
- 实数: 文字大小值
- nil: 获取失败

示例用法:
(xdrx-textstyle-textsize "Standard") ; 获取Standard样式的文字大小
(xdrx-textstyle-textsize) ; 获取当前文字样式的文字大小

注意事项:
1. 返回值为实数类型
2. 不提供文字样式参数时使用当前样式
3. 修改立即生效
4. 仅获取不修改样式
------------------------------------------------------------
49
函数名称: xdrx-textstyle-xscale

描述:
获取文字样式的X方向比例

调用格式:
(xdrx-textstyle-xscale [文字样式])

参数说明:
[文字样式] - 可选，文字样式实体名或名称(不提供则使用当前样式)

返回值:
- 实数: X方向比例值
- nil: 获取失败

示例用法:
(xdrx-textstyle-xscale "Standard") ; 获取Standard样式的X方向比例
(xdrx-textstyle-xscale) ; 获取当前文字样式的X方向比例

注意事项:
1. 返回值为实数类型
2. 不提供文字样式参数时使用当前样式
3. 修改立即生效
4. 仅获取不修改样式
------------------------------------------------------------
50
函数名称: xdrx-linetype-comments

描述:
获取线型的注释信息

调用格式:
(xdrx-linetype-comments [线型])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)

返回值:
- 字符串: 线型的注释信息
- nil: 获取失败

示例用法:
(xdrx-linetype-comments "DASHED") ; 获取DASHED线型的注释
(xdrx-linetype-comments) ; 获取当前线型的注释

注意事项:
1. 返回值为字符串类型
2. 不提供线型参数时使用当前线型
3. 仅获取不修改线型
4. 注释可能为空字符串
------------------------------------------------------------
51
函数名称: xdrx-linetype-dashlengthat

描述:
获取线型在指定索引处的虚线长度

调用格式:
(xdrx-linetype-dashlengthat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，虚线段的索引位置(从0开始)

返回值:
- 实数: 指定索引处的虚线长度值
- nil: 获取失败

示例用法:
(xdrx-linetype-dashlengthat "DASHED" <0>) ; 获取DASHED线型第0段的虚线长度
(xdrx-linetype-dashlengthat <1>) ; 获取当前线型第1段的虚线长度

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的虚线总数
3. 不提供线型参数时使用当前线型
4. 返回值为实数类型
------------------------------------------------------------
52
函数名称: xdrx-linetype-shx-p

描述:
检查线型是否包含SHX形定义

调用格式:
(xdrx-linetype-shx-p <线型名称>)

参数说明:
<线型名称> - 必选，要检查的线型名称(字符串)

返回值:
- t: 线型包含SHX形定义
- nil: 线型不包含SHX形定义或检查失败

示例用法:
(xdrx-linetype-shx-p "DASHED") ; 检查DASHED线型是否包含SHX形
(xdrx-linetype-shx-p "CENTER") ; 检查CENTER线型是否包含SHX形

注意事项:
1. 参数必须是字符串类型的线型名称
2. 仅检查不修改线型
3. 返回布尔值(t/nil)
------------------------------------------------------------
53
函数名称: xdrx-linetype-fit-p

描述:
检查线型是否设置为"缩放到适合"

调用格式:
(xdrx-linetype-fit-p [线型])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)

返回值:
- t: 线型设置为"缩放到适合"
- nil: 线型未设置为"缩放到适合"或检查失败

示例用法:
(xdrx-linetype-fit-p "DASHED") ; 检查DASHED线型是否设置为"缩放到适合"
(xdrx-linetype-fit-p) ; 检查当前线型是否设置为"缩放到适合"

注意事项:
1. 不提供线型参数时使用当前线型
2. 仅检查不修改线型
3. 返回布尔值(t/nil)
4. "缩放到适合"是AutoCAD线型的一种显示属性
------------------------------------------------------------
54
函数名称: xdrx-linetype-load

描述:
从线型定义文件加载指定线型

调用格式:
(xdrx-linetype-load [文件名] <线型名称> [T])

参数说明:
[文件名] - 可选，线型定义文件名(默认"acadiso.lin")
<线型名称> - 必选，要加载的线型名称(字符串)
[T] - 可选，强制重新加载标志(提供T符号则强制重新加载)

返回值:
- 列表: 加载成功的线型信息列表(格式:(线型名 实体名))
- nil: 加载失败

示例用法:
(xdrx-linetype-load "DASHED") ; 从默认文件加载DASHED线型
(xdrx-linetype-load "mylinetype.lin" "MYDASH" T) ; 强制从mylinetype.lin重新加载MYDASH线型

注意事项:
1. 默认使用"acadiso.lin"线型文件
2. 提供T参数会强制重新加载线型
3. 可以同时加载多个线型
4. 返回列表中包含线型名和对应的实体名
------------------------------------------------------------
55
函数名称: xdrx-linetype-make

描述:
创建新的线型

调用格式:
(xdrx-linetype-make [线型名称] [目标数据库])

参数说明:
[线型名称] - 可选，新线型名称(不提供则生成"XLT-"前缀的随机名称)
[目标数据库] - 可选，目标数据库实体名(默认当前数据库)

返回值:
- 实体名: 新创建的线型实体名
- nil: 创建失败

示例用法:
(xdrx-linetype-make "MY_LINETYPE") ; 创建名为MY_LINETYPE的线型
(xdrx-linetype-make) ; 创建随机名称的线型

注意事项:
1. 不提供名称时会自动生成"XLT-"前缀的随机名称
2. 默认在当前数据库创建
3. 名称冲突时会自动生成新名称
4. 新线型的描述与名称相同
------------------------------------------------------------
56
函数名称: xdrx-linetype-numDashes

描述:
获取线型的虚线数量

调用格式:
(xdrx-linetype-numDashes [线型])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)

返回值:
- 整数: 线型的虚线数量
- nil: 获取失败

示例用法:
(xdrx-linetype-numDashes "DASHED") ; 获取DASHED线型的虚线数量
(xdrx-linetype-numDashes) ; 获取当前线型的虚线数量

注意事项:
1. 不提供线型参数时使用当前线型
2. 返回值为整数类型
3. 仅获取不修改线型
4. 简单线型(如CONTINUOUS)返回0
------------------------------------------------------------
57
函数名称: xdrx-linetype-patlength

描述:
获取线型的图案总长度

调用格式:
(xdrx-linetype-patlength [线型])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)

返回值:
- 实数: 线型的图案总长度
- nil: 获取失败

示例用法:
(xdrx-linetype-patlength "DASHED") ; 获取DASHED线型的图案总长度
(xdrx-linetype-patlength) ; 获取当前线型的图案总长度

注意事项:
1. 不提供线型参数时使用当前线型
2. 返回值为实数类型
3. 仅获取不修改线型
4. 简单线型(如CONTINUOUS)返回0.0
------------------------------------------------------------
58
函数名称: xdrx-linetype-setcomments

描述:
设置线型的注释信息

调用格式:
(xdrx-linetype-setcomments [线型] <注释>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<注释> - 必选，要设置的注释内容(字符串)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setcomments "DASHED" "虚线样式") ; 设置DASHED线型的注释
(xdrx-linetype-setcomments "自定义注释") ; 设置当前线型的注释

注意事项:
1. 注释内容可以是任意字符串
2. 不提供线型参数时修改当前线型
3. 注释内容会立即生效
4. 注释不影响线型的显示效果
------------------------------------------------------------
59
函数名称: xdrx-linetype-setdashlengthat

描述:
设置线型在指定索引处的虚线长度

调用格式:
(xdrx-linetype-setdashlengthat [线型] <索引> <长度>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，虚线段的索引位置(从0开始)
<长度> - 必选，要设置的虚线长度值(实数或整数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setdashlengthat "DASHED" 0 0.5) ; 设置DASHED线型第0段的虚线长度为0.5
(xdrx-linetype-setdashlengthat 1 1.2) ; 设置当前线型第1段的虚线长度为1.2

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的虚线总数
3. 长度值可以是整数或实数
4. 修改会立即生效
------------------------------------------------------------
60
函数名称: xdrx-linetype-setscaledtofit

描述:
设置线型的"缩放到适合"属性

调用格式:
(xdrx-linetype-setscaledtofit [线型] [T])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
[T] - 可选，提供T符号则设置为"缩放到适合"，不提供则取消设置

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setscaledtofit "DASHED" T) ; 设置DASHED线型为"缩放到适合"
(xdrx-linetype-setscaledtofit) ; 取消当前线型的"缩放到适合"设置

注意事项:
1. 提供T参数时启用"缩放到适合"
2. 不提供T参数时禁用"缩放到适合"
3. 不提供线型参数时修改当前线型
4. 修改会立即影响线型显示
------------------------------------------------------------
61
函数名称: xdrx-linetype-setnumdashes

描述:
设置线型的虚线数量

调用格式:
(xdrx-linetype-setnumdashes [线型] <数量>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<数量> - 必选，要设置的虚线数量(正整数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setnumdashes "DASHED" 3) ; 设置DASHED线型的虚线数量为3
(xdrx-linetype-setnumdashes 2) ; 设置当前线型的虚线数量为2

注意事项:
1. 数量参数必须为正整数
2. 不提供线型参数时修改当前线型
3. 修改会立即影响线型显示
4. 仅修改数量不改变各虚线长度
------------------------------------------------------------
62
函数名称: xdrx-linetype-setpatlength

描述:
设置线型的图案总长度

调用格式:
(xdrx-linetype-setpatlength [线型] <长度>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<长度> - 必选，要设置的图案总长度值(实数或整数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setpatlength "DASHED" 1.5) ; 设置DASHED线型的图案总长度为1.5
(xdrx-linetype-setpatlength 2) ; 设置当前线型的图案总长度为2

注意事项:
1. 长度参数可以是整数或实数
2. 会自动取长度参数的绝对值
3. 不提供线型参数时修改当前线型
4. 修改会立即影响线型显示
------------------------------------------------------------
63
函数名称: xdrx-linetype-setshporiat

描述:
设置线型在指定索引处的形状是否UCS定向

调用格式:
(xdrx-linetype-setshporiat [线型] <索引> [T|nil])

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
[T|nil] - 必选，T符号表示UCS定向，nil表示取消UCS定向

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshporiat "COMPLEX" 0 T) ; 设置COMPLEX线型第0个形状为UCS定向
(xdrx-linetype-setshporiat 1 nil) ; 取消当前线型第1个形状的UCS定向

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 提供T参数启用UCS定向，nil参数禁用
4. 修改会立即影响线型显示
------------------------------------------------------------
64
函数名称: xdrx-linetype-setshpnumat

描述:
设置线型在指定索引处的形状编号

调用格式:
(xdrx-linetype-setshpnumat [线型] <索引> <编号>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
<编号> - 必选，要设置的形状编号(非负整数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshpnumat "COMPLEX" 0 5) ; 设置COMPLEX线型第0个形状的编号为5
(xdrx-linetype-setshpnumat 1 3) ; 设置当前线型第1个形状的编号为3

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 编号必须为非负整数
4. 修改会立即影响线型显示
------------------------------------------------------------
65
函数名称: xdrx-linetype-setshpoffsetat

描述:
设置线型在指定索引处的形状偏移量

调用格式:
(xdrx-linetype-setshpoffsetat [线型] <索引> <偏移量>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
<偏移量> - 必选，形状的偏移量(点对或向量)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshpoffsetat "COMPLEX" 0 '(0.5 0.5)) ; 设置COMPLEX线型第0个形状的偏移量为(0.5,0.5)
(xdrx-linetype-setshpoffsetat 1 '(1.0 0.0)) ; 设置当前线型第1个形状的偏移量为(1.0,0.0)

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 偏移量可以是点对或向量形式
4. 修改会立即影响线型显示
------------------------------------------------------------
66
函数名称: xdrx-linetype-setshprotationat

描述:
设置线型在指定索引处的形状旋转角度

调用格式:
(xdrx-linetype-setshprotationat [线型] <索引> <角度>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
<角度> - 必选，旋转角度值(实数或整数，单位：弧度)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshprotationat "COMPLEX" 0 0.785) ; 设置COMPLEX线型第0个形状旋转45度(0.785弧度)
(xdrx-linetype-setshprotationat 1 1.57) ; 设置当前线型第1个形状旋转90度(1.57弧度)

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 角度单位为弧度
4. 修改会立即影响线型显示
------------------------------------------------------------
67
函数名称: xdrx-linetype-setshpscaleat

描述:
设置线型在指定索引处的形状缩放比例

调用格式:
(xdrx-linetype-setshpscaleat [线型] <索引> <比例>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
<比例> - 必选，缩放比例值(实数或整数)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshpscaleat "COMPLEX" 0 1.5) ; 设置COMPLEX线型第0个形状的缩放比例为1.5
(xdrx-linetype-setshpscaleat 1 2) ; 设置当前线型第1个形状的缩放比例为2

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 比例值必须大于0
4. 修改会立即影响线型显示
------------------------------------------------------------
68
函数名称: xdrx-linetype-setshpstyleat

描述:
设置线型在指定索引处的文字样式

调用格式:
(xdrx-linetype-setshpstyleat [线型] <索引> <文字样式>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)
<文字样式> - 必选，文字样式实体名或名称

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-setshpstyleat "COMPLEX" 0 "Standard") ; 设置COMPLEX线型第0个形状的文字样式为"Standard"
(xdrx-linetype-setshpstyleat 1 (car (entsel))) ; 设置当前线型第1个形状的文字样式为选择的文字样式实体

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 文字样式必须已存在
4. 修改会立即影响线型显示
------------------------------------------------------------
69
函数名称: xdrx-linetype-settextat

描述:
设置线型在指定索引处的文本内容

调用格式:
(xdrx-linetype-settextat [线型] <索引> <文本>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，文本的索引位置(从0开始)
<文本> - 必选，要设置的文本内容(字符串)

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-linetype-settextat "COMPLEX" 0 "ABC") ; 设置COMPLEX线型第0个文本为"ABC"
(xdrx-linetype-settextat 1 "XYZ") ; 设置当前线型第1个文本为"XYZ"

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的文本总数
3. 文本内容不能为空
4. 修改会立即影响线型显示
------------------------------------------------------------
70
函数名称: xdrx-linetype-shporiat

描述:
检查线型在指定索引处的形状是否UCS定向

调用格式:
(xdrx-linetype-shporiat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- t: 形状是UCS定向
- nil: 形状不是UCS定向或检查失败

示例用法:
(xdrx-linetype-shporiat "COMPLEX" 0) ; 检查COMPLEX线型第0个形状是否UCS定向
(xdrx-linetype-shporiat 1) ; 检查当前线型第1个形状是否UCS定向

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 仅适用于包含形状的线型
------------------------------------------------------------
71
函数名称: xdrx-linetype-shpnumberat

描述:
获取线型在指定索引处的形状编号

调用格式:
(xdrx-linetype-shpnumberat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- 整数: 形状编号
- nil: 获取失败

示例用法:
(xdrx-linetype-shpnumberat "COMPLEX" 0) ; 获取COMPLEX线型第0个形状的编号
(xdrx-linetype-shpnumberat 1) ; 获取当前线型第1个形状的编号

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 仅适用于包含形状的线型
------------------------------------------------------------
72
函数名称: xdrx-linetype-shpoffsetat

描述:
获取线型在指定索引处的形状偏移量

调用格式:
(xdrx-linetype-shpoffsetat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- 点对: 形状偏移量向量(x y)
- nil: 获取失败

示例用法:
(xdrx-linetype-shpoffsetat "COMPLEX" 0) ; 获取COMPLEX线型第0个形状的偏移量
(xdrx-linetype-shpoffsetat 1) ; 获取当前线型第1个形状的偏移量

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 仅适用于包含形状的线型
------------------------------------------------------------
73
函数名称: xdrx-linetype-shprotationat

描述:
获取线型在指定索引处的形状旋转角度

调用格式:
(xdrx-linetype-shprotationat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- 实数: 旋转角度(弧度)
- nil: 获取失败

示例用法:
(xdrx-linetype-shprotationat "COMPLEX" 0) ; 获取COMPLEX线型第0个形状的旋转角度
(xdrx-linetype-shprotationat 1) ; 获取当前线型第1个形状的旋转角度

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 角度单位为弧度
4. 仅适用于包含形状的线型
------------------------------------------------------------
74
函数名称: xdrx-linetype-shpscaleat

描述:
获取线型在指定索引处的形状缩放比例

调用格式:
(xdrx-linetype-shpscaleat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- 实数: 缩放比例
- nil: 获取失败

示例用法:
(xdrx-linetype-shpscaleat "COMPLEX" 0) ; 获取COMPLEX线型第0个形状的缩放比例
(xdrx-linetype-shpscaleat 1) ; 获取当前线型第1个形状的缩放比例

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 缩放比例为1.0表示原始大小
4. 仅适用于包含形状的线型
------------------------------------------------------------
75
函数名称: xdrx-linetype-shpstyleat

描述:
获取线型在指定索引处的文字样式

调用格式:
(xdrx-linetype-shpstyleat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，形状的索引位置(从0开始)

返回值:
- 列表: (文字样式名称 实体名)
- nil: 获取失败

示例用法:
(xdrx-linetype-shpstyleat "COMPLEX" 0) ; 获取COMPLEX线型第0个形状的文字样式
(xdrx-linetype-shpstyleat 1) ; 获取当前线型第1个形状的文字样式

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的形状总数
3. 仅适用于包含文字形状的线型
4. 返回的文字样式名称可用于设置文字样式
------------------------------------------------------------
76
函数名称: xdrx-linetype-textat

描述:
获取线型在指定索引处的文本内容

调用格式:
(xdrx-linetype-textat [线型] <索引>)

参数说明:
[线型] - 可选，线型实体名或名称(不提供则使用当前线型)
<索引> - 必选，文本的索引位置(从0开始)

返回值:
- 字符串: 文本内容
- nil: 获取失败

示例用法:
(xdrx-linetype-textat "COMPLEX" 0) ; 获取COMPLEX线型第0个文本内容
(xdrx-linetype-textat 1) ; 获取当前线型第1个文本内容

注意事项:
1. 索引从0开始计数
2. 索引值必须小于线型的文本总数
3. 仅适用于包含文本的线型
4. 返回的文本可能为空字符串
------------------------------------------------------------
77
函数名称: xdrx-ucs-get

描述:
获取指定UCS的坐标系信息

调用格式:
(xdrx-ucs-get [UCS实体名])

参数说明:
[UCS实体名] - 可选，UCS实体名(不提供则获取当前UCS)

返回值:
- 列表: (原点 X轴方向 Y轴方向) 每个元素为三维点坐标
- nil: 获取失败

示例用法:
(xdrx-ucs-get) ; 获取当前UCS坐标系信息
(xdrx-ucs-get ent) ; 获取指定UCS实体坐标系信息

注意事项:
1. 返回的坐标系信息可用于重建UCS
2. 原点坐标为WCS坐标
3. X/Y轴方向向量已单位化
4. 不提供参数时获取当前活动UCS
------------------------------------------------------------
78
函数名称: xdrx-ucs-remove

描述:
删除指定的用户坐标系(UCS)

调用格式:
(xdrx-ucs-remove <UCS名称>)

参数说明:
<UCS名称> - 必选，要删除的UCS名称(字符串)

返回值:
- t: 删除成功
- nil: 删除失败

示例用法:
(xdrx-ucs-remove "MyUCS") ; 删除名为"MyUCS"的用户坐标系

注意事项:
1. 不能删除当前活动的UCS
2. 不能删除世界坐标系(WCS)
3. 删除后不可恢复
4. 名称区分大小写
------------------------------------------------------------
78
函数名称: xdrx-ucs-remove

描述:
删除指定的用户坐标系(UCS)，支持通过名称或实体名删除

调用格式:
(xdrx-ucs-remove <UCS名称或实体名>)

参数说明:
<UCS名称或实体名> - 必选，要删除的UCS名称(字符串)或实体名

返回值:
- t: 删除成功
- nil: 删除失败

示例用法:
(xdrx-ucs-remove "MyUCS") ; 通过名称删除UCS
(xdrx-ucs-remove e1) ; 通过实体名删除UCS

注意事项:
1. 不能删除当前活动的UCS
2. 不能删除世界坐标系(WCS)
3. 删除后不可恢复
4. 名称参数区分大小写
5. 实体名必须指向有效的UCS对象
------------------------------------------------------------
79
函数名称: xdrx-ucs-save

描述:
保存当前UCS或指定坐标系为新UCS

调用格式1（保存当前UCS）:
(xdrx-ucs-save <UCS名称>)

调用格式2（创建新UCS）:
(xdrx-ucs-save <原点> <X轴方向> <Y轴方向> <UCS名称>)

参数说明:
<UCS名称> - 必选，要保存/创建的UCS名称(字符串)
<原点> - 三维点坐标，新UCS的原点(WCS坐标)
<X轴方向> - 三维向量，新UCS的X轴方向
<Y轴方向> - 三维向量，新UCS的Y轴方向

返回值:
- t: 保存成功
- nil: 保存失败

示例用法:
(xdrx-ucs-save "MyUCS") ; 保存当前UCS
(xdrx-ucs-save '(0 0 0) '(1 0 0) '(0 1 0) "NewUCS") ; 创建新UCS

注意事项:
1. 名称必须唯一
2. 会覆盖同名UCS
3. 向量会自动单位化
4. 坐标系必须正交
5. 名称区分大小写
------------------------------------------------------------
80
函数名称: xdrx-ucs-set

描述:
设置当前用户坐标系(UCS)，支持多种参数组合方式

调用格式1（通过名称设置）:
(xdrx-ucs-set <UCS名称>)

调用格式2（通过矩阵设置）:
(xdrx-ucs-set <变换矩阵>)

调用格式3（通过坐标设置）:
(xdrx-ucs-set <原点> <Z轴方向> [Y轴方向] [UCS名称])

参数说明:
<UCS名称> - 必选，要设置的UCS名称(字符串)
<变换矩阵> - 必选，3x3变换矩阵
<原点> - 必选，新UCS的原点(WCS坐标)
<Z轴方向> - 必选，新UCS的Z轴方向向量
[Y轴方向] - 可选，指定Y轴方向向量
[UCS名称] - 可选，同时创建并命名新UCS

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-ucs-set "MyUCS") ; 通过名称设置UCS
(xdrx-ucs-set '((1 0 0)(0 1 0)(0 0 1))) ; 通过矩阵设置UCS
(xdrx-ucs-set '(0 0 0) '(0 0 1)) ; 通过原点+Z轴设置UCS
(xdrx-ucs-set '(0 0 0) '(0 0 1) '(0 1 0) "NewUCS") ; 完整参数设置

注意事项:
1. 向量会自动单位化
2. 坐标系必须正交
3. 提供名称时会自动创建/更新UCS
4. 不提供Y轴方向时会自动计算
5. 名称区分大小写
------------------------------------------------------------
81
函数名称: xdrx-ucs-setactive
函数别名: xdrx_ucs_setcurrent

描述:
设置指定UCS为当前活动坐标系

调用格式:
(xdrx-ucs-setactive <UCS名称> [T])

参数说明:
<UCS名称> - 必选，要激活的UCS名称或"world"(字符串)
[T] - 可选，指定为T时不更新视口显示

返回值:
- t: 设置成功
- nil: 设置失败

示例用法:
(xdrx-ucs-setactive "MyUCS") ; 激活指定UCS
(xdrx-ucs-setactive "world") ; 激活世界坐标系
(xdrx-ucs-setactive "MyUCS" T) ; 激活但不更新视口

注意事项:
1. 名称区分大小写
2. 使用"world"可切换回世界坐标系
3. 默认会更新所有视口显示
4. 需要有效的UCS名称
5. 不更新视口时可提升性能
------------------------------------------------------------
82
函数名称: xdrx-ucs-setname

描述:
修改用户坐标系(UCS)的名称

调用格式:
(xdrx-ucs-setname <原名称> <新名称>)

参数说明:
<原名称> - 必选，要修改的UCS当前名称(字符串)
<新名称> - 必选，要设置的新名称(字符串)

返回值:
- t: 修改成功
- nil: 修改失败

示例用法:
(xdrx-ucs-setname "OldUCS" "NewUCS") ; 将UCS从OldUCS重命名为NewUCS

注意事项:
1. 原名称必须存在
2. 新名称必须唯一
3. 名称区分大小写
4. 不能修改世界坐标系(WCS)的名称
5. 修改后立即生效
------------------------------------------------------------