[Composter]

я впервые столкнулся с 2009 автокадом и решил попробовать мультивыноски. активно ими пользовался и практически сразу заметил что определенные символы опускают текст на несколько миллиметров , у меня например а(русская прописная), a(английская прописная), и цифра 9, (наблюдается если использовать шрифт gost 2.304 type A , которым я пользовался).Это исправляется если в конце текста добавить 2 строку и изменить высоту этой строки. Так как мультивыносок много, то на исправление вручную уйдет несколько дней. Теперь о макросе.
Далее, собственно, как я вижу предстоящую программу:
-при щелканье на мультиссылке (я знаю что команда ddedit открывает текст мультиссылки для редактирования, хотя текст в мссылке мульти, а не однострочный) что бы в конце текста добавлялись определенные символы (в данном случае переход на другую строку с пробелом, измененной высоты)
Особые пожелания:
-что бы запрашивала прога какие я хочу символы добавлять
-что бы запрашивала прога высоту шрифта добавляемой строки
-что бы можно было сразу кучу мультиссылок исправлять таким образом, а не щелкать отдельно по каждой .
В общем, очень надеюсь на помощь специалистов, ради написания данной програмки сел изучать автолисп, но пока знание довольно сыроваты ) Заранее спасибо
---
Одно из возможных решений (спасибо VVA)

[Кулик Алексей aka kpblc]

wetr, я исправился. У меня пока не было необходимости работы с mleader'ом в 2008-м, почему я и вякнул #18.
---
Добавлено: а если попробовать смотреть ActiveX-представление объекта? Ну, например:

Код:

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

_$ (setq obj (vlax-ename->vla-object (car(entsel))))
#<VLA-OBJECT IAcadMLeader 1583ad44>
_$ (vlax-dump-Object obj)
; IAcadMLeader: AutoCAD Multi-Leader Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d74d3c>
;   ArrowheadBlock = ""
;   ArrowheadSize = 0.18
;   ArrowheadType = 0
;   BlockConnectionType = 0
;   ContentBlockName = ""
;   ContentBlockType = 6
;   ContentType = 2
;   Document (RO) = #<VLA-OBJECT IAcadDocument 01defc60>
;   DogLegged = 0
;   DoglegLength = 0.0
;   Handle (RO) = "28AB"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 1ab62afc>
;   LandingGap = 10.0
;   Layer = "_Ot_g_stoyaki_podp"
;   LeaderCount (RO) = 1
;   LeaderLineColor = #<VLA-OBJECT IAcadAcCmColor 1ad0fe60>
;   LeaderLineType = "ByBlock"
;   LeaderLineWeight = -2
;   LeaderType = 1
;   Linetype = "Continuous"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = 2120288344
;   ObjectName (RO) = "AcDbMLeader"
;   OwnerID (RO) = 2120310008
;   PlotStyleName = "ByLayer"
;   ScaleFactor = 1.0
;   StyleName = "Stoyaki"
;   TextBackgroundFill = 0
;   TextDirection = 5
;   TextFrameDisplay = 0
;   TextHeight = 350.0
;   TextJustify = 3
;   TextLeftAttachmentType = 7
;   TextLineSpacingDistance = 583.333
;   TextLineSpacingFactor = 1.0
;   TextLineSpacingStyle = 1
;   TextRightAttachmentType = 7
;   TextRotation = 0.0
;   TextString = "\\pxsm0.6;Cm.29{\\Fspds|c204;\\H0.14286x;\\Q0; }"
;   TextStyleName = "Funck"
;   TextWidth = 1102.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 1ad11060>
;   Visible = -1

Потом лезем в справку и смотрим там все свойства и методы объекта...

[Composter]

wetr Line spacing неудобен если я уже почти доделал проект, и у меня множество таких опустившихся мультвыносок, а что бы ето исправить надо в каждую заходить, заходить в след меню, и там выставлять,проще в каждую добавить текст из буфера со строкой. если конечно можно с помощью комманд автокада сделать задание line spacing ,то ето намного облегчило редактирование, уже созданных мультвыносок

[wetr]

Сообщение от Composter wetr а теперь объясни доступным языком, что ты хотел сказать последними 2 сообщениями?

да это я просто сам пытаюсь дотумкать, как программу сделать.

Сообщение от Composter wetr Line spacing неудобен если я уже почти доделал проект, и у меня множество таких опустившихся мультвыносок, а что бы ето исправить надо в каждую заходить, заходить в след меню, и там выставлять,проще в каждую добавить текст из буфера со строкой. если конечно можно с помощью комманд автокада сделать задание line spacing ,то ето намного облегчило редактирование, уже созданных мультвыносок

Дак нужна программа которая ты меняла Line spacing указкой на примитив или у всех м.лидеров чертежа. По крайней мере я ее так вижу.

Кулик Алексей aka kpblc, ActiveX я еще не секу. Я то в 10 функциях путаюсь. Все по книжке делаю. Мой единственный лисп - это колонна, по заданию VVA, из темы обучения чайников лиспу. Так что не понял ничего из твоего поста Мне бы что попроще.
Я думаю мне нужен
entsel, entget, assoc, cdr, - это я получу значение точечной пары 304
Потом не знаю. entmod наверное. Только примеров нету у меня по применению.

Функция entmod похожа на функцию entmake, но получает в качестве аргумента список, который содержит точечную пару с DXF-кодом -1 (т. е. имя существующего в рисунке примитива) и модифицирует примитив в соответствии с новым списком (в списке могут изменяться любые данные, кроме имени примитива, типа примитива и метки): (entmake <список>)

[Кулик Алексей aka kpblc]

wetr, приложи 1 файл с одним мультилидером, в котором будет большинство того, что тебе надо делать. Опиши, что надо менять (например, рядом скопированный тот же лидер, но измененный). Изменения вносить по одному. Исходник выделить, например, красным цветом. А я попробую что-нибудь сделать программно и выложить код.

[Composter]

Кулик Алексей aka kpblc а что делать с твои текстом написанным в сообщении #21 ?

[Кулик Алексей aka kpblc]

Да ничего. Это просто "дамп" (программное описание) существующего лидера, как пример.

[wetr]

В файле написал в чем беда.

P.S. ActiveX-представление гораздо приятнее читать. Все понятно в этом "дампе".

[Кулик Алексей aka kpblc]

Вариант кода, без вычисления фактора смещения:

Код:

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

(defun test (factor                        /
             *error*                       selset
             _kpblc-string-clear-format    _kpblc-conv-string-to-list
             _kpblc-conv-list-to-string    _kpblc-conv-value-to-string
             _kpblc-conv-vla-to-list       _kpblc-conv-selset-to-ename
             )

            ;|
factor	выравнивание.
|;

  (vl-load-com)

  (defun *error* (msg)
    (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
    (princ msg)
    (princ)
    ) ;_ end of defun

  (defun _kpblc-conv-selset-to-ename (selset / tab item)
                                     ;|
*    Преобразование набора, полученного через ssget, в список ename-представлени
* примитивов.
*    Параметры вызова:
	selset	набор примитивов
*    Примеры вызова:
(_kpblc-conv-selset-to-ename (ssget))
|;
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((= (type selset) 'vla-object)
       (_kpblc-conv-vla-to-list selset)
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-conv-vla-to-list (value / res)
                                 ;|
*    Преобразовывает vlax-variant или vlax-safearray в список.
|;
    (cond
      ((listp value)
       (mapcar '_kpblc-conv-vla-to-list value)
       )
      ((= (type value) 'variant)
       (_kpblc-conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (_kpblc-conv-vla-to-list (vlax-safearray->list value))
         ) ;_ end of if
       )
      ((and (member (type value) (list 'ename 'str 'vla-object))
            (setq value (_kpblc-conv-ent-to-vla value))
            (and (= (type value) 'vla-object)
                 (vlax-property-available-p value 'count)
                 ) ;_ end of and
            ) ;_ end of and
       (vlax-for sub (_kpblc-conv-ent-to-vla value)
         (setq res (cons sub res))
         ) ;_ end of vlax-for
       )
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-string-clear-format (mtext / text str)
    (setq text "")
    (while (/= mtext "")
      (cond
        ((wcmatch (strcase (setq str (substr mtext 1 2))) "\\[\\{}]")
         (setq mtext (substr mtext 3)
               text  (strcat text str)
               ) ;_ end of setq
         )
        ((wcmatch (substr mtext 1 1) "[{}]")
         (setq mtext (substr mtext 2))
         )
        ((wcmatch (strcase (setq str (substr mtext 1 2))) "\\[LO`~]")
         (setq mtext (substr mtext 3))
         )
        ((wcmatch (strcase (substr mtext 1 2)) "\\[ACFHQTW]")
         (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
         )
        ((or
           (wcmatch (strcase (substr mtext 1 4)) "\\PQ[CRJD],\\PXQ")
           (wcmatch (strcase mtext) "\\PXSE*;*,\\PS`*;*")
           ) ;_ end of or
         (setq
           mtext
            (substr mtext (+ 2 (vl-string-search ";" mtext)))
           ) ;_ end of setq
         ) ;_ end of cond
        ((wcmatch (strcase (substr mtext 1 2)) "\\P")
         (if (or (= " " (substr text (strlen text)))
                 (= " " (substr mtext 3 1))
                 ) ;_ end of or
           (setq mtext (substr mtext 3))
           (setq mtext (substr mtext 3)
                 text  (strcat text " ")
                 ) ;_ end of setq
           ) ;_ end of if
         )
        ((wcmatch (strcase (substr mtext 1 2)) "\\S")
         (setq str   (substr mtext 3 (- (vl-string-search ";" mtext) 2))
               text  (strcat text (vl-string-translate "#^\\" "/^\\" str))
               mtext (substr mtext (+ 4 (strlen str)))
               ) ;_ end of setq
         )
        (t
         (setq text  (strcat text (substr mtext 1 1))
               mtext (substr mtext 2)
               ) ;_ end of setq
         ) ;_ end of t
        ) ;_ end of cond
      ) ;_ end of while
    text
    ) ;_ end of defun

  (defun _kpblc-conv-string-to-list (string separator / i)
                                    ;|
*    Функция разбора строки. Возвращает список либо точечную пару.
*    Параметры вызова:
*	string		разбираемая строка
*	separator	символ, используемый в качестве разделителя частей
*    Примеры вызова:
(_kpblc-conv-string-to-list "1;2;3;4;5;6" ";")	;'(1 2 3 4 5 6)
(_kpblc-conv-string-to-list "1;2" ";")		;'(1 2)
*    За основу взяты уроки Евгения Елпанова по рекурсиям
|;
    (cond
      ((= string "") nil)
      ((setq i (vl-string-search separator string))
       (cons (substr string 1 i)
             (_kpblc-conv-string-to-list
               (substr string (+ (strlen separator) 1 i))
               separator
               ) ;_ end of _kpblc-conv-string-to-list
             ) ;_ end of cons
       )
      (t (list string))
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-conv-value-to-string (value /)
                                     ;|
*    конвертация значения в строку.
|;
    (if value
      (vl-princ-to-string value)
      ""
      ) ;_ end of if
    ) ;_ end of defun

  (defun _kpblc-conv-list-to-string (lst sep)
                                    ;|
*    Преобразование списка в строку
*    Параметры вызова:
	lst	обрабатываемй список
	sep	разделитель. nil -> " "
|;
    (setq lst (mapcar (function _kpblc-conv-value-to-string) lst)
          sep (if sep
                sep
                " "
                ) ;_ end of if
          ) ;_ end of setq
    (strcat (car lst)
            (apply (function strcat)
                   (mapcar
                     (function
                       (lambda (x)
                         (strcat sep x)
                         ) ;_ end of lambda
                       ) ;_ end of function
                     (cdr lst)
                     ) ;_ end of mapcar
                   ) ;_ end of apply
            ) ;_ end of strcat
    ) ;_ end of defun

  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (if (and factor
           (setq selset (_kpblc-conv-selset-to-ename
                          (ssget "_:L" '((0 . "MULTILEADER")))
                          ) ;_ end of _kpblc-conv-selset-to-ename
                 ) ;_ end of setq
           ) ;_ end of and
    (foreach obj (mapcar (function vlax-ename->vla-object) selset)
      (vla-put-textstring
        obj
        (strcat
          "\\pxse"
          (vl-princ-to-string factor)
          ";"
          (_kpblc-conv-list-to-string
            (mapcar
              (function
                (lambda (x)
                  (_kpblc-string-clear-format x)
                  ) ;_ end of lambda
                ) ;_ end of function
              (_kpblc-conv-string-to-list
                (vla-get-textstring obj)
                "\\P"
                ) ;_ end of _kpblc-conv-string-to-list
              ) ;_ end of mapcar
            "\\P\\ps*;"
            ) ;_ end of _kpblc-conv-list-to-string
          ) ;_ end of strcat
        ) ;_ end of vla-put-textstring
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  ) ;_ end of defun

Пример вызова:

Код:

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

(test (/ 2. 3.))

---
Добавлено: сделать для нескольких MLeader'ов в общем-то не проблема, только намекни
---
Добавлено 13.11.2008, 22:31
Намек получен и внедрен

[wetr]

kpblc, чего-то не выходит.

Код:

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

Command: (test (/ 2. 3.))

Select object: nil

[Кулик Алексей aka kpblc]

Так а объект-то (который исходник) ткни и посмотри, как он изменится.

[wetr]

Сообщение от Кулик Алексей aka kpblc Так а объект-то (который исходник) ткни и посмотри, как он изменится.

так я и тыкаю - ничего не происходит...

[Кулик Алексей aka kpblc]

Завтра напомни, попробую видео снять что и как делалось.

[wetr]

вот как я делаю

[Кулик Алексей aka kpblc]

Код в #28 исправил (забыл одну функцию и объявление (vl-load-com))

[wetr]

УРРРА!!!
Все заработало.
Только функция прерывается после выбора примитива (намекаю )
Еще бы добавить возможность тыкать в несколько примитивов, выботр рамкой и опцию <Все>.
В твоем коде очень трудно разобраться. Чуствую где-то здесь надо "добавлять":

Код:

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

(setq obj (vl-catch-all-apply
                            '(lambda () (vlax-ename->vla-object (car (entsel))))

[wetr]

Что за ... этот мультитекст.
Алексей, не подскажешь, где можно покопаться?
В общем мультилидер ведет себя "неожиданно", выставляя текст на разной высоте. Закономерности какие-то есть, текст реагирует на различные символы, и в зависимости об этого ставит всю строку выше или ниже. Насколько я понял, от шрифта мало что зависит. Где можно посмотреть настройки мтекста, чтобы попробовать выявить закономерности "пляски" текста над полкой? Где-то читал, что это даже не полка а подчеркивание. В "дампе" текста очень мало свойств.

Код:

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

_$ (setq obj (vlax-ename->vla-object (car(entsel))))
(vlax-dump-Object obj)
#<VLA-OBJECT IAcadMText 130d6a7c>
; IAcadMText: AutoCAD MText Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00cd63f8>
;   AttachmentPoint = 1
;   BackgroundFill = 0
;   Document (RO) = #<VLA-OBJECT IAcadDocument 208c9f78>
;   DrawingDirection = 5
;   Handle (RO) = "269"
;   HasExtensionDictionary (RO) = 0
;   Height = 2.5
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 43bba44c>
;   InsertionPoint = (1416.22 699.236 0.0)
;   Layer = "_Тексты"
;   LineSpacingDistance = 3.33333
;   LineSpacingFactor = 0.8
;   LineSpacingStyle = 2
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 2116860040
;   ObjectName (RO) = "AcDbMText"
;   OwnerID (RO) = 2116852984
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   StyleName = "Standard"
;   TextString = "\\pxsm0.6;Кусок\r\\P\\ps*;строки\r\\Pвапр"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 427941e0>
;   Visible = -1
;   Width = 41.4809
T

У мтекста есть еще какие-то коды
Mtext group codes
Из справки

44 Mtext line spacing factor (optional): Percentage of default (3-on-5) line spacing to be applied. Valid values range from 0.25 to 4.00

Код 44 - это как раз тот самый коэфициент, который мы присваиваем. Ты своей программой его меняешь или в форматирование текста вставляешь?

[Composter]

ребята, о чем вы переписываетесь ? непонятно.если wetr радовался что у него заработало, то хотелось бы видеть конечный вариант лиспа ,что бы у меня тоже mleader нормально фунциклировал

[wetr]

Composter, давай вникай и присоединяйся. Вместе как-то легче разгребать конюшни AutoDESKa

[Composter]

я б с удовольствием, но в лиспе не шарю. вот планирую на выходных почитать Света.мож тогда начну вас понимать

[ShaggyDoc]

Кулик Алексей aka kpblc, в #18 лечение страшнее болезни.

Добавление дополнительных символов форматирования, да еще с численным аргументом приведет ко всяким нехорошим последствиям. Например, частенько используется извлечение числа из строки. Чтобы, например, сложить или перемножить строки. Вот и вылезет это число.

Регулировать надо все-таки через textlinespacingfactor.

Но здесь в основе всё-таки неправильный шрифт. Это явно из CS стандартный. У него описание некорректное. Я так думаю.