@atlisp/mcp 1.8.27 → 1.8.29

package/dist/atlisp-mcp.js

@@ -116,7 +116,7 @@ var init_config = __esm({
       TRANSPORT: z.enum(["http", "stdio", "ws"]).optional().default("http"),
       MCP_API_KEY: z.string().optional().default(""),
       ENABLE_SSE: z.coerce.boolean().optional().default(true),
-      MESSAGE_TIMEOUT: z.coerce.number().optional().default(6e4),
+      MESSAGE_TIMEOUT: z.coerce.number().optional().default(3e5),
       HEARTBEAT_INTERVAL: z.coerce.number().optional().default(3e4),
       BUSY_RETRIES: z.coerce.number().optional().default(10),
       BUSY_DELAY: z.coerce.number().optional().default(500),
@@ -14806,10 +14806,16 @@ async function getHandlerModule(name) {
   await initHandlerModules();
   const loader = handlerModules[name];
   if (!loader) return null;
-  const mod = await loader();
-  moduleCache.set(name, mod);
-  log(`Handler module loaded: ${name}`);
-  return mod;
+  try {
+    const mod = await loader();
+    moduleCache.set(name, mod);
+    log(`Handler module loaded: ${name}`);
+    return mod;
+  } catch (e) {
+    log(`Handler module load failed: ${name} - ${e.message}`);
+    moduleCache.set(name, null);
+    return null;
+  }
 }
 async function initHandlerModules() {
   if (_handlerModulesInit) return;

package/dist/config.js

@@ -9,7 +9,7 @@ const envSchema = z.object({
     TRANSPORT: z.enum(['http', 'stdio', 'ws']).optional().default('http'),
     MCP_API_KEY: z.string().optional().default(''),
     ENABLE_SSE: z.coerce.boolean().optional().default(true),
-    MESSAGE_TIMEOUT: z.coerce.number().optional().default(60000),
+    MESSAGE_TIMEOUT: z.coerce.number().optional().default(300000),
     HEARTBEAT_INTERVAL: z.coerce.number().optional().default(30000),
     BUSY_RETRIES: z.coerce.number().optional().default(10),
     BUSY_DELAY: z.coerce.number().optional().default(500),

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@atlisp/mcp",
-  "version": "1.8.27",
+  "version": "1.8.29",
   "description": "MCP Server for @lisp on CAD,support AutoCAD/GstarCAD/ZWCAD/BricsCAD or CAD platform compatible with AutoLISP",
   "type": "module",
   "bin": {

package/dist/handlers/batch-doc-handlers.js

@@ -1,242 +0,0 @@
-import { cad } from '../cad.js';
-import { escapeLispString } from '../handler-utils.js';
-
-function ensureCad() {
-    if (!cad.connected) throw new Error('未连接 CAD');
-}
-
-function esc(s) {
-    return escapeLispString(String(s));
-}
-
-function buildFileList(files) {
-    return files.map(f => `"${esc(f)}"`).join(' ');
-}
-
-export async function batchDocCheckStandards(args) {
-    ensureCad();
-    const { files, requiredLayers, forbiddenLayerPrefixes, requiredTextStyles, requiredDimStyles, maxLayerCount } = args;
-    if (!files?.length) return { content: [{ type: 'text', text: '需要 files 参数' }], isError: true };
-
-    const fileList = buildFileList(files);
-    const reqLayers = (requiredLayers || []).map(l => `"${esc(l)}"`).join(' ');
-    const forPrefixes = (forbiddenLayerPrefixes || []).map(p => `"${esc(p)}"`).join(' ');
-    const reqTStyles = (requiredTextStyles || []).map(s => `"${esc(s)}"`).join(' ');
-    const reqDStyles = (requiredDimStyles || []).map(s => `"${esc(s)}"`).join(' ');
-
-    const lisp = `(progn
-    (vl-load-com)
-    (setq files (list ${fileList}))
-    (setq req-layers (list ${reqLayers}))
-    (setq for-prefixes (list ${forPrefixes}))
-    (setq req-tstyles (list ${reqTStyles}))
-    (setq req-dstyles (list ${reqDStyles}))
-    (setq max-layer ${maxLayerCount || 9999})
-    (setq all-reports (list))
-    (foreach f files
-        (setq report (list (cons "file" f) (cons "ok" T) (cons "issues" (list))))
-        (if (findfile f)
-            (progn
-                (command "._OPEN" f)
-                (setq issues (list))
-                ;; check required layers
-                (foreach l req-layers
-                    (if (not (tblsearch "LAYER" l))
-                        (setq issues (cons (list "missing_layer" (strcat "缺少必需图层: " l)) issues))))
-                ;; check forbidden layer prefixes
-                (setq all-layers (list))
-                (setq i 0)
-                (while (setq e (tblnext "LAYER" (if (= i 0) T nil)))
-                    (setq all-layers (cons (cdr (assoc 2 e)) all-layers))
-                    (setq i (1+ i)))
-                (foreach p for-prefixes
-                    (foreach l all-layers
-                        (if (wcmatch (strcase l) (strcat (strcase p) "*"))
-                            (setq issues (cons (list "forbidden_layer" (strcat "禁止图层前缀: " l " 匹配 " p)) issues)))))
-                ;; check layer count
-                (if (> (length all-layers) max-layer)
-                    (setq issues (cons (list "too_many_layers" (strcat "图层数量 " (itoa (length all-layers)) " 超过限制 " (itoa max-layer))) issues)))
-                ;; check required text styles
-                (foreach s req-tstyles
-                    (if (not (tblsearch "STYLE" s))
-                        (setq issues (cons (list "missing_text_style" (strcat "缺少必需文字样式: " s)) issues))))
-                ;; check required dim styles
-                (foreach s req-dstyles
-                    (if (not (tblsearch "DIMSTYLE" s))
-                        (setq issues (cons (list "missing_dim_style" (strcat "缺少必需标注样式: " s)) issues))))
-                (if issues
-                    (progn
-                        (setq report (cons (cons "ok" nil) report))
-                        (setq report (cons (cons "issues" issues) report)))
-                )
-                (command "_.CLOSE" "_N")
-            )
-            (setq report (cons (cons "ok" nil) (cons (cons "issues" (list (list "file_not_found" "文件不存在"))) report)))
-        )
-        (setq all-reports (cons report all-reports))
-    )
-    (princ all-reports)
-    (princ))
-`;
-
-    try {
-        const raw = await cad.sendCommandWithResult(lisp);
-        let reports;
-        try {
-            reports = typeof raw === 'string' ? JSON.parse(raw) : raw;
-        } catch {
-            reports = [{ file: 'parse_error', ok: false, issues: [{ type: 'parse_error', msg: String(raw).substring(0, 200) }] }];
-        }
-        return { content: [{ type: 'text', text: JSON.stringify(reports, null, 2) }] };
-    } catch (e) {
-        return { content: [{ type: 'text', text: `批量检查失败: ${e.message}` }], isError: true };
-    }
-}
-
-export async function batchDocFindReplace(args) {
-    ensureCad();
-    const { files, pattern, replacement, caseSensitive, textTypes } = args;
-    if (!files?.length) return { content: [{ type: 'text', text: '需要 files 参数' }], isError: true };
-    if (!pattern) return { content: [{ type: 'text', text: '需要 pattern 参数' }], isError: true };
-
-    const fileList = buildFileList(files);
-    const caseFlag = caseSensitive ? 'nil' : 'T';
-    const types = textTypes || ['ALL'];
-    const textFilter = types.includes('ALL')
-        ? '(cons 0 "TEXT,MTEXT")'
-        : `(cons 0 "${types.join(',')}")`;
-
-    const lisp = `(progn
-    (vl-load-com)
-    (setq files (list ${fileList}))
-    (setq find-pat "${esc(pattern)}")
-    (setq repl-text "${esc(replacement)}")
-    (setq all-results (list))
-    (foreach f files
-        (setq result (list (cons "file" f) (cons "ok" T) (cons "count" 0)))
-        (if (findfile f)
-            (progn
-                (command "._OPEN" f)
-                (setq count 0)
-                (setq ss (ssget "_X" ${textFilter}))
-                (if ss
-                    (progn
-                        (setq i 0)
-                        (while (< i (sslength ss))
-                            (setq e (ssname ss i))
-                            (setq elist (entget e))
-                            (setq old (cdr (assoc 1 elist)))
-                            (if old
-                                (progn
-                                    (setq new (vl-string-subst repl-text find-pat old))
-                                    (if (/= new old)
-                                        (progn
-                                            (setq elist (subst (cons 1 new) (assoc 1 elist) elist))
-                                            (entmod elist)
-                                            (setq count (1+ count))
-                                        )
-                                    )
-                                )
-                            )
-                            (setq i (1+ i))
-                        )
-                    )
-                )
-                (setq result (cons (cons "count" count) result))
-                (command "_.QSAVE")
-                (command "_.CLOSE" "_Y")
-            )
-            (setq result (cons (cons "ok" nil) (cons (cons "error" "文件不存在") result)))
-        )
-        (setq all-results (cons result all-results))
-    )
-    (princ (vl-prin1-to-string all-results))
-    (princ))
-`;
-
-    try {
-        const raw = await cad.sendCommandWithResult(lisp);
-        let results;
-        try {
-            results = typeof raw === 'string' ? JSON.parse(raw) : raw;
-        } catch {
-            results = [{ file: 'parse_error', ok: false, error: String(raw).substring(0, 200) }];
-        }
-        const total = results.reduce((s, r) => s + (r.count || 0), 0);
-        const text = `替换完成: 共处理 ${results.length} 个文件，${total} 处替换\n${JSON.stringify(results, null, 2)}`;
-        return { content: [{ type: 'text', text }] };
-    } catch (e) {
-        return { content: [{ type: 'text', text: `批量替换失败: ${e.message}` }], isError: true };
-    }
-}
-
-export async function batchDocCleanup(args) {
-    ensureCad();
-    const { files, purgeBlocks, purgeLayers, purgeStyles, runAudit, runOverkill, saveAndClose } = args;
-    if (!files?.length) return { content: [{ type: 'text', text: '需要 files 参数' }], isError: true };
-
-    const fileList = buildFileList(files);
-    const doBlocks = purgeBlocks !== false;
-    const doLayers = purgeLayers !== false;
-    const doStyles = purgeStyles !== false;
-    const doAudit = runAudit !== false;
-
-    const lisp = `(progn
-    (vl-load-com)
-    (setq files (list ${fileList}))
-    (setq all-results (list))
-    (foreach f files
-        (setq result (list (cons "file" f) (cons "ok" T)))
-        (if (findfile f)
-            (progn
-                (command "._OPEN" f)
-                (setq details (list))
-                ;; audit
-                (if ${doAudit}
-                    (progn
-                        (command "_.AUDIT" "_Y")
-                        (setq details (cons "audit_done" details))
-                    )
-                )
-                ;; purge
-                (if ${doBlocks} (command "_.PURGE" "_B" "*" "_N"))
-                (if ${doLayers} (command "_.PURGE" "_LA" "*" "_N"))
-                (if ${doStyles} (command "_.PURGE" "_ST" "*" "_N"))
-                (setq details (cons "purge_done" details))
-                ;; overkill
-                (if ${runOverkill}
-                    (progn
-                        (command "_.OVERKILL" (ssget "_X") "" "_Y")
-                        (setq details (cons "overkill_done" details))
-                    )
-                )
-                (setq result (cons (cons "actions" details) result))
-                (if ${saveAndClose}
-                    (progn
-                        (command "_.QSAVE")
-                        (command "_.CLOSE" "_Y")
-                    )
-                    (command "_.CLOSE" "_N")
-                )
-            )
-            (setq result (cons (cons "ok" nil) (cons (cons "error" "文件不存在") result)))
-        )
-        (setq all-results (cons result all-results))
-    )
-    (princ (vl-prin1-to-string all-results))
-    (princ))
-`;
-
-    try {
-        const raw = await cad.sendCommandWithResult(lisp);
-        let results;
-        try {
-            results = typeof raw === 'string' ? JSON.parse(raw) : raw;
-        } catch {
-            results = [{ file: 'parse_error', ok: false, error: String(raw).substring(0, 200) }];
-        }
-        return { content: [{ type: 'text', text: JSON.stringify(results, null, 2) }] };
-    } catch (e) {
-        return { content: [{ type: 'text', text: `批量清理失败: ${e.message}` }], isError: true };
-    }
-}