更改块中的属性

ngray83 · 发表于 2022-7-5 23:58:34

好的，首先我Lisp程序。我的CAD管理课程向我们介绍了其中的一些内容，我还成功地创建了一些程序。也就是说，我在使用这段代码时遇到了不少麻烦。我们的教授提供了大部分/全部信息，我们必须通过标签修改它以更改其他属性。

(defun C:chatts()
         (setq Blk (ssget "X" '((2 . "AttributeTest"))))
         (setq BlkName (ssname blk 0))
         (defun attsearch()
          (setq TagSearch (entnext BlkName))
);;defun
         (attsearch)
         (setq TagFound (cdr(assoc 2(entget BlkName))))
         (while (/= TagFound "DWG_TITLE")
          (setq TagSearch (entnext TagSearch))
        (setq TagFound (cdr(assoc 2 (entget TagSearch))))
);;while
         (setq old (assoc 1 (entget TagSearch)))
         (setq new (cons 1 "Attribute Lisp"))
         (setq NewList (subst new old (entget TagSearch)))
         (entmod NewList)
         (entupd (cdr (assoc -1 (entget TagSearch))))
);;defun

他说，这主要是简单地重复代码，并将“TagFound”更改为其他属性标记，但无论出于何种原因，每次尝试都失败了。重复从哪里开始和结束？我认为这是一个“我已经看了太久”的问题。

谢谢你的帮助。

刻痕

pBe · 发表于 2022-7-6 00:08:02

毕竟这是一个家庭作业。所以一个提示就足够了：

Tagsearch变量的计算结果为零
TagFound变量结果的blockname不是标记名

ngray83 · 发表于 2022-7-6 00:12:56

嗯。也许我应该澄清一下。这是为了更改和插入块的属性。

LISP可以正常工作。我只是无法确定重复部分的开始。

此外，教授允许使用外部资源，因为从技术上讲，这不是一门LISP课程，而且我自己自学了大部分内容，所以没有必要因为这是“家庭作业”而犹豫。

pBe · 发表于 2022-7-6 00:17:06

抱歉，尼克，无论如何，所以问题是通过选择迭代正确吗？

ngray83 · 发表于 2022-7-6 00:21:32

不确定这是否是问题所在。基本上，根据我的理解，我会将代码的一部分从say，（attsearch）复制到末尾，并将TagFound“DWG\u TITLE”更改为TagFound“COURSE\u NAME”，当然也会将相应的cons 1“Attribute Lisp”更改为cons 1“CAD Management”，重复标题栏中的所有标记。正如我所说的，他提到了一个简单的复制和粘贴，只需要很少的修改就可以完成。至少我是这样做的。

这有意义吗？对不起，有什么困惑。

谢谢

刻痕

Bhull1985 · 发表于 2022-7-6 00:28:29

“重复”开始于

copy

(while (/= TagFound "DWG_TITLE")

这一行，但它有嵌套语句，在查看（while）循环时必须考虑这些语句。

copy

(setq TagSearch (entnext TagSearch))
        (setq TagFound (cdr(assoc 2 (entget TagSearch))))
);;while

不会为你做这一切，但这应该会有所帮助

Bhull1985 · 发表于 2022-7-6 00:35:24

供参考

copy


(while)
(if)
(repeat)

是迭代（逐步）代码的常见方法吗

pBe · 发表于 2022-7-6 00:40:15

为了防止程序“崩溃”，这里有一种方法可以使用您已有的代码行“循环”。

copy

(defun C:chatts        ()
 (defun attsearch () (setq TagSearch (entnext BlkName)))    ;;defun
 [color="blue"](if [/color](setq Blk (ssget "X" '((2 . "AttributeTest")[color="blue"](66 . 1)[/color])))
   [color="blue"](repeat (sslength blk)[/color]
     (setq BlkName (ssname blk 0))
      (attsearch)
     (setq TagFound (cdr (assoc 2 (entget BlkName))))
     [color="blue"](if [/color](while [color="blue"](and[/color] (/= TagFound[b][color="#8b0000"] "DWG_TITLE"[/color][/b])
              [color="blue"](setq TagSearch (entnext TagSearch))
         )[/color]
    (setq TagFound (cdr (assoc 2 (entget TagSearch))))
  )
;;while
[color="blue"](progn[/color]
  (setq old (assoc 1 (entget TagSearch)))
  (setq new (cons 1 [b][color="#8b0000"]"Attribute Lisp"[/color][/b]))
  (setq NewList (subst new old (entget TagSearch)))
  (entmod NewList)
  (entupd (cdr (assoc -1 (entget TagSearch))))
[color="blue"])
     )
     (ssdel BlkName Blk)
   )[/color]
 )
)

哎呀。太晚了，我已经发布了代码，OP说没有必要保留。

粗体颜色的文本是您需要更改的“内容”，以用于另一个标记名和字符串值。

但是，您可以将函数更改为接受参数

copy


(defun [b][color="purple"]chatts (tag str)[/color][/b]
 (defun attsearch () (setq TagSearch (entnext BlkName)))    ;;defun
 (if (setq Blk (ssget "X" '((2 . "AttributeTest")(66 . 1))))
   (repeat (sslength blk)
     (setq BlkName (ssname blk 0))
      (attsearch)
     (setq TagFound (cdr (assoc 2 (entget BlkName))))
     (if (while (and (/= TagFound [b][color="purple"]tag[/color][/b])
              (setq TagSearch (entnext TagSearch))
         )
    (setq TagFound (cdr (assoc 2 (entget TagSearch))))
  )
;;while
(progn
  (setq old (assoc 1 (entget TagSearch)))
  (setq new (cons 1 [b][color="purple"]str)[/color][/b])
  (setq NewList (subst new old (entget TagSearch)))
  (entmod NewList)
  (entupd (cdr (assoc -1 (entget TagSearch))))
)
     )
     (ssdel BlkName Blk)
   )
 )
)

（chatts“ANOTHERTAG”“另一个字符串值”）

HTH公司

ngray83 · 发表于 2022-7-6 00:52:43

谢谢你的帮助！我会仔细看看这些东西，看看它能给我带来什么。

刻痕

pBe · 发表于 2022-7-6 00:58:24

很高兴我们能提供帮助，因为我正在再次阅读您的帖子，如果您需要单步浏览标签名称。您可以使用我发布的sub来指定标记及其相应的值。

copy

(foreach itm '(("DWG_TITLE" "Attribute Lisp")("COURSE_NAME" "CAD Management"))
         (chatts (car itm)(cadr itm)))

HTH公司

[编程交流] 更改块中的属性

发表回复

精选推荐