在整个灾难恢复过程中更换领导者

K Baden · 发表于 2022-7-5 16:09:27

大家下午好！

我正在寻找一种代码，将取代一种风格的领导人与不同风格的领导人。有关详细信息，请参阅随附的测试图纸。

正如您所见，顶部引线是一个2点引线，但具有固定支腿。这就是我希望我的所有领导人都成为的样子。

就在下面是一个领先的3分，我不想在我的图纸上了。使用这种类型的引线移动文本会拖拽文本的腿，但还有另一个点保持不变。这是无休无止的愤怒。我做了很多搜索，但没有运气。有人能帮我吗？

领导测试图。图纸

ronjonp · 发表于 2022-7-5 16:19:39

你想过使用多重引线吗？在我看来，他们比老派领导人更容易操纵。

ronjonp · 发表于 2022-7-5 16:28:55

这似乎解决了三点领先的问题。。有限测试。

copy

(defun c:foo (/ ss)
 (if (setq ss (ssget ":L" '((0 . "leader"))))
   (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     (entmod (mapcar '(lambda (x)
                 (cond ((= 75 (car x)) '(75 . 1))
                       ((= 40 (car x)) '(40 . 0.0))
                       ((= 41 (car x)) '(41 . 0.0))
                       (x)
                 )
               )
              (entget x)
      )
     )
   )
 )
 (princ)
)

K Baden · 发表于 2022-7-5 16:36:38

这太棒了！
有没有办法让它自动选择所有的领导者？

ronjonp · 发表于 2022-7-5 16:45:47

更改：

copy

(setq ss (ssget ":L" '((0 . "leader"))))

到

copy

(setq ss (ssget [b][color="red"]"_X"[/color] [/b]'((0 . "leader"))))

K Baden · 发表于 2022-7-5 16:56:10

效果很好！非常感谢！！

ronjonp · 发表于 2022-7-5 17:06:22

很乐意帮忙

K Baden · 发表于 2022-7-5 17:12:36

我遇到的唯一问题是，某些领导者在没有小腿脚的情况下获得2分领先。知道怎么修补吗？我讨厌autocad中的所有引线都被描述为“引线”，而不管这些事情。甚至不知道如何精确定位。基本上，这在3个顶点引线上效果很好，当你移动它时，这些引线可以保持腿部。这不适用于腿部取决于第二个和第三个点的位置的3点引线，如果其中一个点移动，则腿部不会自动生成。不确定我是否清楚。希望我是。如果你需要的话，我可能会发布另一张测试图给我谈论的领导者

[编程交流] 在整个灾难恢复过程中更换领导者

发表回复

精选推荐