[Yuzer]

Подсобите лиспом (может уже есть подобное).
Есть блоки - штампы. Атрибутами заданы наименования листа и номера листов. Остальное - статично.
Хотелось бы лиспом получить наименование штампов в формате: лист - наименование.

[gomer]

Yuzer, чертеж приложи, сразу помощников больше станет

[Yuzer]

Вот.

[gomer]

Код:

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

 (defun c:test ()
  (prompt "\nПеречень листов:")
  (terpri)
  (mapcar
    (function
      (lambda (x)
	((lambda (x) (write-line (strcat (car x) " - " (cadr x))))
	  (mapcar
	    'cdr
	    (vl-remove-if-not
	      (function
		(lambda	(x)
		  (member (car x) '("НОМЕР_ЛИСТА" "ИМЯ_ЛИСТА"))
		)
	      )
	      (mapcar
		(function
		  (lambda (x)
		    (cons (vla-get-TagString x) (vla-get-TextString x))
		  )
		)
		(vlax-safearray->list
		  (vlax-variant-value
		    (vla-GetAttributes (vlax-ename->vla-object x))
		  )
		)
	      )
	    )
	  )
	)
      )
    )
    (vl-remove-if
      'listp
      (mapcar 'cadr
	      (ssnamex
		(ssget "_X" (list '(0 . "INSERT") '(2 . "Штамп_01")))
	      )
      )
    )
  )
  (princ)
)

[Yuzer]

Как запустить?

[Astartes]

Yuzer, Если я не ошибаюсь то - test в командной строке.
Ты читал статью "как подключить лисп"? Там все написано куда смотреть. (defun c:test ()

[Yuzer]

Тест в комендной строке не работает.

[VVA]

Для общего случая

Код:

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

(defun get-all-atts (obj)
  (if (and obj
           (vlax-property-available-p obj 'Hasattributes)
           (eq :vlax-true (vla-get-hasattributes obj))
      ) ;_ end of and
    (vl-catch-all-apply
      (function
        (lambda ()
          (mapcar (function (lambda (x)
                              (cons (vla-get-tagstring x)
                                    (vla-get-textstring x)
                              ) ;_ end of cons
                            ) ;_ end of lambda
                  ) ;_ end of function
                  (append (vlax-invoke obj 'Getattributes)
                          (vlax-invoke obj 'Getconstantattributes)
                  ) ;_ end of append
          ) ;_ end of mapcar
        ) ;_ end of lambda
      ) ;_ end of function
    ) ;_ end of vl-catch-all-apply
  ) ;_ end of if
) ;_ end of defun

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

Код:

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

;;;Использование
(defun C:TEST1 ()
(vl-load-com)
  (if
    (setq blk (car(entsel "\Выберите блок")))
    (get-all-atts (vlax-ename->vla-object blk))
    )
  )

[gomer]

Сообщение от Yuzer Тест в комендной строке не работает.

Что значит не работает?

[Xara]

Что афтакад пишет-то?
Ты его загружал? (см. подпись VVA)

[Yuzer]

Лисп VVA, работает.
Но я думал, что будет список всех атрибутов даного блока.
Т.е. есть уменя 50 блоков с наименованиями листов, включил лисп, выбрал из перечня блок и получил список всех атрибутов по даному блоку.
Что-то типа этого.
У гомера команда тест не работает - хз как его вообще запустить..

[maratovich]

Сообщение от Yuzer получил список всех атрибутов по даному блоку

Так что ли ?