在块的在位编辑器中，用LISP程序框选时，就容易选择到块外的图元，这时因为是在块的编辑器中，所以LISP程序执行不成功。如何让LISP程序在块的在位编辑器中，（用REFEDIT命令，打开块的在位编辑）可以选择不到块外的图元，顺利的选择编辑啊？多谢！


网友答: 2025年了，这个问题好像一直么有解决

网友答: 可能这个问题，用LISP是无解吧。

网友答: 要有解，只能用命令反应器监控refedit命令，触发时记录当前entlast为标记图元。Refedit命令会复刻（克隆）块内图元在当前图块插入位置，所有的图元都是新建的，其ID都在标记图元后面，包括后继用户自己新画的。而所有不属于块内工作集的图元，其ID都在标记图元之前。

网友答: 本帖最后由 自贡黄明儒 于 2025-8-29 12:52 编辑

手工操作了一下，你可以通过
(command "_.copyhist")，最后一次命令来判断，写程序也可以 实现


网友答:
  2. (defun C:save-refedit-handle (reactor params)
  3.   (setenv "reflast"
  4.           (IF (= (strcase (car params)) "REFEDIT")
  5.             (cdr (assoc 5 (entget (entlast))))
  6.             ""
  7.           )
  8.   )
  9. )
  10. (vlr-add (setq *refedit-reactor*
  11.                 (vlr-command-reactor
  12.                   "RefEditReactor"
  13.                   '((:vlr-commandWillStart . C:save-refedit-handle)
  14.                    )
  15.                 )
  16.          )
  17. )


网友答:
专用车研发 发表于 2025-8-28 09:29
2025年了，这个问题好像一直么有解决

在位编辑器本论坛的全部解决方案
https://www.cnblogs.com/JJBox/p/11185185.html

网友答: (hasworkset ent)

理论上Autocad2013-2025,为啥不是压缩包,因为编译后的压缩包过小,无法上传.
  1. // 定义 Lisp 函数 "hasworkset"，支持图元名或图元名列表作为参数
  2.         [LispFunction("hasworkset")]
  3.         public static object HasWorkSet(ResultBuffer args)
  4.         {
  5.             Document doc = Application.DocumentManager.MdiActiveDocument;
  6.             Editor ed = doc.Editor;
  7.             Database db = doc.Database;

  9.             try
  10.             {
  11.                 // 参数校验
  12.                 if (args == null)
  13.                 {
  14.                     ed.WriteMessage("\n错误：缺少图元参数");
  15.                     return false;
  16.                 }

  18.                 // 解析参数（单个图元名 + 可选标志）
  19.                 TypedValue[] argArray = args.AsArray();
  20.                 ObjectId entityId = ObjectId.Null;
  21.                 bool includingErased = false;

  23.                 // 第一个参数：图元名
  24.                 if (argArray[0].TypeCode == (int)LispDataType.ObjectId)
  25.                 {
  26.                     entityId = (ObjectId)argArray[0].Value;
  27.                 }
  28.                 else
  29.                 {
  30.                     ed.WriteMessage("\n错误：第一个参数必须为图元名");
  31.                     return false;
  32.                 }

  34.                 // 第二个参数（可选）：是否包含已删除图元
  35.                 if (argArray.Length > 1)
  36.                 {
  37.                     includingErased = Convert.ToBoolean(
  38.                         argArray[1].Value.ToString().ToUpper() == "T"
  39.                     );
  40.                 }
  41.                
  42.                 // 核心逻辑：检查工作集
  43.                 ObjectId ltId = Application.LongTransactionManager.CurrentLongTransactionFor(doc);
  44.                 if (ltId.IsNull) return false;

  46.                 using (Transaction tr = db.TransactionManager.StartTransaction())
  47.                 {
  48.                     LongTransaction longTr = (LongTransaction)tr.GetObject(ltId, OpenMode.ForRead);
  49.                     if (longTr == null) return false;
  50.                     return longTr.WorkSetHas(entityId, includingErased);
  51.                 }
  52.             }
  53.             catch (Autodesk.AutoCAD.Runtime.Exception ex)
  54.             {
  55.                 ed.WriteMessage($"\n运行时错误: {ex.Message}");
  56.                 return false;
  57.             }
  58.         }

  • 上一篇：批块 PK 命令-读取Excel数据，批量创建、填充动态
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025