[Pave1]

Есть файл, в котором хранатся блоки с аттрибутами. Хочу добавить во все блоки еще один скрытый непостоянный аттрибут. Как это сделать стандактними средствами не редактируя каждый блок?
Или напишите пожалуйста лисп, который сделает это за меня.

[Vova]

Refedit, Battman, Attsync

[Pave1]

Vova
Как-то мне ни одна из этих функций не подошла.
Мне бы такое:
- добывить во все блоки?
- да!
- что добавить?
- вот это!
- добавленно :)

[fixo]

Может такое подойдет:

Код:

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

  (defun att_to_block (new_data / adoc att blk blk_obj blocks)
  (vl-load-com)
  (setq	adoc (vla-get-activedocument
	       (vlax-get-acad-object)
	     )
  )

  (setq blocks (vla-get-blocks adoc))
  (vla-startundomark adoc)
  (vlax-for blk_obj blocks
  (setq	att (vla-AddAttribute
	      blk_obj
	      (getvar "dimtxt")
	      3 
	      (car new_data)
	      (vla-get-origin blk_obj)
	      (cadr new_data)
	      (caddr new_data)
	    )
  )

  (vlax-release-object blocks))
  (vla-endundomark adoc)
  (princ)
)

(defun C:test()
  (setq new_data '("NEW_TAG" "NEW_PROMPT" "NEW_VALUE"))
  (att_to_block new_data)
  (princ)
  )
;TesT:(C:test)

~'J'~

[Pave1]

Fatty
не работает, вот что пишет:
Команда: test
; ошибка: нулевой указатель интерфейса: #<VLA-OBJECT 00000000>

[fixo]

Сообщение от Pave1 Fatty не работает, вот что пишет: Команда: test ; ошибка: нулевой указатель интерфейса: #<VLA-OBJECT 00000000>

Согласен, не там скобу поставил:

Код:

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

  (defun att_to_block (new_data / adoc att blk blk_obj blocks) 
  (vl-load-com) 
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 

  (setq blocks (vla-get-blocks adoc)) 
  (vla-startundomark adoc) 
  (vlax-for blk_obj blocks 
  (setq   att (vla-AddAttribute 
         blk_obj 
         (getvar "dimtxt") 
         3 
         (car new_data) 
         (vla-get-origin blk_obj) 
         (cadr new_data) 
         (caddr new_data) 
       ) 
  ) 
)
  (vlax-release-object blocks) 
  (vla-endundomark adoc) 
  (princ) 
) 

(defun C:test() 
  (setq new_data '("NEW_TAG" "NEW_PROMPT" "NEW_VALUE")) 
  (att_to_block new_data) 
  (princ) 
  ) 
;TesT:(C:test) 

~'J'~

[Pave1]

:)
работает.
Спасибо.

[Pave1]

Fatty :

и другие липс-умельцы.
Вышеприведенный лисп выполняет нужную функцию, но аттрибут, который он добавляет является скрытым и постоянным
А мне хотелось бы скрытый, но не постоянный
чтобы кликнув на блок менять значения аттрибута можно было

[Pave1]

или еще вот как можно перевернуть эту проблеммы:
Есть аттрибут, один и тот де (ну т.е. название аттрибута в блоках совподает) . Как его (этот аттрибут) сделать из постоянного непостоянным?

[fixo]

Сообщение от Pave1 Fatty : и другие липс-умельцы. Вышеприведенный лисп выполняет нужную функцию, но аттрибут, который он добавляет является скрытым и постоянным А мне хотелось бы скрытый, но не постоянный чтобы кликнув на блок менять значения аттрибута можно было

Да моя ошибка, невнимателен

замени на следующее

Код:

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

(setq   att (vla-AddAttribute 
         blk_obj 
         (getvar "dimtxt") 
         ( + acAttributeModeInvisible acAttributeModeVerify);или 5
         (car new_data) 
         (vla-get-origin blk_obj) 
         (cadr new_data) 
         (caddr new_data) 
       ) 
  )

~'J'~

[fixo]

Сообщение от Pave1 или еще вот как можно перевернуть эту проблеммы: Есть аттрибут, один и тот де (ну т.е. название аттрибута в блоках совподает) . Как его (этот аттрибут) сделать из постоянного непостоянным?

Попробуй для этого случая такой вариант
Таг измени на свой или вводи интерактивно

Код:

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

  (defun rev_constatt (/ adoc blocks) 
  (vl-load-com) 
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 

  (setq blocks (vla-get-blocks adoc)) 
  (vla-startundomark adoc)
  (vlax-for blk_obj blocks
  (vlax-for item blk_obj
    (if (and (eq "AcDbAttributeDefinition" (vla-get-objectname item))
	     (eq :vlax-true (vla-get-constant item))
	     (eq "CONST" (vla-get-tagstring item)); => таг "CONST"
	     (vlax-property-available-p item 'Constant T))
      (vl-catch-all-apply (function (lambda()
      (progn     
      (vla-put-constant item :vlax-false)
      (vla-put-mode item ( + acAttributeModeInvisible acAttributeModeVerify))
      (vla-update item))))))))
   
  (vlax-release-object blocks)
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc) 
  (princ) 
  ) 
;;==================;;
  (defun C:test2() 
  (rev_constatt) 
  (princ) 
  )

~'J'~