选择多个文字.打断多条引线.

357785513

楼上的诸位好.能不能编一个选择多个文字.打断多条引线.就是引线标注线太长了.因为有时我把文字一对齐,很多引就超出了文字.我想用某个命令,选择文字.再选择这些引线,文字就把这些引线打断了.就像文字打断LING一样.或者刚好缩到文字的边上,而引线还是引线.不能是被炸散的.楼上那一位能人做到这一点嘛.至于引线伸已经有人做到了,

357785513

357785513

这个总部问题不好解决,如果选择文字,确定.再选择引线,引线就缩短到字的边上,的话就有可能吧.

357785513

至今还没有人解决呀,真难属历史问题

xyp1964

也许这样：

xyp1964

3. ;; 引线匹配
4. (defun c:tt ()
5.   (CMDLA0)
6.   (setq ss (ssget '((0 . "TEXT")))
7. i  -1
8.   )
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
10.     (setq p1 (xyp-get-MinMaxPoint s1 1)
11.    p9 (xyp-get-MinMaxPoint s1 9)
12.     )
13.     (if (setq ss1 (ssget "c" p1 p9 '((0 . "LEADER"))))
14.       (progn
15. (setq s2 (ssname ss1 0)
16.        pt (xyp-get-Coordinates s2)
17.        pt (last pt)
18.        pt (list (- (car p1) 2) (cadr pt))
19. )
20. (xyp-Put-Coordinate s2 2 pt)
21. (xyp-put "color" s1 1)
22.       )
23.     )
24.   )
25.   (CMDLA1)
26. )

;; 引线匹配 (defun c:tt ()   (CMDLA0)   (setq ss (ssget '((0 . "TEXT"))) i  -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (setq p1 (xyp-get-MinMaxPoint s1 1)    p9 (xyp-get-MinMaxPoint s1 9)     )     (if (setq ss1 (ssget "c" p1 p9 '((0 . "LEADER"))))       (progn (setq s2 (ssname ss1 0)        pt (xyp-get-Coordinates s2)        pt (last pt)        pt (list (- (car p1) 2) (cadr pt)) ) (xyp-Put-Coordinate s2 2 pt) (xyp-put "color" s1 1)       )     )   )   (CMDLA1) )

357785513

高,实在是高.这个何往呀

357785513

xyp-get