[Соня]

Чем то похожий вопрос был
http://dwg.ru/forum/viewtopic.php?t=...f8d31c2ab1cc9a
но у меня другая ситуация: мне надо НЕКОТОРЫЕ аттрибуты сделать определенного фактора ширины, а остальные оставить, поэтому просто переопределить блок мне не подойдет. Сейчас я просто редактирую аттрибуты и меняю каждый раз фактор ширины- жуть как неудобно!
и еще вопрос, при определении аттрибутов было сделанно одинаковое полe teg, как бы мне сделать его разным оптом для всех блоков одного имени, но так, чтобы не взрывать блок (теряются исходные данные). Потому как сейчас двойной щелчек по ОПРЕДЕЛЕННОМУ аттрибуту вызывается табличка правки аттрибутов, но не на том аттрибуте, на который был клик (и все надписи красные). Пыталась переопределить блок, эффект нулевой, и действует только если блок взорвать и собрать заново :shock:
Присоединяю файлик в блоком- надеюсь тогда все станет ясно.
[ATTACH]1121677457.dwg[/ATTACH]

[Vook]

Почему не подойдет переопределение блока? Не обязательно же все атрибуты менять.

ПО поводу второй проблемы - есть способ. Несколько муторный, но есть.

1. Командой из Экспресса attout заэкспортить содержимое всех атрибутов в текстовый файл.
2. Взорвать эксземпляр блока
3. Переименовать TAG в то, что нужно
4. Поменять в текстовом файле с содержимым атрибутов имена тэгов на новые (только очень аккуратно - не повредить остальные данные). Заодно и фактор ширины
5. Собрать блок заново командой attredef
6. Командой attin заимпортить данные обратно

[{Smirnoff}]

Навскидку написал лиспик позволяющий быстро копировать фактор ширины для множества атрибутов. Значение можно копировать с образцового атрибута или вводить (опции Sample/Value).

Код:

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

(defun c:attwf(/ ATOBJ OLDFAC OLDMODE VLAATT)
(vl-load-com)
  (if(not wFac)(setq wFac 1.0))
  (if(not wMode)(setq wMode "V"))
  (setq oldMode wMode
	oldFac wFac); end setq
  (initget "S V")
  (setq wMode(getkword(strcat "\nSelect mode [Sample/Value]<"wMode">: ")))
  (if(="" wMode)(setq wMode oldMode))
  (if(= wMode "S")
    (progn
      (while
	(not
	 (and
	  (setq atObj(car(nentsel "\nSelect sample attribute ")))
	  (="ATTRIB"(cdr(assoc 0(entget atObj))))
	  (setq wFac(vla-get-ScaleFactor(vlax-ename->vla-object atObj)))
	  ); end and
	 ); end not
	(princ "\nThis isn't attribute ")
	); end while
      ); end progn
    (progn
      (setq wFac(getreal(strcat "\nSpecify width factor <"(rtos wFac 2 2)">: ")))
      (if(null wFac)(setq wFac oldFac))
      ); end progn
    ); end if
  (while t
       (if
	(and
	  (setq atObj(car(nentsel "\nSelect target attribute ")))
	  (="ATTRIB"(cdr(assoc 0(entget atObj))))
	  (setq vlaAtt(vlax-ename->vla-object atObj))
	  ); end and
	(progn
	  (if
	    (vl-catch-all-error-p
	      (vl-catch-all-apply 'vla-put-ScaleFactor(list vlaAtt wFac)))
	    (princ "\n Can't change scale factor. Attribute on locked layer! ")
	    ); end if
	  ); end progn
	); end if
    ); end while
  (princ)
  ); end of c:attwf

Вот еще есть более совершенная програмка http://dwg.ru/dwl/121 .

:?: Зачем же ты таги одинаковые делала :?: Изменить конечно можно, только спать хочется...

[Соня]

Спасибо! попробую сейчас все методы!

Зачем же ты таги одинаковые делала

глупая была :? вообще не понимала зачем эти метки нужны.. и сейчас то не особо вникаю зачем они... но то, что разные должны быть- опытным путем установила)

[Соня]

Fantomas

Как раз то , что я хотела! [sm200] Спасибо! Сослуживцы будут пищать от восторга!

а еще насчет меток? такую же хорошую программку бы нам! :wink:

[Vook]

Я конечно понимаю, что самой трудно 6 действий сделать...
Но вряд ли на каждый чих тут быстро будут программки появляться...

[Соня]

Vook, мне не сложно, конечно) Но ты сам написал, что это "муторно" я своим сослуживцам такое предложить не могу- они у меня все тети-пенсионеры. Хотя сама я обязательно воспользуюсь этим методом!

[{Smirnoff}]

>Соня

Насчет дублирующихся тегов. Позже, даже не обещаю что сегодня, очень много работы. Но может 15-20 минут найду...