动态块替换失败

Marcel van Elle · 发表于 2022-7-5 16:21:29

尊敬的各位：，

我在替换块（标题栏）时遇到问题，它有时是动态块。
当用新块替换块时，当涉及动态块时，我会得到lselsetp nil错误。

我试图做的是：

-我试图通过按名称查找来替换块（因此由于脚本的原因，不需要手动选择）
-读取旧块的坐标
-读取旧块的比例
-删除块
-清除图形中所有未使用的块
-在图形中以正确的比例和坐标插入新的

A0KILL确实适用于静态块，但有人在我们的图形中使用了动态块。现在我必须手工绘制15000张图。

有人能帮我解决这个问题吗？

（旧区块名为OHTITLE，新区块名为OH-TITLE）

（DEFUN C:A0KILL（）
（setq OHINS（cdr（assoc 10（entget（ssname（ssget“X”'（（2。“OHTITLE”）））0 （）））））））
（setq OHX（cdr（assoc 41（entget（ssname（ssget“X”'（（2.“OHTITLE”））0 （）））））））
（setq ss（ssget“X”'（（0。“插入”）（2。“OHTITLE”）））
（命令“擦除”ss“”）
（重复3次
（命令“_.purge”“\u B”“*”“\u N”）
) ; 结束重复
（命令
“-插入”；命令
“K:\\AutoCAD Standaard\\2014\\ALGEMEEN\\Kaders\\Titelh\\Nederlands\\A0\\OH-TITLE.DWG”；块名称
OHINS公司
OHX公司
""
)
（setq OHINS nil）
（setqoh OHX无）
（setq ss nil）
)

rlx · 发表于 2022-7-5 16:31:12

你好，马塞尔，

动态块有一个动态名称（*U），因此必须获得其有效名称。也许我的RlxBlk可以胜任这份工作，但我需要一些示例图和标题栏来测试它。

gr.Rlx

Marcel van Elle · 发表于 2022-7-5 16:38:13

你好，Rlx，

这是我的积木和样图

尔兹
马塞尔
205088-0003.图纸
OH标题。图纸
OH-TITLE。图纸

rlx · 发表于 2022-7-5 16:43:51

霍伊·马塞尔，

认为RlxBlk可以完成这项工作，甚至可能在文件夹上，但你必须自己测试（在备份上）。只需确保清除主对话框中除值切换之外的所有属性属性。在下面的几个帖子里，你可以找到这个惯例。您可以使用1:1按钮链接所有属性，这样您就不必键入所有数据。只需打开一个图形，旧块是OHTITLE（选择与列表按钮旁边的左图），选择新的标题栏与文件按钮旁边的右图，链接的属性，这应该做到这一点。。。

如果成功，您可以尝试使用文件夹按钮创建一个完整的文件夹，但同样，请先在备份上进行测试。

gr.Rlx

Marcel van Elle · 发表于 2022-7-5 16:46:09

我试试Rlx！
但是我可以在没有脚本交互的情况下完成吗？

rlx · 发表于 2022-7-5 16:52:51

不是以它当前的形式，它只是我的愿望列表中的一件事，尽管这不是一件大事，因为人们只需要绕过主子程序中的对话框。由于该项目相对较新，因此必须首先赢得我的信心。但是，如果文件夹选项按预期工作，它应该相当快，以便您可以在以后编写脚本。

gr.Rlx

rlx · 发表于 2022-7-5 17:00:57

您可以向程序中添加类似的内容（未经测试）：

copy

 (defun c:RlxBlk_Script ()(RlxBlk_Init)(RlxBlk_Doit)(command ".qsave"))

让脚本加载RlxBlk并使用（c:RlxBlk\u脚本）调用程序。如果脚本保存图形，则可以在代码中释放命令调用。

Gr.Rlx

Marcel van Elle · 发表于 2022-7-5 17:09:14

这可能会有所帮助，因为我尝试将其放在一个命令中。我也有A4和A3标题栏的图纸。他们正在使用我的A0Kill命令，但不是动态块。
这样，我可以一次选择数千个图形并打开它们，执行块替换命令，将属性从我的edm系统同步到新块，qsave并关闭图形，然后继续下一个图形。

rlx · 发表于 2022-7-5 17:14:14

如果可以，很好，如果不行，你也可以更新自己的代码，因为我的应用程序在你的情况下可能有点过头了

（快速编写，完全未经测试）

copy


(defun c:A0Kill-2 ( / fn oatr ss i e blk n ohins ohx)
 (vl-load-com)
 (setq oatr (setvar "ATTREQ")) (setvar "ATTREQ" 0)
 (if (and (setq ss (ssget "_X" (list (cons 0 "INSERT") (cons 2 "`*U*,OHTITLE" ))))
   (setq fn
   (findfile
     "K:\\AutoCAD Standaard\\2014\\ALGEMEEN\\Kaders\\Titelh\\Nederlands\\A0\\OH-TITLE.DWG")))
   (progn
     (repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (setq blk (ssname ss (setq i (1- i))))))
(if (vlax-property-available-p obj 'effectivename)
  (setq n (vla-get-effectivename obj))(setq n (vla-get-name obj)))
(if (wcmatch (strcase n) "OHTITLE")
  (progn
    (setq ohins (cdr (assoc 10 (entget blk))) ohx (cdr (assoc 41 (entget blk))))
    (vla-delete obj)
    (command "-insert" fn ohins ohx "")
  )
)
     )
   )
 )
 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
 (setvar "ATTREQ" oatr)
 (princ)
)