属性修改套件

Lee Mac · 发表于 2022-7-5 17:13:48

随着最近对LISP的大量请求将改变多个属性，我决定创建这个属性修改套件。

目前，它包含三个功能：MvAtt、RoAtt和EdAtt，分别移动、旋转和编辑多个属性。

任何建议、评论（当然还有bug报告！），欢迎光临

享受

李
此处提供代码。

The Buzzard · 发表于 2022-7-5 17:17:55

李炸药，

你教你的名字跳舞。
但是它能做三个林迪吗？

你真了不起。
干得好！
秃鹰

Lee Mac · 发表于 2022-7-5 17:22:12

谢谢Buzzard，很高兴你喜欢

更多的更新即将到来——正如我经常说的那样，最困难的部分是思考如何制作/添加到程序中。

The Buzzard · 发表于 2022-7-5 17:25:54

我完全明白你的意思。我发现自己在想很多次“我下一步要从什么开始？”。你和我一样清楚，你对一个实体所能做的只有那么多，但有些人提出了一些令人惊叹的想法，如果不是疯狂的话。我知道你吃了这些东西，并使这些想法成为可能。

李，我能说什么？
你是独一无二的。

Lee Mac · 发表于 2022-7-5 17:27:24

谢谢Buzzard

我已经更新了第一篇文章，加入了一个新版本，包括一个用于编辑属性值的新功能

李

MarcoW · 发表于 2022-7-5 17:30:48

李，你说：

哈哈，我总是能想出别人必须解决的问题。。。但是我的工作太忙了，所以我不能花足够的时间来编写像样的lisp编程。这就是为什么每当你想到一个想法、解决方案或只是一个例行的尝试时，我都会那么热情。（如果这是我老板说的话，我也不应该那样做）。。。

顺便说一句，我画了电气平面图，做了很多工程，所以我有很多带有属性的块。

我现在用来旋转属性的例程（atrot.lsp）运行得很好。尽管有一件事仍然让我恼火。

[code]（defun c:atrot（/blSet attLst errCount tmp）（或atrot:tag（setq atrot:tag“”）（setq tmp（getstring（strcat“\n指定要旋转的标记：”）（或（eq”“tmp）（setq atrot:tag tmp））（princ“>”（setq errCount 0）（if（setq blSet（ssget’（（0。“INSERT”）（66.1））））（progn（setq blSet（mapcar‘vlax ename->vla object（vl remove if“listp（mapcar”cadr（ssnamex blSet）аа））（foreach itm blSet（setq attLst（vlax safearray->list（vlax variant value（vla GetAttributes itm）））（foreach att attLst（和）（eq（if（eq“”atrot:tag）（vla get TagString att）atrot:tag）（vla get TagString att））（如果（vl-catch-all-error-p（vl catch all apply‘vla put Rotation（list att 0.0）））（setq errCount（1+errCount k）а）；（princ“>>>未选择任何内容！”（itoa errCount）“属性或块位于锁定层上！