[casaatik]

Добрый день.
Лисп приведенный ниже преобразует текст в мультивыноску, но делает он это по одному за раз. Как можно его изменить чтобы он сам находил линии с текстом и делал из них мультивыноски. Есть файлы где изначально были мультивыноски, потом их взорвали и получили мтексты с отрезками. Хотелось бы обратно все в мультивыноски в несколько кликов. Пример исходного файла во вложении.

Код:

[Выделить все]

(defun c:mt2ml ( / oobj nobj nstrg)
  (vl-load-com)
  (setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
  (if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
    (setq nstrg (vlax-get-property oobj 'TextString))
    (exit)	   
    )
  (command "_MLEADER")
  (while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
  (setq nobj (vlax-ename->vla-object (entlast)))
  (if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
    (vlax-put-property nobj 'TextString nstrg)
    (exit)	   
    )
  (entdel (vlax-vla-object->ename oobj))
  (princ)
)

[Do$]

Сообщение от casaatik Как можно его изменить чтобы он сам находил линии с текстом и делал из них мультивыноски.

Добавить в код логику поиска текста и линий и изменить код для корректного преобразования линий и текста в мультивыноски. Изменений будет по объему гораздо больше, чем исходный код.

[DmitriyBastr]

Если тема ещё актуальна.....
Сам с эти столкнулся.
Могу только такое решение предложить:

1. Соединяем два отрезка в выноску и кликаем в пространстве чертежа, что бы не заполнять поле текста. Вот код для этого:

Код:

[Выделить все]

 (defun c:tt ()
 (setvar "CMDECHO" 0)
 (if (setq ss (ssget '((0 . "LINE")))) (progn
 (setq i -1)
 (repeat (sslength ss)
 (setq ent (entget (ssname ss (setq i (1+ i))))
 p1 (cdr(assoc 10 ent))
 p2 (cdr(assoc 11 ent)))
 (command "_.LEADER" p1 p2 "" "" "N")
 )
 (command "_.ERASE" ss "")
 ))
 (setvar "CMDECHO" 1)
 (princ)
 )

2. Соединяем полученную пустую выноску с нужным текстом. И получается готовая мультивыноска. Вот код для этого:

Код:

[Выделить все]

[lisp][/;LEADER2MULTILEADER
;Converts autocad leaders with text or mtext to autocad 2008+ multileaders
;created by Jeffery Allen - 11/1/2007
 (defun C:LD2MLD (/ ent1 ent1-gcode ent1-type leader-pt-list leader-1st-pt leader-2nd-pt
ent2 ent2-gcode ent2-type text-strg)
 (setq ent1(car(entsel "\nSelect a Leader: "))
ent1-gcode(entget ent1)
ent1-type(cdr(assoc 0 ent1-gcode))
)
(if(= ent1-type "LEADER")
(progn
(setq leader-pt-list(member(assoc 10 ent1-gcode) ent1-gcode)
leader-1st-pt(cdr(car leader-pt-list))
leader-2nd-pt(cdr(cadr leader-pt-list))
ent2(car(entsel "\nSelect Text or Mtext: "))
ent2-gcode(entget ent2)
ent2-type(cdr(assoc 0 ent2-gcode))
)
(if(or(= ent2-type "TEXT")(= ent2-type "MTEXT"))
(progn
(setq text-strg(cdr(assoc 1 ent2-gcode)))
(setvar "OSMODE" (boole 7 (getvar "OSMODE") 16384));osnap off
(setvar "CMDECHO" 0);command echo off
(command "_.ERASE" ent1 ent2 ""
"_.MLEADER" leader-1st-pt leader-2nd-pt text-strg
)
(setvar "CMDECHO" 1);command echo on
(setvar "OSMODE" (boole 2 (getvar "OSMODE") 16384));osnap on
)
)
(if(and(/= ent2-type "TEXT")(/= ent2-type "MTEXT"))(alert "Object selected is not a text or mtext"))
)
)
(if(/= ent1-type "LEADER")(alert "Object selected is not a leader"))
(princ)
);defun
 (setq message "Leader 2 Multileader loaded...
 Converts autocad leaders with text or
mtext to autocad 2008+ multileaders
 Created by Jeffery Allen - 11/1/2007
 Start command with \"LD2MLD\"")
(alert message)
(setq message nil)
(princ)
(c:LD2MLD) LISP]

3.Есть ещё предположение, что эти два кода можно как-то объединить...