[shartal]

Имею в виду вставку без диалог. окна, по аналогии со вставкой поля, соответствующего площади примитива. Возможно ли это?

[Xara]

Поиск зачем?
Есть уже тема.

[shartal]

Изучил пост вдоль и поперек, он содержит вставку свойств объектов. Мне требуется вставка значения атрибута. Модифицировать коды, вставляющие площади, однако не удалось

[hwd]

Ну так тебе и нужно читать значение атрибута из свойства.

Первый вариант: если ты в качестве объекта выбираешь блок...



Второй вариант: если ты в качестве объекта выбираешь непосредственно атрибут...



Оба варианта работают.

[shartal]

Все верно, только мне нужна быстрая вставка без диалогового окна. Простая замена field expression на нужный, в коде из поста результата не даст, а мои попытки модификации кода успеха не имели.

[hwd]

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

[shartal]

(defun C:AREATLB ( / en obj s row col)
(vl-load-com)
(cond
((and (setq en (car (entsel "\nВыберите таблицу: ")))
(= (cdr (assoc 0 (entget en))) "ACAD_TABLE"))
(setq obj (vlax-ename->vla-object en))
(while (setq en (car (entsel "\nВыберите примитив для вставки его площади в таблицу (ENTER — завершение): " )))
(cond
((vlax-property-available-p (vlax-ename->vla-object en) 'TextString)
(setq s (strcat
"%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string (vla-get-objectid (vlax-ename->vla-object en)))
">%).TextString>%"
))
(if (setq p (getpoint "\nУкажите ячейку таблицы: " ))(progn
(if (= :vlax-true (vla-HitTest obj
(vlax-3d-point (trans p 1 0)) (vlax-3d-point (trans (getvar "VIEWDIR") 1 0)) 'row 'col))
(vla-SetText obj row col s)
)
)) ;_endof if progn
)
(t
(princ "\nДля этого примитива невозможно получить свойство TextString!")
)
)
)
)
(t
(princ "\nЭто не таблица!")
)
)
(princ)
)

Я заменил, то что красное. Этого явно мало. насколько я понимаю функция vlax-ename->vla-object работает с примитивами, блок им не является.

[Дима_]

Сообщение от shartal работает с примитивами, блок им не является

Вхождение блока - является.
Ты, в программе, выбираешь вхождение блока, а тебе нужен аттрибут, замени где выбор блока entsel на nentsel и "тыкай" непосредственно в атрибут (либо добавь функционал поиска нужного аттрибута у вхождения блока и получения его ObjectID).