[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

_____________________________________________________________________________________________________________

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

[Donhuan]

<Selection set: 51> - набор, применяя к нему (ssnamex) (см. справку) получаем некий список, из этого списка при помощи приведенных выше манипуляций (пост 595) получаем список ename объектов, которые выбрали функцией (ssget), применяя уже к этому списку (mapcar 'vlax-ename->vla-object) получаем список vla-объектов (объекты ActiveX), к которым можно обращаться при помощи функций c префиксом vla-. Описание всех объектов vla есть в хелпе (см. объектная модель).
#<VLA-OBJECT IAcadMText 0bdabf24> - это и есть vla объект.
Открываем справку, ищем его свойства и методы, пишем (допустим он в переменной vla_obj):

Код:

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

(vla-get-textstring vla_obj)

[Red Nova]

Спасибо, но разве в посте #598 у меня не так? И не работает. А VVA говорит что

1. Red Nova, Ты отладчиком посмотри что у тебя в l_vla_obj? 2. У табя там список а ты пытаешься взять у списка свойство TextString

А разве (#<VLA-OBJECT IAcadMText 0bdabf24>) это список? Это ведь сам vla объект, почему он не реагирует на vla-get-textstring ?

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

А скобки там для красоты, что ли?

[Red Nova]

Мда, ну тогда скажи как взять из списка (#<VLA-OBJECT IAcadMText 0bdabf24>) текстовое содержимое?

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

(vla-get-textstring (car lst))
Где lst - твой (#<VLA-OBJECT IAcadMText 0bdabf24>)

[VVA]

1. Если не уверен, что у тебя. Используй функцию type

Команда: (setq l_vla_obj '(#<VLA-OBJECT IAcadMText 0bdabf24>)) ;;;Моделиру (#<VLA-OBJECT IACADMTEXT 0BDABF24>) Команда: Команда: (type l_vla_obj) LIST

Кстати и переменная у тебя называется l_vla_obj = List_Vla_Object

[Red Nova]

Спасибо, с текстом таки понял. А вот атрибуты пока-что нет.
Предположил что так

(setq l_vla_obj (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar (function cadr) (ssnamex (ssget)))))) (setq izdelie (vla-get-TextString (vla-getattributes (car l_vla_obj)))) (princ izdelie)

Но естественно не работает.
В отладчике показывает, что vla-getattributes возвращает
*LAST-VALUE* = #<variant 8201 ...>
Что это?
На сколько я понял чтобы работала vla-get-TextString нужно подготовить что-то типа #<VLA-OBJECT IAcadMText 0cb388a4>, это наверное название объекта, но как его получить для атрибута не предполагаю.

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

DwgRuLispLib: Получение указателей на атрибуты вхождения блока

[Red Nova]

А я не знаю что такое указатель и что с ним делать.

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

указатель - это нечто типа #<VLA-OBJECT IACADMTEXT 0BDABF24>
Только сам понимаешь, что текст и цифры будут другими

[Red Nova]

А что значит

указатель на вхождение блока и маска тэга атрибута

То есть что должно писаться после
_dwgru-block-get-attr-by-mask

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

Список указателей на атрибуты. А потом применяешь нечто типа

Код:

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

(mapcar (function vla-get-textstring)

к этому списку и получаешь список значений атрибутов блока.

[ShaggyDoc]

Сообщение от Red Nova А я не знаю что такое указатель и что с ним делать.

Указатель - ссылка на место в памяти, где есть нечто. В данном случае, визуально, это может быть представлено в виде #<VLA-OBJECT IACADMTEXT 0BDABF24>.

Тебе, чтобы не путаться, лучше термин указатель не применять. Для себя говори "получаю объект MTEXT". Это в конкретном случае, а в общем виде указатель может указывать на что угодно.

[Eximius]

Ещё вопросик от чайника:
Как програмно написать верхний или нижний индекс в команде mtext?
Когда мы просто хотим написать 2 в степени 2, мы пишем 2^2 выделяем ^2 и жмём stack. Как нажать stack програмно?
И вообще какие есть способы програмного введения индексов?

[VVA]

Eximius, С помощью управляющих кодов. Есть в справке Автокада.
Можно еще здесь посмотреть
Твой пример в кодах выглядит так

Command: (entget(entlast)) ((-1 . <Entity name: 7ef7b180>) (0 . "MTEXT") (330 . <Entity name: 7ef61cf8>) (5 . "120") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbMText") (10 311.516 507.067 0.0) (40 . 2.5) (41 . 82.7726) (71 . 1) (72 . 5) (1 . "\\A1;2{\\H0.7x;\\S^2;}") (7 . "Standard") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 2.83333) (43 . 2.5) (50 . 0.0) (73 . 1) (44 . 1.0))

[Red Nova]

Елкалла палкалла, я опять не въехал.
Пожалуйста покажите на примере как получают значение атрибута блока.

[VVA]

Red Nova, например так

[Red Nova]

Спасибо, правда эту ссылка я уже просматривал, и помню что так и не разобрался. Но вот поиском я нашел тему где Крыс впервые привел get-attr-by-mask, там я нашел и пример вызова

Код:

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

(mapcar (function (lambda(x) (cons (vla-get-TagString x) (vla-get-TextString x)))) (get-attr-by-mask (car (entsel "\nУкажите блок : ")) "*"))

Такой функцией можно получить все атрибуты блока, типа

Код:

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

(("МАССА" . "100") ("ИЗДЕЛИЕ" . "Балка Б-1"))

Проблема в том, что тыкаю то я в конкретный атрибут, и мне нужен именно он ("ИЗДЕЛИЕ"), причем не хочется ставить фильтр по имени атрибута. А хочется взять именно "тыкаемый" атрибут
Такое возможно?

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

Возможно. Используй nentsel

[Red Nova]

Кулик Алексей aka kpblc,
Спасибо, теперь похоже нашел универсальный вариант для получения содержания текста или атрибута

Код:

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

(defun rn_get_atr_or_text (/ izdelie l_vla_obj )
(setq l_vla_obj 
  (mapcar 'vlax-ename->vla-object
     (vl-remove-if 'listp (list (car 
         (nentsel))))))
(setq izdelie (vla-get-TextString (car l_vla_obj)))
)

А можно при этом запретить выбирать объекты которые не являются текстом, мтекстом или блоком с атрибутом?