李'；s更新标题Bl

Craisbeck · 发表于 2022-7-6 06:50:51

是否有人在布局列中使用了Lee Mac的更新标题栏例程和通配符。例如，我们有以下名称的布局：

10-101.A和10-101。B

我们希望标题栏在10-101上进行相同的更新。A和10-101。B

我想更新Lisp例程以接受通配符，以便在布局列中的CSV文件中输入10-101*。

这可能吗？

Lee Mac · 发表于 2022-7-6 07:07:25

将第158行更改为：

copy

(setq val (cdr (assoc (strcase (cdr (assoc 410 (entget ent)))) lst)))

收件人：

copy

(setq lay (strcase (cdr (assoc 410 (entget ent))))
     val (vl-some (function (lambda ( x ) (if (wcmatch (car x) lay) (cdr x)))) lst)
)

未经测试。

Craisbeck · 发表于 2022-7-6 07:14:49

我测试了上述代码，但它没有正常工作。

作为测试，我做了以下几点：

创建了一个包含10-101的布局列的CSV文件
使用10-101创建布局选项卡
Ran UTB
成功

创建了新布局选项卡10-102。A.
创建了新布局选项卡10-102。B
将包含10-101的CSV布局列更改为10-102*
Ran UTB
误报-“所有属性都是最新的”

Lee Mac · 发表于 2022-7-6 07:24:29

我的wcmatch论点是错误的：

copy

(setq lay (strcase (cdr (assoc 410 (entget ent))))
     val (vl-some (function (lambda ( x ) (if (wcmatch [highlight]lay (car x)[/highlight]) (cdr x)))) lst)
)