[Apelsinov]

Есть блок, есть множество вставок этого блока в чертеже.
Необходимо изменить расположение точки вставки блока, но так, чтобы расположение примитивов вставок блока относительно чертежа осталось прежним, то есть - вставки не "уехали" вслед за измененной точкой вставки.

Есть ли способ сделать это иначе, кроме как исправлением точки вставки блока (например - расположение параметра точки вставки в блокэдиторе), и последующим перемещением вставок соответственно смещению точки вставки?

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

Так и vla-move делает то же самое - перемещает примитивы. И все. А работая внутри описания блока, ты ж меняешь все вхождения этого блока.

[Евгений А.]

Ух блин. О чём вообще сыр-бор? Первый пост уже наверное забыл... Запусти мою программу (№14) на на модели с равными по модулю масштабами - увидишь, что всё работает как задумывалось! А будет желание - сделаю и независимость от масштабов.

[Евгений А.]

Обновил свою прогу ! (см. пост №14) Сделал, как и грозился (после пива - пробило на подвиги ), независимость от масштабов (чтоб их ...), надеюсь все будут довольны.

[crosandr]

Алексей, что-то код из п.17 не хочет работать, как положено( Точка вставки не перемещается в указанное место.
Может по прошествии лет все уже придумано давно в лучшем виде?

[Евгений А.]

См. п.14 (ps: п.17 - кусок моей программы, Алексей его только поковырял и "испортил")

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

Раз испортил, значит, удалить? С меня станется, ты ж знаешь

[Евгений А.]

:-) Да пусть будет для истории. Я же в кавычках написал, просто смысл от "ковыряния" исказился от заложенного и результат стал не тот...
а в п.14 есть ссылка на мою готовую прогу и там как раз это - "Может по прошествии лет все уже придумано давно в лучшем виде?".

[crosandr]

Сообщение от Евгений А. а в п.14 есть ссылка на мою готовую прогу

Есть, но она компилированая. Исходники принципиально закрыты или лежат в другом месте?

Сообщение от Кулик Алексей aka kpblc Раз испортил, значит, удалить?

может подправить лучше?

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

Сообщение от crosandr может подправить лучше

И рад бы, да времени нет совсем

[Евгений А.]

Ну зачем исходники, если сам подправить не можешь? Выкладывать исходники не хочется, так как это только часть большой программы (проект из 70-80 файлов уже), плюс там у меня уже и диалог в этой функции, и возможность поворота вокруг оси z, наверняка куча связанных функций и выкавыривать их мне совсем нету желания.

[kalatravalimitedpro]

а как сделать так чтобы точка вставки не отображалась при выделении блока как например в блоке "дверь метрическая" ?

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

Точка вставки отображается, просто она совпадает с отображением линейного параметра.

[WJ.13]

Подниму тему. Есть у кого-нибудь действующие решения по сабжу?

з.ы. Ранее опубликованные лиспы выдают ошибки (не работают); программу, выложенную Евгением А. в #14 посте, скачать не могу

[crosandr]

тынц

[VVA]

Change Block Base Point

----- добавлено через ~5 мин. -----
Дополнительные функции для работы с блоками
Изменение точки вставки блока
Базовая точка существующего блока
LISP. Изменение базовой точки блока

[tujn08]

Подскажите пожалуйста- такая проблема.
В блоке есть атрибуты
Переписываю список вставки блока (10 X Y Z) т.е. смещаю точку вставки - обновляю блок. Блок смещается как надо, а атрибуты остаются на месте- помогает только редактор блока и сохранить. Чем лечить?
Vla - функции не использую.

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

Сообщение от tujn08 Чем лечить?

_.attsync ?

[tujn08]

помогает, но блок ломается- щас с этим бороться надо (ломается от программы). Имя блока становиться *Uxx. Пропадают параметры расятжения.

задача такая: аналог команды "растянуть" нужно расятгивать блоги. Реализую так: двигаю точку вставки в нужную сторону и меняю параметр растяжения в блоке в противоположную сторону.
Иногда все хорошо работает, а иногда блоки ломаются при чем ломаются не все

Код:

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

 (progn ; если убавляем
	(setq b1 (subst (list '10 (+ (nth 0 pt) zna_E) (nth 1 pt) (nth 2 pt)) (assoc '10 (entget a)) (entget a) )) ; сдвиинули X блока влево
	(entmod b1)	(entupd a) ; обновляем блок
	(LM:setdynpropvalue blk "ширина" (+ zna_x (abs zna_E))) ; прибавили ширину
)

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

Похоже, ты работаешь "не с тем" описанием блока. Что такое а и как получено? Что такое blk и как получено?

[tujn08]

Код:

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

 (setq zna_E (getreal "Сместить на : ")) (terpri)
(setq nab_E (ssget "_C" point_1 point_2 (list (cons 0 "INSERT"))))
(setq
			i_E 0
			b_E (sslength nab_E)
		)
(setq a (ssname nab_E i_E))
(setq pt (cdr (assoc '10 (entget a)))) ; точка вставки блока
			(setq blk (vlax-ename->vla-object a))
			(setq zna_y (LM:getdynpropvalue blk "Длина,мм"))
			(setq zna_x (LM:getdynpropvalue blk "ширина"))

(setq b1 (subst (list '10 (+ (nth 0 pt) zna_E) (nth 1 pt) (nth 2 pt)) (assoc '10 (entget a)) (entget a) )) ; сдвиинули X блока влево
						  	(entmod b1)	(entupd a) ; обновляем блок
							(LM:setdynpropvalue blk "ширина" (+ zna_x (abs zna_E))) ; прибавили ширину

vla-move надо попробовать думаю будет нормально