• Юрий
  • Восстановленный участник
  • На форуме с 10 апреля 2006г.
  • Сообщений: 178
  • Спасибо: 0

Тема: ActiveX. Ошибка vla-get-IsXRef?

Здравствуйте, господа.
Хочу поочередно открывать файлы, составлять список из Xref, чтобы в последствии поменять их на соответствующие блоки.

    (setq col_ss (vla-get-SelectionSets doc))
    (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-add (list col_ss "My_ss")))
      (vla-clear (vla-Item col_ss "My_ss"))
    ) ; if
    (setq ss (vla-Item col_ss "My_ss"))
    (vla-Select ss acSelectionSetAll nil nil
      (vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(0))
      (vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 0)) '("INSERT"))
    ) ; vla-Select
    (vlax-for item ss
      (if (= :vlax-true (vla-get-IsXRef item))
    (progn
      (setq list_Xref (append list_Xref (list (vla-get-Name item))))
      (vla-Delete item)
    ) ; progn
      ) ; if
    ) ; flax-for

Однако проверка (vla-get-IsXRef item) выдает ошибку: ; error: ActiveX Server returned the error: unknown name: IsXRef
Проверял, набор ss не пустой и содержит необходимые элементы. Подскажите, в чем ошибка. Спасибо.

  • На форуме с 23 апреля 2003г.
  • Сообщений: 795
  • Спасибо: 0

Re: ActiveX. Ошибка vla-get-IsXRef?

Не путайте понятия Insert и Block.

  • Юрий
  • Восстановленный участник
  • На форуме с 10 апреля 2006г.
  • Сообщений: 178
  • Спасибо: 0

Re: ActiveX. Ошибка vla-get-IsXRef?

> Эдуард Смолянка
Не понял, при чем здесь это? Я же аргументом передаю vla-object, а vla-get-IsXRef должен выдать True or False, а не вываливаться по ошибке. И, если не трудно, подскажите уж, как разрулить ситуацию.

  • На форуме с 23 апреля 2003г.
  • Сообщений: 795
  • Спасибо: 0

Re: ActiveX. Ошибка vla-get-IsXRef?

Insert не имеет свойства isxref это свойство есть у объекта Block. Отсюда и ошибка.

  • На форуме с 23 апреля 2003г.
  • Сообщений: 795
  • Спасибо: 0

Re: ActiveX. Ошибка vla-get-IsXRef?

(vlax-for item (vla-get-blocks
         (vla-get-ActiveDocument (vlax-get-acad-object))
           )
  (if (= (vla-get-isxref item) :vlax-true)
    (princ (strcat (vla-get-name item) "\n"))
  )
)

  • Юрий
  • Восстановленный участник
  • На форуме с 10 апреля 2006г.
  • Сообщений: 178
  • Спасибо: 0

Re: ActiveX. Ошибка vla-get-IsXRef?

Понял. Спасибо. Все сделал.