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

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

大家下午好！
 
我正在寻找一种代码，将取代一种风格的领导人与不同风格的领导人。有关详细信息，请参阅随附的测试图纸。
 
正如您所见，顶部引线是一个2点引线，但具有固定支腿。这就是我希望我的所有领导人都成为的样子。
 
就在下面是一个领先的3分，我不想在我的图纸上了。使用这种类型的引线移动文本会拖拽文本的腿，但还有另一个点保持不变。这是无休无止的愤怒。我做了很多搜索，但没有运气。有人能帮我吗？
 
领导测试图。图纸

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

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

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

这似乎解决了三点领先的问题。。有限测试。
(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

 
更改：
(setq ss (ssget ":L" '((0 . "leader"))))
到
(setq ss (ssget "_X" '((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点引线，如果其中一个点移动，则腿部不会自动生成。不确定我是否清楚。希望我是。如果你需要的话，我可能会发布另一张测试图给我谈论的领导者
页: [1]
查看完整版本: 在整个灾难恢复过程中更换领导者