[kserg]

Здравствуйте.
Помогите пожалуйста извлечь (прочитать) с помощью LISP-а данные объектов типа ACAD_PROXY_ENTITY (при отсутствии объектной поддержки соответствующего приложения) на примере прилагаемого файла.
У самого - не получается.
Стоит задача создания набора подобных объектов в текущей вкладке. Понятно, что придется делать это через ssget, отфильтровав затем из набора нужное.
Требуется информация (любого объекта типа ACAD_PROXY_ENTITY) такого типа:
- Имя DXF: SPDSFORMAT
- Имя класса: mcsDbObjectFormat
- Имя приложения: SPDSGraphiCS
- Product: СПДС GraphiCS
Т.е. та, которую Autocad выдает с помощью команды СПИСОК (LIST).

Спасибо !!!!

[Do$]

Боюсь, что через LISP это нереально. Нужных данных нет ни в DXF, ни в ActiveX. Нужен либо ObjectARX, либо .NET. ARXDBG и MGDDBG видят эти данные. Как вариант: можно написать небольшую dll, которая будет добавлять LISP-функцию по извлечению этих данных из прокси-объекта.

[Сергей812]

Сообщение от Do$ Нужных данных нет ни в DXF

глубоко не вникал, но группа 91 и группа 2 - до них из лиспа не достучаться?

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

По-моему, они становятся доступными при наличии ObjectEnabler'a:

Код:

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

 (entget ent '("*"))
'((-1 . <entity name: 8a2d4f0>)
  (0 . "ACAD_PROXY_ENTITY")
  (330 . <entity name: 8a2e140>)
  (5 . "DE4F")
  (100 . "AcDbEntity")
  (67 . 1)
  (410 . "ВЫПУСК")
  (8 . "КЖ_Выноски")
  (62 . 2)
  )

[kserg]

... Мдааааааааа, не хотелось бы задействовать команду СПИСОК (LIST)... для извлечения данных. Когда-то где-то читал о том, что можно сообщения команд выводить в текстовый файл (есть для этого какая-то сист.переменная), который и можно анализировать, но это, думается будет "не красиво"...

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

logfilemode, logfilepath

[kserg]

"написать dll"... НЕт, не смогём. Знакомы лишь в какой-то мере с LISP.

----- добавлено через ~1 мин. -----
> Кулик Алексей aka kpblc

Спасибо, помогли быстрее вспомнить...

[VVA]

Как вариант прочитать лог файл после команды _LIST см QAFLAGS=2
Функции

Код:

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

(defun _read-log-file ( /  file fl str lst )
  (VL-LOAD-COM)
  (setq file (getvar "LOGFILENAME"))
  (setq fl (open file "r"))
  (while (setq str (READ-LINE fl))
    (setq str (strcase str))
    (cond
      ((VL-STRING-SEARCH "DXF:" str)
       (setq lst (cons (list "DXF" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      ((VL-STRING-SEARCH "КЛАССА:" str)
       (setq lst (cons (list "CLASS" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      ((VL-STRING-SEARCH "ПРИЛОЖЕНИЯ:" str)
       (setq lst (cons (list "PROGNAME" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      ((VL-STRING-SEARCH "PRODUCT:" str)
       (setq lst (cons (list "PRODUCT" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      ((VL-STRING-SEARCH "COMPANY:" str)
       (setq lst (cons (list "COMPANY" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      ((VL-STRING-SEARCH "COMPANY:" str)
       (setq lst (cons (list "COMPANY" (cadr(mapcar '(lambda(x)(VL-STRING-TRIM "\n " x))(str-str-lst str ":")))) lst))
       )
      (t nil)
      )
    )
  (close fl)
  (reverse lst)
  )
     ;|
* Ф-ция str-str-lst
* Сервисная ф-ция извлечения из строки данных, разделенных
* каким либо символом или строкой символов
* Возвращает список строк
* Аргументы [Type]:
  str - строка для разбора [STRING]
  pat - разделитель [STRING]
*  Пример запуска
  (setq str "мы;изучаем;рекурсии" pat ";")
  (setq str "мы — изучаем — рекурсии" pat " — ")
  (str-str-lst str pat)
* Читать подробнее http://www.caduser.ru/cgi-bin/f1/board.cgi?t=25113OT
|;
    (defun str-str-lst (str pat / i)
      (cond ((= str "") nil)
            ((setq i (vl-string-search pat str))
             (cons (substr str 1 i)
                   (str-str-lst (substr str (+ (strlen pat) 1 i)) pat)
             ) ;_  cons
            )
            (t (list str))
      ) ;_  cond
    ) ;_  defun

Пример использования

Код:

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

;;; https://forum.dwg.ru/showthread.php?p=268819#post268819
;;;https://forum.dwg.ru/showthread.php?t=153443
(VL-LOAD-COM)
;;;(setq el (car(entsel "Выберите объект")))
(if (setq ss (ssget "_X" (list(cons 0 "ACAD_PROXY_ENTITY"))))
  (progn
     (command "_LOGFILEON")
     (setq qf (getvar "QAFLAGS"))
     (setvar "QAFLAGS" 2)
    (foreach el (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (command "_LIST" el "")
      )
    (command "_LOGFILEOFF")
    (setvar "QAFLAGS" qf)
    (setq lst (_read-log-file)) ;_В переменной LST - ассоциативный список
    )
  )

----- добавлено через ~1 мин. -----
Итог

Команда: !lst (("DXF" "SPDSFORMAT") ("CLASS" "MCSDBOBJECTFORMAT") ("PROGNAME" "SPDSGRAPHICS") ("PRODUCT" "СПДС GRAPHICS") ("COMPANY" "СИСОФТ ДЕВЕЛОПМЕНТ"))

[kserg]

Спасибо.