@atlisp/mcp 1.6.10 → 1.6.11

package/dist/atlisp-mcp.js

@@ -1431,14 +1431,16 @@ async function getBlockRefs(params = {}) {
 var TBL_QUERIES = {
   layer: { name: "layer", lisp: `(progn
 (setq @d nil)
-(vlax-for e (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
+(setq @e (tblnext "layer" t))
+(while @e
   (setq @d (cons (list
-    (cons 2 (vla-get-name e))
-    (cons 62 (vla-get-color e))
-    (cons 6 (vla-get-linetype e))
-    (cons 70 (logior (if (vla-get-freeze e) 1 0) (if (vla-get-lock e) 4 0)))
-    (cons 60 (if (vla-get-layeron e) 0 1))
-  ) @d)))
+    (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)
@@ -1449,7 +1451,15 @@ var TBL_QUERIES = {
   style: { name: "style", lisp: `(progn
 (setq @d nil)
 (vlax-for e (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
-  (setq @d (cons (list (cons 2 (vla-get-name e)) (cons 70 0)) @d)))
+  (setq @d (cons (list
+    (cons 2 (vla-get-name e))
+    (cons 1 (vla-get-fontfile e))
+    (cons 3 (vla-get-bigfontfile e))
+    (cons 40 (vla-get-height e))
+    (cons 41 (vla-get-width e))
+    (cons 42 (/ (* 180.0 (vla-get-obliqueangle e)) pi))
+    (cons 70 (vla-get-textgenerationflag e))
+  ) @d)))
 (list (cons 'table 'style) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` },
   dimstyle: { name: "dimstyle", lisp: `(progn
 (setq @d nil)
@@ -1462,8 +1472,15 @@ var TBL_QUERIES = {
   (setq @d (cons (list (cons 2 (vla-get-name e)) (cons 70 0)) @d)))
 (list (cons 'table 'linetype) (cons 'total (length @d)) (cons 'data (list (reverse @d)))))` }
 };
+var TBL_KEY_ALIAS = {
+  textstyle: "style",
+  textstyles: "style",
+  ltype: "linetype",
+  linetype: "ltype"
+};
 function buildTablesCode(tblName) {
-  const key = tblName.toLowerCase();
+  const raw = tblName.toLowerCase();
+  const key = TBL_KEY_ALIAS[raw] || raw;
   const query = TBL_QUERIES[key];
   if (query) {
     return `(progn (vl-load-com) ${query.lisp})`;
@@ -1500,7 +1517,9 @@ function parseTableRecord(rec) {
       else if (key === "42")
         obj.oblique = typeof val === "number" ? val : 0;
       else if (key === "3")
-        obj.description = String(val);
+        obj.bigfont = String(val);
+      else if (key === "50")
+        obj.flags = typeof val === "number" ? val : 0;
     }
   }
   return obj.name ? obj : null;

package/package.json

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