[Zaghim]

Друзья, перелопатил огромную тему по созданию дополнительных параметров Visibility Set в динамических блоках, вроде докопался до момента, где можно вытащить какие присутствую эти самые сэты. Т.е. у меня только их список с кодом 303, а как унать какой сейчас активный и изменить его хз. Как мне менять один визибл сэт на другой, если я знаю его имя. Помогите плиз!! Т.е. нужно изменить вид блока, зная имя его визибл сэта.

Код:

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

(defun c:test ()
(setq lst 
  (entget 
    (TBLOBJNAME "block" 
      (vla-get-EffectiveName 
        (vlax-ename->vla-object 
          (car (entsel "Укажите нужный вам блок"))))) '("*")))
(setq EVAL_GRAPH 
  (entget 
    (cdr (assoc 360 
      (entget 
        (cdr (assoc 360 
          (entget (cdr (assoc 330 lst))))))))))

  (mapcar '(lambda (x) 
  (if (and (= (car x) 360) 
           (= (cdr (assoc 0 (entget (cdr x)))) "BLOCKVISIBILITYPARAMETER"))
      (setq BLC-VIS-PAR (entget (cdr x))))) EVAL_GRAPH)

  )

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

Если blk-ref - vla-указатель на вхождение блока, а prop-name - имя нужного свойства (в том числе и Visibility), то получить значение можно так:

Код:

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

(vlax-variant-value (vla-get-value ((LAMBDA(/ res)
(foreach item (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties blk_ref)))
(if (= (strcase (vla-get-PropertyName item)) (strcase prop-name)) (setq res item))) res))))

Код без защиты и без проверок

[Zaghim]

"Если blk-ref - vla-указатель на вхождение блока" - это я так понимаю не то что я там наковырял с выдернутых функций, а просто список блока полученный через entget? "а prop-name - имя нужного свойства (в том числе и Visibility)" - а это уже конкретный вид, например тип1, тип2, так? Вид блока при выполнении вашей функции поменяется??

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

(setq blk-ref (vlax-ename->vla-object (car (entsel "\nУкажите дин.блок"))))
prop-name - ну значение какого свойства надо получить?

[Zaghim]

Значение Visibility Set'a. Т.е. стоит Тип1, нужно поставить Тип2, ну не просто поставить, а что бы блок изменился)

Вот так не работает:

Код:

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

(setq blkref (vlax-ename->vla-object (car (entsel "\nУкажите дин.блок"))))
  (setq prop-name "Тип1")
  (vlax-variant-value (vla-get-value ((LAMBDA(/ res)
  (foreach item (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties blkref)))
  (if (= (strcase (vla-get-PropertyName item)) (strcase prop-name)) (setq res item))) res))))

Пишет: error: bad argument type: VLA-OBJECT nil

[Лиспер]

А можно сам файлик глянуть? Потому что код вроде как рабочий.

[Zaghim]

Да, конечно. Только вместо Тип1, названия визибл сета други (что бы было понятно): прямоугольный, круглый, в одну линию,

[Лиспер]

Код:

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

 (vl-load-com)

(defun test (/ blkref prop-name)
  (setq blkref (vlax-ename->vla-object (car (entsel "\nУкажите дин.блок"))))
  (setq prop-name "Тип")
  (vlax-variant-value
    (vla-get-value
      ((lambda (/ res)
         (foreach item (vlax-safearray->list (vlax-variant-value (vla-getdynamicblockproperties blkref)))
           (if (= (strcase (vla-get-propertyname item)) (strcase prop-name))
             (setq res item)
             ) ;_ end of if
           ) ;_ end of foreach
         res
         ) ;_ end of LAMBDA
       )
      ) ;_ end of vla-get-value
    ) ;_ end of vlax-variant-value
  ) ;_ end of defun

(test) возвращает значение видимости блока (после того, как на него будет сделан клик).

[Zaghim]

Ну и контрольный вопрос, как теперь его изменить и что бы блок тоже изменился

[Лиспер]

Поискать "Изменение свойст динамических блоков"

[Zaghim]

Нашел что-то типа такого:

(SetDynamicBlockPropertyNameAllowedValue (vlax-ename->vla-object (car(entsel))) "Тип" "Круглый")

Но как этим пользоваться не понимаю(((

О, нашел еще кое-что. Спасибо Алексею. Вот эта штуковина реально сработала!!!

Код:

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

(defun _kpblc-block-dyn-change-values (ent              lst
                                       /                prop_lst
                                       _kpblc-conv-vla-to-list
                                       )
                                      ;|
    ent    указатель на вхождение блока
    lst    список вида:
      '((<property> . <value>)
    (<property> . <value>)
    )
*    примеры вызова:
(_kpblc-block-dyn-change-values (car(entsel))'(("dist*" . 162.56) ("ang*" . 5.)))
;; Углы надо задавать в радианах!
(_kpblc-block-dyn-change-values (car (entsel)) '(("type" . "minimum")))
|;

  (defun _kpblc-conv-vla-to-list (value / res)
                                 ;|
*    Преобразовывает vlax-variant или vlax-safearray в список.
|;
    (cond
      ((= (type value) 'variant)
       (_kpblc-conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (vlax-safearray->list value)
         ) ;_ end of if
       )
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun

  (vl-load-com)

  (vl-catch-all-apply
    '(lambda ()
       (setq
         ent (cond
               (ent)
               (t (car (entsel "\nУкажите вхождение дин.блока <Отмена> : ")))
               ) ;_ end of cond
         ) ;_ end of setq
       ) ;_ end of lambda
    ) ;_ end of vl-catch-all-apply
  (if (and ent
           (setq ent (cond
                       ((= (type ent) 'ename) (vlax-ename->vla-object ent))
                       ((= (type ent) 'vla-object) ent)
                       (t nil)
                       ) ;_ end of cond
                 ) ;_ end of setq
           (= (strcase (vla-get-objectname ent) t) "acdbblockreference")
           (= (vla-get-isdynamicblock
                (vla-item
                  (vla-get-blocks
                    (vla-get-activedocument (vlax-get-acad-object))
                    ) ;_ end of vla-get-blocks
                  (vla-get-effectivename ent)
                  ) ;_ end of vla-item
                ) ;_ end of vla-get-isdynamicblock
              :vlax-true
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (setq
        prop_lst (vlax-safearray->list
                   (vlax-variant-value (vla-getdynamicblockproperties ent))
                   ) ;_ end of vlax-safearray->list
        ) ;_ end of setq
      (foreach item (mapcar '(lambda (a) (cons (strcase (car a)) (cdr a))) lst)
        (if (setq prop
                   (car
                     (vl-remove-if-not
                       '(lambda (x)
                          (wcmatch (strcase (vla-get-propertyname x)) (car item))
                          ) ;_ end of lambda
                       prop_lst
                       ) ;_ end of vl-remove-if-not
                     ) ;_ end of car
                  ) ;_ end of setq
          ;; Имя совпало
          (vl-catch-all-apply
            '(lambda ()
               (vla-put-value
                 prop
                 (vlax-make-variant
                   (cdr item)
                   (vlax-variant-type (vla-get-value prop))
                   ) ;_ end of vlax-make-variant
                 ) ;_ end of vla-put-value
               (vla-update ent)
               ) ;_ end of lambda
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of if
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  )

Помогите, пожалста, как мне запускать этот код внутри уже своего кода. А то приходилось в ком строке набивать (_kpblc-block-dyn-change-values (car (entsel)) '(("Тип" . "Прямоугольный")))

Разобрался как вызывать внутри моего кода. Но, какая-то ерунда. Я получаю всю кучу блоков таким образом:
(setq nabr (ssget "_A")) (setq number (sslength nabr)) (setq name (ssname nabr n))
Если пишу (car (entsel)), то все круто, а если - name, то ничего не происходит!!!

[VVA]

Сообщение от Zaghim (setq nabr (ssget "_A")) (setq number (sslength nabr)) (setq name (ssname nabr n))

Number - количество примитивов в наборе. А чему равно значение N ?

[Zaghim]

Ну n - вначале 0, потом увеличиваю на единичку после каждого круга.

Все заработало. Всем спасибо за помощь!!!!!!!!!