[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

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

Я бы заменил

Код:

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

 (member (car cname) (list "РЕГЕН" "REGEN" "_regen" "ВСЕРЕГЕН" "REGENALL" "_regenall"))

на нечто типа

Код:

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

 (wcmatch (strcase (vl-string-trim "_" cname)) "REGEN*")

Написал насухую, мог ошибиться с vl-string-trim.

Сообщение от Сет Пока да, надо подумать об этом тоже.

Да че там думать - либо ssget "_.+:LX" (или как-то так), либо разблокировать слои и после обработки - восстанавливать все обратно.

[Сет]

Что касается мультивыноски, то вышеописанная проблема со смещением содержимого поля относительно полки присутствует и для обычных автокадовских стандартных мультивыносок, если выставить выравнивание по центру. То есть врядли тут может быть проблема в моем коде, формирующем мультивыноску. Я его сюда не выкладываю, потому что он громоздкий, врядли кто-то будет в нем подробно разбираться.

[skkkk]

Сет, а что мешает сделать свой реген? Сейчас посмотрел свой код - в своё время так и сделал, оказывается, даже забыл уже об этом. Да, такая же проблема была со смещением, ещё года с 2008-го. При вызове сначала запускается цикл назначения всем мультивыноскам выравнивания: запоминается изначальное значение каждой мультивыноски, назначается другое, затем возвращается исходное, после этого все мультивыноски переносятся на передний план и, наконец, запускается штатная регенерация. И не нужно никаких реакторов.

[Сет]

Сообщение от skkkk а что мешает сделать свой реген?

Да, пожалуй можно и так сделать, обойтись без реакторов. Только сначала должна быть регенерация, а потом обработка мультивыносок.

Но это тоже костыль, только чуть изящнее

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

Сообщение от Сет Я его сюда не выкладываю, потому что он громоздкий, врядли кто-то будет в нем подробно разбираться.

Странно, у меня пока что получается нечто типа:

Код:

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

 (vl-load-com)

(defun _kpblc-ent-create-mleader (start-point end-point annostring / adoc anno leader)

  (setq adoc   (vla-get-activedocument (vlax-get-acad-object))
        leader (vla-addmleader
                 (vla-get-modelspace adoc)
                 (vlax-make-variant
                   (vlax-safearray-fill
                     (vlax-make-safearray
                       vlax-vbdouble
                       '(0 . 5)
                     )
                     (append start-point end-point)
                   )
                 )
                 0
               )
  )
  (vla-put-textstring leader annostring)
  leader
)

Начальная точка (откуда строить), конечная точка (где располагается полка), текст выноски. ВОзвращает указатель на MLeader. А потом ты уже с ним делаешь что угодно

[skkkk]

Сообщение от Сет Только сначала должна быть регенерация, а потом обработка мультивыносок.

У меня и наоборот работает
Offtop:

Сообщение от Сет Но это тоже костыль, только чуть изящнее

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

[Сет]

Сообщение от Кулик Алексей aka kpblc Странно, у меня пока что получается нечто типа

Так у меня же не просто выноска строится, там много всего наворочено, чтобы и поле из блока бралось, и некоторые элементы форматирования текста, и особенности задания выноски (используется dcl-окно), потому лисп громоздкий.

Сообщение от skkkk У меня и наоборот работает

Это странно. Ведь текст в мультивыноске с полем сползает с полки как раз после регенерации. Потому что поля обновляются. В моем случае обработку мультивыносок нужно производить после регенерации.

[skkkk]

Сообщение от Сет Это странно. Ведь текст в мультивыноске с полем сползает с полки как раз после регенерации.

Вообще, логично. У меня, помнится, не из-за полей съезжали выноски. А так, думаю, практичнее будет вместо регена применять к мультивыноскам команду _UPDATEFIELD, особенно на громоздких чертежах.

[Сет]

del

[Сет]

Сообщение от Кулик Алексей aka kpblc Да че там думать - либо ssget "_.+:LX" (или как-то так), либо разблокировать слои и после обработки - восстанавливать все обратно.

Комбинирование режимов выбора ssget не документировано. Скомбинировать режимы "_X" и "_:L" не получилось. Поэтому сделал так:

Код:

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

 
(setq ss (ssget "_X" '((0 . "MULTILEADER"))))
(sssetfirst nil ss)
(setq ss (ssget "_:L"))

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

Насчет недокументированности : https://www.lee-mac.com/ssget.html
А зачем ты вообще формируешь набор? Может, проще будет программно пройтись по пространствам модели / листов и набрать в один список все указатели на мультивыноски (заодно контролируя состояние слоя, тип аннотации и теде)?

[Сет]

Сообщение от Кулик Алексей aka kpblc Насчет недокументированности : https://www.lee-mac.com/ssget.html

У Полещука написано, что комбинации режимов недокументированы. Скомбинировать X и :L в работающую конструкцию у меня не получилось. В частности "_+.X:L" - не работает.

Сообщение от Кулик Алексей aka kpblc А зачем ты вообще формируешь набор? Может, проще будет программно пройтись по пространствам модели / листов и набрать в один список все указатели на мультивыноски (заодно контролируя состояние слоя, тип аннотации и теде)?

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

[Сет]

Можно ли использовать grread с объектной привязкой и ее отслеживанием?

Поиск в интернете дает довольно много разных решений на тему ПСЕВДО объектной привязки с функцией grread, но почему-то ни один из примеров у меня не работает как ожидается, то есть никакой объектной привязки нет. Например вот этот пример. Тут даже на демонстрационной гифке показана объектная привязка, но у меня почему-то эта функция так не работает. У меня Автокад 2022. В этой версии может уже пропали возможности, реализованные в этом примере? Обратил внимание, что все способы, которые попадались в поиске - довольно давние, около 15 лет им. В версии 2022 это уже не работает?

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

Сам по себе grread привязку не поддерживает. Решение, насколько я помню, было от Елпанова на theswamp.org, но оно настолько замороченное...
А тебе вообще зачем? Может, getpoint будет достаточно?

[Сет]

Сообщение от Кулик Алексей aka kpblc Решение, насколько я помню, было от Елпанова на theswamp.org, но оно настолько замороченное...

Попадались и его примеры - не работают.

Сообщение от Кулик Алексей aka kpblc А тебе вообще зачем? Может, getpoint будет достаточно?

Хочу программно отрисовывать будущий вид создаваемых элементов, как это реализовано в оригинальных функциях автокад. Например ту же самую мультивыноску. Стандартная мультивыноска меня не устраивает. Рисую ее через vla-AddMLeader, далее меняю разные свойства. Нужно чтобы она была визуализирована, пока я перемещаю курсор по экрану.

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

Я бы уже задумывался о применении NET и его транзитной (вроде так называется) графики. JIG, в общем.

[Сергей812]

причем это будет штатный API акада, а не ежик из костылей)

----- добавлено через ~5 мин. -----
вот один из примеров для ознакомления от Kean Walmsley.

[Сет]

Сообщение от Кулик Алексей aka kpblc Я бы уже задумывался о применении NET и его транзитной (вроде так называется) графики. JIG, в общем.

А где бы посмотреть азы по этой теме? То есть в принципе как это работает. После часа поиска в интернете - ничего путного не нашел.

----- добавлено через ~13 мин. -----
Или это имеется ввиду работа с ObjectArx? Как-то однажды попытался его освоить, но что-то не получилось с ходу написать dll, которая будет работать в среде автокад. Возможно из-за того, что писал в Embarcadero C++ Builder, хотя там рекомендуется Visual Studio, причем под разные версии ObjectArx - разные версии Visual Studio, такая "универсальность" отпугнула.

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

Дык ета... Сергей же ссылку дал - вот и вперед, с песнями ))

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

Ну да, у меня самого пока что с JIG так себе дела обстоят (