Каким образом узнать длину нескольких динамических блоков

ie.spb · 05.12.2007, 12:50

Блоки- простейшие прямоугольники с линейными параметрами. Каждый блок своей длины. можно ли узнать суммарную их длину. (т.е. просто длину прямоугольного блока). В поиске не нашел ничего подходящего.

Кулик Алексей aka kpblc · 05.12.2007, 12:56

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

ie.spb · 05.12.2007, 13:00

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

Кулик Алексей aka kpblc · 05.12.2007, 13:26

Код:

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

(defun c:get-len (/ summ selset)
  (vl-load-com)
  (if (setq selset (ssget '((0 . "INSERT"))))
    (setq summ
	   (apply
	     '+
	     (mapcar
	       '(lambda (b) (vlax-variant-value (vla-get-value b)))
	       (vl-remove-if-not
		 '(lambda (a)
		    (= (strcase (vla-get-propertyname a)) "DISTANCE")
		    ) ;_ end of lambda
		 (apply
		   'append
		   (mapcar
		     '(lambda (x)
			(vlax-safearray->list
			  (vlax-variant-value (vla-getdynamicblockproperties x))
			  ) ;_ end of vlax-safearray->list
			) ;_ end of lambda
		     (vl-remove-if-not
		       '(lambda	(x)
			  (equal (vla-get-isdynamicblock x) :vlax-true)
			  ) ;_ end of lambda
		       (mapcar 'vlax-ename->vla-object
			       ((lambda	(/ tab item)
				  (repeat (setq	tab  nil
						item (sslength selset)
						) ;_ end setq
				    (setq tab
					   (cons (ssname selset (setq item (1- item))) tab)
					  ) ;_ end of setq
				    ) ;_ end of repeat
				  tab
				  ) ;_ end of lambda
				)
			       ) ;_ end of mapcar
		       ) ;_ end of vl-remove-if-not
		     ) ;_ end of mapcar
		   ) ;_ end of apply
		 ) ;_ end of vl-remove-if-not
	       ) ;_ end of mapcar
	     ) ;_ end of apply
	  ) ;_ end of setq
    ) ;_ end of if
  (if summ
    (alert (rtos summ 2 2))
    ) ;_ end of if
  ) ;_ end of defun

ie.spb · 05.12.2007, 13:31

Ну вы серьезные ребята. Просто слов нет. Спасибо большое

ie.spb · 05.12.2007, 13:32

Можно вопрос? Ты так быстро сам написал программу, или готовая была?

Кулик Алексей aka kpblc · 05.12.2007, 13:33

Спасибо, конечно, на добром слове, но... Подсчет вестись будет только для тех блоков, у которых есть свойство DISTANCE. Если будет свойство DIST_bla_bla_bla, то его значение учитываться уже не будет. Лисп нарисован под конкретную задачу, и не более того.

ie.spb · 05.12.2007, 13:34

Нет нет только дистанция. Еще раз спасибо

Кулик Алексей aka kpblc · 05.12.2007, 13:42

Цитата:

Сообщение от Djonikbishkek

Можно вопрос? Ты так быстро сам написал программу, или готовая была?

С нуля, конечно. Просто с дин.блоками (спасибо Supermax'y) качественно пришлось в свое время повоевать.
Пока печатал последний пост, нашел мелкую ошибку. Код исправлен.

SLADE · 06.12.2007, 23:37

Цитата:

Сообщение от Кулик Алексей aka kpblc

Спасибо, конечно, на добром слове, но... Подсчет вестись будет только для тех блоков, у которых есть свойство DISTANCE. Если будет свойство DIST_bla_bla_bla, то его значение учитываться уже не будет. Лисп нарисован под конкретную задачу, и не более того.

Кулик Алексей aka kpblc - Получается для полярного DISTANCE , он не подойдет , или он не считает, потому что полярный DISTANCE неименовал в "Длина_элемента"??? спасибо

Кулик Алексей aka kpblc · 06.12.2007, 23:46

Фильтрация "подсчитываемых" свойств ведется по имени. Distance, DISTance или disTaNcE - ему по барабану. Но "_Dist" лисп уже не "поймет". Поэтому вопрос, скорее всего, именно в переименовании.
Я ж говорю, что лисп сделан под конкретную задачу. Со всеми вытекающими.

wetr · 12.12.2007, 05:21

...н-да...для начала надо пробовать стандартные средства.
data extraction вам поможет...
+не зависит от имен блоков и всяких dist-бла-бла-бла
+при создании нового вхождения меняется таблица
+при изменении существующего вхождения меняется таблица
ессно после нажатия update

ie.spb · 12.12.2007, 06:34

А когда на чертеже 1000 таких блоков. Это каждый занеси в таблицу. Издохнешь ведь.

ie.spb · 12.12.2007, 06:55

Прошу прощения. Не разобрался сразу. Тоже вариант хороший. Но программно по моему проще посчитать длину этих блоков.

ie.spb · 12.12.2007, 07:14

Да и еще, насчет data extraction если надо посчитать много объектов, Cad виснет минут на 10.

wetr · 12.12.2007, 07:26

ну так считай на здоровье! Просто, как сказал Алексей, лисп под конкретную задачу, а через месяц у тебя появиться другая проблема... Ну не писать же под каждую лисп! Тем более что многое решается стандартными средствами. Я ни коим образом не преуменьшаю заслуг КРЫСа, просто data extraction более универсален...

wetr · 12.12.2007, 07:27

Цитата:

Сообщение от Djonikbishkek

Да и еще, насчет data extraction если надо посчитать много объектов, Cad виснет минут на 10.

смени машину

ie.spb · 12.12.2007, 08:32

Цитата:

Сообщение от wetr

смени машину

Машина в порядке. Так что тебе волноваться незачем. И спасибо что помог!!!.

Кулик Алексей aka kpblc · 12.12.2007, 11:36

data extraction - это имеется в виду извлечение атрибутов? Потому что таблица в #12 как-то странновато сделана: обновления не выполняется при копировании объектов. Проверял на ADT 2006 Rus.

ie.spb · 12.12.2007, 11:48

Такая же история на 2008 каде. Но когда сам создаешь все нормально, обновляется как положено.

wetr · 13.12.2007, 03:13

Цитата:

Сообщение от Кулик Алексей aka kpblc

data extraction - это имеется в виду извлечение атрибутов? Потому что таблица в #12 как-то странновато сделана: обновления не выполняется при копировании объектов. Проверял на ADT 2006 Rus.

Цитата:

Сообщение от Djonikbishkek

Такая же история на 2008 каде. Но когда сам создаешь все нормально, обновляется как положено.

Все верно вы говорите. В моей таблице прописаны мои пути доступа к файлу в котором производится подсчет атрибутов. Поэтому на других компах и не будет обновлять пока не перебьешь пути к файлу. Или, как говорит Джоник-Бишкек, можно создать таблицу заново.

ie.spb · 13.12.2007, 07:19

Твоя правда. И все таки долгая это история. Проще программкой. И еще не переводи мой ник на русский, а то звучит не очень как-то.

wetr · 13.12.2007, 08:15

Djonikbishkek, ОК!

Supermax · 13.12.2007, 21:44

Мужики! вы совсем заработались.
Вот как надо и складывай, и вычитай и хоть в степень возводи.

wetr · 14.12.2007, 03:06

Цитата:

Сообщение от Supermax

Мужики! вы совсем заработались.
Вот как надо и складывай, и вычитай и хоть в степень возводи.

Ага, а когда у тебя хотя бы 50 блоков с различными параметрами, как у Djonikbishkek, ты что делать будешь? Записывать в филд формулу из 50 слагаемых??? Потом прибавилось пара блоков... Перебивать формулу в филде??? Ты уж извени, Supermax, но твой вариант самый плохой...

Supermax · 14.12.2007, 03:20

Какого перебивать? А добавить слабо? Если в блоке и высота и длинна, как отличить одно от другого? Только указанием на конкретный параметр. Что в проге, что в формуле, работа одна и та же. Тыкай, тыкай, тыкай. Формула хоть никуда не исчезает и все указанные параметры хранит, а прогой один раз посчитал и привет. Иначе в прогу надо вставлять создание файла и сохранение в нем данных, или в сам файл чертежа вставлять куда-то. Можно конечно параметры длин обозвать особо, чтобы прога их выделяла из прочих длин, но тогда платим универсализмом. Прийдется везде такие названия параметрам давать, а это не приемлемо.

Что, сохранять в таблицу лучше? В два раза больше работы.

wetr · 14.12.2007, 03:36

по моему мы про разные веши разговариваем. Supermax, ты data extraction пробовал??? Судя по высказываниям - "Что, сохранять в таблицу лучше? В два раза больше работы" - нет.
1. Для данной КОНКРКТНОЙ задачиDjonikbishkekа, лисп это лучший вариант, не надо тыкать,тыкать, тыкать.
2. data extraction позволяет автоматом вывести ЛЮБЫЕ параметры, хоть длину, хоть высоту, в таблицу и не важно сколько блоков. Я вчера пробовал посчитать 2500 блоков Djonikbishkekа. Все вывелось в таблицу за несколько секунд. А ты сколько раз бы тыкал??? После создаем ячейку "сумма". И ФСЕ!

Supermax · 14.12.2007, 04:35

Заинтриговал, однако.

ie.spb · 14.12.2007, 06:40

Алексей, еще вопрос. Так получилось, что у одного нашего сотрудника русский Автокад, и программа выдает сумму 0. Знаю что надо где-то в тексте программы поставить "_", вот только где?

Кулик Алексей aka kpblc · 14.12.2007, 08:36

Дело в том, что у меня не используются командные методы, поэтому ставить "_" где бы то ни было - бесполезно (попросту негде). Сейчас проверю на 2006-м, оно у меня русское...
Проверил. Все считается. Может, в блоках нет свойства distance?

ie.spb · 14.12.2007, 09:02

Я знаю в чем проблема. Мои блоки созданы в английской версии, и у них есть параметр Distance, который так и воспринимается русской версией. А если блок создать в русской версии, то этот параметр называется Длина. Или я не прав?

wetr · 14.12.2007, 09:53

вот тут то и проявляются преимущества data extraction

ie.spb · 14.12.2007, 11:53

Тебе надо рекламным агентом работать. Хорошо продвигаешь data extraction. :-))

Кулик Алексей aka kpblc · 14.12.2007, 12:18

Втупую, думать не получается:

Код:

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

(defun c:get-len (/ summ selset)
  (vl-load-com)
  (if (setq selset (ssget '((0 . "INSERT"))))
    (setq summ
           (apply
             '+
             (mapcar
               '(lambda (b) (vlax-variant-value (vla-get-value b)))
               (vl-remove-if-not
                 '(lambda (a)
                    (wcmatch (strcase (vla-get-propertyname a))
                             "DISTANCE,ДЛИНА"
                             ) ;_ end of wcmatch
                    ) ;_ end of lambda
                 (apply
                   'append
                   (mapcar
                     '(lambda (x)
                        (vlax-safearray->list
                          (vlax-variant-value
                            (vla-getdynamicblockproperties x)
                            ) ;_ end of vlax-variant-value
                          ) ;_ end of vlax-safearray->list
                        ) ;_ end of lambda
                     (vl-remove-if-not
                       '(lambda (x)
                          (equal (vla-get-isdynamicblock x) :vlax-true)
                          ) ;_ end of lambda
                       (mapcar 'vlax-ename->vla-object
                               ((lambda (/ tab item)
                                  (repeat (setq tab  nil
                                                item (sslength selset)
                                                ) ;_ end setq
                                    (setq tab
                                           (cons (ssname selset (setq item (1- item))) tab)
                                          ) ;_ end of setq
                                    ) ;_ end of repeat
                                  tab
                                  ) ;_ end of lambda
                                )
                               ) ;_ end of mapcar
                       ) ;_ end of vl-remove-if-not
                     ) ;_ end of mapcar
                   ) ;_ end of apply
                 ) ;_ end of vl-remove-if-not
               ) ;_ end of mapcar
             ) ;_ end of apply
          ) ;_ end of setq
    ) ;_ end of if
  (if summ
    (alert (rtos summ 2 2))
    ) ;_ end of if
  ) ;_ end of defun

Заберет данные и с DISTANCE, и с ДЛИНА.

ie.spb · 14.12.2007, 12:47

Я понимаю, что после вчерашнего. Еще раз с прошедшим. И к теме, даже если заменить Distance на Длина, все равно не работает, выдает ошибку.

Кулик Алексей aka kpblc · 14.12.2007, 13:08

Тут мало что после вчерашнего, так еще и работы немеряно нарисовали. короче, образец (если можно, конечно). Потому как рисовать полный вариант означает пытаться изобразить замену того, что рекламирует wetr

ie.spb · 14.12.2007, 13:13

Вот тот же самый файл только с параметром "Длина"

Кулик Алексей aka kpblc · 14.12.2007, 13:40

Моя дурак. В коде идиотская ошибка. Исправил #34.

ie.spb · 14.12.2007, 13:57

Вот теперь все работает. Спасибо огромное. Как буду в Питере с меня пиво, к бабке не ходи. Как говорят у нас в Киргизии "Чон рахмат, досум"

Log_in · 20.12.2007, 09:51

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

yuriii · 10.08.2021, 13:25

Цитата:

Сообщение от Кулик Алексей aka kpblc

Заберет данные и с DISTANCE, и с ДЛИНА.

Отлично вписал туда РАССТОЯНИЕ2,РАССТОЯНИЕ4 теперь можно считать лотки.
Рано радовался, считает не правильно 83 метра считает как 43 м, 77 метров как 79
upd убрал DISTANCE, и с ДЛИНА начал считать только по РАССТОЯНИЕ4 длинны верные, для каждого динамического блока будут отдельные команды и лисп файлы

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сквозная нумерация динамических блоков	zenon	Программирование	214	28.08.2020 08:45
Руководство по созданию динамических блоков	tanushka_ch	Динамические блоки	20	25.11.2015 20:46
Проблема вставки Динамических блоков	Владимир М	Программирование	11	12.09.2007 15:42
Игра -Пятнашки- С использованием динамических блоков	Gig	Динамические блоки	1	11.12.2006 10:32
Библиотека динамических блоков	Коробейников Алексей	Динамические блоки	2	05.04.2005 16:08

05.12.2007, 12:50		#1
Каким образом узнать длину нескольких динамических блоков ie.spb Инженер Регистрация: 21.08.2007 Сообщений: 598 Блоки- простейшие прямоугольники с линейными параметрами. Каждый блок своей длины. можно ли узнать суммарную их длину. (т.е. просто длину прямоугольного блока). В поиске не нашел ничего подходящего. __________________ Склероз нельзя вылечить, но о нем можно забыть. (Ф. Раневская)
Просмотров: 9663