@atlisp/mcp 1.3.0 → 1.3.1

package/src/handlers/prompt-handlers.js

@@ -1,268 +0,0 @@
-import { cad } from '../cad.js';
-
-const CACHE_TTL = 60000;
-const cache = new Map();
-
-function getCached(key) {
-    const entry = cache.get(key);
-    if (entry && Date.now() - entry.timestamp < CACHE_TTL) return entry.data;
-    cache.delete(key);
-    return null;
-}
-
-function setCache(key, data) {
-    cache.set(key, { data, timestamp: Date.now() });
-}
-
-export const PROMPTS = [
-    {
-        name: "draw-residential",
-        description: "生成农村民居平面布置图",
-        arguments: [
-            { name: "width", description: "建筑宽度 (mm)", required: true },
-            { name: "depth", description: "建筑深度 (mm)", required: true },
-            { name: "rooms", description: "房间数量", required: false }
-        ]
-    },
-    {
-        name: "draw-floor-plan",
-        description: "生成建筑楼层平面图",
-        arguments: [
-            { name: "floor", description: "楼层名称", required: true },
-            { name: "scale", description: "图纸比例", required: false }
-        ]
-    },
-    {
-        name: "analyze-drawing",
-        description: "分析当前图纸统计信息",
-        arguments: []
-    },
-    {
-        name: "batch-draw-lines",
-        description: "批量绘制线段",
-        arguments: [
-            { name: "count", description: "线段数量", required: true },
-            { name: "length", description: "线段长度", required: false }
-        ]
-    },
-    {
-        name: "generate-dimension",
-        description: "生成尺寸标注",
-        arguments: [
-            { name: "style", description: "标注样式 (horizontal/vertical/aligned)", required: false }
-        ]
-    },
-    {
-        name: "export-entities",
-        description: "导出图纸实体统计",
-        arguments: [
-            { name: "format", description: "导出格式 (json/list)", required: false }
-        ]
-    }
-];
-
-export async function listPrompts() {
-    return PROMPTS;
-}
-
-export async function getPrompt(name, arguments_ = {}) {
-    switch (name) {
-        case "draw-residential":
-            return generateResidentialPrompt(arguments_);
-        case "draw-floor-plan":
-            return generateFloorPlanPrompt(arguments_);
-        case "analyze-drawing":
-            return generateAnalyzePrompt();
-        case "batch-draw-lines":
-            return generateBatchLinesPrompt(arguments_);
-        case "generate-dimension":
-            return generateDimensionPrompt(arguments_);
-        case "export-entities":
-            return generateExportPrompt(arguments_);
-        default:
-            throw new Error(`Unknown prompt: ${name}`);
-    }
-}
-
-async function generateResidentialPrompt(args) {
-    const { width = 15000, depth = 12000, rooms = 6 } = args;
-    const code = `(defun c:draw-residential (/ old-layer p)
-  (setq old-layer (getvar "clayer"))
-  (setvar "clayer" "0")
-  (setq p (list 0 0))
-  (command "_.rectangle" p (list ${width} ${depth}))
-  ${generateRoomLayout(width, depth, rooms)}
-  (setvar "clayer" old-layer)
-  (princ)
-)
-(c:draw-residential)`;
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `请在 CAD 中绘制农村民居平面图，尺寸 ${width}x${depth}mm，${rooms} 个房间。\n\n生成的 AutoLISP 代码：\n\`\`\`lisp\n${code}\n\`\`\`\n\n直接执行此代码即可生成图纸。`
-            }
-        }]
-    };
-}
-
-function generateRoomLayout(width, depth, rooms) {
-    if (rooms === 6) {
-        return `(command "_.line" (list 5000 0) (list 5000 ${depth}) "")
-               (command "_.line" (list 0 4000) (list ${width} 4000) "")
-               (command "_.text" "j" "c" "2500,2000" 800 0 "客厅")
-               (command "_.text" "j" "c" "7500,6000" 800 0 "餐厅")
-               (command "_.text" "j" "c" "12500,2000" 800 0 "主卧")`;
-    }
-    return `(command "_.text" "j" "c" (list (/ ${width} 2) (/ ${depth} 2)) 800 0 "房间")`;
-}
-
-async function generateFloorPlanPrompt(args) {
-    const { floor = "一层", scale = "1:100" } = args;
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `生成 ${floor} 平面图，比例 ${scale}。\n\n提示：\n1. 使用 RECTANGLE 命令绘制外墙\n2. 使用 LINE 命令绘制内部隔墙\n3. 使用 TEXT 命令添加房间标注\n4. 使用 DIMLINEAR 或 DIMALIGNED 添加尺寸标注\n\n需要我执行哪些操作？`
-            }
-        }]
-    };
-}
-
-async function generateAnalyzePrompt() {
-    let entities = { total: 0, byType: {} };
-    let layers = [];
-
-    try {
-        if (cad.connected) {
-            const entResult = await cad.sendCommandWithResult(
-                `(progn(setq ss(ssget "_X"))(if ss(progn(setq elst(mapcar(quote(lambda(x)(cdr(assoc 0(entget x))))) (pickset:to-list ss)))(stat:stat elst))))`
-            );
-            if (entResult) {
-                try { entities = JSON.parse(entResult); } catch {}
-            }
-
-            const layerResult = await cad.sendCommandWithResult(
-                `(progn(setq res nil)(while(setq e(tblnext "LAYER"(null res)))(setq res(cons(cdr(assoc 2 e))res)))(reverse res))`
-            );
-            if (layerResult) {
-                try { layers = JSON.parse(layerResult); } catch {}
-            }
-        }
-    } catch (e) {}
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `图纸分析报告：
-
-**实体统计：** ${entities.total} 个
-${Object.entries(entities.byType).map(([t, c]) => `- ${t}: ${c}`).join('\n')}
-
-**图层列表：** ${layers.length} 个
-${layers.slice(0, 10).join(', ')}${layers.length > 10 ? '...' : ''}
-
-**建议：**\n${generateSuggestions(entities, layers)}`
-            }
-        }]
-    };
-}
-
-function generateSuggestions(entities, layers) {
-    const suggestions = [];
-    if (entities.total > 1000) suggestions.push("- 图纸实体较多，建议使用图层分类管理");
-    if (layers.length > 20) suggestions.push("- 图层较多，建议清理未使用的图层");
-    if (entities.byType.LINE && entities.byType.LINE > 500) suggestions.push("- 线条较多，可考虑使用 BLOCK 减少实体数量");
-    if (!entities.byType.DIMENSION) suggestions.push("- 未发现尺寸标注，建议添加标注");
-    return suggestions.length ? suggestions.join('\n') : '- 图纸结构良好';
-}
-
-async function generateBatchLinesPrompt(args) {
-    const { count = 5, length = 1000 } = args;
-
-    const code = `(defun c:batch-lines (/ i)
-  (setq i 0)
-  (repeat ${count}
-    (command "_.line" (list (* i ${length}) 0) (list (* (1+ i) ${length}) 0) "")
-    (setq i (1+ i))
-  )
-  (princ)
-)
-(c:batch-lines)`;
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `批量绘制 ${count} 条长度为 ${length} 的水平线段：\n\n\`\`\`lisp\n${code}\n\`\`\`\n\n此代码将绘制 ${count} 条首尾相连的水平线段。`
-            }
-        }]
-    };
-}
-
-async function generateDimensionPrompt(args) {
-    const { style = "aligned" } = args;
-
-    let dimStyle = "aligned";
-    let lispStyle = "DIMALIGNED";
-    if (style === "horizontal") { dimStyle = "水平"; lispStyle = "DIMLINEAR"; }
-    if (style === "vertical") { dimStyle = "垂直"; lispStyle = "DIMLINEAR"; }
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `生成 ${dimStyle} 尺寸标注代码：\n\n\`\`\`lisp\n(command "_${lispStyle}" "0,0" "1000,0" "500,200" "")
-\`\`\`\n\n参数说明：\n- 起点: 0,0\n- 终点: 1000,0\n- 标注位置: 500,200\n\n执行后将创建 ${dimStyle} 尺寸标注。`
-            }
-        }]
-    };
-}
-
-async function generateExportPrompt(args) {
-    const { format = "json" } = args;
-
-    const code = format === "json"
-        ? `(progn
-  (setq ss(ssget "_X"))
-  (if ss
-    (progn
-      (setq elst(mapcar(quote(lambda(x)(list(cdr(assoc 0(entget x)))(vlax-get x 'ObjectName))))(pickset:to-list ss)))
-      (stat:stat(mapcar(quote car)elst))
-    )
-  )
-)`
-        : `(progn
-  (princ "\\n实体统计:\\n")
-  (princ "类型              数量\\n")
-  (princ "---------------------\\n")
-  (setq ss(ssget "_X"))
-  (if ss
-    (progn
-      (setq elst(mapcar(quote(lambda(x)(cdr(assoc 0(entget x))))) (pickset:to-list ss)))
-      (foreach t '("LINE" "CIRCLE" "ARC" "TEXT" "MTEXT" "POLYLINE" "LWPOLYLINE" "INSERT")
-        (setq cnt(length(member t elst)))
-        (if(> cnt 0)(princ(strcat t "           "(itoa cnt) "\\n")))
-      )
-    )
-  )
-)`;
-
-    return {
-        messages: [{
-            role: "user",
-            content: {
-                type: "text",
-                text: `导出实体统计 (${format} 格式)：\n\n\`\`\`lisp\n${code}\n\`\`\`\n\n执行后将输出实体统计信息。`
-            }
-        }]
-    };
-}

package/src/handlers/resource-handlers.js

@@ -1,364 +0,0 @@
-import { cad } from '../cad.js';
-import { CAD_PLATFORMS, FILE_EXTENSIONS, MOCK_PACKAGES } from '../constants.js';
-import { log } from '../logger.js';
-import config from '../config.js';
-
-const CACHE_TTL = config.resourceCacheTtl;
-const resourceCache = new Map();
-
-function getCached(key) {
-    const entry = resourceCache.get(key);
-    if (entry && Date.now() - entry.timestamp < CACHE_TTL) {
-        return entry.data;
-    }
-    resourceCache.delete(key);
-    return null;
-}
-
-function setCache(key, data) {
-    resourceCache.set(key, { data, timestamp: Date.now() });
-}
-
-function parseLispList(str) {
-    if (!str || typeof str !== 'string') return null;
-    const trimmed = str.trim();
-    if (!trimmed.startsWith('(') || !trimmed.endsWith(')')) return null;
-    const content = trimmed.slice(1, -1).trim();
-    if (!content) return [];
-
-    const result = [];
-    let depth = 0;
-    let current = '';
-    let inString = false;
-    let escaped = false;
-
-    for (let i = 0; i < content.length; i++) {
-        const ch = content[i];
-        if (escaped) {
-            current += ch;
-            escaped = false;
-            continue;
-        }
-        if (ch === '\\') {
-            current += ch;
-            escaped = true;
-            continue;
-        }
-        if (ch === '"') {
-            current += ch;
-            inString = !inString;
-            continue;
-        }
-        if (inString) {
-            current += ch;
-            continue;
-        }
-        if (ch === '(' || ch === '[') {
-            current += ch;
-            depth++;
-        } else if (ch === ')' || ch === ']') {
-            current += ch;
-            depth--;
-        } else if (ch === ' ' && depth === 0) {
-            if (current.trim()) {
-                result.push(current.trim());
-                current = '';
-            }
-            continue;
-        }
-        current += ch;
-    }
-    if (current.trim()) result.push(current.trim());
-
-    return result.map(item => {
-        const t = item.trim();
-        if (t === 'nil') return null;
-        if (t === 't') return true;
-        if (t === 'T') return true;
-        const num = Number(t);
-        if (!isNaN(num) && t !== '') return num;
-        if (t.startsWith('"') && t.endsWith('"')) return t.slice(1, -1);
-        return t;
-    });
-}
-
-export const RESOURCES = [
-    { uri: 'atlisp://cad/info', name: 'CAD Info', description: 'CAD 连接信息', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://cad/layers', name: 'Layers', description: '图层列表', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://cad/entities', name: 'Entities', description: '实体统计', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://dwg/name', name: 'DWG Name', description: '当前 DWG 文件名', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://dwg/path', name: 'DWG Path', description: '文件完整路径', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://packages', name: 'Packages', description: '已安装包列表', mimeType: 'application/json', subscribable: true },
-    { uri: 'atlisp://platforms', name: 'Platforms', description: '支持的平台信息', mimeType: 'application/json', subscribable: false },
-];
-
-function parseQuery(uri) {
-    const qIdx = uri.indexOf('?');
-    if (qIdx === -1) return { base: uri, params: {} };
-    const base = uri.substring(0, qIdx);
-    const params = {};
-    uri.substring(qIdx + 1).split('&').forEach(p => {
-        const eqIdx = p.indexOf('=');
-        const k = eqIdx === -1 ? p : p.substring(0, eqIdx);
-        const v = eqIdx === -1 ? '' : p.substring(eqIdx + 1);
-        if (k) params[k] = decodeURIComponent(v);
-    });
-    return { base, params };
-}
-
-export async function listResources(subscribedUris = []) {
-    return RESOURCES.map(r => ({
-        uri: r.uri,
-        name: r.name,
-        description: r.description,
-        mimeType: r.mimeType,
-        subscribed: subscribedUris.includes(r.uri)
-    }));
-}
-
-export async function readResource(uri) {
-    const { base, params } = parseQuery(uri);
-    
-    switch (base) {
-        case 'atlisp://cad/info':
-            return await getCadInfo();
-        case 'atlisp://cad/layers':
-            return await getLayers(params.name);
-        case 'atlisp://cad/entities':
-            return await getEntities(params.type);
-        case 'atlisp://dwg/name':
-            return await getDwgName();
-        case 'atlisp://dwg/path':
-            return await getDwgPath();
-        case 'atlisp://packages':
-            return await getPackages(params.name);
-        case 'atlisp://platforms':
-            return getPlatforms();
-        default:
-            throw new Error(`资源不存在: ${uri}`);
-    }
-}
-
-async function getCadInfo() {
-    const cached = getCached('cad:info');
-    if (cached) return cached;
-
-    if (!cad.connected) {
-        await cad.connect();
-    }
-
-    if (!cad.connected) {
-        const result = { connected: false, platform: null, version: null, busy: false };
-        setCache('cad:info', result);
-        return result;
-    }
-
-    let busy = false;
-    try {
-        busy = await cad.isBusy();
-    } catch (e) {
-        log(`Error checking CAD busy status: ${e.message}`);
-    }
-
-    const result = {
-        connected: true,
-        platform: cad.getPlatform(),
-        version: cad.getVersion(),
-        busy
-    };
-    setCache('cad:info', result);
-    return result;
-}
-
-async function getLayers(filterName = null) {
-    const cacheKey = filterName ? `layers:${filterName}` : 'layers:all';
-    const cached = getCached(cacheKey);
-    if (cached) return cached;
-
-    if (!cad.connected) await cad.connect();
-    if (!cad.connected) return [];
-    
-    try {
-        const code = filterName
-            ? `(tblnext "LAYER" T)`
-            : `(progn (setq res nil)(while (setq e (tblnext "LAYER" (null res)))(setq res (cons (list (cdr (assoc 2 e)) (cdr (assoc 62 e)) (cdr (assoc 70 e))) res))) (reverse res))`;
-        
-        const result = await cad.sendCommandWithResult(code);
-        
-        if (!result || result === "" || result === "nil") {
-            setCache(cacheKey, []);
-            return [];
-        }
-
-        let layers = [];
-        try {
-            layers = JSON.parse(result);
-        } catch (e) {
-            const parsed = parseLispList(result);
-            if (parsed) {
-                layers = parsed;
-            } else {
-                layers = [];
-            }
-        }
-
-        if (!Array.isArray(layers)) {
-            if (typeof layers === 'number') {
-                layers = [[result, layers, 0]];
-            } else if (typeof layers === 'string') {
-                layers = [[layers, 7, 0]];
-            }
-        }
-
-        const mapped = layers.map(l => {
-            const name = Array.isArray(l) ? l[0] : l;
-            const color = Array.isArray(l) && l[1] !== undefined ? l[1] : 7;
-            const flags = Array.isArray(l) && l[2] !== undefined ? l[2] : 0;
-            return {
-                name: String(name),
-                color: color,
-                locked: (flags & 4) !== 0,
-                frozen: (flags & 1) !== 0
-            };
-        });
-        setCache(cacheKey, mapped);
-        return mapped;
-    } catch (e) {
-        setCache(cacheKey, []);
-        return [];
-    }
-}
-
-async function getEntities(filterType = null) {
-    const cacheKey = filterType ? `entities:${filterType}` : 'entities:all';
-    const cached = getCached(cacheKey);
-    if (cached) return cached;
-
-    if (!cad.connected) await cad.connect();
-    if (!cad.connected) {
-        const result = { total: 0, byType: {} };
-        setCache(cacheKey, result);
-        return result;
-    }
-
-    try {
-        let code;
-        if (filterType) {
-            code = `(sslength (ssget "_X" (list (cons 0 "${filterType}"))))`;
-            const count = await cad.sendCommandWithResult(code);
-            const result = { type: filterType, count: parseInt(count) || 0 };
-            setCache(cacheKey, result);
-            return result;
-        } else {
-            code = `(progn(setq ss(ssget "_X"))(if ss(progn(setq elst(mapcar (quote(lambda(x)(cdr(assoc 0 (entget x))))) (pickset:to-list ss)))(stat:stat elst))))`;
-            const resultStr = await cad.sendCommandWithResult(code);
-
-            if (!resultStr || resultStr === "" || resultStr === "nil") {
-                const result = { total: 0, byType: {} };
-                setCache(cacheKey, result);
-                return result;
-            }
-
-            let statResult = [];
-            try {
-                statResult = JSON.parse(resultStr);
-            } catch (e) {
-                const parsed = parseLispList(resultStr);
-                if (parsed) {
-                    statResult = parsed;
-                }
-            }
-
-            if (!Array.isArray(statResult)) {
-                const result = { total: 0, byType: {} };
-                setCache(cacheKey, result);
-                return result;
-            }
-
-            const byType = {};
-            statResult.forEach(item => {
-                if (Array.isArray(item) && item.length >= 2) {
-                    byType[item[0]] = item[1];
-                }
-            });
-
-            const total = Object.values(byType).reduce((sum, n) => sum + n, 0);
-            const result = { total, byType };
-            setCache(cacheKey, result);
-            return result;
-        }
-    } catch (e) {
-        const result = { total: 0, byType: {} };
-        setCache(cacheKey, result);
-        return result;
-    }
-}
-
-async function getDwgName() {
-    if (!cad.connected) await cad.connect();
-    if (!cad.connected) return { name: null };
-    
-    try {
-        const code = `(vl-princ-to-string (getvar "dwgname"))`;
-        const name = await cad.sendCommandWithResult(code);
-        return { name: name || null };
-    } catch (e) {
-        return { name: null };
-    }
-}
-
-async function getDwgPath() {
-    if (!cad.connected) await cad.connect();
-    if (!cad.connected) return { path: null, name: null };
-    
-    try {
-        const code = `(progn
-          (setq prefix (vl-princ-to-string (getvar "dwgprefix")))
-          (setq name (vl-princ-to-string (getvar "dwgname")))
-          (list (strcat prefix name) name)
-        )`;
-        const result = await cad.sendCommandWithResult(code);
-        
-        if (!result || result === "nil" || result === "") {
-            return { path: null, name: null };
-        }
-
-        let parsed = null;
-        try { parsed = JSON.parse(result); } catch {}
-        if (!parsed) {
-            const listResult = parseLispList(result);
-            if (listResult && listResult.length >= 2) parsed = listResult;
-        }
-
-        if (parsed && Array.isArray(parsed) && parsed.length >= 2) {
-            return { path: String(parsed[0]), name: String(parsed[1]) };
-        }
-        
-        return { path: result, name: result };
-    } catch (e) {
-        return { path: null, name: null };
-    }
-}
-
-async function getPackages(filterName = null) {
-    const packages = MOCK_PACKAGES.map(p => ({
-        name: p.name,
-        version: p.version,
-        description: p.description,
-        loaded: true
-    }));
-    
-    if (filterName) {
-        const pkg = packages.find(p => p.name === filterName);
-        return pkg ? [pkg] : [];
-    }
-    
-    return packages;
-}
-
-function getPlatforms() {
-    return CAD_PLATFORMS.map(name => ({
-        name,
-        extensions: FILE_EXTENSIONS[name] || []
-    }));
-}

package/src/logger.js

@@ -1,30 +0,0 @@
-import fs from 'fs';
-import path from 'path';
-import os from 'os';
-
-const DEBUG_FILE = process.env.DEBUG_FILE || path.join(os.tmpdir(), 'mcp-server-debug.log');
-
-let stream = null;
-
-function getStream() {
-    if (!stream) {
-        stream = fs.createWriteStream(DEBUG_FILE, { flags: 'a' });
-    }
-    return stream;
-}
-
-export function log(msg) {
-    const entry = `${new Date().toISOString()} ${msg}\n`;
-    getStream().write(entry);
-}
-
-export function logError(msg) {
-    log(`ERROR: ${msg}`);
-}
-
-export function closeLog() {
-    if (stream) {
-        stream.end();
-        stream = null;
-    }
-}