[молодой человек]

Здравствуйте.
Атрибуты в блоке- скрытые. До атрибутов добираюсь вот так:

Код:

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

 (setq ObjLst(vlax-safearray->list
               (vlax-variant-value
                  (vlax-invoke-method
                     (vlax-ename->vla-object ent) 'GetAttributes)))

Но у этих указателей на атрибуты нет свойства PromptString, чтобы воспользоваться функцией vla-get-PromptString.
Если не трудно подскажите как получить значение подсказки?

[Александр Ривилис]

PromptString есть не у атрибутов (ATTRIB) вставки блока (INSERT), а в описания блока (BLOCK) в определениях атрибута (ATTDEF).

[молодой человек]

Спасибо. Уже обыскался, так и не смог найти как добраться до подсказки. А это вообще возможно с помощью Lisp?

[TararykovDG]

Может так

Код:

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

; ent - указатель на ename объект, полученный например так (car (entsel))
; lst - результат (nil если объект не является вхождением блока, если у блока нет атрибутов или список вида (("<имя атрибута1>" "<Подсказка1>") ("<имя атрибута2>" "<Подсказка2>") ...)


(defun get-prompt-atr(ent / ed obj lst)
  (if (and (= (cdr (assoc 0 (setq ed (entget ent)))) "INSERT") (= (cdr (assoc 66 ed)) 1))
    (progn
      (setq obj (cdr (assoc -2 (entget (tblobjname "BLOCK" (cdr (assoc 2 ed)))))))
      (while obj
        (if (= (cdr (assoc 0 (entget obj))) "ATTDEF")
	  (setq lst (append lst (list (list (cdr (assoc 2 (entget obj))) (cdr (assoc 3 (entget obj)))))))
	  )
        (setq obj (entnext obj))
        )
      )
    )
  lst
  )

[молодой человек]

TararykovDG, спасибо вам огромное ещё раз.

[Александр Ривилис]

Сообщение от TararykovDG Может так

Почти. Нужно пропустить постоянные (constant) атрибуты, т.к. они не участвуют при вставке блока. Т.е. атрибутов у вставки блока (ATTRIB) может быть меньше, чем описаний атрибутов (ATTDEF) в блоке.

[TararykovDG]

Сообщение от Александр Ривилис Почти. Нужно пропустить постоянные (constant) атрибуты, т.к. они не участвуют при вставке блока. Т.е. атрибутов у вставки блока (ATTRIB) может быть меньше, чем описаний атрибутов (ATTDEF) в блоке.

Александр Ривилис, можно конечно и пропустить постоянные (constant) атрибуты, но я вот из какой логики исходил. Как Вы сами сказали

PromptString есть не у атрибутов (ATTRIB) вставки блока (INSERT), а в описания блока (BLOCK) в определениях атрибута (ATTDEF).

Значит, говоря о подсказках атрибутов, мы подразумеваем именно attdef в описании блоках, а вхождение блока которое нужно передать в функцию нужно лишь, чтобы узнать имя блока и по нему отыскать описание блока. Вот кстати, пока писал, сообразил, что получать имя блока через dxf коды (cdr (assoc 2 ed)) не корректно для динамических блоков можно получить типа *U... , поэтому нужно так (vla-get-EffectiveName (vlax-ename->vla-object ent))

[Александр Ривилис]

Ну без ТС мы все-равно не разберемся в том, что ему было нужно. Обычно же хотят получить подсказки атрибутов для вставленного блока, т.е. приходится находить соответствие между ATTRIB и ATTDEF. При вставке блока командой _INSERT порядок следования ATTRIB и ATTDEF совпадают за исключением константных ATTDEF. Вообще же программно можно так "наковырять" с атрибутами, что никакого соответствия ATTRIB <-> ATTDEF не будет.

[TararykovDG]

Сообщение от Александр Ривилис Вообще же программно можно так "наковырять" с атрибутами, что никакого соответствия ATTRIB <-> ATTDEF не будет.

Это точно, а можно и не программо "наковырять". Я например,сталкивался с таким. Есть описание блока с атрибутами. Есть две замечательные команды _divide и _measure для разбиения какой-нибудь кривой, у которых есть опция _block. Так если в качестве блока указать наш блок с атрибутами, то эти команды повставляют вхождения блоков у которых воощбе не будет атрибутов (attrib)