[Apelsinov]

Столкнулся с такой проблемой:
Есть программа, аналог express burst для разбиения блоков с атрибутами.
Атрибуты преобразуются в текст, располагаемый в модели.

Есть большое количество блоков, содержащих вставки блоков с атрибутами.

Для увеличения скорости работы рекурсивно разбиваются внутренние вставки блоков в блок (т.е. текстовые примитивы добавляются не в модель, а во внешний блок).
И тут вылезает проблема, ибо при считывании свойств атрибутов, их точки вставки, насколько я понял, даны относительно модели, а тексты приходится добавлять во внешний блок. В результате тексты "улетают" и при этом еще и масштабируются вместе с масштабом внешнего блока:

Код:

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

(setq Att_InsertionPoint (vla-get-InsertionPoint atr))
....
(setq TEXT_OBJ (apel-catch-apply
			     'vla-AddText
			     (list V_BLOCK ; - это объект внешнего блока
				   Att_TextString
				   Att_InsertionPoint
				   Att_Height
			     )
			   )
	    )

в общем, я в ступоре, не могу придумать, как решить эту проблему

[VVA]

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

Код:

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

(mapcar '- AttrInsertionPoint BlockInsertionPoint)

[Дима_]

Я не уверен, что правильно понял что нужно - если перевести все подблоки в блок, вот две рекурсивные функции одна проверяет на "неравномасштабность" блока (подблоков), вторая взрывает все подблоки в модель возращая примитивы - короче проверяешь, взрываешь - что получил собираешь в блок.

Код:

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

(defun explodeblock (obj); взрывает блок обрабатывая вложенные блоки - возращает список получившихся объектов.
(if (and obj (= (cod 0 obj) "INSERT"))
(append 
(setq obj (mapcar 'vlax-vla-object->ename (vlax-safearray->list (vlax-variant-value (vla-explode (vlax-ename->vla-object obj))))))
(apply 'append (mapcar 'explodeblock (vl-remove-if-not '(lambda (obj) (= (cod 0 obj) "INSERT")) obj)))
);end of append
);end of if
);end of listblock

(defun testexplodeblock (obj); проверяет есть ли неравнорастянутые подблоки (0 - есть, 1 нет, nil - не блок).
(if (and obj (= (cod 0 obj) "INSERT"))
(if 
(and 
(= (cod 41 obj) (cod 42 obj) (cod 43 obj))
(not (member 0 (mapcar 'testexplodeblock (listblock obj))))
);end of and
1
0
));end of if*2
);end of testexplodeblock

(defun cod (cd obj) ; возращает код cd примитива obj.
(if (and obj (= (type obj) 'ename))
(cdr (assoc cd (entget obj)))
));end of cod