@atlisp/mcp 1.8.23 → 1.8.25

package/dist/lisp-security.js

@@ -116,3 +116,68 @@ export function checkParens(code) {
   if (depth < 0) return { valid: false, error: `多余 ${-depth} 个左括号 (` };
   return { valid: true };
 }
+
+// === Session Sandbox (merged from lisp-sandbox.js) ===
+
+export const RULES = SECURITY_RULES;
+
+const sessionAllowlist = new Map();
+
+export function getSessionAllowlist(sessionId) {
+  if (!sessionAllowlist.has(sessionId)) {
+    sessionAllowlist.set(sessionId, new Set());
+  }
+  return sessionAllowlist.get(sessionId);
+}
+
+export function addToAllowlist(sessionId, ruleIndex) {
+  const list = getSessionAllowlist(sessionId);
+  list.add(ruleIndex);
+}
+
+export function removeFromAllowlist(sessionId, ruleIndex) {
+  const list = getSessionAllowlist(sessionId);
+  list.delete(ruleIndex);
+}
+
+export function clearSessionAllowlist(sessionId) {
+  sessionAllowlist.delete(sessionId);
+}
+
+export function validateLispCode(code, sessionId = null) {
+  const withoutComments = stripStringsAndComments(code);
+  const effectiveSeverity = getEffectiveSeverity();
+
+  const results = [];
+  let blocked = false;
+
+  for (let i = 0; i < RULES.length; i++) {
+    const rule = RULES[i];
+    if (rule.re.test(withoutComments)) {
+      const isAllowed = sessionId && getSessionAllowlist(sessionId).has(i);
+
+      const severity = effectiveSeverity === THREAT_ALLOW ? THREAT_ALLOW
+        : isAllowed ? THREAT_ALLOW
+        : effectiveSeverity;
+
+      results.push({
+        ruleIndex: i,
+        severity,
+        message: rule.msg,
+        blocked: severity === THREAT_BLOCK,
+        warned: severity === THREAT_WARN,
+        allowed: severity === THREAT_ALLOW,
+      });
+      if (severity === THREAT_BLOCK) {
+        blocked = true;
+      }
+    }
+  }
+
+  return {
+    valid: !blocked,
+    blocked,
+    results,
+    summary: blocked ? `安全限制: ${results.filter(r => r.blocked).map(r => r.message).join('; ')}` : '通过',
+  };
+}

package/dist/prompts/definitions/workflow-batch-doc.json

@@ -0,0 +1,27 @@
+{
+  "name": "workflow-batch-doc",
+  "description": "批量文档处理工作流：打开多个 DWG → 执行操作 → 保存/导出 → 关闭。适用于批量清理、替换文字、统一修改",
+  "arguments": [
+    { "name": "action", "description": "步骤: open/process/save/report", "required": true, "default": "process" },
+    { "name": "operation", "description": "操作类型: cleanup/find-replace/check-standards/export-pdf", "required": false, "default": "cleanup" },
+    { "name": "files", "description": "DWG 文件路径列表，用逗号分隔", "required": false }
+  ],
+  "templates": {
+    "open": {
+      "code": "",
+      "description": "1. 确定目标文件列表\n2. 对每个文件，循环调用 open_dwg({ filePath }) → 执行操作 → save_dwg/export_pdf → close_dwg\n\n示例流程：\n```\n文件列表 = [\"project/a.dwg\", \"project/b.dwg\"]\nfor each file in 文件列表:\n  open_dwg({ filePath })\n  ... 执行操作 ...\n  save_dwg()\n  close_dwg()\n```"
+    },
+    "process": {
+      "code": "",
+      "description": "选择 operation:\n- cleanup: 打开文件 → 执行 eval_lisp({ code: '(command \"_.PURGE\" \"_B\" \"*\" \"_N\")(command \"_.AUDIT\" \"_Y\")' }) → save_dwg → close_dwg\n- find-replace: 打开文件 → replace_text({ pattern, replacement }) → save_dwg → close_dwg\n- check-standards: 打开文件 → eval_lisp_with_result 检查图层/样式 → 记录结果 → close_dwg (不保存)\n- export-pdf: 打开文件 → export_pdf({ outputPath, layout: \"Model\" }) → close_dwg (不保存)\n\n对每个文件重复此流程，收集结果。"
+    },
+    "save": {
+      "code": "",
+      "description": "使用 save_dwg() 保存当前文件。如需另存为不同路径，传入 filePath 参数。\n完成后用 close_dwg({ save: false }) 关闭。"
+    },
+    "report": {
+      "code": "",
+      "description": "汇总所有文件的操作结果:\n- 已处理文件数\n- 每个文件的执行结果（成功/失败）\n- 失败原因\n\n使用 get_system_status 检查 CAD 最终状态。"
+    }
+  }
+}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/mcp",
-  "version": "1.8.23",
+  "version": "1.8.25",
   "description": "MCP Server for @lisp on CAD,support AutoCAD/GstarCAD/ZWCAD/BricsCAD or CAD platform compatible with AutoLISP",
   "type": "module",
   "bin": {
@@ -16,9 +16,10 @@
   ],
   "scripts": {
     "start": "node src/atlisp-mcp.js",
-    "build": "npm run build:main && npm run build:worker",
+    "build": "npm run build:main && npm run build:worker && npm run build:rot",
     "build:main": "esbuild src/atlisp-mcp.js --bundle --platform=node --target=node18 --format=esm --outdir=dist --external:edge-js --packages=external --banner:js=\"#!/usr/bin/env node\"",
     "build:worker": "node -e \"const fs=require('fs');const path=require('path');for(const f of ['cad-worker.js','lisp-security.js','logger.js','config.js'])fs.copyFileSync('src/'+f,'dist/'+f);if(!fs.existsSync('dist/html'))fs.mkdirSync('dist/html');for(const f of fs.readdirSync('src/html'))fs.copyFileSync('src/html/'+f,'dist/html/'+f);if(!fs.existsSync('dist/handlers'))fs.mkdirSync('dist/handlers');for(const f of fs.readdirSync('src/handlers'))fs.copyFileSync('src/handlers/'+f,'dist/handlers/'+f);if(!fs.existsSync('dist/prompts/definitions'))fs.mkdirSync('dist/prompts/definitions',{recursive:true});for(const f of fs.readdirSync('src/prompts/definitions'))fs.copyFileSync('src/prompts/definitions/'+f,'dist/prompts/definitions/'+f)\"",
+    "build:rot": "powershell -Command \"& 'C:\\Windows\\Microsoft.NET\\Framework\\v4.0.30319\\csc.exe' /target:library /out:dist\\cad-rothelper.dll src\\cad-rothelper.cs\"",
     "prepublishOnly": "npm run build",
     "test": "vitest run",
     "test:watch": "vitest",

package/dist/pipelines/analyze-and-report.json

@@ -1,16 +0,0 @@
-{
-  "name": "analyze-and-report",
-  "description": "分析当前图纸实体并生成统计报告。先获取所有实体，再逐个获取详细信息",
-  "steps": [
-    {
-      "name": "entities",
-      "tool": "stream_entities",
-      "args": { "chunk": 500, "offset": 0 }
-    },
-    {
-      "name": "info",
-      "tool": "get_cad_info",
-      "args": {}
-    }
-  ]
-}

package/dist/pipelines/batch-export-pdfs.json

@@ -1,11 +0,0 @@
-{
-  "name": "batch-export-pdfs",
-  "description": "遍历所有布局并逐个导出为 PDF。先列出布局，再对每个布局执行导出",
-  "steps": [
-    {
-      "name": "layouts",
-      "tool": "list_layouts",
-      "args": {}
-    }
-  ]
-}

package/dist/pipelines/batch-layer-move.json

@@ -1,19 +0,0 @@
-{
-  "name": "batch-layer-move",
-  "description": "按条件选择实体并移动到目标图层。先选择指定类型/图层的实体，再移动到新图层",
-  "steps": [
-    {
-      "name": "selection",
-      "tool": "select_entities",
-      "args": { "filter": { "type": "LINE", "layer": "0" } }
-    },
-    {
-      "name": "move",
-      "tool": "batch_set_layer",
-      "args": {
-        "handles": "$ref:selection.result",
-        "layerName": "TargetLayer"
-      }
-    }
-  ]
-}

package/dist/pipelines/export-current-drawing.json

@@ -1,18 +0,0 @@
-{
-  "name": "export-current-drawing",
-  "description": "导出当前图纸为 PDF。先获取图纸信息，再执行导出",
-  "steps": [
-    {
-      "name": "info",
-      "tool": "get_cad_info",
-      "args": {}
-    },
-    {
-      "name": "export",
-      "tool": "export_pdf",
-      "args": {
-        "outputPath": "$ref:info.docName.pdf"
-      }
-    }
-  ]
-}

package/dist/pipelines/purge-and-save.json

@@ -1,16 +0,0 @@
-{
-  "name": "purge-and-save",
-  "description": "清理未使用的块、图层、样式，然后保存当前图形",
-  "steps": [
-    {
-      "name": "purge_blocks",
-      "tool": "purge_all",
-      "args": {}
-    },
-    {
-      "name": "save",
-      "tool": "save_dwg",
-      "args": {}
-    }
-  ]
-}