[zaraki_kenpachi]

Доброго времени суток, гуру AutoLispa. Сильно не ругайтесь если что не так сделал, я в программирвоании на лиспе ламер.
Обясню сначала глобальную задачу: работаю я в AutoCAD Electrical 2010. Начретил в нем структурную схему системы с блоками автокада Elictrical, которые имеют ряд нужных мне атрибутов (TAG1, DESK1...номера по каталогам и т.д.)
С помощью проги на лиспе хочу для начала сформировать перечень элементов схемы, куда бы автоматически забивались 2 значения атрибутов (TAG1 - позиционное обозначение блока, Desk1 - описание блока).
Для этого лисповская прога должна автоматически перебирать все блоки на чертеже (я их для этого вынес специально в отдельный слой, если найдете какой то другой способ идентификации, подскажите), потом извлекать нужные мне атрибуты и записывать их в нужную мне таблицу.

Формирования списка блоков, лежащих в определнном слое я победил, не могу теперь из каждого блока (из сформированного списка) вытащить нужные мне атрибуты.

Пробовал сначала сделать это обычными лисповскими функциями типа entget, cdr, assoc, но через них он вытаскивает лишь атрибуты вроде имени блока, масштаба по осям X Y Z, и т.п., а мои (нужные мне (пользовательские) атрибуты) как буд-то не видит.

Сегодня прочитал про ActiveX в книге Полещука Н. но разобраться до конца не могу. Написал вот таку прогу

Код:

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

(defun C:USERLINE ()
(vl-load-com)
(setq block_nab (ssget "_X" '(( 8 . "syms"))))
  (if (= block_nab nil)
  (alert "Чертеж не содержит объектов для заполнения перечня элементов")
)
(setq block_len (sslength block_nab))
(setq i 0)
    (repeat block_len
    (setq block_i (ssname block_nab i))
    (setq blockactX_i (vlax-ename->vla-object block_i))
    (setq blockatt_i (vlax-safearray->list (vlax-variant-value (vla-getattributes blockactX_i))))
    (vlax-dump-object blockactX_i T)
    (setq i (1+ i))
    )
 
)

1. Подскажите как дальше получить нужное мне значение атрибута.
2. Что значит HasAttributes (RO) = -1?

Заранее спасибо.

[Do$]

А чем _.dataextraction не устраивает?

[zaraki_kenpachi]

Это ведь команда автокада, и при ее запуске вылазит диалоговое окно автокад и каждый раз, когда изменится один атрибут хотя бы одного блока, придется выполнять 8 шагов для формирования таблицы (ну может меньше, если настроить файл шаблона). Если вы знаете способ как запрограмить все эти шаги в лиспе, поделитесь.
К тому же не устраивает графическое предстваление выводимой таблицы (толщины линий ячеек, размеры ячеек не соответсвуют форме перечня элементов (ПЭ) по ГОСТ 21.1101). Т.е. каждый раз придется опять настраивать вручную.
К тому же предполагается (в дальнейшем) что прога на лиспе будет строить таблицу ПЭ в обределенной области чертежа и переносить эту таблицу автоматически (если не влезет на формат А3) на другой чертеж, создавая его в новом файле. (не знаю возможно это или нет вообще).
Еще есть проблема: когда заполняю строку описание при вставке блока AutoCad Electrical в диалоговом окне Вставить/редактирвоать компонент , он (автокад) автоматически делает все буквы заглавными, и в таблицу через команду _.dataextraction тоже выводит заглавные буквы, опять же не по ГОСТу, хотелось бы исправить это с помощью лиспа (если опять же возможно), либо как то отключить это из автокада.

[VVA]

zaraki_kenpachi,
Может это поможет:
1. Как сделать спецификацию с помощью _dataextraction? AutoCAD 2009-2010
2. Почему игнорируется _-ATTEXT и "Извлечение данных из атрибутов (метод низкого уровня)" - название из справки по Автокаду. Выдержку вложил ввиде pdf. Формируется по твоим кратериям текстовый (cdf, sdf) файл. Далее куда угодно - Access, Exel или читать файл лиспом
3.

не могу теперь из каждого блока (из сформированного списка) вытащить нужные мне атрибуты

В этом лиспе опубликованы функции get-all-atts и mip-block-setattr-bylist И других аналогов полно.

[E-degtyarev]

zaraki_kenpachi, попробуй так:

Код:

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

(defun c:userline ()
  (setq block_nab (ssget "_X" '((8 . "syms"))))
  (if (= block_nab nil)
    (alert "Чертеж не содержит объектов для заполнения перечня элементов"
    ) ;_ конец alert
  ) ;_ конец if
  (setq block_len (sslength block_nab))
  (setq i 0)
  (repeat block_len
    (setq block_i (ssname block_nab i))
    (while
      (eq (cdr (assoc 0 (entget (setq block_i (entnext block_i)))))
	  "ATTRIB"
      ) ;_ конец eq
       (progn
	 (setq bbll_i (entget block_i))
	 (if (eq (cdr (assoc 2 bbll_i))
		 "ИМЯ АТРИБУТА, ЗАДАННОЕ ПОЛЬЗОВАТЕЛЕМ-TAG1 или DESK1"
	     ) ;_ конец eq
	   (ДЕЛАЙ ЧТО НУЖНО, применив (assoc 1 bbll_i))
	 ) ;_ конец if
       ) ;_ конец progn
    ) ;_ конец while
    (setq i (1+ i))
  ) ;_ конец repeat
) ;_ конец defun

[VVA]

Еще для коллекции
Требуется регистрация
Global Attribute Editor & Extractor

[zaraki_kenpachi]

E-degtyarev, задумка хорошая, мне очень понравилась, но вот трабл в следующем: когда пишу в коде вот так:

Код:

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

(repeat block_len
    (setq block_i (ssname block_nab i))
    (setq ew (entget block_i))
    (print ew)

в командной строке выдает:

Код:

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

((-1 . <Имя объекта: 7ed59080>) (0 . "INSERT") (330 . <Имя объекта: 7ee75cf8>) 
(5 . "1850") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "SYMS") (100 . 
"AcDbBlockReference") (66 . 1) (2 . "МОНИТОР") (10 254.904 172.425 0.0) (41 . 
1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) 
(210 0.0 0.0 1.0))

Т.е. получается, что как буд-то у переменной block_i нет поля "ATTRIB", но как такое может быть, ведь это блок автокадаи когда заходишь в его свойства в автокаде, там есть атрибуты, их имена, значения.

Пробовал вместо "ATTRIB" вставить "AcDbBlockReference" (думал, что это субсписок), но все равно не получилось ничего хорошего.

Хех...не понимаю я еще многого в Лиспе.

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

http://forum.dwg.ru/showthread.php?t=22653 ?

[Do$]

Сообщение от zaraki_kenpachi Т.е. получается, что как буд-то у переменной block_i нет поля "ATTRIB", но как такое может быть, ведь это блок автокадаи когда заходишь в его свойства в автокаде, там есть атрибуты, их имена, значения.

"ATTRIB" - это не поле, это тип объекта. В переменной block_i сохраняется ename блока, если этот блок содержит атрибут, то выражение: (entnext block_i) вернет как раз ename объекта типа "ATTRIB". Попробуй вместо этого (setq ew (entget block_i)) написать (setq ew (entget (entnext block_i)))

[E-degtyarev]

zaraki_kenpachi, по всей видимости сейчас гуру форума порвут меня в лоскуты, но все же посмотри фрагмент кода программы, которая заменяет в штампах чертежа (блоки с именем "osn_nadp1n") значения атрибутов, имеющих имена "FIRMA" и "FIRMA2" с ОАО на ООО НТЦ и с РАССВЕТ на ЗАКАТ соответстввенно.
Работает реально, никаких нареканий не было.
Тебе нужно просто извлечь значения атрибутов, т.е. функцию entmod использовать не нужно. А взамен этого значение атрибута присвоить переменной. (setq xxxxx (cdr (assoc 1 bbll))) или затолкать в список или еще куда...

Код:

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

(defun prs1 ()
  (setq fr_ma1 "  ОАО  ")
  (setq fr_ma2 "  \"РАССВЕТ\"  ")
)
(defun prs2 ()
  (setq fr_ma1 "ООО \"НТЦ")
  (setq fr_ma2 "ЗАКАТ\"")
)
(defun firma (/ dcl_id)
  (setq dcl_id (load_dialog "firma.dcl"))
  (if (not (new_dialog "firma" dcl_id))
    (exit)
    (progn
      (action_tile "OAO" "(prs1)(done_dialog)")
      (action_tile "NTZ" "(prs2)(done_dialog)")
    )
  )
  (start_dialog)
)
(firma)
(setq e (ssget "X" '((0 . "insert")(2 . "osn_nadp1n"))))
(setq ee (sslength e)) 
(setq sk 0)
(repeat ee
  (setq bl (ssname e sk))
(while (eq (cdr (assoc 0 (entget (setq bl (entnext bl)))))
	   "ATTRIB"
       )
  (progn
    (setq bbll (entget bl))
    (if	(eq (cdr (assoc 2 bbll)) "FIRMA")
      (entmod (subst (cons 1 fr_ma1) (assoc 1 bbll) bbll))
    )
    (if	(eq (cdr (assoc 2 bbll)) "FIRMA2")
      (entmod (subst (cons 1 fr_ma2) (assoc 1 bbll) bbll))
    )
  )
)
(setq sk (+ 1 sk))
)

[Do$]

А где файл firma.DCL?

[VVA]

zaraki_kenpachi, Ты ссылки в постах читаешь? В частности #4 после цитаты и #8? Все уже давно написано. Зачем велосипед изобретать?
Из #4 Пример вынес сюда

Код:

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

(defun get-all-atts (obj)
    ;;;Use (get-all-atts (car(entsel "\nSelect block:")))
    ;;;Returs list  (("TAG1" . "Value1")("TAG2" . "Value2") ...)
(vl-load-com)
    (if (= (type obj) 'ENAME)
		(setq obj (vlax-ename->vla-object obj)))
  (if (and obj
           (vlax-property-available-p obj 'Hasattributes)
	   (eq :vlax-true (vla-get-HasAttributes obj))
      )
    (vl-catch-all-apply
      (function
	(lambda	()
	  (mapcar (function (lambda (x)
			      (cons (vla-get-TagString x)
				    (vla-get-TextString x)
			      )
			    )
		  )
		  (append (vlax-invoke obj 'Getattributes)
			  (vlax-invoke obj 'Getconstantattributes)
		  )
	  )
	)
      )
    )
  )
)
;;; Пример использования
(get-all-atts (car(entsel "\nSelect block:")))

Задать атрибутам TAG1 и DESK1 выбранного блока указанные значения

Код:

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

 (defun mip-conv-to-str (dat)
  (cond ((= (type dat) 'INT)(setq dat (itoa dat)))
         ((= (type dat) 'REAL)(setq dat (rtos dat 2 12)))
        ((null dat)(setq dat ""))
        (t (setq dat (vl-princ-to-string dat)))))
(defun mip-block-setattr-bylist (obj att_list / txt lst)
;; obj - Ename or Vla object of block
;; att_list - list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...)
;;                 Tag_Name - string
;;                    Value - string
  
(vl-load-com)
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list))
  (if (and obj
           (not(vlax-erased-p obj))
           (= (vla-get-ObjectName obj) "AcDbBlockReference")
	   (eq :vlax-true (vla-get-HasAttributes obj))
	   (vlax-property-available-p obj 'Hasattributes)
	   (vlax-write-enabled-p obj)
      )
    (vl-catch-all-apply
      (function
	(lambda	()
          (foreach at (vlax-invoke obj 'Getattributes)
            (if (setq lst (assoc(strcase(vla-get-TagString at)) att_list))
              (vla-put-TextString at (cdr lst))
            )
            )
          )
        )
      )
    )
  )
;;;Пример использования
(defun C:TEST ( )
  (setq tag1 "TAG1") ;_ таг 1-го атрибута
  (setq tag2 "DESK1") ;_ таг 2-го атрибута
  (setq str1 (getstring "\nВведите значение для атрибута TAG1: "))
  (setq str2 (getstring "\nВведите значение для атрибута DESK1: "))
  (if (setq blk (car(entsel "\nВыбери блок :")))
    (mip-block-setattr-bylist blk (list (cons tag1 str1)(cons tag2 str2)))
    )
  (princ)
  )

[E-degtyarev]

Do$, DCL файл простейший, например такой.

Код:

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

firma:dialog {
                label = "Замена названия фирмы";
 : button {
             label = "Рассвет";
             key = "OAO";
             }
: button {
             label = "Закат";
             key = "NTZ";
             }
           
cancel_button;
}

[zaraki_kenpachi]

VVA, да читаю... я все перешарил, что мне предлагали.
Я изучаю Лисп одну неделю... вы даете мне коды, я их по пол дня расшифровываю, чтобы понять что за функции там написаны и что они делают.

Спасибо всем большое, особенно VVA и E-degtyarev.
Поставленную задачу решил ,как раз через функцию get-all-atts .
Наконец то понял как ей пользоваться.
только вызывал я ее просто как (get-all-atts block_i)
Теперь буду двигаться дальше.

________________________

Ай да я мозК

[Сергей Богатов]

Если задача только в том чтобы сделать перечень элементов, то в Autocad Electrical есть отчёты (с настройкой нужной формы). Помимо перечня элементов там ещё куча различных отчётов на все(практически) случаи проектной жизни

[IamI]

Сообщение от Сергей Богатов Если задача только в том чтобы сделать перечень элементов, то в Autocad Electrical есть отчёты (с настройкой нужной формы). Помимо перечня элементов там ещё куча различных отчётов на все(практически) случаи проектной жизни

Но ведь отчет нельзя динамически изменять в ту или иную сторону. Тут как быть?

[kp+]

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