[Dima_90]

Здравствуйте.
Подскажите пожалуйста программу или что нибудь подобное которая может - анализировать значения тегов в атрибутах в одном блоке, и потом в других, выделенных блоках, искать атрибуты с такими же тегами и менять их значение, или вставлять в значения поле (ссылку на подобии %<\AcObjProp Object(%<\_ObjId 8796087810128>%).TextString>%) для связи значений между одним начальным блоком и остальными.

Другими словами есть блок "Розетка", в котором есть атрибуты со своими значениями (номер группы, мощность, ток, тип электроприемника).
Есть остальные динамические блоки (блок "номер линии", блок "описание оборудования"), в которых присутствует часть атрибутов с такими же тегами.
Нужно взять с блока "Розетка" значения атрибутов и внедрить их в блок "номер линии" и блок "описание оборудования".
Желательно чтобы при изменении значений в блоке "Розетка" менялись значения в блоках "номер линии" и "описание оборудования".

[trir]

dbConnect

[Дима_]

Сообщение от Dima_90 Подскажите пожалуйста программу или что нибудь подобное

В этой ветке вопросы программирования обсуждаются. Если у Вас не получается реализовать данный вопрос програмно - укажите в чем сложность и на каком языке Вы это пытаетесь реализовать.

[Dima_90]

Что то не разобрался как сделать можно через dbConnect.
Как перекинуть эту тему в "Прочее. Программное обеспечение" ?

[trir]

На розетку цепляется запись в таблице, на другие объекты представления/запросы...

[Dima_90]

Trir спасибо, буду разбираться
А какая нибудь программка есть на подобии КОПИРОВАТЬСВ чтобы тыкнул на блок у которого атрибуты вбиты, а потом выделил блоки к которым значения этих атрибутов нужно применить?

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

Ага, есть. Называется attout и потом attin

[nolte]

Код:

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

 
(defun c:blabla (/ bl1 bl2 *error*)
	(defun *error* (msg)
		(setvar 'cmdecho ech)
		(alert "\nУППС ФАКИР БЫЛ ПЬЯН И ФОКУС НЕ УДАЛСЯ.\nПИШИТЕ НА МЫЛО:\n\n\tLEON.APPL2014@GMAIL.COM")
		(princ)
	)
(vl-load-com)
(setq ech (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq bl1 (vlax-ename->vla-object(car(entsel "\nSET BLOCK 1 :"))) bl2 (vlax-ename->vla-object(car(entsel "\nSET BLOCK 2 :"))))
(mapcar '(lambda (a)
					(mapcar '(lambda (b)
										(if (= (vla-get-tagstring b) (vla-get-tagstring a))
											(vla-put-textstring b (vla-get-textstring a))
										)
									)
							(vlax-safearray->list(vlax-variant-value(vla-getattributes bl2)))
					)
				)
		(vlax-safearray->list(vlax-variant-value(vla-getattributes bl1)))
)
(setvar 'cmdecho ech)
(princ)
)

вставляет аттрибуты из блока 1 в блок 2 по одинаковым тегам.
и все равно замучаешься тыркать по одному блоку.
возможны несколько вариантов решения твоей проблемы
1 долгий и бесплатный практически (скачать учебники и .... как завещал великий вождь)
2 быстрый и платный (ребята на решение этой проблемы мне не жалко ххххх американских рублей ну или русских тоже хорошо)

[Dima_90]

Кулик Алексей aka kpblc
attout и потом attin я так понял меняет атрибуты только одних и тех же блоков. Ими удобно работать если сначала экспортировать данные, потом обработать через блокнот значения и импортировать сразу все атрибуты. Это не то что я хотел, хотя уже придумал где мне нужно будет это

nolte
Это практически то что я искал нужно только немножко доработать

Сейчас начал читать "AutoLISP и Visual LISP в среде AutoCAD" Полещук Н.Н., Лоскутов П.В.
и только что нашел тему "Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)"
В дополнение можете посоветовать какую нибудь хорошую книженцию, желательно чтоб там побольше примеров разобранных было?
И через какой редактор легче писать, есть же какая нибудь альтернатива блокноту, чтобы строчки как то выделяло?

[trir]

ИМХО задачка для баз данных, а сними лучше использовать NET API

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

Сообщение от Dima_90 И через какой редактор легче писать, есть же какая нибудь альтернатива блокноту, чтобы строчки как то выделяло?

VLIDE : http://autolisp.ru/2009/09/10/vlide-misc-01/ + http://autolisp.ru/2009/09/12/vlide-misc-02/

[Dima_90]

Спасибо за помощь!!!
Немного подделал код, плохо понял что сделал, но получилось . Теперь он спрашивает 1ый раз исходный блок а потом второй и 3 разы блоки в которых нужно поменять атрибуты. Если 3го блока нету можно еще раз тыкнуть по 2 му.

Код:

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

 (defun c:бл (/ bl1 bl2 bl3 *error*)
(defun *error* (msg)
(setvar 'cmdecho ech)
(alert "\nУППС ФАКИР БЫЛ ПЬЯН И ФОКУС НЕ УДАЛСЯ.\nПИШИТЕ НА МЫЛО:\n\n\tLEON.APPL2014@GMAIL.COM")
(princ))
(vl-load-com)
(setq ech (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq bl1 (vlax-ename->vla-object(car(entsel "\nSET BLOCK 1 :"))) bl2 (vlax-ename->vla-object(car(entsel "\nSET BLOCK 2 :"))) bl3 (vlax-ename->vla-object(car(entsel "\nSET BLOCK 3 :"))))
(mapcar '(lambda (a)
(mapcar '(lambda (b)
(mapcar '(lambda (c)
(if (= (vla-get-tagstring b) (vla-get-tagstring a))
(vla-put-textstring b (vla-get-textstring a))
)
(if (= (vla-get-tagstring c) (vla-get-tagstring a))
(vla-put-textstring c (vla-get-textstring a))
)
)
(vlax-safearray->list(vlax-variant-value(vla-getattributes bl3)))
)
)
(vlax-safearray->list(vlax-variant-value(vla-getattributes bl2)))
)
)
(vlax-safearray->list(vlax-variant-value(vla-getattributes bl1)))
)
(setvar 'cmdecho ech)
(princ)
)

[nolte]

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

http://www.cad.dp.ua/sovets/lisp-functions/blockset.php
во ссылочка полезная надеюсь для тебя будет.

[Dima_90]

Nolte
Полностью согласен. Но с моими поверхностными знаниями программирования мне это будет тяжеловато. Этот программный код пока мне подходит. Сейчас я планирую немного почитать умных книжек и потом написать свой собственный код с Блэк Джеком и ...)))
За ссылку спасибо, интересная для изучения

[Dima_90]

Немного доработал, теперь можно промахиваться:

Код:

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

 (defun c:бл (/ BlOCK1 BlOCK2 BlOCK3 bl1 bl2 bl3 *error*)
  (defun *error* (msg)
    (setvar 'cmdecho ech)
    (alert
      "\Ошибка"
    )
    (princ)
  )
  (vl-load-com)
  (setq ech (getvar 'cmdecho))
  (setvar 'cmdecho 0)

  (setq BlOCK1 nil)
  (While (= BlOCK1 nil)
    (setq BlOCK1 (car (entsel "\nBLOCK 1 :")))
  )

  (setq BlOCK2 nil)
  (while
    (= BlOCK2 nil)
     (setq BlOCK2 (car (entsel "\nBLOCK 2 :")))
  )

  (setq BlOCK3 nil)
  (while
    (= BlOCK3 nil)
     (setq BlOCK3 (car (entsel "\nBLOCK 3 :")))
  )


  (setq bl1 (vlax-ename->vla-object BlOCK1))
  (setq bl2 (vlax-ename->vla-object BlOCK2))
  (setq bl3 (vlax-ename->vla-object BlOCK3))

  (mapcar
    '(lambda (a)
       (mapcar
         '(lambda (b)
	  (mapcar
	    '(lambda (c)

	       (if (= (vla-get-tagstring b) (vla-get-tagstring a))
	         (vla-put-textstring b (vla-get-textstring a))
	       )
	       (if (= (vla-get-tagstring c) (vla-get-tagstring a))
	         (vla-put-textstring c (vla-get-textstring a))
	       )
	     )
	    (vlax-safearray->list
	      (vlax-variant-value (vla-getattributes bl3))
	    )
	  )

	)
         (vlax-safearray->list
	 (vlax-variant-value (vla-getattributes bl2))
         )
       )
     )
    (vlax-safearray->list
      (vlax-variant-value (vla-getattributes bl1))
    )
  )
  (setvar 'cmdecho ech)
  (princ)
)

[roaa]

Посмотрите http://dwg.ru/dnl/12468. Может быть, поможет.

[Dima_90]

Roaa
Спасибо, хорошая програмка с набором функций