@atlisp/mcp 1.5.2 → 1.6.0

package/README.md

@@ -9,6 +9,10 @@ MCP (Model Context Protocol) Server for @lisp on CAD - 为 CAD 环境提供 @lis
 - AI Agent 可通过 MCP 协议控制 CAD 绘图
 - 管理 @lisp 包（列出、搜索、安装）
 - CAD 未运行自动启动
+- 实体/图层/块 CRUD 操作
+- DWG 文件操作（打开/保存/导出）
+- MCP 资源订阅推送
+- MCP 根目录支持
 
 ---
 
@@ -234,55 +238,146 @@ curl http://localhost:8110/health
 
 ---
 
-## 六、可用工具列表
+## 六、可用工具列表 (35 个)
+
+### CAD 连接
 
 | 工具名称 | 描述 | 参数 |
 |---------|------|------|
-| `connect_cad` | 连接到 CAD | 无 |
-| `eval_lisp` | 执行 LISP 代码（无返回值） | `code`: LISP 代码 |
-| `eval_lisp_with_result` | 执行 LISP 并返回结果 | `code`: LISP 代码 |
+| `connect_cad` | 连接到 CAD | `platform`: AutoCAD/ZWCAD/GStarCAD/BricsCAD |
 | `get_cad_info` | 获取 CAD 信息 | 无 |
+| `bring_to_front` | 切换 CAD 到前台 | 无 |
+| `new_document` | 新建空白文档 | 无 |
+| `get_system_status` | 获取系统诊断信息 | 无 |
+
+### LISP 执行
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
+| `eval_lisp` | 执行 LISP 代码（无返回值） | `code`: LISP 代码 |
+| `eval_lisp_with_result` | 执行 LISP 并返回结果 | `code`, `encoding`: utf-8/gbk |
+| `at_command` | 执行 @lisp 命令 | `command`: 命令 |
+
+### 包管理
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
 | `list_packages` | 列出已安装的包 | 无 |
 | `search_packages` | 搜索包 | `query`: 关键词 |
 | `install_package` | 安装包 | `packageName`: 包名 |
-| `get_platform_info` | 获取平台信息 | 无 |
-| `get_file_extensions` | 获取文件扩展名 | `platform`: 平台名 |
-| `get_install_code` | 获取安装代码 | 无 |
-| `at_command` | 执行 @lisp 命令 | `command`: 命令 |
-| `new_document` | 新建空白文档 | 无 |
-| `bring_to_front` | 切换 CAD 到前台 | 无 |
+
+### 实体操作
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
+| `get_entity` | 获取实体属性 | `handle`: 句柄 |
+| `set_entity` | 设置实体属性 | `handle`, `property`: layer/color/linetype/elevation, `value` |
+| `delete_entity` | 删除实体 | `handle`: 句柄 |
+| `select_entities` | 按条件选择实体 | `filter`: {type, layer} |
+
+### 图层操作
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
+| `create_layer` | 创建图层 | `name`, `color`: 1-255, `linetype`: 线型名 |
+| `delete_layer` | 删除图层 | `name` |
+| `set_layer` | 设置图层属性 | `name`, `property`: color/linetype/freeze/thaw/lock/unlock |
+| `set_current_layer` | 设置当前图层 | `name` |
+
+### 块操作
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
+| `create_block` | 创建块定义 | `name`, `entities`: 实体代码 |
+| `insert_block` | 插入块 | `blockName`, `point`: x,y, `scale`: 1, `rotation`: 0 |
+| `get_blocks` | 获取所有块定义 | 无 |
+| `explode_block` | 炸开块 | `handle`: 句柄 |
+
+### 文件操作
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
+| `open_dwg` | 打开 DWG 文件 | `filePath`: 完整路径 |
+| `save_dwg` | 保存图形 | `filePath`: 另存路径（可选） |
+| `export_pdf` | 导出 PDF | `outputPath`, `layout`: Model/Layout1 |
+| `close_dwg` | 关闭图形 | `save`: true/false |
+
+### @lisp 系统
+
+| 工具名称 | 描述 | 参数 |
+|---------|------|------|
 | `install_atlisp` | 安装 @lisp | 无 |
-| `get_function_usage` | 获取函数用法 | `name`: 函数名 |
-| `list_symbols` | 列出所有符号（函数和变量） | 无 |
-| `import_funlib` | 从网络导入函数库数据到 AI Agent | `format`: json/list |
+| `init_atlisp` | 初始化 @lisp 环境 | 无 |
+| `get_function_usage` | 获取函数用法 | `name`: 函数名, `package`: 包名 |
+| `list_symbols` | 列出所有符号 | `package`: 包名（可选） |
+| `import_funlib` | 导入函数库到 AI | `format`: json/list |
+| `get_platform_info` | 获取平台信息 | 无 |
+| `list_prompts` | 列出提示模板 | 无 |
+| `get_prompt` | 获取提示模板 | `name`, `args`: 参数 |
+
+---
+
+## 七、MCP 资源 (11 个)
+
+| URI | 名称 | 说明 | 可订阅 |
+|-----|------|------|--------|
+| `atlisp://cad/info` | CAD Info | CAD 连接信息 | ✓ |
+| `atlisp://dwg/layers` | Layers | 图层列表 | ✓ |
+| `atlisp://dwg/entities` | Entities | 实体列表/统计 | ✓ |
+| `atlisp://dwg/texts` | Texts | 文本实体列表 | ✓ |
+| `atlisp://dwg/name` | DWG Name | 当前文件名 | ✓ |
+| `atlisp://dwg/path` | DWG Path | 文件完整路径 | ✓ |
+| `atlisp://cad/dwgs` | DWG List | 所有打开的 DWG | ✓ |
+| `atlisp://packages` | Packages | 已安装包列表 | ✓ |
+| `atlisp://platforms` | Platforms | 支持的平台信息 | ✗ |
+| `atlisp://standards/drafting` | Drafting Standards | CAD 制图规范 | ✗ |
+| `atlisp://standards/coding` | Coding Standards | @lisp 编码规范 | ✗ |
+
+### 资源参数过滤
+
+```
+atlisp://dwg/entities                    # 返回实体统计（类型+数量）
+atlisp://dwg/entities?type=LINE         # 返回 LINE 类型实体列表
+atlisp://dwg/entities?layer=0            # 返回 0 图层实体列表
+atlisp://dwg/entities?bbox=0,0,100,100   # 返回区域内的实体列表
+atlisp://dwg/texts?layer=0&limit=100     # 分页获取文本
+atlisp://dwg/layers?name=0               # 查询特定图层
+atlisp://packages?name=base              # 过滤包列表
+```
+
+### 资源模板 (5 个)
+
+| URI 模板 | 说明 |
+|---------|------|
+| `atlisp://dwg/entity/{handle}` | 按句柄查询实体详情 |
+| `atlisp://dwg/entities?type={type}` | 按类型查询实体 |
+| `atlisp://dwg/layers?name={name}` | 按名称查询图层 |
+| `atlisp://packages?search={query}` | 搜索包 |
+| `atlisp://dwg/texts?layer={layer}&offset={offset}&limit={limit}` | 分页获取文本 |
+
+### MCP 根目录 (Roots) - 2 个
+
+| URI | 名称 | 说明 |
+|-----|------|------|
+| `file://~/@lisp` | @lisp 根目录 | @lisp 工作目录 |
+| `file://~/@lisp/projects` | 项目目录 | 存放 DWG 文件的项目文件夹 |
 
 ### MCP 方法
 
 | 方法 | 说明 |
 |------|------|
 | `initialize` | 初始化连接 |
+| `roots/list` | 列出根目录 |
 | `tools/list` | 列出工具 |
 | `tools/call` | 调用工具 |
 | `resources/list` | 列出资源 |
 | `resources/read` | 读取资源 |
 | `resources/subscribe` | 订阅资源变更 |
 | `resources/unsubscribe` | 取消订阅 |
+| `prompts/list` | 列出提示模板 |
+| `prompts/get` | 获取提示模板 |
 
-### MCP 资源
-
-| URI | 说明 |
-|-----|------|
-| `atlisp://cad/info` | CAD 连接信息（可订阅） |
-| `atlisp://cad/layers` | 图层列表（可订阅） |
-| `atlisp://cad/entities` | 实体统计（可订阅） |
-| `atlisp://dwg/name` | 当前文件名（可订阅） |
-| `atlisp://dwg/path` | 文件完整路径（可订阅） |
-| `atlisp://packages` | 包列表（可订阅） |
-| `atlisp://platforms` | 平台信息 |
-
-### 资源访问方式
-
-使用 `resources/read` 方法：
+### 资源访问示例
 
 ```json
 {
@@ -290,38 +385,25 @@ curl http://localhost:8110/health
   "id": 1,
   "method": "resources/read",
   "params": {
-    "uri": "atlisp://cad/info"
+    "uri": "atlisp://dwg/entities"
   }
 }
 ```
 
-返回示例：
+返回实体统计：
 ```json
 {
   "contents": [{
-    "uri": "atlisp://cad/info",
+    "uri": "atlisp://dwg/entities",
     "mimeType": "application/json",
-    "text": "{\"connected\":true,\"platform\":\"AutoCAD\",\"version\":\"24.1\",\"busy\":false}"
+    "text": "{\"total\":150,\"summary\":[{\"type\":\"LWPOLYLINE\",\"count\":45},{\"type\":\"LINE\",\"count\":32}]}"
   }]
 }
 ```
 
-**带参数的资源：**
-
-```json
-// 查询特定图层
-{ "uri": "atlisp://cad/layers?name=0" }
-
-// 查询特定实体类型
-{ "uri": "atlisp://cad/entities?type=LINE" }
-
-// 过滤包列表
-{ "uri": "atlisp://packages?name=base" }
-```
-
 ---
 
-## 七、环境变量
+## 八、环境变量
 
 | 变量 | 默认值 | 说明 |
 |------|--------|------|
@@ -359,7 +441,7 @@ ENABLE_SSE=false atlisp-mcp
 ```
 1. 客户端 → GET /sse
    Header: Accept: text/event-stream
-   
+
 2. 服务器 → 返回 SSE 流，包含:
    event: endpoint
    data: {"path": "/message"}
@@ -377,7 +459,7 @@ ENABLE_SSE=false atlisp-mcp
 
 ---
 
-## 八、支持平台
+## 九、支持平台
 
 - **AutoCAD** (扩展名: `.fas`, `.vlx`)
 - **ZWCAD** (扩展名: `.zelx`, `.vls`)
@@ -386,7 +468,7 @@ ENABLE_SSE=false atlisp-mcp
 
 ---
 
-## 九、工作原理
+## 十、工作原理
 
 1. MCP Server 通过 `edge-js` 调用 .NET 代码
 2. .NET 通过 COM 互操作连接 CAD 应用程序
@@ -397,13 +479,13 @@ ENABLE_SSE=false atlisp-mcp
 
 ---
 
-## 十、故障排除
+## 十一、故障排除
 
 | 问题 | 解决方案 |
 |------|---------|
 | 连接失败 | 确保 CAD 已启动并启用 COM 接口 |
 | 工具调用超时 | CAD 可能繁忙，稍后重试 |
-| 中文乱码 | 使用 `vl-princ-to-string` 处理 |
+| 中文乱码 | 使用 `vl-prin1-to-string` 处理 |
 | 括号错误 | MCP Server 会自动检查并提示 |
 
 ---