@atlisp/mcp 1.8.16 → 1.8.17

package/dist/handlers/resource-cache.js

@@ -0,0 +1,63 @@
+import config from '../config.js';
+
+const CACHE_TTL = config.resourceCacheTtl;
+const resourceCache = new Map();
+const CLEANUP_INTERVAL = 60000;
+
+let cleanupTimer = null;
+
+function ensureCleanup() {
+  if (cleanupTimer) return;
+  cleanupTimer = setInterval(() => {
+    const now = Date.now();
+    for (const [key, entry] of resourceCache) {
+      if (now - entry.timestamp >= CACHE_TTL) {
+        resourceCache.delete(key);
+      }
+    }
+  }, CLEANUP_INTERVAL);
+  cleanupTimer.unref();
+}
+
+ensureCleanup();
+
+// 每个资源 URI 对应的 cache key 前缀映射
+const URI_CACHE_PREFIX = {
+  'atlisp://cad/info': 'cad:info',
+  'atlisp://dwg/entities': 'dwg:entities',
+  'atlisp://dwg/text-content': 'dwg:text-content',
+  'atlisp://dwg/name': 'dwg:name',
+  'atlisp://dwg/path': 'dwg:path',
+  'atlisp://dwg/block-refs': 'dwg:block-refs',
+  'atlisp://dwg/tbl': 'dwg:tbl',
+  'atlisp://cad/dwgs': 'cad:dwgs',
+  'atlisp://packages': 'packages',
+};
+
+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() });
+}
+
+export function clearCache(uri) {
+  const prefix = URI_CACHE_PREFIX[uri];
+  if (prefix) {
+    for (const key of resourceCache.keys()) {
+      if (key === prefix || key.startsWith(prefix + ':')) {
+        resourceCache.delete(key);
+      }
+    }
+  } else if (!uri) {
+    resourceCache.clear();
+  }
+}
+
+export { getCached, setCache };

package/dist/handlers/resource-defs.js

@@ -0,0 +1,79 @@
+import path from 'path';
+import { fileURLToPath } from 'url';
+
+const __dirname = path.dirname(fileURLToPath(import.meta.url));
+
+export const STANDARDS_DIR = path.join(__dirname, '..', 'standards');
+
+export const RESOURCES = [
+  { uri: 'atlisp://cad/info', name: 'CAD Info', description: 'CAD 连接信息', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://dwg/entities', name: 'Entities', description: '图元列表。无参数时返回总数和按类型统计；有参数时返回 filtered 图文的 entity:properties 全属性 JSON（ObjectName, Handle, Layer, Color, Center, Radius 等），支持 ?type=LINE&layer=0&bbox=0,0,100,100', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://dwg/text-content', name: 'Text Content', description: '文本内容及位置，用于语义分析。支持 ?layer=0&bbox=0,0,100,100&limit=5000&offset=0', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://dwg/text-combined', name: 'Combined Text', description: '碎片文本按位置组合为段落，跨行续句拼接。支持 ?layer=0&bbox=0,0,100,100', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://cad/events', name: 'CAD Events', description: 'CAD 变更事件通知 (实体创建/修改/删除, DWG 切换)', 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://dwg/block-refs', name: 'Block References', description: '块参照列表及属性值、动态块特性，支持路径方式 atlisp://dwg/block-refs/{blockName}', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://dwg/tbl', name: 'Tables', description: 'CAD 表数据 (layer, block, textstyle, dimstyle, linetype, ucs, view, viewport, regapp)，支持路径方式 atlisp://dwg/tbl/layer', mimeType: 'application/json', subscribable: true },
+  { uri: 'atlisp://cad/dwgs', name: 'DWG List', description: '所有打开的 DWG 文件列表', 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 },
+  { uri: 'atlisp://standards/drafting', name: 'Drafting Standards', description: 'CAD 制图规范', mimeType: 'application/json', subscribable: false },
+  { uri: 'atlisp://standards/coding', name: 'Coding Standards', description: '@lisp 编码规范', mimeType: 'application/json', subscribable: false },
+];
+
+export const TBL_INFO = {
+  layer: { name: '图层', fields: ['name', 'color', 'linetype', 'frozen', 'locked', 'on'] },
+  block: { name: '块定义', fields: ['name', 'path', 'flags'] },
+  textstyle: { name: '文字样式', fields: ['name', 'font', 'bigfont', 'height', 'width', 'oblique', 'flags'] },
+  dimstyle: { name: '标注样式', fields: ['name', 'arrow', 'textheight', 'scale'] },
+  linetype: { name: '线型', fields: ['name', 'description', 'pattern'] },
+  ucs: { name: 'UCS', fields: ['name', 'origin', 'xaxis', 'yaxis'] },
+  view: { name: '视图', fields: ['name', 'center', 'height', 'width'] },
+  viewport: { name: '视口', fields: ['name', 'number', 'flags'] },
+  regapp: { name: '注册应用', fields: ['name'] },
+  plotstyle: { name: '打印样式', fields: ['name'] },
+};
+
+export const TBL_QUERIES = {
+  layer: { name: 'layer', lisp: `(progn
+(setq @d nil)
+(setq @e (tblnext "layer" t))
+(while @e
+  (setq @d (cons (list
+    (cons 2 (cdr (assoc 2 @e)))
+    (cons 62 (cdr (assoc 62 @e)))
+    (cons 6 (cdr (assoc 6 @e)))
+    (cons 70 (cdr (assoc 70 @e)))
+    (cons 60 (if (< (cdr (assoc 62 @e)) 0) 1 0))
+  ) @d))
+  (setq @e (tblnext "layer" nil)))
+(list (cons 'table 'layer) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
+  block: { name: 'block', lisp: `(progn
+(setq @d nil)
+(vlax-for e (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
+  (if (not (and (vlax-property-available-p e 'isfoundation) (vlax-get e 'isfoundation)))
+    (setq @d (cons (@:get-props e '("Name" "Count" "Handle" "ObjectName" "IsXRef" "IsXRefOverlay" "IsDynamicBlock" "HasAttributes" "HasExtensionDictionary" "Path" "Description" "Layout" "BlockScope")) @d))))
+(list (cons 'table 'block) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
+  style: { name: 'style', lisp: `(progn
+(setq @d nil)
+(vlax-for e (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
+  (setq @d (cons (@:get-props e '("Name" "FontFile" "BigFontFile" "Height" "Width" "ObliqueAngle" "TextGenerationFlag" "Handle" "ObjectName")) @d)))
+(list (cons 'table 'style) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
+  dimstyle: { name: 'dimstyle', lisp: `(progn
+(setq @d nil)
+(vlax-for e (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
+  (setq @d (cons (@:get-props e '("Name" "Handle" "ObjectName")) @d)))
+(list (cons 'table 'dimstyle) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
+  ltype: { name: 'linetype', lisp: `(progn
+(setq @d nil)
+(vlax-for e (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object)))
+  (setq @d (cons (@:get-props e '("Name" "Description" "PatternLength" "Handle" "ObjectName")) @d)))
+(list (cons 'table 'linetype) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
+};
+
+export const TBL_KEY_ALIAS = {
+  textstyle: 'style',
+  textstyles: 'style',
+  linetype: 'ltype',
+};

package/dist/handlers/resource-handlers.js

@@ -0,0 +1,131 @@
+import { RESOURCES } from './resource-defs.js';
+import { clearCache } from './resource-cache.js';
+import {
+  getEntityByHandle,
+  getCadInfo,
+  getEntities,
+  getTextContent,
+  combineText,
+  getDwgName,
+  getDwgPath,
+  getBlockRefs,
+  getTables,
+  getPackages,
+  getPlatforms,
+  getDwgList,
+  getDraftingStandards,
+  getCodingStandards,
+  getCadEvents,
+} from './resource-readers.js';
+
+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 };
+}
+
+function parseTemplateUri(uri) {
+  const entityMatch = uri.match(/^atlisp:\/\/dwg\/entity\/([^?]+)$/);
+  if (entityMatch) return { type: 'entity', handle: entityMatch[1] };
+
+  const tblMatch = uri.match(/^atlisp:\/\/dwg\/tbl\/([^?]+)$/);
+  if (tblMatch) return { type: 'tbl', tblName: tblMatch[1] };
+
+  const blockRefMatch = uri.match(/^atlisp:\/\/dwg\/block-refs\/([^?]+)$/);
+  if (blockRefMatch) return { type: 'block-refs', blockName: blockRefMatch[1] };
+
+  return null;
+}
+
+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 templateMatch = parseTemplateUri(uri);
+  if (templateMatch) {
+    if (templateMatch.type === 'entity') {
+      return await getEntityByHandle(templateMatch.handle);
+    }
+    if (templateMatch.type === 'tbl') {
+      return await getTables({ tbl: templateMatch.tblName });
+    }
+    if (templateMatch.type === 'block-refs') {
+      const { blockName } = templateMatch;
+      const queryIdx = uri.indexOf('?');
+      const queryParams = {};
+      if (queryIdx !== -1) {
+        uri.substring(queryIdx + 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) queryParams[k] = decodeURIComponent(v);
+        });
+      }
+      const refs = await getBlockRefs({ blockName });
+      const offset = parseInt(queryParams.offset, 10) || 0;
+      const limit = parseInt(queryParams.limit, 10) || 0;
+      if (limit > 0 && Array.isArray(refs)) return refs.slice(offset, offset + limit);
+      return refs;
+    }
+  }
+
+  const { base, params } = parseQuery(uri);
+
+  switch (base) {
+    case 'atlisp://cad/info':
+      return await getCadInfo();
+    case 'atlisp://dwg/entities': {
+      const entityData = await getEntities(params);
+      // Support pagination via offset/limit params
+      const offset = parseInt(params.offset, 10) || 0;
+      const limit = parseInt(params.limit, 10) || 0;
+      if (limit > 0 && Array.isArray(entityData)) {
+        return entityData.slice(offset, offset + limit);
+      }
+      return entityData;
+    }
+    case 'atlisp://dwg/text-content':
+      return await getTextContent(params);
+    case 'atlisp://dwg/text-combined':
+      return await combineText(params);
+    case 'atlisp://dwg/name':
+      return await getDwgName();
+    case 'atlisp://dwg/path':
+      return await getDwgPath();
+    case 'atlisp://dwg/block-refs':
+      return await getBlockRefs(params);
+    case 'atlisp://dwg/tbl':
+      return await getTables(params);
+    case 'atlisp://cad/dwgs':
+      return await getDwgList();
+    case 'atlisp://packages':
+      return await getPackages(params.name);
+    case 'atlisp://platforms':
+      return getPlatforms();
+    case 'atlisp://standards/drafting':
+      return getDraftingStandards();
+    case 'atlisp://standards/coding':
+      return getCodingStandards();
+    case 'atlisp://cad/events':
+      return await getCadEvents(params);
+    default:
+      throw new Error(`资源不存在: ${uri}`);
+  }
+}
+
+export { RESOURCES, clearCache };