[Torino]

Программисты, помогите, пожалуйста: нужна программа, выводящая список dictionaries, находящихся в чертеже.
И выводящая содержимое этих словарей.

[Alaspher]

В самом тривиальном варианте так:

Код:

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

(setq dicts (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for d dicts
    (princ "\n\nDict or Rec: ")
    (princ (vl-catch-all-apply (function vla-get-name) (list d)))
    (princ "\nType: ")
    (princ (setq tmp (vla-get-objectname d)))
    (if	(= tmp "AcDbDictionary")
	(progn
	    (princ "\nContain:")
	    (vlax-for i d (vlax-dump-object i))
	)
    )
)

Не ясна цель процесса, потому - как проще.

[Torino]

Спасибо, программа работает, только что-то я не могу найти нужных мне данных. Ну это не к программе.
А цель следующая: необходимо программно извлечь из Land Desktop информацию о проекте, которая хранится (по моим данным) в каком-то словаре.
Этот словарь я не нашел.
Но нужная мне информация также дублируется в расширенных данных блока ADCADD_ZZ. Поэтому можно ли написать программу, извлекающую расширенные данные из блока с именем ADCADD_ZZ, находящегося в Layout1?

[{Smirnoff}]

Давайка погладим что тут. Ой сколько всяких циферек...

Код:

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

(defun c:xdv (/ selObj regAppl dxf XDat name flag)
  (if
    (setq selObj(car(entsel "\n*** Select object *** ")))
    (progn
      (setq regAppl(vla-get-RegisteredApplications
		     (vla-get-ActiveDocument
		       (vlax-get-acad-object)))
	    ); end setq
      (vlax-for app regAppl
       (setq dxf(entget selObj(list(setq name(vla-get-Name app)))))
	(if(setq XDat(assoc -3 dxf))
	  (progn
	    (setq flag T)
	    (princ(strcat "\nApplication name: " name "\n"))
	    (princ XDat)
	    ); end progn
	  ); end if
	      ); end vlax-for
      (if(not flag)(princ "\n*** No XData found. ***"))
      ); end progn
    (princ "\n*** Nothing selected! ***")
    ); end if
  (princ)
  ); end c:xdv

[Torino]

ооо!
Оно!
Выцарапал все, что надо было!
Спасибо!

[ArtemYa]

Подскажите пожалуйста, какими методами можно добавить словарь блоку, перезаписать и считать его?

[VVA]

Хэ-records