@atlisp/mcp 1.0.20 → 1.0.22

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@atlisp/mcp",
-    "version": "1.0.20",
+    "version": "1.0.22",
     "description": "MCP Server for @lisp on CAD",
     "type": "module",
     "bin": {

package/src/atlisp-mcp.js

@@ -75,16 +75,11 @@ const TOOL_HANDLERS = {
     search_packages:       (a) => packageHandlers.searchPackages(a.query),
     install_package:       (a) => packageHandlers.installPackage(a.packageName),
     get_platform_info:     () => ({ content: [{ type: 'text', text: `支持的 CAD 平台:\n${CAD_PLATFORMS.join('\n')}\n当前连接: ${cad.connected ? '已连接' : '未连接'}` }] }),
-    get_file_extensions:   (a) => {
-        const exts = FILE_EXTENSIONS[a.platform];
-        if (!exts) return { content: [{ type: 'text', text: `错误: 不支持的平台 "${a.platform}"` }], isError: true };
-        return { content: [{ type: 'text', text: `${a.platform} 文件扩展名: ${exts.join(', ')}` }] };
-    },
-    get_install_code:      () => ({ content: [{ type: 'text', text: `复制以下代码到 CAD 命令行安装 @lisp:\n\n(progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""cn/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get-property o'ResponseText))))` }] }),
     at_command:            (a) => cadHandlers.atCommand(a.command),
     new_document:          () => cadHandlers.newDocument(),
     bring_to_front:        () => cadHandlers.bringToFront(),
     install_atlisp:        () => cadHandlers.installAtlisp(),
+    init_atlisp:          () => cadHandlers.initAtlisp(),
     get_function_usage:    (a) => functionHandlers.getFunctionUsage(a.name, a.package),
     list_functions:        (a) => functionHandlers.listFunctions(a.package),
 };
@@ -149,20 +144,6 @@ export const tools = [
 	description: '获取 CAD 平台信息',
 	inputSchema: { type: 'object', properties: {} }
     },
-    {
-	name: 'get_file_extensions',
-	description: '获取指定平台的文件扩展名',
-	inputSchema: {
-	    type: 'object',
-	    properties: { platform: { type: 'string', enum: CAD_PLATFORMS, description: 'CAD 平台' } },
-	    required: ['platform']
-	}
-    },
-    {
-	name: 'get_install_code',
-	description: '获取 @lisp 安装代码',
-	inputSchema: { type: 'object', properties: {} }
-    },
     {
 	name: 'at_command',
 	description: '执行 @lisp 命令',
@@ -187,6 +168,11 @@ export const tools = [
 	description: '在 CAD 中安装 @lisp',
 	inputSchema: { type: 'object', properties: {} }
     },
+    {
+	name: 'init_atlisp',
+	description: '初始化 CAD 中的 @lisp 环境，加载函数库和初始变量',
+	inputSchema: { type: 'object', properties: {} }
+    },
     {
 	name: 'get_function_usage',
 	description: '获取 @lisp 函数用法（从本地 JSON 库）',

package/src/constants.js

@@ -8,7 +8,7 @@ export const FILE_EXTENSIONS = {
 
 export const PROTOCOL_VERSION = '2024-11-05';
 export const SERVER_NAME = 'atlisp-mcp-server';
-export const SERVER_VERSION = '1.0.20';
+export const SERVER_VERSION = '1.0.22';
 
 export const MOCK_PACKAGES = [
     { name: 'base', description: '基础函数库', version: '1.0.0' },

package/src/handlers/cad-handlers.js

@@ -77,3 +77,22 @@ export async function installAtlisp() {
     await cad.sendCommand(installCode + '\n');
     return { content: [{ type: 'text', text: '已发送 @lisp 安装代码到 CAD' }] };
 }
+
+export async function initAtlisp() {
+    if (!cad.connected) { await cad.connect(); }
+    if (!cad.connected) return { content: [{ type: 'text', text: '未连接 CAD' }], isError: true };
+    const code = `(if (null @::load-module)
+	   (progn
+	     (vl-load-com)
+	     (setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))
+		   v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)
+		   (v o'send)
+		   (v o'WaitforResponse 1000)
+		   (e(r(vlax-get o'ResponseText)))))`;
+    try {
+        await cad.sendCommand(code + '\n');
+        return { content: [{ type: 'text', text: '已发送 @lisp 函数库加载代码到 CAD' }] };
+    } catch (e) {
+        return { content: [{ type: 'text', text: `错误: ${e.message}` }], isError: true };
+    }
+}