HELLO，想請問大家有方法將所有LEADER統一ANGLE嗎??

shing0719

HELLO，想請問大家有方法將所有LEADER統一ANGLE嗎??
因為我個D圖有大約200~300個LEADER，但所有LEADER本身角度並唔統一，但我工作要將所有LEADER排列整齊，例如要將所有LEADER統一做30 DEGREE，想問有方法可以做到嗎??THX
希望能夠做到如下圖效果

newer

LEADER 还是 MLEADER?

shing0719

全部都是leader丫,之前係另一個網有ching俾左個lisp我，雖然可以將全部leader angle統一，但個lisp會自己set每個leader之間的間距，但我並唔需要自動設定間距，有冇ching可幫我研究or改良下，我只需要leader angle統一就ok
Code:
---------
(defun c:foo (/ _pts a d e el epts i mp n o p p2 s x y)
  ;; RJP 03.27.2018
  ;; Aligns 'old school' 3 pt leaders matching angle of leader and fixes offset distance of horizontal landings
  ;; ***The bottom most leader is the one matched***
  ;; Far from perfect, but better than doing it manually :P
  (defun _pts (e) (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget e))))
  (cond ((and (setq s (ssget ":L" '((0 . "leader"))))
              (setq s (vl-sort (mapcar '(lambda (x) (append (list x) (_pts x)))
                                       (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
                               )
                               '(lambda (a b) (< (cadr (last a)) (cadr (last b))))
                      )
              )
              (setq d (/ (distance (last (car s)) (last (last s))) (length s)))
              (or (setq
                    i (getdist
                        (strcat "\nEnter spacing for horizontal leader[<" (vl-princ-to-string d) ">]: ")
                      )
                  )
                  (setq i d)
              )
              (setq e (car s))
              (setq s (cdr s))
         )
         (setq a (angle (car (setq epts (cdr e))) (cadr epts)))
         (setq y (last epts))
         (setq n 1)
         (foreach l s
           (setq o (vlax-ename->vla-object (car l)))
           (setq p (cdr l))
           (cond ((setq mp (inters (car p)
                                   (polar (car p) a 1e-2)
                                   (setq p2 (list (car y) (+ (* n i) (cadr y)) 0.0))
                                   (polar p2 0.0 1e-2)
                                   nil
                           )
                  )
                  (vlax-put o 'coordinates (apply 'append (list (car p) mp p2)))
                  (setq n (1+ n))
                 )
           )
         )
        )
  )
  (princ)
)

newer

变成MLEADER，很多现成的工具

• 多重引线“基线”方向变换
  13 个回复 - 390 次查看
  **** 本内容被作者隐藏 ****
  2017-3-15 22:30 - newer - 每日插件
• 批量多重引线（块）基线平齐
  15 个回复 - 338 次查看
  **** 本内容被作者隐藏 ****
  2017-3-18 22:01 - newer - 每日插件
• 批量多重引线的方向的转换
  11 个回复 - 216 次查看
  **** 本内容被作者隐藏 ****
  2017-3-14 23:15 - newer - 每日插件
• 多重引线（块）编辑（改长度，角度，箭头，随轴）
  21 个回复 - 437 次查看
  演示2：修改引线角度 演示3：修改基线长度 演示4：修改箭头样式和大小 演示5：修改基线随UCS X轴平行 **** 本内容被作者隐藏 ****
  2017-3-17 21:10 - newer - 每日插件
• 多重引线动态四方向拖动
  10 个回复 - 259 次查看
  运行在XDRX API 2017.0315+ **** 本内容被作者隐藏 ****
  2017-3-15 21:58 - newer - 每日插件
• 引线对齐
  4 个回复 - 1212 次查看
  求一个批量引线对齐的LSP插件
  2016-5-31 09:14 - 风境 - 每日插件
• 多重引线动态拖动
  5 个回复 - 201 次查看
  **** 本内容需购买可见 ****
  2017-3-10 22:22 - newer - 每日插件
  
  

newer

上传DWG图到论坛。

shing0719

原圖大約好似圖中

newer

shing0719 发表于 2018-6-15 17:38
原圖大約好似圖中

你这图里面也没LEADER啊

shing0719

請看清楚，圖中全是LEADER,

marting

shing0719 发表于 2018-6-20 10:12
請看清楚，圖中全是LEADER,

你这图中，leader和文字已经没有关联了，不知道是怎么画的图，他们现在都是分散的了。
用那么高的CAD版本存的盘，为什么不用MLEADER做。