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

李'；s更新标题Bl

是否有人在布局列中使用了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行更改为：
 
(setq val (cdr (assoc (strcase (cdr (assoc 410 (entget ent)))) lst)))
 
收件人：
(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论点是错误的：
 
(setq lay (strcase (cdr (assoc 410 (entget ent))))
   val (vl-some (function (lambda ( x ) (if (wcmatch lay (car x)) (cdr x)))) lst)
)

Craisbeck 发表于 2022-7-6 07:37:08

这一变化按预期进行。谢谢你的更新。

Lee Mac 发表于 2022-7-6 07:42:10

 
不客气，科里。

Craisbeck 发表于 2022-7-6 07:51:42

任何人在2013 autocad上运行UTB时都有任何问题。它在我们的2012版本上运行良好，但在我们的2013版本上，它在所有布局选项卡的所有字段中放置了相同的信息？
页: [1]
查看完整版本: 李'；s更新标题Bl