[Klo]

В блок вставляю атрибут. Но хоть убей не пойму как задать точку вставки.

Код:

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

 (defun areablock_definiton ()
(setq new_block (vla-Add drawingBlocks (vlax-3D-point '(0. 0. 0.)) "Room_name"))
(setq roomName_attribute (vla-AddAttribute new_block 2.5 acAttributeModeNormal "Помещение" (vlax-3D-point '(0.0 -3.75 0.0)) "Name" ""))
(vla-put-insertionpoint roomName_attribute (vlax-3D-point '(0.0 -3.75 0.0)))
(vla-put-Alignment roomName_attribute acAlignmentTopCenter)
(vla-put-Mode roomName_attribute acAttributeModeMultipleline)
(vla-put-Layer roomName_attribute "_prem_name")
); end defun areablock_definiton

Зачем эти все точки, если вставляется всё равно в точку 0,0...
Если узнать точку ставки

Код:

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

 (setq obj (vlax-ename->vla-object (car (entsel))))
(vlax-safearray->list (vlax-variant-value (vla-get-insertionPoint obj)))

выдаёт (-3.875 -2.5 0.0). Но мне главное, чтоб действительно текст атрибута был ниже, а то накладывается...

Если кто знает, что у меня не так, поправьте плиз?

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

Глянь http://autolisp.ru/2010/04/06/text-and-attrib-entities/ - вдруг поможет?

[Klo]

Огромное спасибо за "удочку"!
Эту Вашу статью видел, но до того как столкнулся с этой проблемой, и особо разбираться не стал (очень уж непонятно для чего такие сложности!).
В моём случае оказалось достаточно добавить строку

Код:

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

 (vla-put-TextAlignmentPoint roomName_attribute (vlax-3D-point '(0.0 -3.75 0.0)))

и всё встало на свои места.
Еще раз благодарю за ссылку!